Replace persistent by sqlite-simple

1 files changed, 5 insertions, 6 deletions

diff --git a/src/server/View/Mail/SignIn.hs b/src/server/View/Mail/SignIn.hs
index 8eaa077..c7d40d8 100644
--- a/src/server/View/Mail/SignIn.hs
+++ b/src/server/View/Mail/SignIn.hs
@@ -6,13 +6,12 @@ module View.Mail.SignIn
 
 import Data.Text (Text)
 
-import Model.Database (User(..))
-import qualified Model.Mail as M
-import Model.Message.Key
-import Model.Message
-
 import Conf (Conf)
+import Model.Message
+import Model.Message.Key
+import Model.User (User(..))
 import qualified Conf as Conf
+import qualified Model.Mail as M
 
 mail :: Conf -> User -> Text -> [Text] -> M.Mail
 mail conf user url to =
@@ -20,5 +19,5 @@ mail conf user url to =
     { M.from = Conf.noReplyMail conf
     , M.to = to
     , M.subject = (getMessage SignInMailTitle)
-    , M.plainBody = getParamMessage [userName user, url] SignInMail
+    , M.plainBody = getParamMessage [name user, url] SignInMail
     }