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 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/test/aedifex/dependency/deployment.lux')

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