git.iko.soy/typeable/pandoc
on master help sign in
Comment reformat.
33eee0cJohn MacFarlane
src/Text/Pandoc/Class.hs+4−6
@@ -241,12 +241,10 @@ getVerbosity = getsCommonState stVerbosity
241getLog :: PandocMonad m => m [LogMessage]
241getLog :: PandocMonad m => m [LogMessage]
242getLog = reverse <$> getsCommonState stLog
242getLog = reverse <$> getsCommonState stLog
243
243
244−-- | Log a message using 'logOutput'. Note that
244+-- | Log a message using 'logOutput'. Note that 'logOutput' is
245−-- 'logOutput' is called only if the verbosity
246−-- level exceeds the level of the message, but
245+-- called only if the verbosity level exceeds the level of the
247−-- the message is added to the list of log messages
246+-- message, but the message is added to the list of log messages
248−-- that will be retrieved by 'getLog' regardless
247+-- that will be retrieved by 'getLog' regardless of its verbosity level.
249−-- of its verbosity level.
250report :: PandocMonad m => LogMessage -> m ()
248report :: PandocMonad m => LogMessage -> m ()
251report msg = do
249report msg = do
252 verbosity <- getsCommonState stVerbosity
250 verbosity <- getsCommonState stVerbosity