From f9e33ae96aec4741385a576719786092c9e68043 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 4 Jun 2022 19:34:42 -0400
Subject: De-sigil-ification: #

---
 .../program/aedifex/dependency/resolution.lux      | 48 +++++++++++-----------
 1 file changed, 24 insertions(+), 24 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/dependency/resolution.lux b/stdlib/source/program/aedifex/dependency/resolution.lux
index 568973c47..b79f6c5d9 100644
--- a/stdlib/source/program/aedifex/dependency/resolution.lux
+++ b/stdlib/source/program/aedifex/dependency/resolution.lux
@@ -82,19 +82,19 @@
         (Exception [Artifact Extension Text])
         (Async (Try (Maybe (Hash h))))))
   (do async.monad
-    [?actual (# repository download (///repository/remote.uri version_template artifact extension))]
+    [?actual (at repository download (///repository/remote.uri version_template artifact extension))]
     (case ?actual
       {try.#Success actual}
       (in (do [! try.monad]
-            [output (# ! each (|>> ffi.as_string java/lang/String::trim ffi.of_string)
-                       (# utf8.codec decoded actual))
+            [output (at ! each (|>> ffi.as_string java/lang/String::trim ffi.of_string)
+                        (at utf8.codec decoded actual))
              actual (|> output
                         (text.all_split_by " ")
                         list.head
                         (maybe.else output)
-                        (# codec decoded))
+                        (at codec decoded))
              _ (exception.assertion exception [artifact extension output]
-                                    (# ///hash.equivalence = (hash library) actual))]
+                                    (at ///hash.equivalence = (hash library) actual))]
             (in {.#Some actual})))
       
       {try.#Failure error}
@@ -103,7 +103,7 @@
 (def: (hashed repository version_template artifact extension)
   (-> (Repository Async) Version Artifact Extension (Async (Try [Binary Status])))
   (do (try.with async.monad)
-    [data (# repository download (///repository/remote.uri version_template artifact extension))
+    [data (at repository download (///repository/remote.uri version_template artifact extension))
      ?sha-1 (..verified_hash data
                              repository version_template artifact (format extension ///artifact/extension.sha-1)
                              ///hash.sha-1 ///hash.sha-1_codec ..sha-1_does_not_match)
@@ -135,14 +135,14 @@
              artifact (has ///artifact.#version artifact_version artifact)]
        [pom_data pom_status] (..hashed repository version_template artifact ///artifact/extension.pom)
        library_&_status (..hashed repository version_template artifact extension)]
-      (# async.monad in
-         (do try.monad
-           [pom (# utf8.codec decoded pom_data)
-            pom (# xml.codec decoded pom)
-            profile (<xml>.result ///pom.parser (list pom))]
-           (in [///package.#origin {///repository/origin.#Remote ""}
-                ///package.#library library_&_status
-                ///package.#pom [pom pom_data pom_status]]))))))
+      (at async.monad in
+          (do try.monad
+            [pom (at utf8.codec decoded pom_data)
+             pom (at xml.codec decoded pom)
+             profile (<xml>.result ///pom.parser (list pom))]
+            (in [///package.#origin {///repository/origin.#Remote ""}
+                 ///package.#library library_&_status
+                 ///package.#pom [pom pom_data pom_status]]))))))
 
 (type: .public Resolution
   (Dictionary Dependency Package))
@@ -163,12 +163,12 @@
 (template [<sigil> <name> <doing> <at>]
   [(def: (<name> console repository artifact)
      (-> (Console Async) (Repository Async) Artifact (Async (Try Any)))
-     (# console write (format "[" <sigil> "]"
-                              " " <doing>
-                              " " (///artifact.format artifact)
-                              " " <at>
-                              " " (%.text (# repository description))
-                              text.new_line)))]
+     (at console write (format "[" <sigil> "]"
+                               " " <doing>
+                               " " (///artifact.format artifact)
+                               " " <at>
+                               " " (%.text (at repository description))
+                               text.new_line)))]
 
   ["?" announce_fetching "Fetching" "from"]
   ["O" announce_success "Found" "at"]
@@ -181,7 +181,7 @@
     {.#End}
     (|> dependency
         (exception.except ..cannot_resolve)
-        (# async.monad in))
+        (at async.monad in))
 
     {.#Item repository alternatives}
     (do [! async.monad]
@@ -210,8 +210,8 @@
                 resolution resolution])
     (case dependencies
       {.#End}
-      (# async.monad in
-         [successes failures resolution])
+      (at async.monad in
+          [successes failures resolution])
 
       {.#Item head tail}
       (case (the [//.#artifact ///artifact.#version] head)
@@ -232,7 +232,7 @@
               {try.#Success package}
               (do !
                 [.let [redundant? (is (Predicate Dependency)
-                                      (predicate.or (# //.equivalence = head)
+                                      (predicate.or (at //.equivalence = head)
                                                     (dictionary.key? resolution)))
                        sub_dependencies (|> package
                                             ///package.dependencies
-- 
cgit v1.2.3