@@ -477,10 +477,10 @@ parseFromString parser str = do
478-- | Like 'parseFromString' but specialized for 'ParserState'.
478-- | Like 'parseFromString' but specialized for 'ParserState'.
479-- This resets 'stateLastStrPos', which is almost always what we want.
479-- This resets 'stateLastStrPos', which is almost always what we want.
480−parseFromString' :: Monad m
480+parseFromString' :: (Monad m, Stream s m Char, IsString s)
481− => ParserT String ParserState m a
481+ => ParserT s ParserState m a
482 -> String
482 -> String
483− -> ParserT String ParserState m a
483+ -> ParserT s ParserState m a
484parseFromString' parser str = do
484parseFromString' parser str = do
485 oldStrPos <- stateLastStrPos <$> getState
485 oldStrPos <- stateLastStrPos <$> getState
486 res <- parseFromString parser str
486 res <- parseFromString parser str