diff options
Diffstat (limited to 'stdlib/source/lux/world/file.lux')
| -rw-r--r-- | stdlib/source/lux/world/file.lux | 68 |
1 files changed, 34 insertions, 34 deletions
diff --git a/stdlib/source/lux/world/file.lux b/stdlib/source/lux/world/file.lux index df90ba842..f959e1af3 100644 --- a/stdlib/source/lux/world/file.lux +++ b/stdlib/source/lux/world/file.lux @@ -46,34 +46,34 @@ (type: #export (Can-Modify ! i) (Capability [i] (! (Error Any)))) -(signature: #export (File !) - (~~ (do-template [<name> <output>] - [(: (Can-Query ! <output>) - <name>)] +(`` (signature: #export (File !) + (~~ (do-template [<name> <output>] + [(: (Can-Query ! <output>) + <name>)] - [size Nat] - [last-modified Instant] - [can-execute? Bit] - [content (Dirty Binary)] - )) + [size Nat] + [last-modified Instant] + [can-execute? Bit] + [content (Dirty Binary)] + )) - (: (Can-Open ! File) - move) + (: (Can-Open ! File) + move) - (do-template [<name> <input>] - [(: (Can-Modify ! <input>) - <name>)] + (~~ (do-template [<name> <input>] + [(: (Can-Modify ! <input>) + <name>)] - [modify Instant] - [over-write Binary] - ) + [modify Instant] + [over-write Binary] + )) - (: (Can-Edit !) - append) + (: (Can-Edit !) + append) - (: (Can-Delete !) - delete) - ) + (: (Can-Delete !) + delete) + )) (signature: #export (Directory !) (: (Can-Query ! (List (File !))) @@ -85,20 +85,20 @@ (: (Can-Delete !) discard)) -(signature: #export (System !) - (~~ (do-template [<name> <capability>] - [(: (Can-Open ! <capability>) - <name>)] +(`` (signature: #export (System !) + (~~ (do-template [<name> <capability>] + [(: (Can-Open ! <capability>) + <name>)] - [file File] - [create-file File] - [directory Directory] - [create-directory Directory] - )) + [file File] + [create-file File] + [directory Directory] + [create-directory Directory] + )) - (: Text - separator) - ) + (: Text + separator) + )) (def: (async-file file) (-> (File IO) (File Promise)) |