Commit 1cc01ada authored by simonmar's avatar simonmar
Browse files

[project @ 2001-08-08 10:36:59 by simonmar]

update expected output
parent c737f0f3
Left resource busy
Action: openFile
Reason: file is locked
File: readFile001.out
-- !!! readFile test
import IO
......@@ -13,11 +17,8 @@ main = do
s <- readFile filename
-- This open should fail, because the readFile hasn't been forced
-- and the file is therefore still locked. But GHC currently has a
-- bug in that the openFile truncates the file before checking
-- whether it was locked or not.
-- r <- try (openFile filename WriteMode)
-- print r
-- and the file is therefore still locked.
try (openFile filename WriteMode) >>= print
putStrLn s
Supports Markdown
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