From d97f92842981501a8e0d95a1b4f1ba3d9e72f0d5 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 17 May 2020 20:10:42 -0400
Subject: Local binding names for (co|indexed-)?monads are now explicitly set.

---
 stdlib/source/program/compositor.lux | 2 +-
 stdlib/source/program/scriptum.lux   | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/program')

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index ecce5fa65..8993f21e7 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -84,7 +84,7 @@
           Configuration
           [(-> (Row [Module (generation.Buffer artifact)]) Binary) Path]
           (Promise Any)))
-    (do promise.monad
+    (do {@ promise.monad}
       [platform (promise.future platform)
        console (|> console.system
                    promise.future
diff --git a/stdlib/source/program/scriptum.lux b/stdlib/source/program/scriptum.lux
index f44abef88..419e8a4c9 100644
--- a/stdlib/source/program/scriptum.lux
+++ b/stdlib/source/program/scriptum.lux
@@ -375,7 +375,7 @@
 
 (def: (document-types module types)
   (-> Text (List Value) (Meta (Markdown Block)))
-  (do macro.monad
+  (do {@ macro.monad}
     [type-docs (monad.map @
                           (: (-> Value (Meta (Markdown Block)))
                              (function (_ [name def-annotations type])
@@ -498,7 +498,7 @@
         (wrap [])))))
 
 (macro: (gen-documentation! _)
-  (do macro.monad
+  (do {@ macro.monad}
     [all-modules macro.modules
      #let [lux-modules (|> all-modules
                            (list.filter (function.compose lux-module? product.left))
-- 
cgit v1.2.3