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/install.lux | 82 +++++++++++++-------------
 1 file changed, 41 insertions(+), 41 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index 4d1509924..fd4780195 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -1,43 +1,43 @@
 (.using
-  [library
-   [lux "*"
-    ["_" test {"+" Test}]
-    [abstract
-     ["[0]" monad {"+" do}]]
-    [control
-     ["[0]" try {"+" Try} ("[1]#[0]" functor)]
-     ["[0]" exception]
-     [concurrency
-      ["[0]" async {"+" Async}]]
-     [parser
-      ["[0]" environment]]]
-    [data
-     ["[0]" binary]
-     ["[0]" text ("[1]#[0]" equivalence)
-      ["%" format {"+" format}]]
-     [collection
-      ["[0]" set {"+" Set}]]]
-    [math
-     ["[0]" random]]
-    [world
-     ["[0]" file]
-     ["[0]" program {"+" Program}]]]]
+ [library
+  [lux "*"
+   ["_" test {"+" Test}]
+   [abstract
+    ["[0]" monad {"+" do}]]
+   [control
+    ["[0]" try {"+" Try} ("[1]#[0]" functor)]
+    ["[0]" exception]
+    [concurrency
+     ["[0]" async {"+" Async}]]
+    [parser
+     ["[0]" environment]]]
+   [data
+    ["[0]" binary]
+    ["[0]" text ("[1]#[0]" equivalence)
+     ["%" format {"+" format}]]
+    [collection
+     ["[0]" set {"+" Set}]]]
+   [math
+    ["[0]" random]]
+   [world
+    ["[0]" file]
+    ["[0]" program {"+" Program}]]]]
+ [//
+  ["$[0]" version]
   [//
-   ["$[0]" version]
-   [//
-    ["$[0]" profile]
-    ["$[0]" artifact]]]
-  [\\program
-   ["[0]" /
+   ["$[0]" profile]
+   ["$[0]" artifact]]]
+ [\\program
+  ["[0]" /
+   ["/[1]" // "_"
     ["/[1]" // "_"
-     ["/[1]" // "_"
-      ["[1]" profile]
-      ["[1][0]" action {"+" Action}]
-      ["[1][0]" local]
-      ["[1][0]" artifact
-       ["[1]/[0]" extension]]
-      ["[1][0]" repository "_"
-       ["[1]/[0]" local]]]]]])
+     ["[1]" profile]
+     ["[1][0]" action {"+" Action}]
+     ["[1][0]" local]
+     ["[1][0]" artifact
+      ["[1]/[0]" extension]]
+     ["[1][0]" repository "_"
+      ["[1]/[0]" local]]]]]])
 
 (def: .public (make_sources! fs sources)
   (-> (file.System Async) (Set file.Path) (Action (List Any)))
@@ -56,7 +56,7 @@
   (-> (Program Async) (file.System Async) ///.Profile (Async (Try Text)))
   (do ///action.monad
     [.let [console ($version.echo "")]
-     _ (..make_sources! fs (value@ ///.#sources sample))
+     _ (..make_sources! fs (the ///.#sources sample))
      _ (/.do! console fs (///repository/local.repository program fs) sample)]
     (# console read_line [])))
 
@@ -65,7 +65,7 @@
   (<| (_.covering /._)
       (do [! random.monad]
         [identity $artifact.random
-         sample (# ! each (with@ ///.#identity {.#Some identity})
+         sample (# ! each (has ///.#identity {.#Some identity})
                    $profile.random)
          home (random.ascii/alpha 5)
          working_directory (random.ascii/alpha 5)
@@ -75,7 +75,7 @@
                   [.let [fs (file.mock /)
                          program (program.async (program.mock environment.empty home working_directory))
 
-                         artifact_path (///local.uri (value@ ///artifact.#version identity) identity)
+                         artifact_path (///local.uri (the ///artifact.#version identity) identity)
                          library_path (format artifact_path ///artifact/extension.lux_library)
                          pom_path (format artifact_path ///artifact/extension.pom)]
                    verdict (do [! ///action.monad]
@@ -97,7 +97,7 @@
             (in (do [! async.monad]
                   [.let [fs (file.mock /)
                          program (program.async (program.mock environment.empty home working_directory))]
-                   logging (..execute! program fs (with@ ///.#identity {.#None} sample))]
+                   logging (..execute! program fs (has ///.#identity {.#None} sample))]
                   (_.cover' [/.failure]
                             (|> logging
                                 (try#each (text#= /.failure))
-- 
cgit v1.2.3