From 1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 20 Mar 2016 22:38:44 +0100
Subject: use config-manager instead of ConfigFile

---
 src/server/Main.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'src/server/Main.hs')

diff --git a/src/server/Main.hs b/src/server/Main.hs
index 3ce6e64..998b394 100644
--- a/src/server/Main.hs
+++ b/src/server/Main.hs
@@ -20,33 +20,33 @@ import Controller.Payer
 import Model.Database (runMigrations)
 import Model.Frequency
 
-import qualified Config
+import qualified Conf
 
 main :: IO ()
 main = do
   runMigrations
   _ <- forkIO monthlyPaymentJobListener
-  eitherConfig <- Config.getConfig "config.txt"
-  case eitherConfig of
+  confOrError <- Conf.getConf "application.conf"
+  case confOrError of
     Left errorMessage ->
       T.putStrLn errorMessage
-    Right config -> do
-      scotty (Config.port config) $ do
+    Right conf -> do
+      scotty (Conf.port conf) $ do
         middleware $
           staticPolicy (noDots >-> addBase "public")
 
-        get  "/"             (getIndex config)
+        get  "/"             (getIndex conf)
         post "/signOut"      signOut
 
         -- SignIn
 
         post "/signIn" $ do
           email <- param "email" :: ActionM Text
-          signIn config email
+          signIn conf email
 
         get "/validateSignIn" $ do
           token <- param "token" :: ActionM Text
-          validateSignIn config token
+          validateSignIn conf token
 
         -- Users
 
-- 
cgit v1.2.3