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/program/aedifex.lux | 72 +++++++++++++++++++--------------------
 1 file changed, 36 insertions(+), 36 deletions(-)

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

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index 758397321..6bc8f1f90 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -66,9 +66,9 @@
 
 (def: repositories
   (-> /.Profile (List (Repository Async)))
-  (|>> (value@ #/.repositories)
+  (|>> (value@ /.#repositories)
        set.list
-       (list\each (|>> (/repository/remote.repository http.default #.None) /repository.async))))
+       (list\each (|>> (/repository/remote.repository http.default {.#None}) /repository.async))))
 
 (def: (with_dependencies program console command profile)
   (All (_ a)
@@ -79,7 +79,7 @@
     [resolution (/command/deps.do! console
                                    (/repository/local.repository program (file.async file.default))
                                    (..repositories profile)
-                                   (|>> (/repository/remote.repository http.default #.None)
+                                   (|>> (/repository/remote.repository http.default {.#None})
                                         /repository.async)
                                    profile)
      [exit_code output] ((command console program (file.async file.default) (shell.async shell.default) resolution) profile)
@@ -90,7 +90,7 @@
          _
          (do async.monad
            [_ (\ program exit exit_code)]
-           (in {#try.Failure ""})))]
+           (in {try.#Failure ""})))]
     (in output)))
 
 (exception: (cannot_find_repository [repository Text
@@ -117,10 +117,10 @@
           [outcome action]
           (async.future
            (case outcome
-             {#try.Success _}
+             {try.#Success _}
              ..succeed!
 
-             {#try.Failure error}
+             {try.#Failure error}
              (..fail! error))))
     (\ io.monad in [])))
 
@@ -128,12 +128,12 @@
   (do [! io.monad]
     [?console console.default]
     (case (try\each console.async ?console)
-      {#try.Failure error}
+      {try.#Failure error}
       (..fail! error)
 
-      {#try.Success console}
+      {try.#Success console}
       (case operation
-        #/cli.Version
+        {/cli.#Version}
         (..command
          (/command/version.do! console (\ /.monoid identity)))
 
@@ -141,72 +141,72 @@
         (do !
           [?profile (/input.read io.monad file.default profiles)]
           (case ?profile
-            {#try.Failure error}
+            {try.#Failure error}
             (..fail! error)
 
-            {#try.Success profile}
+            {try.#Success profile}
             (let [program (program.async program.default)]
               (case operation
-                #/cli.Version
+                {/cli.#Version}
                 (in [])
                 
-                #/cli.Clean
+                {/cli.#Clean}
                 (..command
                  (/command/clean.do! console (file.async file.default) profile))
 
-                #/cli.POM
+                {/cli.#POM}
                 (..command
                  (/command/pom.do! console (file.async file.default) profile))
                 
-                #/cli.Install
+                {/cli.#Install}
                 (..command
                  (let [fs (file.async file.default)]
                    (/command/install.do! console fs (/repository/local.repository program fs) profile)))
 
-                {#/cli.Deploy repository identity}
+                {/cli.#Deploy repository identity}
                 (..command
-                 (case (value@ #/.identity profile)
-                   {#.Some artifact}
-                   (case (dictionary.value repository (value@ #/.deploy_repositories profile))
-                     {#.Some repository}
+                 (case (value@ /.#identity profile)
+                   {.#Some artifact}
+                   (case (dictionary.value repository (value@ /.#deploy_repositories profile))
+                     {.#Some repository}
                      (/command/deploy.do! console
-                                          (/repository.async (/repository/remote.repository http.default {#.Some identity} repository))
+                                          (/repository.async (/repository/remote.repository http.default {.#Some identity} repository))
                                           (file.async file.default)
                                           artifact
                                           profile)
                      
-                     #.None
-                     (async\in (exception.except ..cannot_find_repository [repository (value@ #/.deploy_repositories profile)])))
+                     {.#None}
+                     (async\in (exception.except ..cannot_find_repository [repository (value@ /.#deploy_repositories profile)])))
                    
-                   #.None
+                   {.#None}
                    (async\in (exception.except /.no_identity []))))
                 
-                #/cli.Dependencies
+                {/cli.#Dependencies}
                 (..command
                  (/command/deps.do! console
                                     (/repository/local.repository program (file.async file.default))
                                     (..repositories profile)
-                                    (|>> (/repository/remote.repository http.default #.None)
+                                    (|>> (/repository/remote.repository http.default {.#None})
                                          /repository.async)
                                     profile))
 
-                {#/cli.Compilation compilation}
+                {/cli.#Compilation compilation}
                 (case compilation
-                  #/cli.Build (..command
-                               (..with_dependencies program console /command/build.do! profile))
-                  #/cli.Test (..command
-                              (..with_dependencies program console /command/test.do! profile)))
+                  {/cli.#Build} (..command
+                                 (..with_dependencies program console /command/build.do! profile))
+                  {/cli.#Test} (..command
+                                (..with_dependencies program console /command/test.do! profile)))
 
-                {#/cli.Auto auto}
+                {/cli.#Auto auto}
                 (do !
                   [?watcher watch.default]
                   (case ?watcher
-                    {#try.Failure error}
+                    {try.#Failure error}
                     (..fail! error)
                     
-                    {#try.Success watcher}
+                    {try.#Success watcher}
                     (..command
                      (case auto
-                       #/cli.Build (..with_dependencies program console (/command/auto.do! /command/auto.delay watcher /command/build.do!) profile)
-                       #/cli.Test (..with_dependencies program console (/command/auto.do! /command/auto.delay watcher /command/test.do!) profile)))))))
+                       {/cli.#Build} (..with_dependencies program console (/command/auto.do! /command/auto.delay watcher /command/build.do!) profile)
+                       {/cli.#Test} (..with_dependencies program console (/command/auto.do! /command/auto.delay watcher /command/test.do!) profile)))))))
             ))))))
-- 
cgit v1.2.3