@@ -48,7 +48,10 @@ sendMailWithConfig (MailConfig host port user pass) =
4848
4949genMail :: String -> TokenVerificationCode -> UserId -> String -> String -> TL.Text -> Part
5050genMail rootUrl userCode uId activation deactivation ua = htmlPart . renderHtml $ html $ body ! A.style "font-family: sans-serif;" $ do
51− H.div ! A.style "display: none; max-height: 0px; overflow: hidden;" $ toHtml ua <> ": " <> toHtml [a', b', c', d', e', f']
51+ H.div ! A.style "display: none; max-height: 0px; overflow: hidden;" $ do
52+ "Verification code: " <> toHtml ua
53+ br
54+ toHtml [a', b', ' ', c', d', ' ', e', f']
5255 H.div ! A.style "display: none; max-height: 0px; overflow: hidden;" $ " "
5356 H.div ! A.style "text-align: center; margin-top: 55px;" $ do
5457 H.a ! href (stringValue $ rootUrl <> "/authentication/activateUser?id=" <> show uId <> "&data=" <> activation) ! A.style "font-size: 34px; font-weight: bold; display: inline-block; padding: 7px 13px 7px 13px; margin-bottom: 89px; text-decoration: underline; font-family: sans-serif; color: #555;" $ "Log in"