diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/compiler/default.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/compiler/default.lux b/stdlib/source/lux/compiler/default.lux index e799f0496..efba96e05 100644 --- a/stdlib/source/lux/compiler/default.lux +++ b/stdlib/source/lux/compiler/default.lux @@ -60,11 +60,11 @@ (set@ #.cursor cursor))] output]))))) -## ## (def: (write-module target-dir file-name module-name module artifacts) -## ## (-> File Text Text Module Artifacts (Process Any)) +## ## (def: (write-module target-dir file-name module-name module outputs) +## ## (-> File Text Text Module Outputs (Process Any)) ## ## (do io.Monad<Process> ## ## [_ (monad.map @ (product.uncurry (&io.write target-dir)) -## ## (dictionary.entries artifacts))] +## ## (dictionary.entries outputs))] ## ## (&io.write target-dir ## ## (format module-name "/" cache.descriptor-name) ## ## (encoding.to-utf8 (%code (cache/description.write file-name module)))))) @@ -87,7 +87,7 @@ (do phase.Monad<Operation> [_ (module.create (text/hash (get@ #//.code source)) module-name) _ (analysis.set-current-module module-name)] - (analysis.set-source-code (init.source (get@ #//.name source) (get@ #//.code source)))))) + (analysis.set-source-code (init.source (get@ #//.module source) (get@ #//.code source)))))) (def: end-module-compilation (All [anchor expression statement] @@ -136,7 +136,7 @@ (get@ #cli.sources configuration) (get@ #cli.module configuration)) ## _ (&io.prepare-module target-dir (get@ #cli.module configuration)) - ## _ (write-module target-dir file-name (get@ #cli.module configuration) module artifacts) + ## _ (write-module target-dir file-name (get@ #cli.module configuration) module outputs) ] (<| (:: @ map product.left) (:: (get@ #file-system platform) lift) |