@@ -62,7 +62,6 @@ module Text.Pandoc.Parsing ( (>>~),
6262 getOption,
6363 guardEnabled,
6464 guardDisabled,
65− warning,
6665 ParserState (..),
6766 defaultParserState,
6867 HeaderType (..),
@@ -726,7 +725,6 @@ data ParserState = ParserState
726725 stateExamples :: M.Map String Int, -- ^ Map from example labels to numbers
727726 stateHasChapters :: Bool, -- ^ True if \chapter encountered
728727 stateMacros :: [Macro], -- ^ List of macros defined so far
729− stateWarnings :: [(SourcePos, String)], -- ^ List of warnings
730728 stateRstDefaultRole :: String -- ^ Current rST default interpreted text role
731729 }
732730
@@ -753,17 +751,11 @@ defaultParserState =
753751 stateExamples = M.empty,
754752 stateHasChapters = False,
755753 stateMacros = [],
756− stateWarnings = [],
757754 stateRstDefaultRole = "title-reference"}
758755
759756getOption :: (ReaderOptions -> a) -> Parser s ParserState a
760757getOption f = (f . stateOptions) `fmap` getState
761758
762−warning :: String -> Parser s ParserState ()
763−warning msg = do
764− pos <- getPosition
765− modifyState $ \st -> st{ stateWarnings = stateWarnings st ++ [(pos,msg)] }
766−
767759-- | Succeed only if the extension is enabled.
768760guardEnabled :: Extension -> Parser s ParserState ()
769761guardEnabled ext = getOption readerExtensions >>= guard . Set.member ext