From 1751d7beed65ed0706d92837d5ef6eaadb9d8aec Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Fri, 9 Jan 2009 18:07:45 +0000 Subject: [PATCH] Fix readwrite00[12] on Windows --- testsuite/tests/ghc-regress/lib/IO/readwrite001.hs | 4 ++-- testsuite/tests/ghc-regress/lib/IO/readwrite002.hs | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/testsuite/tests/ghc-regress/lib/IO/readwrite001.hs b/testsuite/tests/ghc-regress/lib/IO/readwrite001.hs index afc7a2e882..5e1752b9f7 100644 --- a/testsuite/tests/ghc-regress/lib/IO/readwrite001.hs +++ b/testsuite/tests/ghc-regress/lib/IO/readwrite001.hs @@ -5,7 +5,7 @@ module Main(main) where import IO import Directory ( removeFile, doesFileExist ) import Monad -#ifdef i386_unknown_mingw32 +#ifdef mingw32_HOST_OS import GHC.Handle(hSetBinaryMode) #endif @@ -13,7 +13,7 @@ main = do f <- doesFileExist "readwrite001.inout" when f (removeFile "readwrite001.inout") hdl <- openFile "readwrite001.inout" ReadWriteMode -#ifdef i386_unknown_mingw32 +#ifdef mingw32_HOST_OS hSetBinaryMode hdl True #endif hSetBuffering hdl LineBuffering diff --git a/testsuite/tests/ghc-regress/lib/IO/readwrite002.hs b/testsuite/tests/ghc-regress/lib/IO/readwrite002.hs index a12cd21536..5477b5a2d1 100644 --- a/testsuite/tests/ghc-regress/lib/IO/readwrite002.hs +++ b/testsuite/tests/ghc-regress/lib/IO/readwrite002.hs @@ -3,7 +3,7 @@ import IO import Directory (removeFile, doesFileExist) import Monad -#ifdef i386_unknown_mingw32 +#ifdef mingw32_HOST_OS import GHC.Handle(hSetBinaryMode) #endif @@ -15,7 +15,7 @@ main = do f <- doesFileExist username when f (removeFile username) cd <- openFile username ReadWriteMode -#ifdef i386_unknown_mingw32 +#ifdef mingw32_HOST_OS hSetBinaryMode cd True #endif hSetBuffering stdin NoBuffering -- GitLab