Skip to content
Snippets Groups Projects
Commit 1f9e4a30 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Eq and Ord instances are now in the integer package, not base

parent ec1c486a
No related branches found
No related tags found
No related merge requests found
......@@ -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}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment