From 74b373d23d35446d772d6bb2b01c49ca38978236 Mon Sep 17 00:00:00 2001
From: Daniel Schadt <kingdread@gmx.de>
Date: Tue, 3 Mar 2020 14:24:18 +0100
Subject: reorganize module

This switches some definitions around and wraps App in a newtype, in
preparation for more cleanup.
---
 app/Main.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'app')

diff --git a/app/Main.hs b/app/Main.hs
index 46bd5a3..c67fe9c 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -1,6 +1,6 @@
 module Main where
 
-import Lib
+import ImageHoster
 import Control.Exception
 import Data.Aeson
 import Data.Maybe
@@ -14,6 +14,4 @@ loadSettings = do
 
 
 main :: IO ()
-main = do
-    settings <- loadSettings
-    runApp settings imgHostMain
+main = loadSettings >>= run imgHostMain
-- 
cgit v1.2.3