From: simonmar <unknown>
Date: Wed, 8 Aug 2001 10:36:59 +0000 (+0000)
Subject: [project @ 2001-08-08 10:36:59 by simonmar]
X-Git-Tag: Approximately_9120_patches~1325
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1cc01adad4360ab1014b83ce933aec055d5d0e85;p=ghc-hetmet.git

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

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