Use in client the real currency set in config.txt

1 files changed, 5 insertions, 5 deletions

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