aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/command/build.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/aedifex/command/build.lux')
-rw-r--r--stdlib/source/program/aedifex/command/build.lux18
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index ff7825678..00380e59b 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -115,7 +115,7 @@
artifact (get@ #///dependency.artifact dependency)]
(|> artifact
(///local.uri (get@ #///artifact.version artifact))
- (text.replace_all uri.separator /)
+ (text.replaced uri.separator /)
(format home /)
(text.suffix (format "." (get@ #///dependency.type dependency))))))
@@ -193,29 +193,29 @@
(template [<name> <capability>]
[(def: .public (<name> console process)
(-> (Console Async) (Process Async) (Async (Try Any)))
- ## This is a very odd way of implementing this function.
- ## But it's written this way because the more straightforward way (i.e. by using (try.with async.monad))
- ## eventually led to the function hanging/freezing.
- ## I'm not sure why it happened, but I got this weirder implementation to work.
+ ... This is a very odd way of implementing this function.
+ ... But it's written this way because the more straightforward way (i.e. by using (try.with async.monad))
+ ... eventually led to the function hanging/freezing.
+ ... I'm not sure why it happened, but I got this weirder implementation to work.
(let [[read! write!] (: [(Async (Try Any))
(async.Resolver (Try Any))]
(async.async []))
_ (|> (\ process <capability> [])
- (async.await (function (recur ?line)
+ (async.upon! (function (recur ?line)
(case ?line
(#try.Failure error)
(if (exception.match? shell.no_more_output error)
(write! (#try.Success []))
- (async.await write! (console.write_line error console)))
+ (async.upon! write! (console.write_line error console)))
(#try.Success line)
- (async.await (function (_ outcome)
+ (async.upon! (function (_ outcome)
(case outcome
(#try.Failure error)
(write! (#try.Failure error))
(#try.Success _)
- (async.await recur
+ (async.upon! recur
(\ process <capability> []))))
(console.write_line line console)))))
io.run)]