From: sof <unknown>
Date: Wed, 7 Nov 2001 19:36:11 +0000 (+0000)
Subject: [project @ 2001-11-07 19:36:11 by sof]
X-Git-Tag: Approximately_9120_patches~613
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f3db101078c0dd3290c33ca7d0aafd65b2ea4699;p=ghc-hetmet.git

[project @ 2001-11-07 19:36:11 by sof]
Cope with conditional presence of o_BINARY in PrelPosix.

(Something's not quite right here - O_BINARY, a non-Posix flag,
being defined by PrelPosix).
---

diff --git a/ghc/lib/std/PrelHandle.hs b/ghc/lib/std/PrelHandle.hs
index bc8bc6c..efcb675 100644
--- a/ghc/lib/std/PrelHandle.hs
+++ b/ghc/lib/std/PrelHandle.hs
@@ -4,7 +4,7 @@
 #undef DEBUG
 
 -- -----------------------------------------------------------------------------
--- $Id: PrelHandle.hs,v 1.1 2001/11/07 18:25:35 sof Exp $
+-- $Id: PrelHandle.hs,v 1.2 2001/11/07 19:36:11 sof Exp $
 --
 -- (c) The University of Glasgow, 1994-2001
 --
@@ -45,7 +45,7 @@ module PrelHandle (
 import Monad
 
 import PrelBits
-import PrelPosix hiding ( o_BINARY )
+import PrelPosix
 import PrelMarshalUtils
 import PrelCString
 import PrelCTypes
@@ -616,7 +616,7 @@ openFile' filepath ex_mode =
 	       | otherwise	   = False
 
       binary_flags
-	  | binary    = o_BINARY -- is '0' if not supported.
+	  | binary    = PrelHandle.o_BINARY -- is '0' if not supported.
 	  | otherwise = 0
 
       oflags = oflags1 .|. binary_flags