diff options
author | Eduardo Julian | 2020-11-02 17:31:39 -0400 |
---|---|---|
committer | Eduardo Julian | 2020-11-02 17:31:39 -0400 |
commit | 03b1085924b225d34d3b11f1a442b0b5d926c417 (patch) | |
tree | e50b2d0947bf7aa53d2ea8321693e4c0a21836ac /stdlib/source/test/aedifex/command/pom.lux | |
parent | 3e67e244ad1f58a7bab0094967a86be72aae2482 (diff) |
Allow defining anonymous actors.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/aedifex/command/pom.lux | 6 |
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) []) |