GhciCurDir.script 176 Bytes
Newer Older
1
2
3
4
5
6
7
import System.Directory
import Control.Monad

createDirectory "test"
createDirectory "test/test1"
:cd test
unless ("test1" `elem` getDirectoryContents ".") $ putStrLn "Uh oh."