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

createDirectory "test"
createDirectory "test/test1"
:cd test
Ben Gamari's avatar
Ben Gamari committed
7
8
fs <- getDirectoryContents "."
unless ("test1" `elem` fs) $ putStrLn "Uh oh."