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.)

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}