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