X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FMem%2FWeak.hs;h=e6a8a378faa27b75cbabcdb8a21841d4bf234b07;hb=d2063b5b0be014545b21819172c87756efcb0b0c;hp=3903557cfd50ac8607718d13afd5cf192f71c79e;hpb=7d090bf5e03ee22db47edfd73a0b542b32408704;p=ghc-base.git

diff --git a/System/Mem/Weak.hs b/System/Mem/Weak.hs
index 3903557..e6a8a37 100644
--- a/System/Mem/Weak.hs
+++ b/System/Mem/Weak.hs
@@ -69,8 +69,6 @@ module System.Mem.Weak (
 
 import Prelude
 
-import Data.Typeable
-
 #ifdef __HUGS__
 import Hugs.Weak
 #endif
@@ -119,8 +117,6 @@ addFinalizer key finalizer = do
 mkWeakPair :: k -> v -> Maybe (IO ()) -> IO (Weak (k,v))
 mkWeakPair key val finalizer = mkWeak key (key,val) finalizer
 
-#include "Typeable.h"
-INSTANCE_TYPEABLE1(Weak,weakTc,"Weak")
 
 {- $precise