Fix up the Ord instance for Number.
Problem reported by Lemmih.
commit94e1010fff0e69f7e7e0a8c554761ea72d2ae437
authorBryan O'Sullivan <bos@serpentine.com>
dateFri 10 Jun 2011, 10:12 (15 years ago)
parent0a389f3
Data/Attoparsec/Number.hs+9
@@ -54,9 +54,18 @@ instance Ord Number where
5454 (<) = binop (<) (<)
5555 {-# INLINE (<) #-}
5656
57+ (<=) = binop (<=) (<=)
58+ {-# INLINE (<=) #-}
59+
5760 (>) = binop (>) (>)
5861 {-# INLINE (>) #-}
5962
63+ (>=) = binop (>=) (>=)
64+ {-# INLINE (>=) #-}
65+
66+ compare = binop compare compare
67+ {-# INLINE compare #-}
68+
6069instance Num Number where
6170 (+) = binop (((I$!).) . (+)) (((D$!).) . (+))
6271 {-# INLINE (+) #-}