summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-02-11 09:06:49 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2017-02-11 09:06:49 +0100
commite0d21dbb820434761488e42d3273c93126647e8b (patch)
tree7feea1a049408e8de300c53b25972e2a4c4e238a
parent31f5c02743178a9fe7b8684b489d342ff07f1967 (diff)
Class.report: Save all log messages in state.
Verbosity level only affects which are printed to stdout. (Exception: DEBUG messages are only printed, never saved to state.)
-rw-r--r--src/Text/Pandoc/Class.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Class.hs b/src/Text/Pandoc/Class.hs
index 0788a9d86..fb148666c 100644
--- a/src/Text/Pandoc/Class.hs
+++ b/src/Text/Pandoc/Class.hs
@@ -146,8 +146,8 @@ report msg = do
let level = messageVerbosity msg
when (level <= verbosity) $ do
logOutput msg
- unless (level == DEBUG) $
- modifyCommonState $ \st -> st{ stLog = msg : stLog st }
+ unless (level == DEBUG) $
+ modifyCommonState $ \st -> st{ stLog = msg : stLog st }
setMediaBag :: PandocMonad m => MediaBag -> m ()
setMediaBag mb = modifyCommonState $ \st -> st{stMediaBag = mb}