diff options
Diffstat (limited to 'stdlib/source/program/compositor.lux')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index 225d01362..bd5c10c66 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -82,12 +82,12 @@ monad} {(! (Try (File !))) (:assume (file.get-file monad file-system package))})] - (!.use (:: (:share [!] - {(Monad !) - monad} - {(File !) - (:assume package)}) - over-write) + (!.use (\ (:share [!] + {(Monad !) + monad} + {(File !) + (:assume package)}) + over-write) [content]))} ## TODO: Fix whatever type-checker bug is forcing me into this compromise... (:assume @@ -99,7 +99,7 @@ [content (packager monad file-system static archive context) package (: (Promise (Try (File Promise))) (file.get-file monad file-system package))] - (!.use (:: (: (File Promise) package) over-write) [content]))))))) + (!.use (\ (: (File Promise) package) over-write) [content]))))))) (with-expansions [<parameters> (as-is anchor expression artifact)] (def: #export (compiler static @@ -158,6 +158,6 @@ ## (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))) )))) |