mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-30 15:13:37 +03:00
17 lines
316 B
Idris
17 lines
316 B
Idris
module Dummy
|
|
|
|
import System.Directory
|
|
|
|
dirExists : String -> IO Bool
|
|
dirExists dir = do
|
|
Right d <- openDir dir
|
|
| Left _ => pure False
|
|
closeDir d
|
|
pure True
|
|
|
|
main : IO ()
|
|
main = do
|
|
True <- dirExists "custom_build"
|
|
| False => putStrLn "Could not find build directory"
|
|
putStrLn "Found build directory"
|