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..a509319c0d 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 + {-# INLINABLE compare #-} + {-# INLINABLE (<) #-} + {-# INLINABLE (<=) #-} + {-# INLINABLE (>) #-} + {-# INLINABLE (>=) #-} + {-# INLINABLE max #-} + {-# INLINABLE min #-} compare x y = if x == y then EQ -- NB: must be '<=' not '<' to validate the |