From 132ffdae1add622c8a3c6065d7730a8fe8ea5e78 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 5 Sep 2021 22:52:26 -0400
Subject: Changed the syntax of do/be's (co)monad bindings.

---
 stdlib/source/program/aedifex/pom.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 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 b116e45bc..87a070f08 100644
--- a/stdlib/source/program/aedifex/pom.lux
+++ b/stdlib/source/program/aedifex/pom.lux
@@ -156,7 +156,7 @@
 
 (def: property_parser
   (Parser [Tag Text])
-  (do {! <>.monad}
+  (do [! <>.monad]
     [tag <xml>.tag]
     (<| (<xml>.node tag)
         (\ ! each (|>> [tag]))
@@ -164,7 +164,7 @@
 
 (def: (dependency_parser own_version parent_version)
   (-> Text Text (Parser Dependency))
-  (do {! <>.monad}
+  (do [! <>.monad]
     [properties (\ ! each (dictionary.of_list name.hash)
                    (<| (<xml>.node ["" ..dependency_tag])
                        (<>.some ..property_parser)))]
@@ -212,7 +212,7 @@
 
 (def: .public parser
   (Parser /.Profile)
-  (do {! <>.monad}
+  (do [! <>.monad]
     [own_version (<>.else "" (<xml>.somewhere ..own_version))
      parent_version (<>.else "" (<xml>.somewhere ..parent_version))]
     (<| (<xml>.node ["" ..project_tag])
-- 
cgit v1.2.3