Repository : ssh://darcs.haskell.org//srv/darcs/packages/integer-simple On branch : master
http://hackage.haskell.org/trac/ghc/changeset/3143e51fdf050597396918833cb868e5841ccd3c >--------------------------------------------------------------- commit 3143e51fdf050597396918833cb868e5841ccd3c Author: Ian Lynagh <[email protected]> Date: Fri Jul 22 20:29:05 2011 +0100 Follow library changes >--------------------------------------------------------------- GHC/Integer.hs | 14 ++++++++++++++ 1 files changed, 14 insertions(+), 0 deletions(-) diff --git a/GHC/Integer.hs b/GHC/Integer.hs index 7c21dca..118e0c6 100644 --- a/GHC/Integer.hs +++ b/GHC/Integer.hs @@ -2,6 +2,8 @@ {-# LANGUAGE CPP, MagicHash, ForeignFunctionInterface, NoImplicitPrelude, BangPatterns, UnboxedTuples, UnliftedFFITypes #-} +-- TODO: Get rid of orphan instances +{-# OPTIONS_GHC -fno-warn-orphans #-} ----------------------------------------------------------------------------- -- | @@ -40,6 +42,7 @@ module GHC.Integer ( import GHC.Integer.Type +import GHC.Classes import GHC.Ordering import GHC.Prim import GHC.Types @@ -371,6 +374,10 @@ x `neqInteger` y = case x `compareInteger` y of EQ -> False _ -> True +instance Eq Integer where + (==) = eqInteger + (/=) = neqInteger + ltInteger :: Integer -> Integer -> Bool x `ltInteger` y = case x `compareInteger` y of LT -> True @@ -391,6 +398,13 @@ x `geInteger` y = case x `compareInteger` y of LT -> False _ -> True +instance Ord Integer where + (<=) = leInteger + (>) = gtInteger + (<) = ltInteger + (>=) = geInteger + compare = compareInteger + absInteger :: Integer -> Integer absInteger (Negative x) = Positive x absInteger x = x _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
