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.)
commite0d21dbb820434761488e42d3273c93126647e8b
authorJohn MacFarlane <jgm@berkeley.edu>
dateSat 11 Feb 2017, 09:06 (10 years ago)
parent31f5c02
src/Text/Pandoc/Class.hs+2−2
@@ -146,8 +146,8 @@ report msg = do
146146 let level = messageVerbosity msg
147147 when (level <= verbosity) $ do
148148 logOutput msg
149− unless (level == DEBUG) $
150− modifyCommonState $ \st -> st{ stLog = msg : stLog st }
149+ unless (level == DEBUG) $
150+ modifyCommonState $ \st -> st{ stLog = msg : stLog st }
151151
152152setMediaBag :: PandocMonad m => MediaBag -> m ()
153153setMediaBag mb = modifyCommonState $ \st -> st{stMediaBag = mb}