Fix typo in message text

This commit is contained in:
fr33domlover 2018-04-09 00:38:40 +00:00
parent 3cc2810d4e
commit c768659f57

View file

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