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: #

---
 stdlib/source/program/aedifex/parser.lux | 58 ++++++++++++++++----------------
 1 file changed, 29 insertions(+), 29 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/parser.lux b/stdlib/source/program/aedifex/parser.lux
index 7f184b2eb..7fa14fb60 100644
--- a/stdlib/source/program/aedifex/parser.lux
+++ b/stdlib/source/program/aedifex/parser.lux
@@ -79,10 +79,10 @@
 (def: license
   (Parser /.License)
   (do [! <>.monad]
-    [input (# ! each
-              (dictionary.of_list text.hash)
-              (<code>.tuple (<>.some (<>.and <code>.text
-                                             <code>.any))))]
+    [input (at ! each
+               (dictionary.of_list text.hash)
+               (<code>.tuple (<>.some (<>.and <code>.text
+                                              <code>.any))))]
     (all <>.and
          (..singular input "name" ..name)
          (..singular input "url" ..url)
@@ -94,10 +94,10 @@
 (def: organization
   (Parser /.Organization)
   (do [! <>.monad]
-    [input (# ! each
-              (dictionary.of_list text.hash)
-              (<code>.tuple (<>.some (<>.and <code>.text
-                                             <code>.any))))]
+    [input (at ! each
+               (dictionary.of_list text.hash)
+               (<code>.tuple (<>.some (<>.and <code>.text
+                                              <code>.any))))]
     (all <>.and
          (..singular input "name" ..name)
          (..singular input "url" ..url))))
@@ -105,10 +105,10 @@
 (def: developer
   (Parser /.Developer)
   (do [! <>.monad]
-    [input (# ! each
-              (dictionary.of_list text.hash)
-              (<code>.tuple (<>.some (<>.and <code>.text
-                                             <code>.any))))]
+    [input (at ! each
+               (dictionary.of_list text.hash)
+               (<code>.tuple (<>.some (<>.and <code>.text
+                                              <code>.any))))]
     (all <>.and
          (..singular input "name" ..name)
          (..singular input "url" ..url)
@@ -122,10 +122,10 @@
 (def: info
   (Parser /.Info)
   (do [! <>.monad]
-    [input (# ! each
-              (dictionary.of_list text.hash)
-              (<code>.tuple (<>.some (<>.and <code>.text
-                                             <code>.any))))]
+    [input (at ! each
+               (dictionary.of_list text.hash)
+               (<code>.tuple (<>.some (<>.and <code>.text
+                                              <code>.any))))]
     (all <>.and
          (<>.maybe (..singular input "name" ..name))
          (<>.maybe (..singular input "url" ..url))
@@ -196,10 +196,10 @@
 (def: profile
   (Parser /.Profile)
   (do [! <>.monad]
-    [input (# ! each
-              (dictionary.of_list text.hash)
-              (<code>.tuple (<>.some (<>.and <code>.text
-                                             <code>.any))))
+    [input (at ! each
+               (dictionary.of_list text.hash)
+               (<code>.tuple (<>.some (<>.and <code>.text
+                                              <code>.any))))
      .let [^parents (is (Parser (List /.Name))
                         (<>.else (list)
                                  (..plural input "parents" <code>.text)))
@@ -211,12 +211,12 @@
                       (..singular input "info" ..info)))
            ^repositories (is (Parser (Set //repository.Address))
                              (|> (..plural input "repositories" ..repository)
-                                 (# ! each (set.of_list text.hash))
+                                 (at ! each (set.of_list text.hash))
                                  (<>.else (set.empty text.hash))
-                                 (# ! each (set.has /.default_repository))))
+                                 (at ! each (set.has /.default_repository))))
            ^dependencies (is (Parser (Set //dependency.Dependency))
                              (|> (..plural input "dependencies" ..dependency)
-                                 (# ! each (set.of_list //dependency.hash))
+                                 (at ! each (set.of_list //dependency.hash))
                                  (<>.else (set.empty //dependency.hash))))
            ^lux (|> ..dependency
                     (..singular input //format.lux_compiler_label)
@@ -226,7 +226,7 @@
                           (<>.else (list)))
            ^sources (is (Parser (Set /.Source))
                         (|> (..plural input "sources" ..source)
-                            (# ! each (set.of_list text.hash))
+                            (at ! each (set.of_list text.hash))
                             (<>.else (set.of_list text.hash (list /.default_source)))))
            ^target (is (Parser /.Target)
                        (|> ..target
@@ -239,7 +239,7 @@
                      (<>.maybe
                       (..singular input "test" ..module)))
            ^deploy_repositories (is (Parser (Dictionary Text //repository.Address))
-                                    (<| (# ! each (dictionary.of_list text.hash))
+                                    (<| (at ! each (dictionary.of_list text.hash))
                                         (<>.else (list))
                                         (..plural input "deploy_repositories" ..deploy_repository)))
            ^configuration (is (Parser (PList Text))
@@ -283,7 +283,7 @@
 
 (def: .public project
   (Parser Project)
-  (# <>.monad each
-     (dictionary.of_list text.hash)
-     (<code>.tuple (<>.many (<>.and <code>.text
-                                    ..profile)))))
+  (at <>.monad each
+      (dictionary.of_list text.hash)
+      (<code>.tuple (<>.many (<>.and <code>.text
+                                     ..profile)))))
-- 
cgit v1.2.3