From 587a4e499ae6287c95188cf63f3a808290e9c568 Mon Sep 17 00:00:00 2001 From: Braden Walters Date: Thu, 21 Jan 2016 23:17:35 +0100 Subject: [PATCH] Use MonadIO --- Handler/Common.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Handler/Common.hs b/Handler/Common.hs index f6239bf..7b7a449 100755 --- a/Handler/Common.hs +++ b/Handler/Common.hs @@ -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]