diff options
| author | Eduardo Julian | 2022-04-07 00:59:30 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-04-07 00:59:30 -0400 |
| commit | 7542b0addd9eaf01dd5f1c4c8a39b67f51a4bd06 (patch) | |
| tree | 11602f21abb3256019847647e7bbeba8a91418ee /stdlib/source/specification | |
| parent | b0d725f24335e82eefc77175efc0a5282951316e (diff) | |
More efficient TAR handling.
Diffstat (limited to 'stdlib/source/specification')
| -rw-r--r-- | stdlib/source/specification/lux/world/file.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/specification/lux/world/file.lux b/stdlib/source/specification/lux/world/file.lux index c3164d544..1e1d5f557 100644 --- a/stdlib/source/specification/lux/world/file.lux +++ b/stdlib/source/specification/lux/world/file.lux @@ -71,7 +71,7 @@ (-> (/.System Async) Binary /.Path (Async Bit)) (do async.monad [file_pre! (# fs file? path) - made? (# fs write content path) + made? (# fs write path content) file_post! (# fs file? path)] (in (and (not file_pre!) (case made? @@ -84,7 +84,7 @@ (do async.monad [pre_file_size (# fs file_size path) pre_content (# fs read path) - appended? (# fs append appendix path) + appended? (# fs append path appendix) post_file_size (# fs file_size path) post_content (# fs read path)] (in (<| (try.else false) @@ -110,7 +110,7 @@ (def: (modified?&last_modified fs expected_time path) (-> (/.System Async) Instant /.Path (Async Bit)) (do async.monad - [modified? (# fs modify expected_time path) + [modified? (# fs modify path expected_time) last_modified (# fs last_modified path)] (in (<| (try.else false) (do [! try.monad] @@ -141,7 +141,7 @@ (let [origin (/.rooted fs parent child) destination (/.rooted fs parent alternate_child)] (do [! async.monad] - [moved? (# fs move destination origin) + [moved? (# fs move origin destination) lost? (|> origin (# fs file?) (# ! each not)) |