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