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/Secure.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'src/server/Secure.hs')

diff --git a/src/server/Secure.hs b/src/server/Secure.hs
index 7b6e6de..f563f23 100644
--- a/src/server/Secure.hs
+++ b/src/server/Secure.hs
@@ -12,14 +12,12 @@ import Network.HTTP.Types.Status (forbidden403)
 import Database.Persist (Entity, entityVal)
 
 import Model.User (getUser)
-import Model.SignIn (getSignInToken)
+import Model.SignIn (getSignIn)
 import Model.Database
 
 import Control.Monad.IO.Class (liftIO)
 
 import Data.Text (Text)
-import qualified Data.Text as T
-import qualified Data.Text.IO as TIO
 
 import qualified LoginSession
 
@@ -41,7 +39,7 @@ loggedAction action = do
 
 getUserFromToken :: Text -> Persist (Maybe (Entity User))
 getUserFromToken token = do
-  mbSignIn <- fmap entityVal <$> getSignInToken token
+  mbSignIn <- fmap entityVal <$> getSignIn token
   case mbSignIn of
     Just signIn -> do
       getUser (signInEmail signIn)
-- 
cgit v1.2.3