diff options
| author | Eduardo Julian | 2020-05-05 00:47:58 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-05-05 00:47:58 -0400 |
| commit | 724372e2b023bccbb93e1fa40e3c92ed2ee7e36c (patch) | |
| tree | b15130eb6e8fea2f4d1586085524517d92af0b4b /stdlib/source/lux/tool/compiler/meta/archive | |
| parent | a419ec66895e07fbb54ecc59f92e154126a10ac5 (diff) | |
Fixed bugs while parsing modules' cached data.
Diffstat (limited to 'stdlib/source/lux/tool/compiler/meta/archive')
| -rw-r--r-- | stdlib/source/lux/tool/compiler/meta/archive/artifact.lux | 29 |
1 files changed, 14 insertions, 15 deletions
diff --git a/stdlib/source/lux/tool/compiler/meta/archive/artifact.lux b/stdlib/source/lux/tool/compiler/meta/archive/artifact.lux index 7f3e1654d..28f01bbcb 100644 --- a/stdlib/source/lux/tool/compiler/meta/archive/artifact.lux +++ b/stdlib/source/lux/tool/compiler/meta/archive/artifact.lux @@ -9,8 +9,8 @@ ["." product] ["." text] [collection - ["." list ("#@." functor fold)] - ["." row (#+ Row)] + ["." list] + ["." row (#+ Row) ("#@." functor fold)] ["." dictionary (#+ Dictionary)]] [format ["." binary (#+ Writer)]]] @@ -75,23 +75,22 @@ (def: #export writer (Writer Registry) - (let [writer|artifacts (binary.list (binary.maybe binary.text))] + (let [writer|artifacts (binary.row/64 (binary.maybe binary.text))] (|>> :representation (get@ #artifacts) - row.to-list - (list@map (get@ #name)) + (row@map (get@ #name)) writer|artifacts))) (def: #export parser (Parser Registry) - (|> (<b>.list (<b>.maybe <b>.text)) - (:: <>.monad map (list@fold (function (_ artifact registry) - (product.right - (case artifact - #.None - (..resource registry) - - (#.Some name) - (..definition name registry)))) - ..empty)))) + (|> (<b>.row/64 (<b>.maybe <b>.text)) + (:: <>.monad map (row@fold (function (_ artifact registry) + (product.right + (case artifact + #.None + (..resource registry) + + (#.Some name) + (..definition name registry)))) + ..empty)))) ) |