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/Controller/Index.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/server/Controller/Index.hs')

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
-- 
cgit v1.2.3