aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/compositor.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/compositor.lux')
-rw-r--r--stdlib/source/program/compositor.lux16
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)))
))))