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/lux/data/format/json.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/lux/data/format/json.lux')

diff --git a/stdlib/source/lux/data/format/json.lux b/stdlib/source/lux/data/format/json.lux
index c42093710..11aa27d3c 100644
--- a/stdlib/source/lux/data/format/json.lux
+++ b/stdlib/source/lux/data/format/json.lux
@@ -81,7 +81,7 @@
       (wrap (list (` (: JSON (#..Array ((~! row) (~+ (list@map wrapper members))))))))
 
       [_ (#.Record pairs)]
-      (do ..monad
+      (do {@ ..monad}
         [pairs' (monad.map @
                            (function (_ [slot value])
                              (case slot
@@ -280,7 +280,7 @@
 
 (def: number~
   (Parser Number)
-  (do p.monad
+  (do {@ p.monad}
     [signed? (l.this? "-")
      digits (l.many l.decimal)
      decimals (p.default "0"
@@ -322,7 +322,7 @@
   (Parser String)
   (<| (l.enclosed [text.double-quote text.double-quote])
       (loop [_ []])
-      (do p.monad
+      (do {@ p.monad}
         [chars (l.some (l.none-of (text@compose "\" text.double-quote)))
          stop l.peek])
       (if (text@= "\" stop)
-- 
cgit v1.2.3