diff options
| author | Eduardo Julian | 2020-10-31 20:26:37 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-10-31 20:26:37 -0400 |
| commit | 69272f598d831e89da83bdc8c9290d5607dfb14d (patch) | |
| tree | 4915f241708344209d4c35ccdc8b8e57bab68e4c /stdlib/source/lux/tool/compiler/meta/archive | |
| parent | eea741e9b4a47ae09832311d6d61f0bd6024f673 (diff) | |
Re-named the directory for my bookmarks to better reflect what they are.
Diffstat (limited to 'stdlib/source/lux/tool/compiler/meta/archive')
| -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) |