From 3aeb5db40424863039651d10593c1c0be49efd7b Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sun, 19 Jul 2015 19:20:00 +0200
Subject: Adding a 2 minutes expiration time for a login token

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

(limited to 'src/server/Model')

diff --git a/src/server/Model/SignIn.hs b/src/server/Model/SignIn.hs
index c447416..0f9c6ce 100644
--- a/src/server/Model/SignIn.hs
+++ b/src/server/Model/SignIn.hs
@@ -1,7 +1,7 @@
 module Model.SignIn
   ( createSignInToken
   , getSignInToken
-  , signInTokenIsUsed
+  , signInTokenToUsed
   ) where
 
 import Data.Text (Text)
@@ -23,12 +23,8 @@ createSignInToken email = do
 
 getSignInToken :: Text -> Persist (Maybe (Entity SignIn))
 getSignInToken token =
-  selectFirst
-    [ SignInToken ==. token
-    , SignInIsUsed ==. False
-    ]
-    []
+  selectFirst [SignInToken ==. token] []
 
-signInTokenIsUsed :: SignInId -> Persist ()
-signInTokenIsUsed tokenId =
+signInTokenToUsed :: SignInId -> Persist ()
+signInTokenToUsed tokenId =
   update tokenId [SignInIsUsed =. True]
-- 
cgit v1.2.3