+{-# LANGUAGE CPP #-}
+
-----------------------------------------------------------------------------
-- |
-- Module : System.Mem.Weak
-- $precise
) where
-import Prelude
-
-import Data.Typeable
-
#ifdef __HUGS__
import Hugs.Weak
+import Prelude
#endif
#ifdef __GLASGOW_HASKELL__
-}
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