diff options
| -rw-r--r-- | libraries/ghc-prim/GHC/Classes.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/libraries/ghc-prim/GHC/Classes.hs b/libraries/ghc-prim/GHC/Classes.hs index dfd707bd8c..97a4f1e008 100644 --- a/libraries/ghc-prim/GHC/Classes.hs +++ b/libraries/ghc-prim/GHC/Classes.hs @@ -340,6 +340,13 @@ class (Eq a) => Ord a where compare :: a -> a -> Ordering (<), (<=), (>), (>=) :: a -> a -> Bool max, min :: a -> a -> a + {-# INLINE compare #-} + {-# INLINE (<) #-} + {-# INLINE (<=) #-} + {-# INLINE (>) #-} + {-# INLINE (>=) #-} + {-# INLINE max #-} + {-# INLINE min #-} compare x y = if x == y then EQ -- NB: must be '<=' not '<' to validate the |