diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-02-20 15:12:20 +0100 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-02-20 15:12:20 +0100 |
commit | 3ccf3fad2c123ebb32904942ff3e552c2402d63b (patch) | |
tree | ee4b7e0616d583883660af3bc996a717ede8c8bf /src/Text/Pandoc/Parsing.hs | |
parent | 59666f79f32b535f9208ff015c810ed859977534 (diff) | |
download | pandoc-3ccf3fad2c123ebb32904942ff3e552c2402d63b.tar.gz |
Removed redundant constraint.
Diffstat (limited to 'src/Text/Pandoc/Parsing.hs')
-rw-r--r-- | src/Text/Pandoc/Parsing.hs | 3 |
1 files changed, 1 insertions, 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 |