Generalize parseFromString'

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