From 0b191f5c48edffc9da3e38c284e9640fd82e7cb1 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 5 Jun 2017 18:02:13 +0200
Subject: Replace persistent by sqlite-simple

---
 src/server/View/Mail/SignIn.hs | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'src/server/View/Mail/SignIn.hs')

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
     }
-- 
cgit v1.2.3