forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Fix typo in message text

Browse source
This commit is contained in:
fr33domlover 2018-04-09 00:38:40 +00:00
parent 3cc2810d4e
commit c768659f57
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Vervis/Foundation.hs
View file

@ -474,7 +474,7 @@ instance AccountSendEmail App where
sendVerifyEmail uname email url = do sendVerifyEmail uname email url = do
sent <- sendMail (Address (Just uname) email) (MailVerifyAccount url) sent <- sendMail (Address (Just uname) email) (MailVerifyAccount url)
unless sent $ do unless sent $ do
setMessage "Mail sending disabed, please contact admin" setMessage "Mail sending disabled, please contact admin"
ur <- getUrlRender ur <- getUrlRender
$logWarn $ T.concat $logWarn $ T.concat
[ "Verification email NOT SENT for user " [ "Verification email NOT SENT for user "
@ -484,7 +484,7 @@ instance AccountSendEmail App where
sendNewPasswordEmail uname email url = do sendNewPasswordEmail uname email url = do
sent <- sendMail (Address (Just uname) email) (MailResetPassphrase url) sent <- sendMail (Address (Just uname) email) (MailResetPassphrase url)
unless sent $ do unless sent $ do
setMessage "Mail sending disabed, please contact admin" setMessage "Mail sending disabled, please contact admin"
ur <- getUrlRender ur <- getUrlRender
$logWarn $ T.concat $logWarn $ T.concat
["Password reset email NOT SENT for user " ["Password reset email NOT SENT for user "