diff options
| author | Eduardo Julian | 2020-10-31 02:59:48 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-10-31 02:59:48 -0400 |
| commit | eea741e9b4a47ae09832311d6d61f0bd6024f673 (patch) | |
| tree | 9d503f609c322c235811856ffa05232991b9c653 /stdlib/source/program/compositor | |
| parent | cb8f2b36352948108446c7e3b270faa97589bf7a (diff) | |
Easy to use Rev constants.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 6 | ||||
| -rw-r--r-- | stdlib/source/program/compositor/import.lux | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index 3bc870f9b..e7884bf70 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -120,7 +120,7 @@ Service [Packager Path] (Promise Any))) - (do {@ promise.monad} + (do {! promise.monad} [platform (promise.future platform)] (case service (#/cli.Compilation compilation) @@ -156,9 +156,9 @@ ## TODO: Fix the interpreter... (undefined) ## (<| (or-crash! "Interpretation failed:") - ## (do {@ promise.monad} + ## (do {! promise.monad} ## [console (|> console.default ## promise.future - ## (:: @ map (|>> try.assume console.async)))] + ## (:: ! map (|>> try.assume console.async)))] ## (interpreter.run (try.with promise.monad) console platform interpretation generation-bundle))) )))) diff --git a/stdlib/source/program/compositor/import.lux b/stdlib/source/program/compositor/import.lux index 2e53e0976..d69915cbb 100644 --- a/stdlib/source/program/compositor/import.lux +++ b/stdlib/source/program/compositor/import.lux @@ -39,9 +39,9 @@ (!.use (:: system file) [library])) binary (!.use (:: library content) [])] (promise@wrap - (do {@ try.monad} + (do {! try.monad} [tar (<b>.run tar.parser binary)] - (monad.fold @ (function (_ entry import) + (monad.fold ! (function (_ entry import) (case entry (#tar.Normal [path instant mode ownership content]) (dictionary.try-put (tar.from-path path) |