From 1cc01adad4360ab1014b83ce933aec055d5d0e85 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 8 Aug 2001 10:36:59 +0000
Subject: [PATCH] [project @ 2001-08-08 10:36:59 by simonmar] update expected
 output

---
 ghc/tests/lib/IO/readFile001.stdout |   11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/ghc/tests/lib/IO/readFile001.stdout b/ghc/tests/lib/IO/readFile001.stdout
index cd8caf6..9bb4f56 100644
--- a/ghc/tests/lib/IO/readFile001.stdout
+++ b/ghc/tests/lib/IO/readFile001.stdout
@@ -1,3 +1,7 @@
+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
 
-- 
1.7.10.4