From 5babf01323bcb62a9880593165af70732f22751b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 13 Sep 2015 12:04:52 +0200
Subject: Adding income database table with a getter and a setter

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

(limited to 'src/server/Controller/SignIn.hs')

diff --git a/src/server/Controller/SignIn.hs b/src/server/Controller/SignIn.hs
index 955ad35..3bbb9ff 100644
--- a/src/server/Controller/SignIn.hs
+++ b/src/server/Controller/SignIn.hs
@@ -64,22 +64,22 @@ errorResponse msg = do
   jsonObject [("error", Json.String msg)]
 
 validateSignIn :: Config -> Text -> ActionM ()
-validateSignIn config token = do
-  maybeSignIn <- liftIO . runDb $ getSignInToken token
+validateSignIn config textToken = do
+  mbToken <- liftIO . runDb $ getSignInToken textToken
   now <- liftIO getCurrentTime
-  case maybeSignIn of
-    Just signIn ->
-      if signInIsUsed . entityVal $ signIn
+  case mbToken of
+    Just token ->
+      if signInIsUsed . entityVal $ token
         then
           redirectError (getMessage SignInUsed)
         else
-          let diffTime = now `diffUTCTime` (signInCreation . entityVal $ signIn)
+          let diffTime = now `diffUTCTime` (signInCreation . entityVal $ token)
           in  if diffTime > (fromIntegral $ (signInExpirationMn config) * 60)
                 then
                   redirectError (getMessage SignInExpired)
                 else do
-                  LoginSession.put (signInEmail . entityVal $ signIn)
-                  liftIO . runDb . signInTokenToUsed . entityKey $ signIn
+                  LoginSession.put (signInEmail . entityVal $ token)
+                  liftIO . runDb . signInTokenToUsed . entityKey $ token
                   redirect "/"
     Nothing ->
       redirectError (getMessage SignInInvalid)
-- 
cgit v1.2.3