@@ -1052,8 +1052,7 @@ logMessage :: (Stream s m a, HasLogMessages st)
1052logMessage msg = updateState (addLogMessage msg)
1052logMessage msg = updateState (addLogMessage msg)
1054-- | Report all the accumulated log messages, according to verbosity level.
1054-- | Report all the accumulated log messages, according to verbosity level.
1055−reportLogMessages :: (PandocMonad m, Stream s m a, HasLogMessages st)
1055+reportLogMessages :: (PandocMonad m, HasLogMessages st) => ParserT s st m ()
1056− => ParserT s st m ()
1057reportLogMessages = do
1056reportLogMessages = do
1058 msgs <- getLogMessages <$> getState
1057 msgs <- getLogMessages <$> getState
1059 mapM_ report msgs
1058 mapM_ report msgs