aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex/command/pom.lux
diff options
context:
space:
mode:
authorEduardo Julian2020-11-02 17:31:39 -0400
committerEduardo Julian2020-11-02 17:31:39 -0400
commit03b1085924b225d34d3b11f1a442b0b5d926c417 (patch)
treee50b2d0947bf7aa53d2ea8321693e4c0a21836ac /stdlib/source/test/aedifex/command/pom.lux
parent3e67e244ad1f58a7bab0094967a86be72aae2482 (diff)
Allow defining anonymous actors.
Diffstat (limited to 'stdlib/source/test/aedifex/command/pom.lux')
-rw-r--r--stdlib/source/test/aedifex/command/pom.lux6
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/test/aedifex/command/pom.lux b/stdlib/source/test/aedifex/command/pom.lux
index cd0eed8e9..c973678cc 100644
--- a/stdlib/source/test/aedifex/command/pom.lux
+++ b/stdlib/source/test/aedifex/command/pom.lux
@@ -34,15 +34,15 @@
(do random.monad
[sample @profile.random
#let [fs (file.mock (:: file.default separator))]]
- (wrap (do {@ promise.monad}
+ (wrap (do {! promise.monad}
[outcome (/.do! fs sample)]
(case outcome
(#try.Success path)
- (do @
+ (do !
[verdict (do ///action.monad
[expected (|> (///pom.write sample)
(try@map (|>> (:: xml.codec encode) encoding.to-utf8))
- (:: @ wrap))
+ (:: ! wrap))
file (: (Promise (Try (File Promise)))
(file.get-file promise.monad fs path))
actual (!.use (:: file content) [])