From 33b85b7f12798f5762d940ed5c30f775cdd7b751 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 28 Jan 2018 12:13:09 +0100
Subject: WIP

---
 server/src/Secure.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/server/src/Secure.hs b/server/src/Secure.hs
index 6e5b998..4fb2333 100644
--- a/server/src/Secure.hs
+++ b/server/src/Secure.hs
@@ -16,7 +16,7 @@ import qualified LoginSession
 import           Model.Query               (Query)
 import qualified Model.Query               as Query
 import qualified Model.SignIn              as SignIn
-import qualified Model.User                as User
+import qualified Persistence.User          as UserPersistence
 
 loggedAction :: (User -> ActionM ()) -> ActionM ()
 loggedAction action = do
@@ -39,6 +39,6 @@ getUserFromToken token = do
   mbSignIn <- SignIn.getSignIn token
   case mbSignIn of
     Just signIn ->
-      User.get (SignIn.email signIn)
+      UserPersistence.get (SignIn.email signIn)
     Nothing ->
       return Nothing
-- 
cgit v1.2.3