diff options
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) |