Commits

Bryan O'Sullivan committed 64b40b2

Print more useful error message if string match fails.

Comments (0)

Files changed (1)

src/Text/ParserCombinators/ByteStringParser.hs

 
 string :: String -> Parser C.ByteString String
 
-string = mapM char
+string s = mapM char s
+         <?> show s
 
 count :: Int -> Parser st a -> Parser st [a]