Inline more default methods

[ghc-base.git] / GHC / Classes.hs

diff --git a/GHC/Classes.hs b/GHC/Classes.hs
index 1638456..3e0ec7a 100644 (file)
--- a/GHC/Classes.hs
+++ b/GHC/Classes.hs
@@ -36,6 +36,8 @@ default ()              -- Double isn't available yet
 class  Eq a  where
     (==), (/=)           :: a -> a -> Bool
 
+    {-# INLINE (/=) #-}
+    {-# INLINE (==) #-}
     x /= y               = not (x == y)
     x == y               = not (x /= y)