From 6f910fd98b08fa194f7fcc8f75ca19b074845098 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Fri, 22 Jul 2011 19:09:46 +0100
Subject: [PATCH] Eq and Ord instances are now in the integer package, not base
---
GHC/Integer.lhs | 12 ++++++++++++
1 file changed, 12 insertions(+)
diff --git a/GHC/Integer.lhs b/GHC/Integer.lhs
index 4ca4cee..fd911e0 100644
--- a/GHC/Integer.lhs
+++ b/GHC/Integer.lhs
@@ -85,6 +85,7 @@ import GHC.IntWord64 (
)
#endif
+import GHC.Classes
import GHC.Ordering
import GHC.Types
@@ -332,6 +333,10 @@ neqInteger (S# i) (J# s d) = cmpIntegerInt# s d i /=# 0#
neqInteger (J# s d) (S# i) = cmpIntegerInt# s d i /=# 0#
neqInteger (J# s1 d1) (J# s2 d2) = (cmpInteger# s1 d1 s2 d2) /=# 0#
+instance Eq Integer where
+ (==) = eqInteger
+ (/=) = neqInteger
+
------------------------------------------------------------------------
leInteger :: Integer -> Integer -> Bool
@@ -378,6 +383,13 @@ compareInteger (J# s1 d1) (J# s2 d2)
if res# <# 0# then LT else
if res# ># 0# then GT else EQ
}
+
+instance Ord Integer where
+ (<=) = leInteger
+ (>) = gtInteger
+ (<) = ltInteger
+ (>=) = geInteger
+ compare = compareInteger
\end{code}
--
GitLab