aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux')
-rw-r--r--stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux14
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux
index 0937615cc..cc5938094 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux
@@ -44,7 +44,7 @@
[language
["$" lux]]]]])
-(def: (bundle_module module module_id necessary_dependencies output)
+(def (bundle_module module module_id necessary_dependencies output)
(-> descriptor.Module module.ID (Set unit.ID) Output (Try (Maybe _.Statement)))
(do [! try.monad]
[]
@@ -73,11 +73,11 @@
artifacts)]
(in {.#Some bundle})))))
-(def: module_file
+(def module_file
(-> module.ID file.Path)
(|>> %.nat (text.suffix ".rb")))
-(def: (write_module mapping necessary_dependencies [module [module_id entry]] sink)
+(def (write_module mapping necessary_dependencies [module [module_id entry]] sink)
(-> (Dictionary descriptor.Module module.ID) (Set unit.ID)
[descriptor.Module [module.ID (archive.Entry .Module)]]
(List [module.ID [Text Binary]])
@@ -98,21 +98,21 @@
(in (list.partial [module_id [(..module_file module_id) entry_content]]
sink))))))
-(def: .public main_file
+(def .public main_file
"main.rb")
-(def: module_id_mapping
+(def module_id_mapping
(-> (Order .Module) (Dictionary descriptor.Module module.ID))
(|>> (list#each (function (_ [module [module_id entry]])
[module module_id]))
(dictionary.of_list text.hash)))
-(def: included_modules
+(def included_modules
(All (_ a) (-> (List [module.ID a]) (Set module.ID)))
(|>> (list#each product.left)
(list#mix set.has (set.empty nat.hash))))
-(def: .public (package host_dependencies archive program)
+(def .public (package host_dependencies archive program)
Packager
(do [! try.monad]
[.let [necessary_dependencies (cache/artifact.necessary_dependencies archive)]