From 94e5802f594a73245fce0fbd885103b8bf210d57 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 2 Dec 2022 19:33:00 -0400
Subject: Added some simple time-series handling machinery.

---
 stdlib/source/program/aedifex/parser.lux | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 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 96a717dbc..6e670a5c7 100644
--- a/stdlib/source/program/aedifex/parser.lux
+++ b/stdlib/source/program/aedifex/parser.lux
@@ -78,7 +78,7 @@
 (def license
   (Parser /.License)
   (do [! <>.monad]
-    [input (at ! each
+    [input (of ! each
                (dictionary.of_list text.hash)
                (<code>.tuple (<>.some (<>.and <code>.text
                                               <code>.any))))]
@@ -93,7 +93,7 @@
 (def organization
   (Parser /.Organization)
   (do [! <>.monad]
-    [input (at ! each
+    [input (of ! each
                (dictionary.of_list text.hash)
                (<code>.tuple (<>.some (<>.and <code>.text
                                               <code>.any))))]
@@ -104,7 +104,7 @@
 (def developer
   (Parser /.Developer)
   (do [! <>.monad]
-    [input (at ! each
+    [input (of ! each
                (dictionary.of_list text.hash)
                (<code>.tuple (<>.some (<>.and <code>.text
                                               <code>.any))))]
@@ -121,7 +121,7 @@
 (def info
   (Parser /.Info)
   (do [! <>.monad]
-    [input (at ! each
+    [input (of ! each
                (dictionary.of_list text.hash)
                (<code>.tuple (<>.some (<>.and <code>.text
                                               <code>.any))))]
@@ -198,7 +198,7 @@
 (def profile
   (Parser /.Profile)
   (do [! <>.monad]
-    [input (at ! each
+    [input (of ! each
                (dictionary.of_list text.hash)
                (<code>.tuple (<>.some (<>.and <code>.text
                                               <code>.any))))
@@ -213,12 +213,12 @@
                       (..singular input "info" ..info)))
            ^repositories (is (Parser (Set //repository.Address))
                              (|> (..plural input "repositories" ..repository)
-                                 (at ! each (set.of_list text.hash))
+                                 (of ! each (set.of_list text.hash))
                                  (<>.else (set.empty text.hash))
-                                 (at ! each (set.has /.default_repository))))
+                                 (of ! each (set.has /.default_repository))))
            ^dependencies (is (Parser (Set //dependency.Dependency))
                              (|> (..plural input "dependencies" ..dependency)
-                                 (at ! each (set.of_list //dependency.hash))
+                                 (of ! each (set.of_list //dependency.hash))
                                  (<>.else (set.empty //dependency.hash))))
            ^lux (|> ..dependency
                     (..singular input //format.lux_compiler_label)
@@ -228,7 +228,7 @@
                           (<>.else (list)))
            ^sources (is (Parser (Set /.Source))
                         (|> (..plural input "sources" ..source)
-                            (at ! each (set.of_list text.hash))
+                            (of ! each (set.of_list text.hash))
                             (<>.else (set.of_list text.hash (list /.default_source)))))
            ^target (is (Parser /.Target)
                        (|> ..target
@@ -241,7 +241,7 @@
                      (<>.maybe
                       (..singular input "test" ..program)))
            ^deploy_repositories (is (Parser (Dictionary Text //repository.Address))
-                                    (<| (at ! each (dictionary.of_list text.hash))
+                                    (<| (of ! each (dictionary.of_list text.hash))
                                         (<>.else (list))
                                         (..plural input "deploy_repositories" ..deploy_repository)))
            ^configuration (is (Parser (property.List Text))
@@ -285,7 +285,7 @@
 
 (def .public project
   (Parser Project)
-  (at <>.monad each
+  (of <>.monad each
       (dictionary.of_list text.hash)
       (<code>.tuple (<>.some (<>.and <code>.text
                                      ..profile)))))
-- 
cgit v1.2.3