From c85697eee8ce3dac5480a3ba2b31cc4943e1d8e6 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 7 Apr 2022 14:57:35 -0400
Subject: Better snapshot deployments for Aedifex.

---
 stdlib/source/test/aedifex/command/auto.lux | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'stdlib/source/test/aedifex/command/auto.lux')

diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index 001bfcab3..e8d5ca1ac 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -57,10 +57,8 @@
          (if (n.= expected_runs actual_runs)
            (in {try.#Failure end_signal})
            (do (try.with !)
-             [_ (# fs write (# utf8.codec encoded (%.nat actual_runs)) dummy_file)
-              _ (# fs modify
-                   (|> actual_runs .int instant.of_millis)
-                   dummy_file)]
+             [_ (# fs write dummy_file (# utf8.codec encoded (%.nat actual_runs)))
+              _ (# fs modify dummy_file (|> actual_runs .int instant.of_millis))]
              (in [shell.normal []])))))]))
 
 (def: .public test
@@ -98,12 +96,12 @@
             (in (do async.monad
                   [verdict (do ///action.monad
                              [_ (# fs make_directory source)
-                              _ (# fs write (binary.empty 0) dummy_path)
+                              _ (# fs write dummy_path (binary.empty 0))
                               .let [[@runs command] (..command expected_runs end_signal fs dummy_path)]
                               _ (# watcher poll [])]
                              (do [! async.monad]
                                [no_dangling_process! (|> profile
-                                                         (has ///.#compiler compiler)
+                                                         (has ///.#lux compiler)
                                                          ((/.do! 1 watcher command)
                                                           ($version.echo "")
                                                           (program.async (program.mock environment.empty home working_directory))
-- 
cgit v1.2.3