@@ -726,7 +726,8 @@ data ParserState = ParserState
726726 stateExamples :: M.Map String Int, -- ^ Map from example labels to numbers
727727 stateHasChapters :: Bool, -- ^ True if \chapter encountered
728728 stateMacros :: [Macro], -- ^ List of macros defined so far
729− stateRstDefaultRole :: String -- ^ Current rST default interpreted text role
729+ stateRstDefaultRole :: String, -- ^ Current rST default interpreted text role
730+ stateWarnings :: [String] -- ^ Warnings generated by the parser
730731 }
731732
732733instance Default ParserState where
@@ -753,7 +754,8 @@ defaultParserState =
753754 stateExamples = M.empty,
754755 stateHasChapters = False,
755756 stateMacros = [],
756− stateRstDefaultRole = "title-reference"}
757+ stateRstDefaultRole = "title-reference",
758+ stateWarnings = []}
757759
758760getOption :: (ReaderOptions -> a) -> Parser s ParserState a
759761getOption f = (f . stateOptions) `fmap` getState