1 files changed, 2 insertions, 4 deletions
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)