diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/tool/compiler/meta/archive/artifact.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/lux/tool/compiler/meta/archive/artifact.lux b/stdlib/source/lux/tool/compiler/meta/archive/artifact.lux index 1619794d1..f34f72acd 100644 --- a/stdlib/source/lux/tool/compiler/meta/archive/artifact.lux +++ b/stdlib/source/lux/tool/compiler/meta/archive/artifact.lux @@ -124,15 +124,15 @@ (def: #export parser (Parser Registry) (let [category (: (Parser Category) - (do {@ <>.monad} + (do {! <>.monad} [tag <b>.nat] (case tag - 0 (:: @ map (|>> #Anonymous) <b>.any) - 1 (:: @ map (|>> #Definition) <b>.text) - 2 (:: @ map (|>> #Analyser) <b>.text) - 3 (:: @ map (|>> #Synthesizer) <b>.text) - 4 (:: @ map (|>> #Generator) <b>.text) - 5 (:: @ map (|>> #Directive) <b>.text) + 0 (:: ! map (|>> #Anonymous) <b>.any) + 1 (:: ! map (|>> #Definition) <b>.text) + 2 (:: ! map (|>> #Analyser) <b>.text) + 3 (:: ! map (|>> #Synthesizer) <b>.text) + 4 (:: ! map (|>> #Generator) <b>.text) + 5 (:: ! map (|>> #Directive) <b>.text) _ (<>.fail (exception.construct ..invalid-category [tag])))))] (|> (<b>.row/64 category) (:: <>.monad map (row@fold (function (_ artifact registry) |