nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Use MonadIO

Browse source
This commit is contained in:
Braden Walters 2016-01-21 23:17:35 +01:00
parent a31e397005
commit 587a4e499a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Handler/Common.hs
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]