From c015db01e2acee9d1fc83cd6a762d0a3e629b353 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 1 Nov 2015 11:58:42 +0100
Subject: Use in client the real currency set in config.txt

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

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

diff --git a/src/server/Main.hs b/src/server/Main.hs
index 6a120d6..3d61481 100644
--- a/src/server/Main.hs
+++ b/src/server/Main.hs
@@ -19,23 +19,23 @@ import Controller.Payer
 import Model.Database (runMigrations)
 import Model.Frequency
 
-import Config
+import qualified Config
 
 main :: IO ()
 main = do
   runMigrations
   _ <- forkIO monthlyPaymentJobListener
-  eitherConfig <- getConfig "config.txt"
+  eitherConfig <- Config.getConfig "config.txt"
   case eitherConfig of
     Left errorMessage ->
       TIO.putStrLn errorMessage
     Right config -> do
-      scotty (port config) $ do
+      scotty (Config.port config) $ do
         middleware $
           staticPolicy (noDots >-> addBase "public")
 
-        get  "/"        getIndex
-        post "/signOut" signOut
+        get  "/"             (getIndex config)
+        post "/signOut"      signOut
 
         -- SignIn
 
-- 
cgit v1.2.3