diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-10-26 11:35:27 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-10-26 11:35:27 -0700 |
| commit | 33eee0ceb85d8c956f3124430418e8d01d8e6106 (patch) | |
| tree | a912806abeb01673b0617c8777787e6426fff39b /src/Text/Pandoc/Class.hs | |
| parent | 424e94bd4509715cfc2dd62efadfd842e06fd472 (diff) | |
Comment reformat.
Diffstat (limited to 'src/Text/Pandoc/Class.hs')
| -rw-r--r-- | src/Text/Pandoc/Class.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Class.hs b/src/Text/Pandoc/Class.hs index 51d5f5811..c98a6411d 100644 --- a/src/Text/Pandoc/Class.hs +++ b/src/Text/Pandoc/Class.hs @@ -241,12 +241,10 @@ getVerbosity = getsCommonState stVerbosity getLog :: PandocMonad m => m [LogMessage] getLog = reverse <$> getsCommonState stLog --- | Log a message using 'logOutput'. Note that --- 'logOutput' is called only if the verbosity --- level exceeds the level of the message, but --- the message is added to the list of log messages --- that will be retrieved by 'getLog' regardless --- of its verbosity level. +-- | Log a message using 'logOutput'. Note that 'logOutput' is +-- called only if the verbosity level exceeds the level of the +-- message, but the message is added to the list of log messages +-- that will be retrieved by 'getLog' regardless of its verbosity level. report :: PandocMonad m => LogMessage -> m () report msg = do verbosity <- getsCommonState stVerbosity |