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
return () -- do nothing
sendMail :: Text -> Text -> TL.Text -> IO ()
sendMail :: MonadIO m => Text -> Text -> TL.Text -> m ()
sendMail to subject body =
renderSendMail
liftIO $ renderSendMail
Mail
{ mailFrom = Address Nothing "noreply"
, mailTo = [Address Nothing to]