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 ...@@ -13,11 +13,8 @@ main = do
s <- readFile filename s <- readFile filename
-- This open should fail, because the readFile hasn't been forced -- This open should fail, because the readFile hasn't been forced
-- and the file is therefore still locked. But GHC currently has a -- and the file is therefore still locked.
-- bug in that the openFile truncates the file before checking try (openFile filename WriteMode) >>= print
-- whether it was locked or not.
-- r <- try (openFile filename WriteMode)
-- print r
putStrLn s 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