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/command/deploy/release.lux     | 36 +++++++++++-----------
 1 file changed, 18 insertions(+), 18 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/command/deploy/release.lux b/stdlib/source/program/aedifex/command/deploy/release.lux
index 2f7d1e4d7..b6d93b30b 100644
--- a/stdlib/source/program/aedifex/command/deploy/release.lux
+++ b/stdlib/source/program/aedifex/command/deploy/release.lux
@@ -70,9 +70,9 @@
 
 (def: windows?
   (IO (Try Bit))
-  (# (try.with io.monad) each
-     (|>> java/lang/String::toLowerCase ffi.of_string (text.starts_with? "windows"))
-     (java/lang/System::getProperty (ffi.as_string "os.name"))))
+  (at (try.with io.monad) each
+      (|>> java/lang/String::toLowerCase ffi.of_string (text.starts_with? "windows"))
+      (java/lang/System::getProperty (ffi.as_string "os.name"))))
 
 (def: dummy_jar
   Binary
@@ -117,9 +117,9 @@
   (-> (Program Async) (Repository Async) (file.System Async) Artifact (Async (Try Any)))
   (do (try.with async.monad)
     [.let [$artifact (////artifact.uri (the ////artifact.#version artifact) artifact)]
-     _ (# local upload (..jar $artifact) ..dummy_jar)
-     _ (# local upload (..javadoc $artifact) ..dummy_jar)
-     _ (# local upload (..sources $artifact) ..dummy_jar)]
+     _ (at local upload (..jar $artifact) ..dummy_jar)
+     _ (at local upload (..javadoc $artifact) ..dummy_jar)
+     _ (at local upload (..sources $artifact) ..dummy_jar)]
     (in [])))
 
 (def: (signed it)
@@ -129,8 +129,8 @@
 (def: (release_unsigned_artifact! local remote uri)
   (-> (Repository Async) (Repository Async) Text (Async (Try Binary)))
   (do [! ////action.monad]
-    [it (# local download uri)
-     _ (# remote upload uri it)]
+    [it (at local download uri)
+     _ (at remote upload uri it)]
     (in it)))
 
 (def: (release_signed_artifact! local remote [artifact signature])
@@ -139,9 +139,9 @@
     [it (..release_unsigned_artifact! local remote artifact)
      _ (|> it
            ////hash.md5
-           (# ////hash.md5_codec encoded)
-           (# utf8.codec encoded)
-           (# remote upload (..md5 artifact)))
+           (at ////hash.md5_codec encoded)
+           (at utf8.codec encoded)
+           (at remote upload (..md5 artifact)))
      _ (..release_unsigned_artifact! local remote signature)]
     (in [])))
 
@@ -150,19 +150,19 @@
   (do [! ////action.monad]
     [_ (///install.do! console fs local profile)
      _ (install_dummies! program local fs artifact)
-     .let [working_directory (# program directory)
+     .let [working_directory (at program directory)
            @root (////repository/local.root program fs)
            $bundle (////artifact.bundle (the ////artifact.#version artifact) artifact)
-           / (# fs separator)
+           / (at fs separator)
            @local (%.format @root / $bundle)]
      windows? (async.future ..windows?)
      process (is (Async (Try (shell.Process Async)))
-                 (# shell execute [environment.empty @local
-                                   (if windows?
-                                     ["cmd" (list "/c" "for %file in (.\*) do gpg.exe -ab %file")]
-                                     ["sh" (list "-c" "for file in *.*; do gpg -ab $file; done")])]))
+                 (at shell execute [environment.empty @local
+                                    (if windows?
+                                      ["cmd" (list "/c" "for %file in (.\*) do gpg.exe -ab %file")]
+                                      ["sh" (list "-c" "for file in *.*; do gpg -ab $file; done")])]))
      exit (is (Async (Try shell.Exit))
-              (# process await []))
+              (at process await []))
      .let [$artifact (////artifact.uri (the ////artifact.#version artifact) artifact)]
      _ (monad.each ! (release_signed_artifact! local remote)
                    (list (..signed (..pom $artifact))
-- 
cgit v1.2.3