[project @ 2001-06-06 14:03:41 by sewardj]

[ghc-hetmet.git] / ghc / lib / std / PrelWeak.lhs

diff --git a/ghc/lib/std/PrelWeak.lhs b/ghc/lib/std/PrelWeak.lhs
index 5c9f22c..1a7e643 100644 (file)
--- a/ghc/lib/std/PrelWeak.lhs
+++ b/ghc/lib/std/PrelWeak.lhs
@@ -1,5 +1,5 @@
 % ------------------------------------------------------------------------------
-% $Id: PrelWeak.lhs,v 1.14 2001/01/03 14:47:18 simonmar Exp $
+% $Id: PrelWeak.lhs,v 1.16 2001/03/22 03:51:09 hwloidl Exp $
 %
 % (c) The University of Glasgow, 1998-2000
 %
@@ -14,10 +14,7 @@ module PrelWeak where
 import PrelGHC
 import PrelBase
 import PrelMaybe
--- NOTE: To break a cycle, ForeignObj is not in PrelForeign, but PrelIOBase!
-import PrelIOBase      ( IO(..), unIO, ForeignObj(..) )
-
-#ifndef __PARALLEL_HASKELL__
+import PrelIOBase      ( IO(..), unIO )
 
 data Weak v = Weak (Weak# v)
 
@@ -39,10 +36,6 @@ addFinalizer key finalizer = do
    mkWeakPtr key (Just finalizer)      -- throw it away
    return ()
 
-addForeignFinalizer :: ForeignObj -> IO () -> IO ()
-addForeignFinalizer (ForeignObj fo) finalizer
-  = IO $ \s -> case mkWeak# fo () finalizer s of { (# s1, w #) -> (# s1, () #) }
-
 {-
 Instance Eq (Weak v) where
   (Weak w1) == (Weak w2) = w1 `sameWeak#` w2
@@ -69,6 +62,4 @@ runFinalizerBatch (I# n) arr =
    in
         go n
 
-#endif
-
 \end{code}