Idris2/tests/base/system_file_fRead/ReadFile.idr
2021-11-05 11:59:17 +00:00

10 lines
208 B
Idris

import System.File
main : IO ()
main = do
Right f <- openFile "sampleFile.txt" Read
| Left err => printLn err
Right contents <- fRead f
| Left err => printLn err
printLn contents