@@ -462,6 +462,7 @@ parseFromString' :: (Stream s m Char, IsString s, HasLastStrPosition u)
462 -> ParserT s u m a
462 -> ParserT s u m a
463parseFromString' parser str = do
463parseFromString' parser str = do
464 oldLastStrPos <- getLastStrPos <$> getState
464 oldLastStrPos <- getLastStrPos <$> getState
465+ updateState $ setLastStrPos Nothing
465 res <- parseFromString parser str
466 res <- parseFromString parser str
466 updateState $ setLastStrPos oldLastStrPos
467 updateState $ setLastStrPos oldLastStrPos
467 return res
468 return res