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/parser.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 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 315021712..c2a4c2754 100644
--- a/stdlib/source/program/aedifex/parser.lux
+++ b/stdlib/source/program/aedifex/parser.lux
@@ -81,7 +81,7 @@
 
 (def: license
   (Parser /.License)
-  (do {! <>.monad}
+  (do [! <>.monad]
     [input (\ ! each
               (dictionary.of_list text.hash)
               (<code>.tuple (<>.some (<>.and <code>.text
@@ -96,7 +96,7 @@
 
 (def: organization
   (Parser /.Organization)
-  (do {! <>.monad}
+  (do [! <>.monad]
     [input (\ ! each
               (dictionary.of_list text.hash)
               (<code>.tuple (<>.some (<>.and <code>.text
@@ -107,7 +107,7 @@
 
 (def: developer
   (Parser /.Developer)
-  (do {! <>.monad}
+  (do [! <>.monad]
     [input (\ ! each
               (dictionary.of_list text.hash)
               (<code>.tuple (<>.some (<>.and <code>.text
@@ -124,7 +124,7 @@
 
 (def: info
   (Parser /.Info)
-  (do {! <>.monad}
+  (do [! <>.monad]
     [input (\ ! each
               (dictionary.of_list text.hash)
               (<code>.tuple (<>.some (<>.and <code>.text
@@ -180,7 +180,7 @@
 
 (def: profile
   (Parser /.Profile)
-  (do {! <>.monad}
+  (do [! <>.monad]
     [input (\ ! each
               (dictionary.of_list text.hash)
               (<code>.tuple (<>.some (<>.and <code>.text
-- 
cgit v1.2.3