import Prelude
-import Data.Typeable
-
#ifdef __HUGS__
import Hugs.Weak
#endif
-}
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
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