From 464b6e8f5e6c62f58fa8c7ff61ab2ad215e98bd1 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 9 Aug 2021 23:02:01 -0400
Subject: Improved single-line comment syntax (from "##" to "...").

---
 stdlib/source/test/aedifex/dependency/deployment.lux | 6 +++---
 stdlib/source/test/aedifex/dependency/resolution.lux | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

(limited to 'stdlib/source/test/aedifex/dependency')

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)
-- 
cgit v1.2.3