Commit 059028be authored by ross's avatar ross

[project @ 2004-11-11 02:34:18 by ross]

get hSetBinaryMode from System.IO
parent c7bd7272
......@@ -32,7 +32,7 @@ clean(['hIsEOF002.out'])
# hReady doesn't work at the end of a file in GHC
test('hReady001', expect_fail_if_compiler_type('ghc'), compile_and_run, ['-cpp'])
test('hSeek001', normal, compile_and_run, ['-cpp'])
test('hSeek001', normal, compile_and_run, [''])
test('hSeek002', normal, compile_and_run, ['-cpp'])
test('hSeek003', normal, compile_and_run, ['-cpp'])
test('hSeek004', normal, compile_and_run, ['-cpp'])
......
-- !!! Test seeking
import IO
#ifdef __GLASGOW_HASKELL__
import GHC.Handle ( hSetBinaryMode )
#endif
import System.IO
main = do
h <- openFile "hSeek001.in" ReadMode
......
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