From e3122c9e6e16a18854f46cf7bda5b8d209c8d9c6 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 8 Oct 1997 17:42:31 +0000
Subject: [PATCH] [project @ 1997-10-08 17:42:31 by sof] ForeignObj
 functionality is not supported in __PARALLEL_HASKELL__

---
 ghc/lib/glaExts/Foreign.lhs |    4 ++++
 1 file changed, 4 insertions(+)

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}
 
 
-- 
1.7.10.4