WIP

1 files changed, 2 insertions, 2 deletions

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