diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux/tool/compiler/language/lux/generation.lux | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux b/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux index 7342e46ed..b561975c1 100644 --- a/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux +++ b/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux @@ -32,11 +32,12 @@ [meta ["[0]" archive {"+" Archive} ["[0]" descriptor] + ["[0]" module] ["[0]" artifact] ["[0]" registry {"+" Registry}]]]]]) (type: .public Context - [archive.ID artifact.ID]) + [module.ID artifact.ID]) (type: .public (Buffer directive) (Sequence [artifact.ID (Maybe Text) directive])) @@ -283,7 +284,7 @@ registry (if (text#= (value@ #module state) _module) {try.#Success (value@ #registry state)} (do try.monad - [[descriptor document output registry] (archive.find _module archive)] + [[_module output registry] (archive.find _module archive)] {try.#Success registry}))] (case (registry.id _name registry) {.#None} @@ -296,7 +297,7 @@ (def: .public (module_id module archive) (All (_ anchor expression directive) - (-> descriptor.Module Archive (Operation anchor expression directive archive.ID))) + (-> descriptor.Module Archive (Operation anchor expression directive module.ID))) (function (_ (^@ stateE [bundle state])) (do try.monad [module_id (archive.id module archive)] |