diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2015-01-30 12:32:45 +0000 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2015-02-18 12:50:21 +0000 |
commit | d4ab579dc3f4b13be0a8ac2024467802a5f9928e (patch) | |
tree | a7eae9a2fc65067aa525e24e9bdaf6e958a98abf /src | |
parent | 2b580600077b615bb66e3bf3b49785a7b8772d09 (diff) | |
download | pandoc-d4ab579dc3f4b13be0a8ac2024467802a5f9928e.tar.gz |
Add check to see whether in a footnote to ParserState (to avoid circular footnotes)
Diffstat (limited to 'src')
-rw-r--r-- | src/Text/Pandoc/Parsing.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index 8f1d1086d..592f377c6 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -908,7 +908,8 @@ data ParserState = ParserState stateCaption :: Maybe Inlines, -- ^ Caption in current environment stateInHtmlBlock :: Maybe String, -- ^ Tag type of HTML block being parsed stateMarkdownAttribute :: Bool, -- ^ True if in markdown=1 context - stateWarnings :: [String] -- ^ Warnings generated by the parser + stateWarnings :: [String], -- ^ Warnings generated by the parser + stateInFootnote :: Bool -- ^ True if in a footnote block. } instance Default ParserState where @@ -1002,7 +1003,8 @@ defaultParserState = stateCaption = Nothing, stateInHtmlBlock = Nothing, stateMarkdownAttribute = False, - stateWarnings = []} + stateWarnings = [], + stateInFootnote = False } -- | Succeed only if the extension is enabled. guardEnabled :: (Stream s m a, HasReaderOptions st) => Extension -> ParserT s st m () |