From d985e879e574c770453590791bc35352c2632d01 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Wed, 12 Aug 2015 10:16:59 +0200
Subject: Translating sign in page and mail

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

(limited to 'src/server/Controller')

diff --git a/src/server/Controller/SignIn.hs b/src/server/Controller/SignIn.hs
index 263e470..80885bf 100644
--- a/src/server/Controller/SignIn.hs
+++ b/src/server/Controller/SignIn.hs
@@ -69,18 +69,18 @@ validateSignInAction token = do
     Just signIn ->
       if signInIsUsed . entityVal $ signIn
         then
-          redirectError "The token has already been used."
+          redirectError (getMessage SignInUsed)
         else
           let diffTime = now `diffUTCTime` (signInCreation . entityVal $ signIn)
           in  if diffTime > 2 * 60 -- 2 minutes
                 then
-                  redirectError "The token has expired."
+                  redirectError (getMessage SignInExpired)
                 else do
                   LoginSession.put (signInEmail . entityVal $ signIn)
                   liftIO . runDb . signInTokenToUsed . entityKey $ signIn
                   redirect "/"
     Nothing ->
-      redirectError "The token is invalid."
+      redirectError (getMessage SignInInvalid)
 
 redirectError :: Text -> ActionM ()
 redirectError msg =
-- 
cgit v1.2.3