@@ -314,12 +314,14 @@ stringAnyCase (x:xs) = do
314 return (firstChar:rest)
314 return (firstChar:rest)
316-- | Parse contents of 'str' using 'parser' and return result.
316-- | Parse contents of 'str' using 'parser' and return result.
317−parseFromString :: Stream s m t => ParserT s st m a -> s -> ParserT s st m a
317+parseFromString :: Monad m => ParserT String st m a -> String -> ParserT String st m a
318parseFromString parser str = do
318parseFromString parser str = do
319 oldPos <- getPosition
319 oldPos <- getPosition
320 oldInput <- getInput
320 oldInput <- getInput
321 setInput str
321 setInput str
322 result <- parser
322 result <- parser
323 setInput oldInput
325 setInput oldInput
324 setPosition oldPos
326 setPosition oldPos
325 return result
327 return result