20 lines
502 B
Plaintext
20 lines
502 B
Plaintext
!import prelude !Local
|
|
!import "io" !Local
|
|
|
|
-- Write a file, then read it back.
|
|
-- thenIO discards the writeFile Result and continues.
|
|
-- Run with --unsafe-io (needs both read and write permissions).
|
|
|
|
writeThenRead = (path text :
|
|
thenIO
|
|
(writeFile path text)
|
|
(readFile path))
|
|
|
|
main = io <|
|
|
(bind (writeThenRead "/tmp/tricu-demo.txt" "hello from tricu")
|
|
(result :
|
|
matchResult
|
|
(err rest : putStrLn "error")
|
|
(contents rest : putStrLn contents)
|
|
result))
|