aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex/input.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/test/aedifex/input.lux')
-rw-r--r--stdlib/source/test/aedifex/input.lux10
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux
index cec84de94..a2f7d77a7 100644
--- a/stdlib/source/test/aedifex/input.lux
+++ b/stdlib/source/test/aedifex/input.lux
@@ -45,20 +45,20 @@
Test
(<| (_.covering /._)
(do [! random.monad]
- [expected (\ ! each (with@ //.#parents (list)) $profile.random)
+ [expected (# ! each (with@ //.#parents (list)) $profile.random)
.let [fs (: (file.System Async)
- (file.mock (\ file.default separator)))]]
+ (file.mock (# file.default separator)))]]
(in (do async.monad
[verdict (do //action.monad
[.let [profile (|> expected
(//project.project //.default)
//format.project
%.code
- (\ utf8.codec encoded))]
- _ (\ fs write profile //project.file)
+ (# utf8.codec encoded))]
+ _ (# fs write profile //project.file)
actual (: (Async (Try Profile))
(/.read async.monad fs (list //.default)))]
- (in (\ //.equivalence =
+ (in (# //.equivalence =
(|> expected
(revised@ //.#sources ..with_default_source)
(revised@ //.#repositories ..with_default_repository))