From 93eb82e1bf6d2f2a6b3b0adb85f4ab93cbb766a9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 14 Mar 2022 03:33:01 -0400
Subject: De-sigil-ification: @

---
 stdlib/source/test/aedifex/command/deploy.lux | 110 +++++++++++++-------------
 1 file changed, 55 insertions(+), 55 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux
index 62c1ef931..7cdba510d 100644
--- a/stdlib/source/test/aedifex/command/deploy.lux
+++ b/stdlib/source/test/aedifex/command/deploy.lux
@@ -1,53 +1,53 @@
 (.using
-  [library
-   [lux "*"
-    ["_" test {"+" Test}]
-    [abstract
-     [monad {"+" do}]]
-    [control
-     ["[0]" maybe]
-     ["[0]" try {"+" Try}]
-     [concurrency
-      ["[0]" async {"+" Async}]]
-     [parser
-      ["[0]" environment]]]
-    [data
-     ["[0]" binary ("[1]#[0]" equivalence)]
-     ["[0]" text ("[1]#[0]" equivalence)
-      ["%" format {"+" format}]
-      [encoding
-       ["[0]" utf8]]]
-     ["[0]" format "_"
-      ["[1]" binary]
-      ["[0]" tar]
-      ["[0]" xml]]
-     [collection
-      ["[0]" set]]]
-    [math
-     ["[0]" random]]
-    [world
-     ["[0]" file]
-     ["[0]" program {"+" Program}]]]]
-  [program
-   [compositor
-    ["[0]" export]]]
+ [library
+  [lux "*"
+   ["_" test {"+" Test}]
+   [abstract
+    [monad {"+" do}]]
+   [control
+    ["[0]" maybe]
+    ["[0]" try {"+" Try}]
+    [concurrency
+     ["[0]" async {"+" Async}]]
+    [parser
+     ["[0]" environment]]]
+   [data
+    ["[0]" binary ("[1]#[0]" equivalence)]
+    ["[0]" text ("[1]#[0]" equivalence)
+     ["%" format {"+" format}]
+     [encoding
+      ["[0]" utf8]]]
+    ["[0]" format "_"
+     ["[1]" binary]
+     ["[0]" tar]
+     ["[0]" xml]]
+    [collection
+     ["[0]" set]]]
+   [math
+    ["[0]" random]]
+   [world
+    ["[0]" file]
+    ["[0]" program {"+" Program}]]]]
+ [program
+  [compositor
+   ["[0]" export]]]
+ [//
+  ["$[0]" install]
+  ["$[0]" version]
   [//
-   ["$[0]" install]
-   ["$[0]" version]
-   [//
-    ["$[0]" profile]
-    ["$[0]" repository]]]
-  [\\program
-   ["[0]" /
-    ["//[1]" /// "_"
-     ["[1]" profile]
-     ["[1][0]" action]
-     ["[1][0]" pom]
-     ["[1][0]" hash]
-     ["[1][0]" repository {"+" Repository}
-      ["[1]/[0]" remote]]
-     ["[1][0]" artifact {"+" Artifact}
-      ["[1]/[0]" extension]]]]])
+   ["$[0]" profile]
+   ["$[0]" repository]]]
+ [\\program
+  ["[0]" /
+   ["//[1]" /// "_"
+    ["[1]" profile]
+    ["[1][0]" action]
+    ["[1][0]" pom]
+    ["[1][0]" hash]
+    ["[1][0]" repository {"+" Repository}
+     ["[1]/[0]" remote]]
+    ["[1][0]" artifact {"+" Artifact}
+     ["[1]/[0]" extension]]]]])
 
 (def: (execute! program repository fs artifact profile)
   (-> (Program Async) (Repository Async) (file.System Async)
@@ -55,7 +55,7 @@
       (Async (Try Text)))
   (do ///action.monad
     [.let [console ($version.echo "")]
-     _ ($install.make_sources! fs (value@ ///.#sources profile))
+     _ ($install.make_sources! fs (the ///.#sources profile))
      _ (/.do! console repository fs artifact profile)]
     (# console read_line [])))
 
@@ -66,7 +66,7 @@
         [[artifact expected_pom profile]
          (random.one (function (_ profile)
                        (do maybe.monad
-                         [artifact (value@ ///.#identity profile)
+                         [artifact (the ///.#identity profile)
                           expected_pom (try.maybe (///pom.write profile))]
                          (in [artifact expected_pom profile])))
                      $profile.random)
@@ -81,19 +81,19 @@
               [verdict (do [! ///action.monad]
                          [logging (..execute! program repository fs artifact profile)
                           expected_library (|> profile
-                                               (value@ ///.#sources)
+                                               (the ///.#sources)
                                                set.list
                                                (export.library fs)
                                                (# ! each (format.result tar.writer)))
 
-                          actual_pom (# repository download (///repository/remote.uri (value@ ///artifact.#version artifact) artifact ///artifact/extension.pom))
-                          actual_library (# repository download (///repository/remote.uri (value@ ///artifact.#version artifact) artifact ///artifact/extension.lux_library))
-                          actual_sha-1 (# repository download (///repository/remote.uri (value@ ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.sha-1)))
+                          actual_pom (# repository download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.pom))
+                          actual_library (# repository download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.lux_library))
+                          actual_sha-1 (# repository download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.sha-1)))
                           actual_sha-1 (# async.monad in
                                           (do try.monad
                                             [actual_sha-1 (# utf8.codec decoded actual_sha-1)]
                                             (# ///hash.sha-1_codec decoded actual_sha-1)))
-                          actual_md5 (# repository download (///repository/remote.uri (value@ ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.md5)))
+                          actual_md5 (# repository download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.md5)))
                           actual_md5 (# async.monad in
                                         (do try.monad
                                           [actual_md5 (# utf8.codec decoded actual_md5)]
-- 
cgit v1.2.3