diff options
| author | Eduardo Julian | 2018-07-20 23:43:59 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-07-20 23:43:59 -0400 |
| commit | b0914546f8e8ea5ef970c1f92dbb0072aa22be63 (patch) | |
| tree | f8ca4bf6bc4b3e8703ff1cb752a4e18b8973d3d5 /stdlib/source/lux/data/format/json.lux | |
| parent | 518a7467c4e0ef904afa8c59cff3594d6f63c552 (diff) | |
"^open" and "open:" now use aliases instead of prefixes, the same way as module aliases.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/data/format/json.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/lux/data/format/json.lux b/stdlib/source/lux/data/format/json.lux index 764beab83..79510cb5c 100644 --- a/stdlib/source/lux/data/format/json.lux +++ b/stdlib/source/lux/data/format/json.lux @@ -6,19 +6,19 @@ ["." monad (#+ do Monad)] [equivalence (#+ Equivalence)] codec - ["p" parser ("parser/" Monad<Parser>)]] + ["p" parser ("parser/." Monad<Parser>)]] [data ["." bit] ["." maybe] ["e" error] ["." sum] ["." product] - ["." number ("frac/" Codec<Text,Frac>) ("nat/" Codec<Text,Nat>)] - ["." text ("text/" Equivalence<Text> Monoid<Text>) + ["." number ("frac/." Codec<Text,Frac>) ("nat/." Codec<Text,Nat>)] + ["." text ("text/." Equivalence<Text> Monoid<Text>) ["l" lexer]] [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>)] ["dict" dictionary (#+ Dictionary)]]] ["." macro (#+ Monad<Meta> with-gensyms) ["s" syntax (#+ syntax:)] @@ -61,7 +61,7 @@ (json ["this" "is" "an" "array"]) (json {"this" "is" "an" "object"}))} - (let [(^open) Monad<Meta> + (let [(^open ".") Monad<Meta> wrapper (function (_ x) (` (..json (~ x))))] (case token (^template [<ast-tag> <ctor> <json-tag>] |