[project @ 1997-03-17 20:34:25 by simonpj]

[ghc-hetmet.git] / ghc / lib / ghc / IOBase.lhs

diff --git a/ghc/lib/ghc/IOBase.lhs b/ghc/lib/ghc/IOBase.lhs
index 4a952f7..8f1ad25 100644 (file)
--- a/ghc/lib/ghc/IOBase.lhs
+++ b/ghc/lib/ghc/IOBase.lhs
@@ -399,11 +399,19 @@ type Handle = MutableVar RealWorld Handle__
 data Handle__
   = ErrorHandle                IOError
   | ClosedHandle
+#ifndef PAR
   | SemiClosedHandle   ForeignObj (Addr, Int)
   | ReadHandle         ForeignObj (Maybe BufferMode) Bool
   | WriteHandle                ForeignObj (Maybe BufferMode) Bool
   | AppendHandle       ForeignObj (Maybe BufferMode) Bool
   | ReadWriteHandle    ForeignObj (Maybe BufferMode) Bool
+#else
+  | SemiClosedHandle   Addr (Addr, Int)
+  | ReadHandle         Addr (Maybe BufferMode) Bool
+  | WriteHandle                Addr (Maybe BufferMode) Bool
+  | AppendHandle       Addr (Maybe BufferMode) Bool
+  | ReadWriteHandle    Addr (Maybe BufferMode) Bool
+#endif
 
 -- Standard Instances as defined by the Report..