aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/data/format/json.lux
diff options
context:
space:
mode:
authorEduardo Julian2021-09-07 22:50:21 -0400
committerEduardo Julian2021-09-07 22:50:21 -0400
commit35c0807799717cd720ab28b35851c1a01a67445d (patch)
treec6237b79fb262d24c8a46ee3ecb714df3e9874d8 /stdlib/source/library/lux/data/format/json.lux
parentb55cefcb258f11eeee32c1478faefd1bd09ec871 (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.lux32
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>]