Add check to see whether in a footnote to ParserState (to avoid circular footnotes)

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 ()