From 1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 20 Mar 2016 22:38:44 +0100
Subject: use config-manager instead of ConfigFile

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

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

diff --git a/src/server/Model/SignIn.hs b/src/server/Model/SignIn.hs
index 117b8b5..06aba5a 100644
--- a/src/server/Model/SignIn.hs
+++ b/src/server/Model/SignIn.hs
@@ -1,6 +1,6 @@
 module Model.SignIn
   ( createSignInToken
-  , getSignInToken
+  , getSignIn
   , signInTokenToUsed
   , isLastValidToken
   ) where
@@ -22,8 +22,8 @@ createSignInToken email = do
   _ <- insert $ SignIn token now email False
   return token
 
-getSignInToken :: Text -> Persist (Maybe (Entity SignIn))
-getSignInToken token =
+getSignIn :: Text -> Persist (Maybe (Entity SignIn))
+getSignIn token =
   selectFirst [SignInToken ==. token] []
 
 signInTokenToUsed :: SignInId -> Persist ()
-- 
cgit v1.2.3