diff options
| author | Joris Guyonvarch | 2015-08-10 23:30:31 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-08-10 23:30:31 +0200 |
| commit | a3bab4f2a0cc8a6a95753dc91d8e862f40c80dcc (patch) | |
| tree | 3f8083a4f35fa959fc1a80479432c3b78a55e09e /src/server/Config.hs | |
| parent | f860b59644e84b84b6d7b4af309161ca7c5499ee (diff) | |
| download | budget-a3bab4f2a0cc8a6a95753dc91d8e862f40c80dcc.tar.gz budget-a3bab4f2a0cc8a6a95753dc91d8e862f40c80dcc.tar.bz2 budget-a3bab4f2a0cc8a6a95753dc91d8e862f40c80dcc.zip | |
Embedding messages into the page
Diffstat (limited to 'src/server/Config.hs')
| -rw-r--r-- | src/server/Config.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 |