9ec458f · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Text.Pandoc.Class - add getVerbosity.

9ec458fJohn MacFarlane9 years ago

src/Text/Pandoc/Class.hs+5

@@ -59,6 +59,7 @@ module Text.Pandoc.Class ( PandocMonad(..)

59 , setTrace

60 , getLog

61 , setVerbosity

62+ , getVerbosity

62 , getMediaBag

63 , getMediaBag

63 , setMediaBag

64 , setMediaBag

64 , insertMedia

65 , insertMedia

@@ -217,6 +218,10 @@ setVerbosity :: PandocMonad m => Verbosity -> m ()

217setVerbosity verbosity =

218setVerbosity verbosity =

218 modifyCommonState $ \st -> st{ stVerbosity = verbosity }

219 modifyCommonState $ \st -> st{ stVerbosity = verbosity }

219

220

221+-- | Get the verbosity level.

222+getVerbosity :: PandocMonad m => m Verbosity

223+getVerbosity = getsCommonState stVerbosity

224+

220-- Get the accomulated log messages (in temporal order).

225-- Get the accomulated log messages (in temporal order).

221getLog :: PandocMonad m => m [LogMessage]

226getLog :: PandocMonad m => m [LogMessage]

222getLog = reverse <$> getsCommonState stLog

227getLog = reverse <$> getsCommonState stLog