@@ -55,9 +55,9 @@ try p = p
55(<?>) :: Parser t a
55(<?>) :: Parser t a
56 -> String -- ^ the name to use if parsing fails
56 -> String -- ^ the name to use if parsing fails
57 -> Parser t a
57 -> Parser t a
58−p <?> msg0 = Parser $ \i0 a0 m0 kf ks ->
58+p <?> msg0 = Parser $ \t pos more lose succ ->
59− let kf' i a m strs msg = kf i a m (msg0:strs) msg
59+ let lose' t' pos' more' strs msg = lose t' pos' more' (msg0:strs) msg
60− in runParser p i0 a0 m0 kf' ks
60+ in runParser p t pos more lose' succ
61{-# INLINE (<?>) #-}
61{-# INLINE (<?>) #-}
62infix 0 <?>
62infix 0 <?>