From 3ccf3fad2c123ebb32904942ff3e552c2402d63b Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 20 Feb 2017 15:12:20 +0100
Subject: [PATCH] Removed redundant constraint.

---
 src/Text/Pandoc/Parsing.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs
index e0d9c5528..400d07f2a 100644
--- a/src/Text/Pandoc/Parsing.hs
+++ b/src/Text/Pandoc/Parsing.hs
@@ -1052,8 +1052,7 @@ logMessage :: (Stream s m a, HasLogMessages st)
 logMessage msg = updateState (addLogMessage msg)
 
 -- | Report all the accumulated log messages, according to verbosity level.
-reportLogMessages :: (PandocMonad m, Stream s m a, HasLogMessages st)
-                  => ParserT s st m ()
+reportLogMessages :: (PandocMonad m, HasLogMessages st) => ParserT s st m ()
 reportLogMessages = do
   msgs <- getLogMessages <$> getState
   mapM_ report msgs