diff options
Diffstat (limited to 'stdlib/source/lux/macro/poly/json.lux')
| -rw-r--r-- | stdlib/source/lux/macro/poly/json.lux | 27 |
1 files changed, 15 insertions, 12 deletions
diff --git a/stdlib/source/lux/macro/poly/json.lux b/stdlib/source/lux/macro/poly/json.lux index 1f5b4aab6..ace84fcb3 100644 --- a/stdlib/source/lux/macro/poly/json.lux +++ b/stdlib/source/lux/macro/poly/json.lux @@ -6,20 +6,21 @@ codec ["p" parser]] [data - [bit] + ["." bit] maybe ["e" error] - [sum] - [product] + ["." sum] + ["." product] [number ("frac/" Codec<Text,Frac>) ("nat/" Codec<Text,Nat>) - [i64]] - [text ("text/" Equivalence<Text>) + ["." i64]] + ["." text ("text/" Equivalence<Text>) ["l" lexer] format] - [format ["//" json (#+ JSON)]] + [format + ["//" json (#+ JSON)]] [collection - [list ("list/" Fold<List> Monad<List>)] - [row (#+ Row row) ("row/" Monad<Row>)] + ["." list ("list/" Fold<List> Monad<List>)] + ["." row (#+ Row row) ("row/" Monad<Row>)] ["d" dictionary]]] [time ## ["i" instant] @@ -27,10 +28,12 @@ ["da" date]] [macro (#+ with-gensyms) ["s" syntax (#+ syntax:)] - [code] - [poly (#+ poly:)]] - [type [unit]] - [language [type]]]) + ["." code] + ["." poly (#+ poly:)]] + [type + ["." unit]] + [language + ["." type]]]) (def: tag (-> Nat Frac) |