[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / lib / haskell-1.3 / LibPosixFiles.lhs

diff --git a/ghc/lib/haskell-1.3/LibPosixFiles.lhs b/ghc/lib/haskell-1.3/LibPosixFiles.lhs
index f2caeb4..d885c16 100644 (file)
--- a/ghc/lib/haskell-1.3/LibPosixFiles.lhs
+++ b/ghc/lib/haskell-1.3/LibPosixFiles.lhs
@@ -247,7 +247,8 @@ openChannel name how maybe_mode append excl noctty nonblock trunc =
     creat# = case creat of { W# x -> x }
 
     flags = W# (creat# `or#` append# `or#` excl# `or#` 
-                noctty# `or#` nonblock# `or#` trunc#)
+                noctty# `or#` nonblock# `or#` trunc# `or#` how#)
+    how#      = case (case how of { ReadOnly -> ``O_RDONLY'';WriteOnly -> ``O_WRONLY'';ReadWrite -> ``O_RDWR''}) of { W# x -> x }
     append#   = case (if append   then ``O_APPEND''   else ``0'') of { W# x -> x }
     excl#     = case (if excl     then ``O_EXCL''     else ``0'') of { W# x -> x }
     noctty#   = case (if noctty   then ``O_NOCTTY''   else ``0'') of { W# x -> x }