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: [PATCH] parseFromString': reset stateLastStrPos to Nothing before
parse.
---
src/Text/Pandoc/Parsing.hs | 1 +
1 file changed, 1 insertion(+)
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