Set currency in conf instead of in messages

1 files changed, 2 insertions, 2 deletions

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")
   )