Changeset 14219 for third-party

Timestamp:

10/11/06 05:36:48 (2 years ago)

Author:

audreyt

Message:

* Judy.Refeable: Put the default instance of Refeable into

the class itself, so one can turn off needGC without having
to write the entire instance.

Files:

• third-party/HsJudy/Judy/Refeable.hs (modified) (1 diff)

third-party/HsJudy/Judy/Refeable.hs

@@ -23 +23 @@
 class Refeable a where
     toRef :: a -> IO Value
+    toRef = GC.newRef
     fromRef :: Value -> IO a
+    fromRef = deRefStablePtr . castPtrToStablePtr . wordPtrToPtr
     needGC :: a -> Bool
+    needGC _ = True
     
 --instance Dummy a => Refeable a where
 instance Refeable a where
-    toRef = GC.newRef
-    fromRef v = do
-        a <- deRefStablePtr (castPtrToStablePtr (wordPtrToPtr v))
-        return a
-    needGC _ = True
 
 instance Refeable Int where