From 8a2e565d80fa5296fb571e64e8cd4c557ea78c19 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Thu, 23 Jan 2003 11:46:57 +0000
Subject: [PATCH] [project @ 2003-01-23 11:46:57 by ross] add Ord instance, as
 per FFI spec

---
 Foreign/ForeignPtr.hs |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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)
 
-- 
1.7.10.4