Use MonadIO

This commit is contained in:
Braden Walters 2016-01-21 23:17:35 +01:00
parent a31e397005
commit 587a4e499a

View file

@ -202,9 +202,9 @@ der Matemat
else else
return () -- do nothing return () -- do nothing
sendMail :: Text -> Text -> TL.Text -> IO () sendMail :: MonadIO m => Text -> Text -> TL.Text -> m ()
sendMail to subject body = sendMail to subject body =
renderSendMail liftIO $ renderSendMail
Mail Mail
{ mailFrom = Address Nothing "noreply" { mailFrom = Address Nothing "noreply"
, mailTo = [Address Nothing to] , mailTo = [Address Nothing to]