Commits

Bryan O'Sullivan  committed f5fc2f9

Fix up the Ord instance for Number.

Problem reported by Lemmih.

  • Participants
  • Parent commits 82f97a8

Comments (0)

Files changed (1)

File Data/Attoparsec/Number.hs

     (<) = binop (<) (<)
     {-# INLINE (<) #-}
 
+    (<=) = binop (<=) (<=)
+    {-# INLINE (<=) #-}
+
     (>) = binop (>) (>)
     {-# INLINE (>) #-}
 
+    (>=) = binop (>=) (>=)
+    {-# INLINE (>=) #-}
+
+    compare = binop compare compare
+    {-# INLINE compare #-}
+
 instance Num Number where
     (+) = binop (((I$!).) . (+)) (((D$!).) . (+))
     {-# INLINE (+) #-}