Ordering has now moved to ghc-prim

[ghc-base.git] / GHC / Num.lhs

diff --git a/GHC/Num.lhs b/GHC/Num.lhs
index 5f3f865..aed62eb 100644 (file)
--- a/GHC/Num.lhs
+++ b/GHC/Num.lhs
@@ -134,12 +134,7 @@ instance Ord Integer where
     (>)  = gtInteger
     (<)  = ltInteger
     (>=) = geInteger
-
-    i `compare` j = case i `compareInteger` j of
-                    -1# -> LT
-                    0#  -> EQ
-                    1#  -> GT
-                    _   -> error "compareInteger: Bad result"
+    compare = compareInteger
 \end{code}