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

diff --git a/System/Mem/Weak.hs b/System/Mem/Weak.hs
index 3903557..21411e5 100644
--- a/System/Mem/Weak.hs
+++ b/System/Mem/Weak.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE CPP #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  System.Mem.Weak
@@ -67,12 +69,9 @@ module System.Mem.Weak (
 	-- $precise
    ) where
 
-import Prelude
-
-import Data.Typeable
-
 #ifdef __HUGS__
 import Hugs.Weak
+import Prelude
 #endif
 
 #ifdef __GLASGOW_HASKELL__
@@ -106,7 +105,7 @@ mkWeakPtr key finalizer = mkWeak key key finalizer
 -}
 addFinalizer :: key -> IO () -> IO ()
 addFinalizer key finalizer = do
-   mkWeakPtr key (Just finalizer)	-- throw it away
+   _ <- mkWeakPtr key (Just finalizer) -- throw it away
    return ()
 
 -- | A specialised version of 'mkWeak' where the value is actually a pair
@@ -119,8 +118,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