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/Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/src/server/Main.hs b/src/server/Main.hs
index 14e69fa..0828e0d 100644
--- a/src/server/Main.hs
+++ b/src/server/Main.hs
@@ -5,6 +5,7 @@ import Web.Scotty
 import Network.Wai.Middleware.Static
 
 import Data.Text (Text)
+import qualified Data.Text.IO as TIO
 
 import Controller.Index
 import Controller.SignIn
@@ -19,7 +20,7 @@ main = do
   eitherConfig <- getConfig "config.txt"
   case eitherConfig of
     Left errorMessage ->
-      putStrLn errorMessage
+      TIO.putStrLn errorMessage
     Right config -> do
       runMigrations
       scotty (port config) $ do
-- 
cgit v1.2.3