18 lines
564 B
Text
18 lines
564 B
Text
prelude
|
||
import Init.System.IO
|
||
new_frontend
|
||
open IO.FS
|
||
def usingIO {α} (x : IO α) := x
|
||
#eval (discard $ IO.FS.Handle.mk "non-existent-file.txt" Mode.read : IO Unit)
|
||
#eval usingIO do
|
||
condM (IO.fileExists "readonly.txt")
|
||
(pure ())
|
||
(IO.FS.withFile "readonly.txt" Mode.write $ fun _ => pure ());
|
||
IO.setAccessRights "readonly.txt" { user := { read := true } };
|
||
pure ()
|
||
#eval (discard $ IO.FS.Handle.mk "readonly.txt" Mode.write : IO Unit)
|
||
#eval usingIO do
|
||
h ← IO.FS.Handle.mk "readonly.txt" Mode.read;
|
||
h.putStr "foo";
|
||
IO.println "foo";
|
||
pure ()
|