From 9e2f1e76f2c8df01ed7687d934c3210fcf676bd6 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Thu, 16 Jun 2022 00:48:19 -0400 Subject: De-sigil-ification: suffix : [Part 13] --- stdlib/source/program/compositor.lux | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'stdlib/source/program/compositor.lux') 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 [ (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) -- cgit v1.2.3