mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-18 00:31:57 +03:00
16 lines
434 B
Idris
16 lines
434 B
Idris
|
import System.Directory
|
||
|
|
|
||
|
|
main : IO ()
|
||
|
|
main = do Right () <- createDir "testdir"
|
||
|
|
| Left err => printLn err
|
||
|
|
Left err <- createDir "testdir"
|
||
|
|
| _ => printLn "That wasn't supposed to work"
|
||
|
|
printLn err
|
||
|
|
ok <- changeDir "nosuchdir"
|
||
|
|
printLn ok
|
||
|
|
ok <- changeDir "testdir"
|
||
|
|
printLn ok
|
||
|
|
writeFile "test.txt" "hello\n"
|
||
|
|
printLn !currentDir
|
||
|
|
|