diff options
| author | Eduardo Julian | 2019-02-07 20:08:16 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-02-07 20:08:16 -0400 |
| commit | 3ade0e1af5a2ea05c58958ad8612691d60193d0d (patch) | |
| tree | fcb6fb7b351b2af98c25414e240c45cd79869451 /stdlib/source/lux/data/format/json.lux | |
| parent | 5f15b52079bd4ce7638cbfbc1c63cea53e4ffec7 (diff) | |
Small improvements & fixes.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/data/format/json.lux | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/stdlib/source/lux/data/format/json.lux b/stdlib/source/lux/data/format/json.lux index a4aad7c83..d4dc36ad0 100644 --- a/stdlib/source/lux/data/format/json.lux +++ b/stdlib/source/lux/data/format/json.lux @@ -76,7 +76,7 @@ (wrap (list (` (: JSON #Null)))) [_ (#.Tuple members)] - (wrap (list (` (: JSON (#Array (row (~+ (list/map wrapper members)))))))) + (wrap (list (` (: JSON (#Array ((~! row) (~+ (list/map wrapper members)))))))) [_ (#.Record pairs)] (do ..monad @@ -89,11 +89,10 @@ _ (macro.fail "Wrong syntax for JSON object."))) pairs)] - (wrap (list (` (: JSON (#Object (dictionary.from-list text.hash (list (~+ pairs'))))))))) + (wrap (list (` (: JSON (#Object ((~! dictionary.from-list) (~! text.hash) (list (~+ pairs'))))))))) _ - (wrap (list token)) - ))) + (wrap (list token))))) (def: #export (get-fields json) {#.doc "Get all the fields in a JSON object."} |