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/program/aedifex.lux | 134 +++++++++++++++++++-------------------
 1 file changed, 67 insertions(+), 67 deletions(-)

(limited to 'stdlib/source/program/aedifex.lux')

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index e61b08397..af302a16b 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -1,71 +1,71 @@
 (.using
-  [library
-   [lux "*"
-    [program {"+" program:}]
-    ["[0]" debug]
-    [abstract
-     [monad {"+" do}]]
-    [control
-     [pipe {"+" do>}]
-     ["[0]" io {"+" IO}]
-     ["[0]" try {"+" Try} ("[1]#[0]" functor)]
-     ["[0]" exception {"+" exception:}]
-     [parser
-      [environment {"+" Environment}]]
-     [concurrency
-      ["[0]" async {"+" Async} ("[1]#[0]" monad)]]]
-    [data
-     [binary {"+" Binary}]
-     ["[0]" text
-      ["%" format {"+" format}]
-      [encoding
-       ["[0]" utf8]]]
-     [format
-      ["[0]" xml]]
-     [collection
-      ["[0]" set]
-      ["[0]" dictionary {"+" Dictionary}]
-      ["[0]" list ("[1]#[0]" functor)]]]
-    [tool
-     [compiler
-      [language
-       [lux
-        ["[0]" syntax]]]]]
-    [world
-     ["[0]" shell {"+" Exit Shell}]
-     ["[0]" console {"+" Console}]
-     ["[0]" program {"+" Program}]
-     ["[0]" file {"+" Path}
-      ["[0]" watch]]
-     [net
-      ["[0]" http "_"
-       ["[1]" client]]]]]]
-  ["[0]" / "_"
-   ["[1]" profile]
-   ["[1][0]" action {"+" Action}]
-   ["[1][0]" project {"+" Project}]
-   ["[1][0]" input]
-   ["[1][0]" pom]
-   ["[1][0]" cli]
-   ["[1][0]" dependency "_"
-    ["[1]" resolution {"+" Resolution}]]
-   ["[1][0]" repository {"+" Repository}
-    ["[1]/[0]" remote {"+" Address}]
-    ["[1]/[0]" local]]
-   ["[1][0]" command {"+" Command}
-    ["[1]/[0]" version]
-    ["[1]/[0]" clean]
-    ["[1]/[0]" pom]
-    ["[1]/[0]" install]
-    ["[1]/[0]" deps]
-    ["[1]/[0]" build]
-    ["[1]/[0]" test]
-    ["[1]/[0]" auto]
-    ["[1]/[0]" deploy]]])
+ [library
+  [lux "*"
+   [program {"+" program:}]
+   ["[0]" debug]
+   [abstract
+    [monad {"+" do}]]
+   [control
+    [pipe {"+" do>}]
+    ["[0]" io {"+" IO}]
+    ["[0]" try {"+" Try} ("[1]#[0]" functor)]
+    ["[0]" exception {"+" exception:}]
+    [parser
+     [environment {"+" Environment}]]
+    [concurrency
+     ["[0]" async {"+" Async} ("[1]#[0]" monad)]]]
+   [data
+    [binary {"+" Binary}]
+    ["[0]" text
+     ["%" format {"+" format}]
+     [encoding
+      ["[0]" utf8]]]
+    [format
+     ["[0]" xml]]
+    [collection
+     ["[0]" set]
+     ["[0]" dictionary {"+" Dictionary}]
+     ["[0]" list ("[1]#[0]" functor)]]]
+   [tool
+    [compiler
+     [language
+      [lux
+       ["[0]" syntax]]]]]
+   [world
+    ["[0]" shell {"+" Exit Shell}]
+    ["[0]" console {"+" Console}]
+    ["[0]" program {"+" Program}]
+    ["[0]" file {"+" Path}
+     ["[0]" watch]]
+    [net
+     ["[0]" http "_"
+      ["[1]" client]]]]]]
+ ["[0]" / "_"
+  ["[1]" profile]
+  ["[1][0]" action {"+" Action}]
+  ["[1][0]" project {"+" Project}]
+  ["[1][0]" input]
+  ["[1][0]" pom]
+  ["[1][0]" cli]
+  ["[1][0]" dependency "_"
+   ["[1]" resolution {"+" Resolution}]]
+  ["[1][0]" repository {"+" Repository}
+   ["[1]/[0]" remote {"+" Address}]
+   ["[1]/[0]" local]]
+  ["[1][0]" command {"+" Command}
+   ["[1]/[0]" version]
+   ["[1]/[0]" clean]
+   ["[1]/[0]" pom]
+   ["[1]/[0]" install]
+   ["[1]/[0]" deps]
+   ["[1]/[0]" build]
+   ["[1]/[0]" test]
+   ["[1]/[0]" auto]
+   ["[1]/[0]" deploy]]])
 
 (def: repositories
   (-> /.Profile (List (Repository Async)))
-  (|>> (value@ /.#repositories)
+  (|>> (the /.#repositories)
        set.list
        (list#each (|>> (/repository/remote.repository http.default {.#None}) /repository.async))))
 
@@ -164,9 +164,9 @@
 
                 {/cli.#Deploy repository identity}
                 (..command
-                 (case (value@ /.#identity profile)
+                 (case (the /.#identity profile)
                    {.#Some artifact}
-                   (case (dictionary.value repository (value@ /.#deploy_repositories profile))
+                   (case (dictionary.value repository (the /.#deploy_repositories profile))
                      {.#Some repository}
                      (/command/deploy.do! console
                                           (/repository.async (/repository/remote.repository http.default {.#Some identity} repository))
@@ -175,7 +175,7 @@
                                           profile)
                      
                      {.#None}
-                     (async#in (exception.except ..cannot_find_repository [repository (value@ /.#deploy_repositories profile)])))
+                     (async#in (exception.except ..cannot_find_repository [repository (the /.#deploy_repositories profile)])))
                    
                    {.#None}
                    (async#in (exception.except /.no_identity []))))
-- 
cgit v1.2.3