Fix naming
commitaa65cc3fdee97d4b3d50cbd9c71fbe356f0d107a
authorBryan O'Sullivan <bos@serpentine.com>
dateFri 9 May 2014, 11:57 (12 years ago)
parent9120d5d
Data/Attoparsec/Combinator.hs+3−3
@@ -55,9 +55,9 @@ try p = p
5555(<?>) :: Parser t a
5656 -> String -- ^ the name to use if parsing fails
5757 -> Parser t a
58−p <?> msg0 = Parser $ \i0 a0 m0 kf ks ->
59− let kf' i a m strs msg = kf i a m (msg0:strs) msg
60− in runParser p i0 a0 m0 kf' ks
58+p <?> msg0 = Parser $ \t pos more lose succ ->
59+ let lose' t' pos' more' strs msg = lose t' pos' more' (msg0:strs) msg
60+ in runParser p t pos more lose' succ
6161{-# INLINE (<?>) #-}
6262infix 0 <?>
6363