projects
/
ghc-hetmet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
[project @ 2001-05-18 14:18:34 by simonmar]
[ghc-hetmet.git]
/
ghc
/
tests
/
lib
/
Directory
/
directory001.hs
1
import IO
2
3
import Directory
4
import IOExts (trace)
5
6
main = do
7
createDirectory "foo"
8
h <- openFile "foo/bar" WriteMode
9
hPutStr h "Okay\n"
10
hClose h
11
renameFile "foo/bar" "foo/baz"
12
renameDirectory "foo" "bar"
13
h <- openFile "bar/baz" ReadMode
14
stuff <- hGetContents h
15
putStr stuff
16
-- hClose h -- an error !
17
removeFile "bar/baz"
18
removeDirectory "bar"