aboutsummaryrefslogtreecommitdiff
path: root/app
diff options
context:
space:
mode:
authorDaniel Schadt <kingdread@gmx.de>2020-03-03 14:24:18 +0100
committerDaniel Schadt <kingdread@gmx.de>2020-03-03 14:27:37 +0100
commit74b373d23d35446d772d6bb2b01c49ca38978236 (patch)
tree609a80fb5f7512e21fd792db33fe8a372bdf87c3 /app
parent7f11cf1617aed8930598d7bd908ee1625cbc97f7 (diff)
downloadsimghost-74b373d23d35446d772d6bb2b01c49ca38978236.tar.gz
simghost-74b373d23d35446d772d6bb2b01c49ca38978236.tar.bz2
simghost-74b373d23d35446d772d6bb2b01c49ca38978236.zip
reorganize module
This switches some definitions around and wraps App in a newtype, in preparation for more cleanup.
Diffstat (limited to 'app')
-rw-r--r--app/Main.hs6
1 files changed, 2 insertions, 4 deletions
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