Commit c76825a3 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Use ReadMode in finalization001

It was using ReadWriteMode, which made the driver think it was writing
to a file but not cleaning it. I don't think the fact it was ReadWrite
was important to the test, though.
parent ce76f539
......@@ -8,7 +8,7 @@ import System.IO
doTest :: IO ()
doTest = do
sd <- openFile "finalization001.hs" ReadWriteMode
sd <- openFile "finalization001.hs" ReadMode
result <- hGetContents sd
slurp result
hClose sd
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