From dda05bca0956af5e5b3875c4cc36e61aa04772e4 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Sep 2021 00:07:08 -0400
Subject: Made the "#" character great again!

---
 stdlib/source/test/aedifex/dependency/deployment.lux | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'stdlib/source/test/aedifex/dependency/deployment.lux')

diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index 7e137443b..625c7c9f5 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -55,7 +55,7 @@
    [#@http.headers (http.headers (list))
     #@http.body (function (_ _)
                   (|> [0 (binary.empty 0)]
-                      #try.Success
+                      {try.#Success}
                       io.io))]])
 
 (type: Cache
@@ -68,31 +68,31 @@
      (do io.monad
        [_ (: (IO Any)
              (case [method input]
-               [#@http.Put {#.Some input}]
+               [{#@http.Put} {.#Some input}]
                (atom.update! (dictionary.has url input) cache)
                
                _
                (in [])))]
-       (in {#try.Success ..good_upload})))))
+       (in {try.#Success ..good_upload})))))
 
 (def: (verify_one expected_deployments address package cache expected_artifact actual_artifact)
   (-> Nat URL Package (Dictionary URL Binary) Artifact Artifact Bit)
   (let [url (: (-> URI URL)
                (|>> (format address)))
-        library_url (url (format (artifact.uri (value@ #artifact.version expected_artifact)
+        library_url (url (format (artifact.uri (value@ artifact.#version expected_artifact)
                                                expected_artifact)
                                  artifact/extension.lux_library))
-        pom_url (url (format (artifact.uri (value@ #artifact.version expected_artifact)
+        pom_url (url (format (artifact.uri (value@ artifact.#version expected_artifact)
                                            expected_artifact)
                              artifact/extension.pom))
         artifact_metadata_url (url (metadata.remote_artifact_uri expected_artifact))
         project_metadata_url (url (metadata.remote_project_uri expected_artifact))
 
         expected_library (|> package
-                             (value@ #package.library)
+                             (value@ package.#library)
                              product.left)
         expected_pom (|> package
-                         (value@ #package.pom)
+                         (value@ package.#pom)
                          product.right
                          product.left)
 
@@ -136,7 +136,7 @@
   (do random.monad
     [[profile package] $///package.random
      .let [artifact (|> profile
-                        (value@ #profile.identity)
+                        (value@ profile.#identity)
                         maybe.trusted)
            dependency (: Dependency
                          [artifact
@@ -155,7 +155,7 @@
                .let [cache (: Cache
                               (atom.atom (dictionary.empty text.hash)))
                      http (..http cache)
-                     repository (repository.async (remote.repository http #.None address))]]
+                     repository (repository.async (remote.repository http {.#None} address))]]
               (in (do async.monad
                     [?outcome (/.one repository dependency package)
                      cache (async.future (atom.read! cache))]
@@ -178,7 +178,7 @@
                      cache (: Cache
                               (atom.atom (dictionary.empty text.hash)))
                      http (..http cache)
-                     repository (repository.async (remote.repository http #.None address))]]
+                     repository (repository.async (remote.repository http {.#None} address))]]
               (in (do async.monad
                     [?outcome (/.all repository resolution)
                      cache (async.future (atom.read! cache))]
-- 
cgit v1.2.3