diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-01-09 18:06:30 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-01-09 18:06:30 +0000 |
| commit | 1366b7ef1267fa28ee416c8110811e76cc8ea6bf (patch) | |
| tree | 12b27ab5c8ff2f61d96d0b7f057d8cda0eddb5c0 /testsuite/tests/ghc-regress/lib | |
| parent | eed47c2393c4fb4af86112a012c42fea43fc3879 (diff) | |
| download | haskell-1366b7ef1267fa28ee416c8110811e76cc8ea6bf.tar.gz | |
Fix ioeGetErrorString001 on Windows
Diffstat (limited to 'testsuite/tests/ghc-regress/lib')
| -rw-r--r-- | testsuite/tests/ghc-regress/lib/IO/ioeGetErrorString001.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/ghc-regress/lib/IO/ioeGetErrorString001.hs b/testsuite/tests/ghc-regress/lib/IO/ioeGetErrorString001.hs index 4e5a969703..1a4485606d 100644 --- a/testsuite/tests/ghc-regress/lib/IO/ioeGetErrorString001.hs +++ b/testsuite/tests/ghc-regress/lib/IO/ioeGetErrorString001.hs @@ -2,13 +2,13 @@ import IO import Maybe -#ifdef i386_unknown_mingw32 +#ifdef mingw32_HOST_OS import GHC.Handle(hSetBinaryMode) #endif main = do h <- openFile "ioeGetErrorString001.hs" ReadMode -#ifdef i386_unknown_mingw32 +#ifdef mingw32_HOST_OS hSetBinaryMode h True #endif hSeek h SeekFromEnd 0 |