mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-26 21:23:53 +03:00
13 lines
284 B
Idris
13 lines
284 B
Idris
import System
|
|
import System.Directory
|
|
|
|
panic : String -> IO a
|
|
panic s = do putStrLn s
|
|
exitFailure
|
|
|
|
main : IO ()
|
|
main = do Right ["a"] <- listDir "dir"
|
|
| Left e => panic (show e)
|
|
| Right x => panic ("wrong entries: " ++ (show x))
|
|
pure ()
|