2 import System.Directory (getCurrentDirectory, setCurrentDirectory,
3 createDirectory, removeDirectory,
8 oldpwd <- getCurrentDirectory
10 setCurrentDirectory dir
11 ~[n1, n2] <- getDirectoryContents "."
14 setCurrentDirectory oldpwd
18 ioError (userError "Oops")
26 dir = "currentDirectory001-dir"