[project @ 1997-10-08 17:42:31 by sof]

[ghc-hetmet.git] / ghc / lib / glaExts / Foreign.lhs

diff --git a/ghc/lib/glaExts/Foreign.lhs b/ghc/lib/glaExts/Foreign.lhs
index d31d7ed..4285e78 100644 (file)
--- 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}