aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex/dependency
diff options
context:
space:
mode:
authorEduardo Julian2021-08-09 23:02:01 -0400
committerEduardo Julian2021-08-09 23:02:01 -0400
commit464b6e8f5e6c62f58fa8c7ff61ab2ad215e98bd1 (patch)
tree1ae9d95956cee4251cd29a3e24c246c4360d567d /stdlib/source/test/aedifex/dependency
parentf621a133e6e0a516c0586270fea8eaffb4829d82 (diff)
Improved single-line comment syntax (from "##" to "...").
Diffstat (limited to 'stdlib/source/test/aedifex/dependency')
-rw-r--r--stdlib/source/test/aedifex/dependency/deployment.lux6
-rw-r--r--stdlib/source/test/aedifex/dependency/resolution.lux6
2 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index ec2ecad3d..0add3a487 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -69,7 +69,7 @@
[_ (: (IO Any)
(case [method input]
[#@http.Put (#.Some input)]
- (atom.update (dictionary.put url input) cache)
+ (atom.update! (dictionary.put url input) cache)
_
(in [])))]
@@ -158,7 +158,7 @@
repository (repository.async (remote.repository http #.None address))]]
(in (do async.monad
[?outcome (/.one repository dependency package)
- cache (async.future (atom.read cache))]
+ cache (async.future (atom.read! cache))]
(_.cover' [/.one]
(|> ?outcome
(try\map (verify_one 1 address package cache expected_artifact))
@@ -181,7 +181,7 @@
repository (repository.async (remote.repository http #.None address))]]
(in (do async.monad
[?outcome (/.all repository resolution)
- cache (async.future (atom.read cache))]
+ cache (async.future (atom.read! cache))]
(_.cover' [/.all]
(|> ?outcome
(try\map (function (_ actual_artifacts)
diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux
index 01b57eb62..4bef34eff 100644
--- a/stdlib/source/test/aedifex/dependency/resolution.lux
+++ b/stdlib/source/test/aedifex/dependency/resolution.lux
@@ -132,7 +132,7 @@
(text.ends_with? ..pom_md5 uri)
(#try.Success [state (..md5 pom)])
- ## else
+ ... else
(#try.Failure "NOPE")))
(#try.Failure "NOPE")))
(def: (on_upload uri binary state)
@@ -185,7 +185,7 @@
(\ utf8.codec encode)
..md5)])
- ## else
+ ... else
(#try.Failure "NOPE"))
(#try.Failure "NOPE")))
(def: (on_upload uri binary state)
@@ -238,7 +238,7 @@
(\ utf8.codec encode)
..md5)])
- ## else
+ ... else
(#try.Failure "NOPE"))
(#try.Failure "NOPE")))
(def: (on_upload uri binary state)