diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index 5e71b0741..c29ef5160 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -57,7 +57,7 @@ ... ["[0]" interpreter] ]]]) -(def: (or_crash! failure_description action) +(def (or_crash! failure_description action) (All (_ a) (-> Text (Async (Try a)) (Async a))) (do [! async.monad] @@ -83,7 +83,7 @@ {try.#Success output} (in output)))) -(def: (timed process) +(def (timed process) (All (_ a) (-> (Async (Try a)) (Async (Try a)))) (do async.monad @@ -95,7 +95,7 @@ (format "Duration: ")))]] (in output))) -(def: (package! fs host_dependencies [packager package] archive context) +(def (package! fs host_dependencies [packager package] archive context) (-> (file.System Async) (Dictionary file.Path Binary) [Packager file.Path] Archive (Maybe unit.ID) (Async (Try Any))) (case (packager host_dependencies archive context) {try.#Success content} @@ -114,7 +114,7 @@ {try.#Failure error} (at async.monad in {try.#Failure error}))) -(def: (load_host_dependencies fs host_dependencies) +(def (load_host_dependencies fs host_dependencies) (-> (file.System Async) (List file.Path) (Async (Try (Dictionary file.Path Binary)))) (do [! (try.with async.monad)] [] @@ -132,7 +132,7 @@ (dictionary.has head content output))))))) (with_expansions [<parameters> (these anchor expression artifact)] - (def: .public (compiler lux_compiler file_context + (def .public (compiler lux_compiler file_context expander host_analysis platform generation_bundle host_directive_bundle program anchorT,expressionT,directiveT extender service packager,package) |