diff options
| author | John MacFarlane <[email protected]> | 2025-07-29 17:24:19 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2025-07-29 17:24:19 -0700 |
| commit | f5262d88e492802169a03efffd8c3ce292cfce9c (patch) | |
| tree | 603d3b7da0318d58594872aad6eb11288539b156 | |
| parent | 9d56205784d529b0c409e2c27876a541eae432f5 (diff) | |
TikiWiki reader: Use getVerbosity instead of getCommonState.
| -rw-r--r-- | src/Text/Pandoc/Readers/TikiWiki.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/TikiWiki.hs b/src/Text/Pandoc/Readers/TikiWiki.hs index a9082b657..ba09ccb6f 100644 --- a/src/Text/Pandoc/Readers/TikiWiki.hs +++ b/src/Text/Pandoc/Readers/TikiWiki.hs @@ -24,8 +24,7 @@ import Data.Maybe (fromMaybe) import Data.Text (Text) import qualified Data.Text as T import qualified Text.Pandoc.Builder as B -import Text.Pandoc.Class.CommonState (CommonState (..)) -import Text.Pandoc.Class.PandocMonad (PandocMonad (..)) +import Text.Pandoc.Class.PandocMonad (PandocMonad (..), getVerbosity) import Text.Pandoc.Definition import Text.Pandoc.Logging (Verbosity (..)) import Text.Pandoc.Options @@ -71,7 +70,7 @@ parseTikiWiki = do block :: PandocMonad m => TikiWikiParser m B.Blocks block = do - verbosity <- getsCommonState stVerbosity + verbosity <- getVerbosity pos <- getPosition res <- mempty <$ skipMany1 blankline <|> blockElements |
