1 import System.Directory (getCurrentDirectory, setCurrentDirectory,
2 createDirectory, removeDirectory, getDirectoryContents)
5 oldpwd <- getCurrentDirectory
7 setCurrentDirectory "foo"
8 ~[n1, n2] <- getDirectoryContents "."
11 setCurrentDirectory oldpwd
15 ioError (userError "Oops")