aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFélix Sipma <felix.sipma@no-log.org>2016-11-22 16:34:00 +0100
committerFélix Sipma <felix.sipma@no-log.org>2016-11-22 16:34:00 +0100
commitcec18147fa3e55cfd45dca223d2cbdccbd86c69d (patch)
tree30d1f0db957dd852900ae8cb82f3590e3099f52e
parentd2edd06bf371e3a2e85857ddba98487f2936dcd3 (diff)
remove useless constraint
-rw-r--r--src/Email.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Email.hs b/src/Email.hs
index 053c0b2..a0b9174 100644
--- a/src/Email.hs
+++ b/src/Email.hs
@@ -84,7 +84,7 @@ entryToMail from to tlength f e = do
escapeHeader :: T.Text -> T.Text
escapeHeader = T.strip . T.intercalate " - " . T.lines
-mapFeedEntries :: (MonadLogger m, MonadIO m) => ConfigAddress -> ConfigAddress -> Int -> Feed -> (Mail -> m ()) -> [Entry] -> m ()
+mapFeedEntries :: MonadLogger m => ConfigAddress -> ConfigAddress -> Int -> Feed -> (Mail -> m ()) -> [Entry] -> m ()
mapFeedEntries afrom ato tlength feed managemail = mapM_ manageentry
where
manageentry entry = do