From: sof <unknown>
Date: Wed, 8 Oct 1997 17:42:31 +0000 (+0000)
Subject: [project @ 1997-10-08 17:42:31 by sof]
X-Git-Tag: Approx_2487_patches~1409
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e3122c9e6e16a18854f46cf7bda5b8d209c8d9c6;p=ghc-hetmet.git

[project @ 1997-10-08 17:42:31 by sof]
ForeignObj functionality is not supported in __PARALLEL_HASKELL__
---

diff --git a/ghc/lib/glaExts/Foreign.lhs b/ghc/lib/glaExts/Foreign.lhs
index d31d7ed..4285e78 100644
--- a/ghc/lib/glaExts/Foreign.lhs
+++ b/ghc/lib/glaExts/Foreign.lhs
@@ -9,7 +9,9 @@
 
 module Foreign (
 	module Foreign,
+#ifndef __PARALLEL_HASKELL__
 	ForeignObj(..),
+#endif
 	Addr(..), Word(..)
    ) where
 
@@ -72,6 +74,7 @@ instance CReturnable () -- Why, exactly?
 %*********************************************************
 
 \begin{code}
+#ifndef __PARALLEL_HASKELL__
 --Defined in PrelBase: data ForeignObj = ForeignObj ForeignObj#
 data ForeignObj = ForeignObj ForeignObj#   -- another one
 
@@ -100,6 +103,7 @@ eqForeignObj mp1 mp2
 instance Eq ForeignObj where 
     p == q = eqForeignObj p q
     p /= q = not (eqForeignObj p q)
+#endif /* !__PARALLEL_HASKELL__ */
 \end{code}