diff options
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index 15c1c0b18..90c2d09dc 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -477,10 +477,10 @@ parseFromString parser str = do -- | Like 'parseFromString' but specialized for 'ParserState'. -- This resets 'stateLastStrPos', which is almost always what we want. -parseFromString' :: Monad m - => ParserT String ParserState m a +parseFromString' :: (Monad m, Stream s m Char, IsString s) + => ParserT s ParserState m a -> String - -> ParserT String ParserState m a + -> ParserT s ParserState m a parseFromString' parser str = do oldStrPos <- stateLastStrPos <$> getState res <- parseFromString parser str |