From 892a7dd19a92fc18767984e624b8a5026dce61e4 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Tue, 11 Aug 2015 21:32:10 +0200
Subject: Showing server sides generated messages from the client

---
 src/server/Controller/SignIn.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'src/server/Controller')

diff --git a/src/server/Controller/SignIn.hs b/src/server/Controller/SignIn.hs
index 1110c72..263e470 100644
--- a/src/server/Controller/SignIn.hs
+++ b/src/server/Controller/SignIn.hs
@@ -31,6 +31,8 @@ import Model.Database
 import Model.User
 import Model.SignIn
 import Model.Json.Message
+import Model.Message.Key
+import Model.Message (getMessage)
 
 import qualified View.Mail.SignIn as SignIn
 
@@ -48,11 +50,11 @@ signInAction config login =
             Right _ ->
               status ok200
             Left _ ->
-              errorResponse "Sorry, we failed to send you the sign up email."
+              errorResponse (getMessage SendEmailFail)
         Nothing ->
-            errorResponse "You are not authorized to sign in."
+            errorResponse (getMessage Unauthorized)
     else
-      errorResponse "Please enter a valid email address."
+      errorResponse (getMessage EnterValidEmail)
 
 errorResponse :: Text -> ActionM ()
 errorResponse msg = do
-- 
cgit v1.2.3