Commit a024c990 authored by Ian Lynagh's avatar Ian Lynagh

Fix hGetLine001

parent 12072152
-- !!! testing hGetLine
import IO
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
import GHC.Handle(hSetBinaryMode)
#endif
......@@ -14,7 +14,7 @@ main = do
h <- openFile "hGetLine001.hs" ReadMode
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
hSetBinaryMode stdout True
hSetBinaryMode h True
#endif
......
-- !!! testing hGetLine
import IO
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
import GHC.Handle(hSetBinaryMode)
#endif
......@@ -14,7 +14,7 @@ main = do
h <- openFile "hGetLine001.hs" ReadMode
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
hSetBinaryMode stdout True
hSetBinaryMode h True
#endif
......@@ -32,7 +32,7 @@ main = do
-- !!! testing hGetLine
import IO
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
import GHC.Handle(hSetBinaryMode)
#endif
......@@ -45,7 +45,7 @@ main = do
h <- openFile "hGetLine001.hs" ReadMode
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
hSetBinaryMode stdout True
hSetBinaryMode h True
#endif
......@@ -63,7 +63,7 @@ main = do
-- !!! testing hGetLine
import IO
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
import GHC.Handle(hSetBinaryMode)
#endif
......@@ -76,7 +76,7 @@ main = do
h <- openFile "hGetLine001.hs" ReadMode
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
hSetBinaryMode stdout True
hSetBinaryMode h True
#endif
......@@ -94,7 +94,7 @@ main = do
-- !!! testing hGetLine
import IO
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
import GHC.Handle(hSetBinaryMode)
#endif
......@@ -107,7 +107,7 @@ main = do
h <- openFile "hGetLine001.hs" ReadMode
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
hSetBinaryMode stdout True
hSetBinaryMode h True
#endif
......
-- !!! testing hGetLine
import IO
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
import GHC.Handle(hSetBinaryMode)
#endif
......@@ -14,7 +14,7 @@ main = do
h <- openFile "hGetLine001.hs" ReadMode
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
hSetBinaryMode stdout True
hSetBinaryMode h True
#endif
......@@ -32,7 +32,7 @@ main = do
-- !!! testing hGetLine
import IO
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
import GHC.Handle(hSetBinaryMode)
#endif
......@@ -45,7 +45,7 @@ main = do
h <- openFile "hGetLine001.hs" ReadMode
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
hSetBinaryMode stdout True
hSetBinaryMode h True
#endif
......@@ -63,7 +63,7 @@ main = do
-- !!! testing hGetLine
import IO
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
import GHC.Handle(hSetBinaryMode)
#endif
......@@ -76,7 +76,7 @@ main = do
h <- openFile "hGetLine001.hs" ReadMode
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
hSetBinaryMode stdout True
hSetBinaryMode h True
#endif
......@@ -94,7 +94,7 @@ main = do
-- !!! testing hGetLine
import IO
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
import GHC.Handle(hSetBinaryMode)
#endif
......@@ -107,7 +107,7 @@ main = do
h <- openFile "hGetLine001.hs" ReadMode
#ifdef i386_unknown_mingw32
#ifdef mingw32_HOST_OS
hSetBinaryMode stdout True
hSetBinaryMode h True
#endif
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment