Made the "#" character great again!

1 files changed, 32 insertions, 32 deletions

diff --git a/stdlib/source/program/aedifex/dependency/deployment.lux b/stdlib/source/program/aedifex/dependency/deployment.lux
index 84170965c..60fcd57d1 100644
--- a/stdlib/source/program/aedifex/dependency/deployment.lux
+++ b/stdlib/source/program/aedifex/dependency/deployment.lux
@@ -53,18 +53,18 @@
     (do [! (try.with async.monad)]
       [_ (\ repository upload artifact data)]
       (case status
-        #///dependency/status.Unverified
+        {///dependency/status.#Unverified}
         (in [])
         
-        {#///dependency/status.Partial partial}
+        {///dependency/status.#Partial partial}
         (case partial
-          {#.Left sha-1}
+          {.#Left sha-1}
           (deploy_hash ///hash.sha-1_codec ///artifact/extension.sha-1 sha-1)
           
-          {#.Right md5}
+          {.#Right md5}
           (deploy_hash ///hash.md5_codec ///artifact/extension.md5 md5))
         
-        {#///dependency/status.Verified sha-1 md5}
+        {///dependency/status.#Verified sha-1 md5}
         (do !
           [_ (deploy_hash ///hash.sha-1_codec ///artifact/extension.sha-1 sha-1)]
           (deploy_hash ///hash.md5_codec ///artifact/extension.md5 md5))))))
@@ -75,15 +75,15 @@
                     <md5> (format type ///artifact/extension.md5)]
     (list& type
            (case status
-             #///dependency/status.Unverified
+             {///dependency/status.#Unverified}
              (list)
              
-             {#///dependency/status.Partial partial}
+             {///dependency/status.#Partial partial}
              (list (case partial
-                     {#.Left _} <sha-1>
-                     {#.Right _} <md5>))
+                     {.#Left _} <sha-1>
+                     {.#Right _} <md5>))
              
-             {#///dependency/status.Verified _}
+             {///dependency/status.#Verified _}
              (list <sha-1> <md5>)))))
 
 (def: (update_snapshot [artifact type] now snapshot)
@@ -91,39 +91,39 @@
   (do try.monad
     [now (: (Try ///artifact/time.Time)
             (///artifact/time.of_instant now))
-     .let [version_template (value@ #///artifact.version artifact)
+     .let [version_template (value@ ///artifact.#version artifact)
            snapshot (|> snapshot
-                        (revised@ [#///metadata/snapshot.versioning #///artifact/versioning.snapshot]
+                        (revised@ [///metadata/snapshot.#versioning ///artifact/versioning.#snapshot]
                                   (function (_ snapshot)
                                     (case snapshot
-                                      #///artifact/snapshot.Local
-                                      #///artifact/snapshot.Local
+                                      {///artifact/snapshot.#Local}
+                                      {///artifact/snapshot.#Local}
                                       
-                                      {#///artifact/snapshot.Remote [_ build]}
-                                      {#///artifact/snapshot.Remote [now (++ build)]})))
-                        (with@ [#///metadata/snapshot.versioning #///artifact/versioning.last_updated] now))
-           versioning_snapshot (value@ [#///metadata/snapshot.versioning #///artifact/versioning.snapshot] snapshot)]]
+                                      {///artifact/snapshot.#Remote [_ build]}
+                                      {///artifact/snapshot.#Remote [now (++ build)]})))
+                        (with@ [///metadata/snapshot.#versioning ///artifact/versioning.#last_updated] now))
+           versioning_snapshot (value@ [///metadata/snapshot.#versioning ///artifact/versioning.#snapshot] snapshot)]]
     (in (|> snapshot
-            (with@ [#///metadata/snapshot.versioning #///artifact/versioning.versions]
-                   (list [#///artifact/snapshot/version.extension type
-                          #///artifact/snapshot/version.value (///artifact/snapshot/version/value.format
-                                                               [#///artifact/snapshot/version/value.version version_template
-                                                                #///artifact/snapshot/version/value.snapshot versioning_snapshot])
-                          #///artifact/snapshot/version.updated now]))
-            ... (with@ [#///metadata/snapshot.versioning #///artifact/versioning.snapshot]
-            ...       (list\composite (..artifacts type (product.right (value@ #///package.library package)))
-            ...                       (..artifacts ///artifact/type.pom (product.right (value@ #///package.pom package)))))
+            (with@ [///metadata/snapshot.#versioning ///artifact/versioning.#versions]
+                   (list [///artifact/snapshot/version.#extension type
+                          ///artifact/snapshot/version.#value (///artifact/snapshot/version/value.format
+                                                               [///artifact/snapshot/version/value.#version version_template
+                                                                ///artifact/snapshot/version/value.#snapshot versioning_snapshot])
+                          ///artifact/snapshot/version.#updated now]))
+            ... (with@ [///metadata/snapshot.#versioning ///artifact/versioning.#snapshot]
+            ...       (list\composite (..artifacts type (product.right (value@ ///package.#library package)))
+            ...                       (..artifacts ///artifact/type.pom (product.right (value@ ///package.#pom package)))))
             ))))
 
 (def: .public (one repository [artifact type] package)
   (-> (Repository Async) Dependency Package (Async (Try Artifact)))
   (do [! async.monad]
     [now (async.future instant.now)
-     .let [version_template (value@ #///artifact.version artifact)]]
+     .let [version_template (value@ ///artifact.#version artifact)]]
     (do (try.with !)
-      [_ (with_status repository version_template [artifact type] (value@ #///package.library package))
+      [_ (with_status repository version_template [artifact type] (value@ ///package.#library package))
 
-       _ (let [[pom pom_data status] (value@ #///package.pom package)]
+       _ (let [[pom pom_data status] (value@ ///package.#pom package)]
            (with_status repository
              version_template
              [artifact ///artifact/type.pom]
@@ -135,8 +135,8 @@
        _ (///metadata/snapshot.write repository artifact snapshot)
        project (///metadata/artifact.read repository artifact)
        _ (|> project
-             (with@ #///metadata/artifact.versions (list version_template))
-             (with@ #///metadata/artifact.last_updated now)
+             (with@ ///metadata/artifact.#versions (list version_template))
+             (with@ ///metadata/artifact.#last_updated now)
              (///metadata/artifact.write repository artifact))]
       (in artifact))))