From b446c6c44818b6516905ffd1fd0359c5fe16c64a Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 26 Aug 2019 15:52:25 -0700
Subject: parseFromString': reset stateLastStrPos to Nothing before parse.

---
 src/Text/Pandoc/Parsing.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs
index 959e272a1..a50add362 100644
--- a/src/Text/Pandoc/Parsing.hs
+++ b/src/Text/Pandoc/Parsing.hs
@@ -462,6 +462,7 @@ parseFromString' :: (Stream s m Char, IsString s, HasLastStrPosition u)
                  -> ParserT s u m a
 parseFromString' parser str = do
   oldLastStrPos <- getLastStrPos <$> getState
+  updateState $ setLastStrPos Nothing
   res <- parseFromString parser str
   updateState $ setLastStrPos oldLastStrPos
   return res
-- 
cgit v1.2.3