diff options
| author | Joris | 2015-09-06 15:54:38 +0200 |
|---|---|---|
| committer | Joris | 2015-09-06 15:54:38 +0200 |
| commit | 0ae7d068263dffbc1cc2dc92c7829dd0037c97e7 (patch) | |
| tree | c07d2a2fe22ac7b8a45e71d9bbcb5826922cbae8 /src/server/View/Mail | |
| parent | e10531ba4e60c8709088798763ae3bae6608f9c9 (diff) | |
The user can remove a monthly payment
Diffstat (limited to 'src/server/View/Mail')
| -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) |