From: ross <unknown>
Date: Thu, 23 Jan 2003 11:46:57 +0000 (+0000)
Subject: [project @ 2003-01-23 11:46:57 by ross]
X-Git-Tag: nhc98-1-18-release~754
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8a2e565d80fa5296fb571e64e8cd4c557ea78c19;p=haskell-directory.git

[project @ 2003-01-23 11:46:57 by ross]
add Ord instance, as per FFI spec
---

diff --git a/Foreign/ForeignPtr.hs b/Foreign/ForeignPtr.hs
index a1e8550..01969de 100644
--- a/Foreign/ForeignPtr.hs
+++ b/Foreign/ForeignPtr.hs
@@ -18,7 +18,7 @@
 module Foreign.ForeignPtr
         ( 
 	-- * Finalised data pointers
-	  ForeignPtr             -- abstract, instance of: Eq
+	  ForeignPtr             -- abstract, instance of: Eq, Ord, Show
         , newForeignPtr          -- :: Ptr a -> IO () -> IO (ForeignPtr a)
         , addForeignPtrFinalizer -- :: ForeignPtr a -> IO () -> IO ()
 	, withForeignPtr         -- :: ForeignPtr a -> (Ptr a -> IO b) -> IO b
@@ -95,6 +95,9 @@ data ForeignPtr a
 instance Eq (ForeignPtr a) where 
     p == q  =  foreignPtrToPtr p == foreignPtrToPtr q
 
+instance Ord (ForeignPtr a) where 
+    compare p q  =  compare (foreignPtrToPtr p) (foreignPtrToPtr q)
+
 instance Show (ForeignPtr a) where
     showsPrec p f = showsPrec p (foreignPtrToPtr f)