From a14af8d8f2cc9d561a8c8804a4c73b9a35ce8a97 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 1 Nov 2015 10:49:08 +0100
Subject: Set currency in conf instead of in messages

---
 src/server/Config.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/src/server/Config.hs b/src/server/Config.hs
index deb2e68..bd7f325 100644
--- a/src/server/Config.hs
+++ b/src/server/Config.hs
@@ -19,7 +19,7 @@ data Config = Config
   { hostname :: Text
   , port :: Int
   , signInExpirationMn :: Int
-  , currency :: Char
+  , currency :: Text
   } deriving (Read, Eq, Show)
 
 getConfig :: FilePath -> IO (Either Text Config)
@@ -30,5 +30,5 @@ getConfig filePath =
       (T.pack <$> get cp "DEFAULT" "hostname") <*>
       (get cp "DEFAULT" "port") <*>
       (get cp "DEFAULT" "sign-in-expiration-mn") <*>
-      (get cp "DEFAULT" "currency")
+      (T.pack <$> get cp "DEFAULT" "currency")
   )
-- 
cgit v1.2.3