@@ -146,8 +146,8 @@ report msg = do
146 let level = messageVerbosity msg
146 let level = messageVerbosity msg
147 when (level <= verbosity) $ do
147 when (level <= verbosity) $ do
148 logOutput msg
148 logOutput msg
149− unless (level == DEBUG) $
149+ unless (level == DEBUG) $
150− modifyCommonState $ \st -> st{ stLog = msg : stLog st }
150+ modifyCommonState $ \st -> st{ stLog = msg : stLog st }
152setMediaBag :: PandocMonad m => MediaBag -> m ()
152setMediaBag :: PandocMonad m => MediaBag -> m ()
153setMediaBag mb = modifyCommonState $ \st -> st{stMediaBag = mb}
153setMediaBag mb = modifyCommonState $ \st -> st{stMediaBag = mb}