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/pom.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/pom.lux b/stdlib/source/program/aedifex/pom.lux
index 4f7d8a4fd..259a3f769 100644
--- a/stdlib/source/program/aedifex/pom.lux
+++ b/stdlib/source/program/aedifex/pom.lux
@@ -150,8 +150,8 @@
 
 (def: parse-dependency
   (Parser Dependency)
-  (do {@ <>.monad}
-    [properties (:: @ map (dictionary.from-list name.hash)
+  (do {! <>.monad}
+    [properties (:: ! map (dictionary.from-list name.hash)
                     (<xml>.children (<>.some ..parse-property)))]
     (<| <>.lift
         try.from-maybe
@@ -168,16 +168,16 @@
 
 (def: parse-dependencies
   (Parser (List Dependency))
-  (do {@ <>.monad}
+  (do {! <>.monad}
     [_ (<xml>.node ["" ..dependencies-tag])]
     (<xml>.children (<>.some ..parse-dependency))))
 
 (def: #export parser
   (Parser /.Profile)
-  (do {@ <>.monad}
+  (do {! <>.monad}
     [_ (<xml>.node ["" ..project-tag])]
     (<xml>.children
-     (do @
+     (do !
        [dependencies (<xml>.somewhere ..parse-dependencies)
         _ (<>.some <xml>.ignore)]
        (wrap (|> (:: /.monoid identity)
-- 
cgit v1.2.3