mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-18 08:42:11 +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"
|