James/tricu
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Strings for IO driver errors

Browse Source
This commit is contained in:
James Eversole
2026-05-18 18:28:24 -05:00
parent 593aa96193
commit 2e13583de3
6 changed files with 69 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/io.tri
View File

@@ -63,24 +63,24 @@ onWriteFile = (path contents errCase okCase :
readFileOrPrintError = (path okCase :
onReadFile path
(err rest : putStrLn "Read failed")
(err rest : putStrLn (append "Read failed: " err))
okCase)
writeFileOrPrintError = (path contents okCase :
onWriteFile path contents
(err rest : putStrLn "Write failed")
(err rest : putStrLn (append "Write failed: " err))
okCase)
copyFile = (src dst :
bind (readFile src)
(result :
matchResult
(err rest : putStrLn "Read failed")
(err rest : putStrLn (append "Read failed: " err))
(contents rest :
bind (writeFile dst contents)
(wr :
matchResult
(err rest : putStrLn "Write failed")
(err rest : putStrLn (append "Write failed: " err))
(ok rest : pure t)
wr))
result))