Idris2/tests/codegen/con001/CatCases.idr

8 lines
154 B
Idris
Raw Normal View History

import System.File
main : IO ()
main = do
Right str <- readFile "Main.cases"
| Left err => putStrLn "Error:" *> printLn err
putStrLn str