diff options
author | Eduardo Julian | 2021-09-07 22:50:21 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-09-07 22:50:21 -0400 |
commit | 35c0807799717cd720ab28b35851c1a01a67445d (patch) | |
tree | c6237b79fb262d24c8a46ee3ecb714df3e9874d8 /stdlib/source/library/lux/data/format/json.lux | |
parent | b55cefcb258f11eeee32c1478faefd1bd09ec871 (diff) |
De-taggification | part 4
Diffstat (limited to 'stdlib/source/library/lux/data/format/json.lux')
-rw-r--r-- | stdlib/source/library/lux/data/format/json.lux | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/stdlib/source/library/lux/data/format/json.lux b/stdlib/source/library/lux/data/format/json.lux index 5a261ecde..a7f22c7c0 100644 --- a/stdlib/source/library/lux/data/format/json.lux +++ b/stdlib/source/library/lux/data/format/json.lux @@ -1,34 +1,34 @@ (.module: [library [lux "*" - ["." meta {"+" [monad]}] + ["[0]" meta {"+" [monad]}] [abstract [equivalence {"+" [Equivalence]}] [codec {"+" [Codec]}] [predicate {"+" [Predicate]}] - ["." monad {"+" [do]}]] + ["[0]" monad {"+" [do]}]] [control pipe - ["." maybe] - ["." try {"+" [Try]}] - ["<>" parser ("#\." monad) - ["<.>" text {"+" [Parser]}] - ["<.>" code]]] + ["[0]" maybe] + ["[0]" try {"+" [Try]}] + ["<>" parser ("[1]\[0]" monad) + ["<[0]>" text {"+" [Parser]}] + ["<[0]>" code]]] [data - ["." bit] - ["." product] - ["." text ("#\." equivalence monoid)] + ["[0]" bit] + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence monoid)] [collection - ["." list ("#\." mix functor)] - ["." row {"+" [Row row]} ("#\." monad)] - ["." dictionary {"+" [Dictionary]}]]] + ["[0]" list ("[1]\[0]" mix functor)] + ["[0]" row {"+" [Row row]} ("[1]\[0]" monad)] + ["[0]" dictionary {"+" [Dictionary]}]]] [macro [syntax {"+" [syntax:]}] - ["." code]] + ["[0]" code]] [math [number ["n" nat] - ["f" frac ("#\." decimal)]]]]]) + ["f" frac ("[1]\[0]" decimal)]]]]]) (template [<name> <type>] [(type: .public <name> @@ -68,7 +68,7 @@ (|>> (dictionary.of_list text.hash) #..Object)) (syntax: .public (json [token <code>.any]) - (let [(^open ".") ..monad + (let [(^open "[0]") ..monad wrapper (function (_ x) (` (..json (~ x))))] (case token (^template [<ast_tag> <ctor> <json_tag>] |