[project @ 2001-09-14 14:12:00 by sewardj]

yet solaris bogons

testsuite/tests/ghc-regress/lib/IO/readFile001.stdout-sparc-sun-solaris2

+Left resource busy
+Action: openFile
+Reason: file is locked
+File: readFile001.out
+-- !!! readFile test
+
+import IO
+
+source   = "readFile001.hs"
+filename = "readFile001.out"
+
+main = do
+  s <- readFile source
+  h <- openFile filename WriteMode
+  hPutStrLn h s
+  hClose h
+  s <- readFile filename
+
+  -- This open should fail, because the readFile hasn't been forced
+  -- and the file is therefore still locked.
+  try (openFile filename WriteMode) >>= print
+
+  putStrLn s
+
+  -- should be able to open it for writing now, because we've forced the
+  -- whole file.
+  h <- openFile filename WriteMode
+
+  print h
+
+
+{loc=readFile001.out,type=writable,binary=False,buffering=block (1024)}