diff options
| author | Joris Guyonvarch | 2015-08-10 21:56:58 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-08-10 21:56:58 +0200 |
| commit | f860b59644e84b84b6d7b4af309161ca7c5499ee (patch) | |
| tree | f55a136211c6892b4f355252bd0de87a62d95281 /src/server/Main.hs | |
| parent | d1fd30057cd7178e79e258a629d50c5644002166 (diff) | |
Adding a message structure server side
Diffstat (limited to 'src/server/Main.hs')
| -rw-r--r-- | src/server/Main.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/server/Main.hs b/src/server/Main.hs index e7e759b..14e69fa 100644 --- a/src/server/Main.hs +++ b/src/server/Main.hs @@ -16,10 +16,10 @@ import Config main :: IO () main = do - config <- getConfig "config.txt" - case config of - Left error -> - putStrLn error + eitherConfig <- getConfig "config.txt" + case eitherConfig of + Left errorMessage -> + putStrLn errorMessage Right config -> do runMigrations scotty (port config) $ do |