From: simonmar <unknown>
Date: Wed, 3 Jan 2001 14:47:18 +0000 (+0000)
Subject: [project @ 2001-01-03 14:47:18 by simonmar]
X-Git-Tag: Approximately_9120_patches~2978
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fcccced30b0b06caef0d90f6727684993193298a;p=ghc-hetmet.git

[project @ 2001-01-03 14:47:18 by simonmar]
Correct more accidental abuse of the type system.
---

diff --git a/ghc/lib/std/PrelWeak.lhs b/ghc/lib/std/PrelWeak.lhs
index 0f68459..5c9f22c 100644
--- a/ghc/lib/std/PrelWeak.lhs
+++ b/ghc/lib/std/PrelWeak.lhs
@@ -1,5 +1,5 @@
 % ------------------------------------------------------------------------------
-% $Id: PrelWeak.lhs,v 1.13 2000/06/30 13:39:36 simonmar Exp $
+% $Id: PrelWeak.lhs,v 1.14 2001/01/03 14:47:18 simonmar Exp $
 %
 % (c) The University of Glasgow, 1998-2000
 %
@@ -40,7 +40,8 @@ addFinalizer key finalizer = do
    return ()
 
 addForeignFinalizer :: ForeignObj -> IO () -> IO ()
-addForeignFinalizer (ForeignObj fo) finalizer = addFinalizer fo finalizer
+addForeignFinalizer (ForeignObj fo) finalizer
+  = IO $ \s -> case mkWeak# fo () finalizer s of { (# s1, w #) -> (# s1, () #) }
 
 {-
 Instance Eq (Weak v) where