diff options
| author | Eduardo Julian | 2020-05-17 20:10:42 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-05-17 20:10:42 -0400 |
| commit | d97f92842981501a8e0d95a1b4f1ba3d9e72f0d5 (patch) | |
| tree | 3aa01a37da19e1e63bbf8cd204ae6743166e386a /stdlib/source/lux/data/format/json.lux | |
| parent | 9219da9a9bf29b3a2f7f10d4865b939ded28e003 (diff) | |
Local binding names for (co|indexed-)?monads are now explicitly set.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/data/format/json.lux | 6 |
1 files changed, 3 insertions, 3 deletions
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) |