Merge with kolmodin
commit25681aec1c78bccd02e0c2f83f80455018934769
authorBryan O'Sullivan <bos@serpentine.com>
dateMon 22 Nov 2010, 22:08 (16 years ago)
parent5c3ee47606854d
Data/Attoparsec/Internal.hs+1−1
@@ -443,7 +443,7 @@ endOfLine = (word8 10 >> return ()) <|> (string (B.pack "\r\n") >> return ())
443443(<?>) :: Parser a
444444 -> String -- ^ the name to use if parsing fails
445445 -> Parser a
446−p <?> _msg = p
446+p <?> msg = Parser $ \s kf ks -> runParser p s (\s' strs m -> kf s' (msg:strs) m) ks
447447{-# INLINE (<?>) #-}
448448infix 0 <?>
449449
attoparsec.cabal+1−1
@@ -1,5 +1,5 @@
11name: attoparsec
2−version: 0.8.2.0
2+version: 0.8.2.1
33license: BSD3
44license-file: LICENSE
55category: Text, Parsing