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: #

---
 stdlib/source/test/aedifex/command/deploy.lux | 44 +++++++++++++--------------
 1 file changed, 22 insertions(+), 22 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 0a4e08166..d62e027dd 100644
--- a/stdlib/source/test/aedifex/command/deploy.lux
+++ b/stdlib/source/test/aedifex/command/deploy.lux
@@ -62,7 +62,7 @@
            shell (shell.async ($build.bad_shell []))]
      _ ($install.make_sources! fs (the ///.#sources profile))
      _ (/.do! program shell console local remote fs artifact profile)]
-    (# console read_line [])))
+    (at console read_line [])))
 
 (def: .public test
   Test
@@ -78,7 +78,7 @@
          
          home (random.alphabetic 5)
          working_directory (random.alphabetic 5)
-         .let [fs (file.mock (# file.default separator))
+         .let [fs (file.mock (at file.default separator))
                program (program.async (program.mock environment.empty home working_directory))
                local (///repository/local.repository program fs)
                remote (///repository.mock $repository.mock
@@ -90,20 +90,20 @@
                                                (the ///.#sources)
                                                set.list
                                                (export.library fs)
-                                               (# ! each (format.result tar.writer)))
+                                               (at ! each (format.result tar.writer)))
 
-                          actual_pom (# remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.pom))
-                          actual_library (# remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.lux_library))
-                          actual_sha-1 (# remote 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 (# remote 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)]
-                                          (# ///hash.md5_codec decoded actual_md5)))
+                          actual_pom (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.pom))
+                          actual_library (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.lux_library))
+                          actual_sha-1 (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.sha-1)))
+                          actual_sha-1 (at async.monad in
+                                           (do try.monad
+                                             [actual_sha-1 (at utf8.codec decoded actual_sha-1)]
+                                             (at ///hash.sha-1_codec decoded actual_sha-1)))
+                          actual_md5 (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.md5)))
+                          actual_md5 (at async.monad in
+                                         (do try.monad
+                                           [actual_md5 (at utf8.codec decoded actual_md5)]
+                                           (at ///hash.md5_codec decoded actual_md5)))
 
                           .let [succeeded!
                                 (text#= /.success logging)
@@ -113,18 +113,18 @@
                                           actual_library)
 
                                 deployed_pom!
-                                (binary#= (|> expected_pom (# xml.codec encoded) (# utf8.codec encoded))
+                                (binary#= (|> expected_pom (at xml.codec encoded) (at utf8.codec encoded))
                                           actual_pom)
 
                                 deployed_sha-1!
-                                (# ///hash.equivalence =
-                                   (///hash.sha-1 expected_library)
-                                   actual_sha-1)
+                                (at ///hash.equivalence =
+                                    (///hash.sha-1 expected_library)
+                                    actual_sha-1)
 
                                 deployed_md5!
-                                (# ///hash.equivalence =
-                                   (///hash.md5 expected_library)
-                                   actual_md5)]]
+                                (at ///hash.equivalence =
+                                    (///hash.md5 expected_library)
+                                    actual_md5)]]
                          (in (and succeeded!
                                   deployed_library!
                                   deployed_pom!
-- 
cgit v1.2.3