Commit f71a0086 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-06-29 13:53:55 by simonmar]

Uncomment part of this test that works properly now.
parent 74ca59c3
......@@ -13,11 +13,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
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