From 7542b0addd9eaf01dd5f1c4c8a39b67f51a4bd06 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 7 Apr 2022 00:59:30 -0400
Subject: More efficient TAR handling.

---
 stdlib/source/specification/lux/world/file.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'stdlib/source/specification')

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))
-- 
cgit v1.2.3