Move Eq and Ord instance for Addr 0_2_1
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Mon, 15 Feb 2010 04:24:59 +0000 (04:24 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Mon, 15 Feb 2010 04:24:59 +0000 (04:24 +0000)
Data/Primitive/Addr.hs
Data/Primitive/Types.hs

index 4090ecb..2609cde 100644 (file)
@@ -24,16 +24,6 @@ import Data.Primitive.Types
 import GHC.Base ( Int(..) )
 import GHC.Prim
 
-instance Eq Addr where
-  Addr a# == Addr b# = eqAddr# a# b#
-  Addr a# /= Addr b# = neAddr# a# b#
-
-instance Ord Addr where
-  Addr a# > Addr b# = gtAddr# a# b#
-  Addr a# >= Addr b# = geAddr# a# b#
-  Addr a# < Addr b# = ltAddr# a# b#
-  Addr a# <= Addr b# = leAddr# a# b#
-
 -- | The null address
 nullAddr :: Addr
 nullAddr = Addr nullAddr#
index 7f72cfd..849d288 100644 (file)
@@ -38,6 +38,16 @@ import GHC.Prim
 -- | A machine address
 data Addr = Addr Addr#
 
+instance Eq Addr where
+  Addr a# == Addr b# = eqAddr# a# b#
+  Addr a# /= Addr b# = neAddr# a# b#
+
+instance Ord Addr where
+  Addr a# > Addr b# = gtAddr# a# b#
+  Addr a# >= Addr b# = geAddr# a# b#
+  Addr a# < Addr b# = ltAddr# a# b#
+  Addr a# <= Addr b# = leAddr# a# b#
+
 -- | Class of types supporting primitive array operations
 class Prim a where