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]