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/specification/compositor/generation/case.lux | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'stdlib/source/specification/compositor/generation/case.lux')

diff --git a/stdlib/source/specification/compositor/generation/case.lux b/stdlib/source/specification/compositor/generation/case.lux
index c7c221eb7..d71abc703 100644
--- a/stdlib/source/specification/compositor/generation/case.lux
+++ b/stdlib/source/specification/compositor/generation/case.lux
@@ -64,7 +64,7 @@
                     [r.i64         synthesis.i64  synthesis.path/i64]
                     [r.frac        synthesis.f64  synthesis.path/f64]
                     [(r.unicode 5) synthesis.text synthesis.path/text]))
-              (do {! r.monad}
+              (do [! r.monad]
                 [size ..size
                  idx (|> r.nat (\ ! each (n.% size)))
                  [subS subP] case
@@ -79,7 +79,7 @@
                                    (synthesis.member/left idx))
                                  subP)]]
                 (in [caseS caseP]))
-              (do {! r.monad}
+              (do [! r.monad]
                 [size ..size
                  idx (|> r.nat (\ ! each (n.% size)))
                  [subS subP] case
-- 
cgit v1.2.3