From 2dbbaaec93a53f8dd0b96a0028b9cf125c9066cd Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Sep 2021 15:39:55 -0400
Subject: Re-named \ => # && \\ => ##

---
 stdlib/source/test/aedifex/command/deploy.lux | 40 +++++++++++++--------------
 1 file changed, 20 insertions(+), 20 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 0b0f8558b..68e4de22c 100644
--- a/stdlib/source/test/aedifex/command/deploy.lux
+++ b/stdlib/source/test/aedifex/command/deploy.lux
@@ -12,8 +12,8 @@
      [parser
       ["[0]" environment]]]
     [data
-     ["[0]" binary ("[1]\[0]" equivalence)]
-     ["[0]" text ("[1]\[0]" equivalence)
+     ["[0]" binary ("[1]#[0]" equivalence)]
+     ["[0]" text ("[1]#[0]" equivalence)
       ["%" format {"+" [format]}]
       [encoding
        ["[0]" utf8]]]
@@ -57,7 +57,7 @@
     [.let [console ($version.echo "")]
      _ ($install.make_sources! fs (value@ ///.#sources profile))
      _ (/.do! console repository fs artifact profile)]
-    (\ console read_line [])))
+    (# console read_line [])))
 
 (def: .public test
   Test
@@ -75,7 +75,7 @@
          working_directory (random.ascii/alpha 5)
          .let [repository (///repository.mock $repository.mock
                                               $repository.empty)
-               fs (file.mock (\ file.default separator))
+               fs (file.mock (# file.default separator))
                program (program.async (program.mock environment.empty home working_directory))]]
         (in (do [! async.monad]
               [verdict (do [! ///action.monad]
@@ -84,39 +84,39 @@
                                                (value@ ///.#sources)
                                                set.list
                                                (export.library fs)
-                                               (\ ! each (format.result tar.writer)))
+                                               (# ! 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_sha-1 (\ async.monad in
+                          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_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 (\ async.monad in
+                                            [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 (# async.monad in
                                         (do try.monad
-                                          [actual_md5 (\ utf8.codec decoded actual_md5)]
-                                          (\ ///hash.md5_codec decoded actual_md5)))
+                                          [actual_md5 (# utf8.codec decoded actual_md5)]
+                                          (# ///hash.md5_codec decoded actual_md5)))
 
                           .let [succeeded!
-                                (text\= /.success logging)
+                                (text#= /.success logging)
 
                                 deployed_library!
-                                (binary\= expected_library
+                                (binary#= expected_library
                                           actual_library)
 
                                 deployed_pom!
-                                (binary\= (|> expected_pom (\ xml.codec encoded) (\ utf8.codec encoded))
+                                (binary#= (|> expected_pom (# xml.codec encoded) (# utf8.codec encoded))
                                           actual_pom)
 
                                 deployed_sha-1!
-                                (\ ///hash.equivalence =
+                                (# ///hash.equivalence =
                                    (///hash.sha-1 expected_library)
                                    actual_sha-1)
 
                                 deployed_md5!
-                                (\ ///hash.equivalence =
+                                (# ///hash.equivalence =
                                    (///hash.md5 expected_library)
                                    actual_md5)]]
                          (in (and succeeded!
-- 
cgit v1.2.3