diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-02-11 09:06:49 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-02-11 09:06:49 +0100 |
| commit | e0d21dbb820434761488e42d3273c93126647e8b (patch) | |
| tree | 7feea1a049408e8de300c53b25972e2a4c4e238a | |
| parent | 31f5c02743178a9fe7b8684b489d342ff07f1967 (diff) | |
| download | pandoc-e0d21dbb820434761488e42d3273c93126647e8b.tar.gz | |
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.hs | 4 |
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} |