diff options
Diffstat (limited to 'src/server/View')
| -rw-r--r-- | src/server/View/Mail/SignIn.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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) |