diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index 2788783cc..63325ff0b 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -1,6 +1,7 @@ (.module: [lux (#- Module) [type (#+ :share)] + ["." debug] ["@" target (#+ Host)] [abstract [monad (#+ Monad do)]] @@ -62,9 +63,9 @@ [?output action] (case ?output (#try.Failure error) - (exec (log! (format text.new_line - failure_description text.new_line - error text.new_line)) + (exec (debug.log! (format text.new_line + failure_description text.new_line + error text.new_line)) (io.run (\ world/program.default exit +1))) (#try.Success output) @@ -141,14 +142,14 @@ _ (ioW.freeze (get@ #platform.&file_system platform) static archive) program_context (promise\wrap ($/program.context archive)) _ (promise.future (..package! io.monad file.default packager,package static archive program_context))] - (wrap (log! "Compilation complete!")))) + (wrap (debug.log! "Compilation complete!")))) (#/cli.Export export) (<| (or_crash! "Export failed:") (do (try.with promise.monad) [_ (/export.export (get@ #platform.&file_system platform) export)] - (wrap (log! "Export complete!")))) + (wrap (debug.log! "Export complete!")))) (#/cli.Interpretation interpretation) ## TODO: Fix the interpreter... |