@@ -59,6 +59,7 @@ module Text.Pandoc.Class ( PandocMonad(..)
5959 , setTrace
6060 , getLog
6161 , setVerbosity
62+ , getVerbosity
6263 , getMediaBag
6364 , setMediaBag
6465 , insertMedia
@@ -217,6 +218,10 @@ setVerbosity :: PandocMonad m => Verbosity -> m ()
217218setVerbosity verbosity =
218219 modifyCommonState $ \st -> st{ stVerbosity = verbosity }
219220
221+-- | Get the verbosity level.
222+getVerbosity :: PandocMonad m => m Verbosity
223+getVerbosity = getsCommonState stVerbosity
224+
220225-- Get the accomulated log messages (in temporal order).
221226getLog :: PandocMonad m => m [LogMessage]
222227getLog = reverse <$> getsCommonState stLog