From f71a0086e4c2edb72fcdb0caa286ab327c6132eb Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 29 Jun 2001 13:53:55 +0000
Subject: [PATCH] [project @ 2001-06-29 13:53:55 by simonmar] Uncomment part
 of this test that works properly now.

---
 ghc/tests/lib/IO/readFile001.hs |    7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/ghc/tests/lib/IO/readFile001.hs b/ghc/tests/lib/IO/readFile001.hs
index 82a0dc2..6ce87ed 100644
--- a/ghc/tests/lib/IO/readFile001.hs
+++ b/ghc/tests/lib/IO/readFile001.hs
@@ -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
 
-- 
1.7.10.4