@@ -299,7 +299,7 @@ stringAnyCase (x:xs) = do
300-- | Parse contents of 'str' using 'parser' and return result.
300-- | Parse contents of 'str' using 'parser' and return result.
301parseFromString :: GenParser tok st a -> [tok] -> GenParser tok st a
301parseFromString :: GenParser tok st a -> [tok] -> GenParser tok st a
302−parseFromString parser str = try $ do
302+parseFromString parser str = do
303 oldInput <- getInput
303 oldInput <- getInput
304 setInput str
304 setInput str
305 result <- parser
305 result <- parser