From f860b59644e84b84b6d7b4af309161ca7c5499ee Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Mon, 10 Aug 2015 21:56:58 +0200
Subject: Adding a message structure server side

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

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

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
-- 
cgit v1.2.3