From 9ec458f39f9d79e9523330e6536f5f92aa91ec43 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 30 Sep 2017 17:15:55 -0500
Subject: Text.Pandoc.Class - add getVerbosity.

---
 src/Text/Pandoc/Class.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Class.hs b/src/Text/Pandoc/Class.hs
index cc24c1c30..2b1943140 100644
--- a/src/Text/Pandoc/Class.hs
+++ b/src/Text/Pandoc/Class.hs
@@ -59,6 +59,7 @@ module Text.Pandoc.Class ( PandocMonad(..)
                          , setTrace
                          , getLog
                          , setVerbosity
+                         , getVerbosity
                          , getMediaBag
                          , setMediaBag
                          , insertMedia
@@ -217,6 +218,10 @@ setVerbosity :: PandocMonad m => Verbosity -> m ()
 setVerbosity verbosity =
   modifyCommonState $ \st -> st{ stVerbosity = verbosity }
 
+-- | Get the verbosity level.
+getVerbosity :: PandocMonad m => m Verbosity
+getVerbosity = getsCommonState stVerbosity
+
 -- Get the accomulated log messages (in temporal order).
 getLog :: PandocMonad m => m [LogMessage]
 getLog = reverse <$> getsCommonState stLog
-- 
cgit v1.2.3