add install-includes: field
[packages/pretty.git] / System / Mem / Weak.hs
index ca729df..e5d8d69 100644 (file)
@@ -69,7 +69,7 @@ module System.Mem.Weak (
 
 import Prelude
 
-import Data.Dynamic
+import Data.Typeable
 
 #ifdef __HUGS__
 import Hugs.Weak
@@ -102,7 +102,7 @@ mkWeakPtr key finalizer = mkWeak key key finalizer
   finalizer to run earlier than you intended.  The same motivation
   justifies the existence of
   'Control.Concurrent.MVar.addMVarFinalizer' and
-  'Data.IORef.mkWeakIORef' (the non-unformity is accidental).
+  'Data.IORef.mkWeakIORef' (the non-uniformity is accidental).
 -}
 addFinalizer :: key -> IO () -> IO ()
 addFinalizer key finalizer = do
@@ -119,8 +119,6 @@ addFinalizer key finalizer = do
 mkWeakPair :: k -> v -> Maybe (IO ()) -> IO (Weak (k,v))
 mkWeakPair key val finalizer = mkWeak key (key,val) finalizer
 
-#include "Dynamic.h"
-INSTANCE_TYPEABLE1(Weak,weakTc,"Weak")
 
 {- $precise