aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/specification
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/specification')
-rw-r--r--stdlib/source/specification/lux/world/file.lux8
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))