From f3db101078c0dd3290c33ca7d0aafd65b2ea4699 Mon Sep 17 00:00:00 2001 From: sof Date: Wed, 7 Nov 2001 19:36:11 +0000 Subject: [PATCH] [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). --- ghc/lib/std/PrelHandle.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 1.7.10.4