Use in client the real currency set in config.txt

1 files changed, 5 insertions, 2 deletions

diff --git a/src/server/Controller/Index.hs b/src/server/Controller/Index.hs
index da67051..e4ec729 100644
--- a/src/server/Controller/Index.hs
+++ b/src/server/Controller/Index.hs
@@ -7,12 +7,15 @@ import Web.Scotty
 
 import Network.HTTP.Types.Status (ok200)
 
+import Config (Config(..))
 import qualified LoginSession
 
+import qualified Model.Json.Config as M
+
 import View.Page (page)
 
-getIndex :: ActionM ()
-getIndex = html page
+getIndex :: Config -> ActionM ()
+getIndex config = html . page $ M.Config { M.currency = currency config }
 
 signOut :: ActionM ()
 signOut = do