diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/tool/compiler/meta/packager/script.lux | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/stdlib/source/lux/tool/compiler/meta/packager/script.lux b/stdlib/source/lux/tool/compiler/meta/packager/script.lux index 95026ae37..e8685ce2b 100644 --- a/stdlib/source/lux/tool/compiler/meta/packager/script.lux +++ b/stdlib/source/lux/tool/compiler/meta/packager/script.lux @@ -39,9 +39,9 @@ (type: (Action ! a) (! (Try a))) -(def: (write_module sequence [module artifacts output] so_far) +(def: (write_module sequence [module output] so_far) (All [directive] - (-> (-> directive directive directive) [archive.ID (List artifact.ID) Output] directive + (-> (-> directive directive directive) [archive.ID Output] directive (Try directive))) (|> output row.to_list @@ -73,12 +73,6 @@ [order (dependency.load_order $.key archive)] (|> order (list\map (function (_ [module [module_id [descriptor document output]]]) - [module_id - (|> descriptor - (get@ #descriptor.registry) - artifact.artifacts - row.to_list - (list\map (|>> (get@ #artifact.id)))) - output])) + [module_id output])) (monad.fold ! (..write_module sequence) header) (\ ! map (|>> scope to_code (\ encoding.utf8 encode))))))) |