Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
a1eb9657
Commit
a1eb9657
authored
Sep 14, 2001
by
sewardj
Browse files
[project @ 2001-09-14 14:12:00 by sewardj]
yet solaris bogons
parent
721d408d
Changes
1
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/lib/IO/readFile001.stdout-sparc-sun-solaris2
0 → 100644
View file @
a1eb9657
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)}
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment