From 0ae7d068263dffbc1cc2dc92c7829dd0037c97e7 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 6 Sep 2015 15:54:38 +0200
Subject: The user can remove a monthly payment

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

(limited to 'src/server/View/Mail')

diff --git a/src/server/View/Mail/SignIn.hs b/src/server/View/Mail/SignIn.hs
index 5eb181b..fc73dae 100644
--- a/src/server/View/Mail/SignIn.hs
+++ b/src/server/View/Mail/SignIn.hs
@@ -31,7 +31,7 @@ plainBody :: User -> Text -> LT.Text
 plainBody user url =
   LT.intercalate
     "\n"
-    [ strictToLazy (getVarMessage [userName user] HiMail)
+    [ strictToLazy (getParamMessage [userName user] HiMail)
     , ""
     , strictToLazy (getMessage SignInLinkMail)
     , strictToLazy url
@@ -40,7 +40,7 @@ plainBody user url =
 htmlBody :: User -> Text -> LT.Text
 htmlBody user url =
   renderHtml . docTypeHtml . body $ do
-    toHtml $ strictToLazy (getVarMessage [userName user] HiMail)
+    toHtml $ strictToLazy (getParamMessage [userName user] HiMail)
     br
     br
     toHtml $ strictToLazy (getMessage SignInLinkMail)
-- 
cgit v1.2.3