From d4ab579dc3f4b13be0a8ac2024467802a5f9928e Mon Sep 17 00:00:00 2001
From: Matthew Pickering <matthewtpickering@gmail.com>
Date: Fri, 30 Jan 2015 12:32:45 +0000
Subject: Add check to see whether in a footnote to ParserState (to avoid
 circular footnotes)

---
 src/Text/Pandoc/Parsing.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src')

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 ()
-- 
cgit v1.2.3