diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/target/jvm/modifier.lux | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/stdlib/source/lux/target/jvm/modifier.lux b/stdlib/source/lux/target/jvm/modifier.lux index 0e354d730..a84ba38bc 100644 --- a/stdlib/source/lux/target/jvm/modifier.lux +++ b/stdlib/source/lux/target/jvm/modifier.lux @@ -5,12 +5,13 @@ ["." monoid (#+ Monoid)]] [control ["<>" parser - ["<c>" code (#+ Parser)]]] + ["<c>" code] + ["<2>" binary (#+ Parser)]]] [data ["." number (#+ hex) ["." i64]] [format - [".F" binary (#+ Format)]] + [".F" binary (#+ Writer)]] [collection ["." list ("#@." functor)]]] [type @@ -64,11 +65,13 @@ Modifier (:: ..monoid identity)) - (def: #export format - (All [of] (Format (Modifier of))) - (let [(^open "_@.") //unsigned.u2-format] - {#binaryF.reader (:: <>.functor map (|>> :abstraction) _@reader) - #binaryF.writer (|>> :representation _@writer)})) + (def: #export parser + (All [of] (Parser (Modifier of))) + (:: <>.functor map (|>> :abstraction) //unsigned.u2-parser)) + + (def: #export writer + (All [of] (Writer (Modifier of))) + (|>> :representation //unsigned.u2-writer)) ) (syntax: #export (modifiers: ofT {options (<>.many <c>.any)}) |