From eea741e9b4a47ae09832311d6d61f0bd6024f673 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 31 Oct 2020 02:59:48 -0400
Subject: Easy to use Rev constants.

---
 stdlib/source/program/aedifex/parser.lux | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 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 867b3b81f..4fa6612c0 100644
--- a/stdlib/source/program/aedifex/parser.lux
+++ b/stdlib/source/program/aedifex/parser.lux
@@ -77,8 +77,8 @@
 
 (def: license
   (Parser /.License)
-  (do {@ <>.monad}
-    [input (:: @ map
+  (do {! <>.monad}
+    [input (:: ! map
                (dictionary.from-list text.hash)
                (<c>.record (<>.some (<>.and <c>.local-tag
                                             <c>.any))))]
@@ -92,8 +92,8 @@
 
 (def: organization
   (Parser /.Organization)
-  (do {@ <>.monad}
-    [input (:: @ map
+  (do {! <>.monad}
+    [input (:: ! map
                (dictionary.from-list text.hash)
                (<c>.record (<>.some (<>.and <c>.local-tag
                                             <c>.any))))]
@@ -103,8 +103,8 @@
 
 (def: developer
   (Parser /.Developer)
-  (do {@ <>.monad}
-    [input (:: @ map
+  (do {! <>.monad}
+    [input (:: ! map
                (dictionary.from-list text.hash)
                (<c>.record (<>.some (<>.and <c>.local-tag
                                             <c>.any))))]
@@ -120,8 +120,8 @@
 
 (def: info
   (Parser /.Info)
-  (do {@ <>.monad}
-    [input (:: @ map
+  (do {! <>.monad}
+    [input (:: ! map
                (dictionary.from-list text.hash)
                (<c>.record (<>.some (<>.and <c>.local-tag
                                             <c>.any))))]
@@ -171,8 +171,8 @@
 
 (def: profile
   (Parser /.Profile)
-  (do {@ <>.monad}
-    [input (:: @ map
+  (do {! <>.monad}
+    [input (:: ! map
                (dictionary.from-list text.hash)
                (<c>.record (<>.some (<>.and <c>.local-tag
                                             <c>.any))))
@@ -187,15 +187,15 @@
                      (..singular input "info" ..info)))
            ^repositories (: (Parser (Set //dependency.Repository))
                             (|> (..plural input "repositories" ..repository)
-                                (:: @ map (set.from-list text.hash))
+                                (:: ! map (set.from-list text.hash))
                                 (<>.default (set.new text.hash))))
            ^dependencies (: (Parser (Set //dependency.Dependency))
                             (|> (..plural input "dependencies" ..dependency)
-                                (:: @ map (set.from-list //dependency.hash))
+                                (:: ! map (set.from-list //dependency.hash))
                                 (<>.default (set.new //dependency.hash))))
            ^sources (: (Parser (Set /.Source))
                        (|> (..plural input "sources" ..source)
-                           (:: @ map (set.from-list text.hash))
+                           (:: ! map (set.from-list text.hash))
                            (<>.default (set.from-list text.hash (list /.default-source)))))
            ^target (: (Parser (Maybe /.Target))
                       (<>.maybe
@@ -207,7 +207,7 @@
                     (<>.maybe
                      (..singular input "test" ..module)))
            ^deploy-repositories (: (Parser (Dictionary Text //dependency.Repository))
-                                   (<| (:: @ map (dictionary.from-list text.hash))
+                                   (<| (:: ! map (dictionary.from-list text.hash))
                                        (<>.default (list))
                                        (..singular input "deploy-repositories" ..deploy-repository)))]]
     ($_ <>.and
-- 
cgit v1.2.3