From a3bab4f2a0cc8a6a95753dc91d8e862f40c80dcc Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Mon, 10 Aug 2015 23:30:31 +0200
Subject: Embedding messages into the page

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

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

diff --git a/src/server/Config.hs b/src/server/Config.hs
index f4144f7..9bc780f 100644
--- a/src/server/Config.hs
+++ b/src/server/Config.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE FlexibleContexts #-}
 
 module Config
@@ -20,9 +21,9 @@ data Config = Config
   , port :: Int
   } deriving (Read, Eq, Show)
 
-getConfig :: FilePath -> IO (Either String Config)
+getConfig :: FilePath -> IO (Either Text Config)
 getConfig filePath =
-  left show <$> (runErrorT $ do
+  left (T.pack . show) <$> (runErrorT $ do
     cp <- join $ liftIO $ readfile emptyCP filePath
     liftA2
       Config
-- 
cgit v1.2.3