From 36303d6cb2ce3ab9e36d045b9516c997bd461862 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 24 Aug 2021 05:23:45 -0400
Subject: Outsourced the syntax for labelled type definitions to macros.

---
 stdlib/source/test/aedifex/repository/remote.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'stdlib/source/test/aedifex/repository/remote.lux')

diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux
index 96d62ef6f..3013d8889 100644
--- a/stdlib/source/test/aedifex/repository/remote.lux
+++ b/stdlib/source/test/aedifex/repository/remote.lux
@@ -48,7 +48,7 @@
            #try.Success
            (if (|> headers
                    (dictionary.value "User-Agent")
-                   (maybe\map (same? /.user_agent))
+                   (maybe\each (same? /.user_agent))
                    (maybe.else false))
              (case [method input]
                [#@http.Get #.None]
@@ -59,7 +59,7 @@
                [#@http.Put (#.Some input)]
                (if (|> headers
                        (dictionary.value "Authorization")
-                       (maybe\map (text\= (//identity.basic_auth user password)))
+                       (maybe\each (text\= (//identity.basic_auth user password)))
                        (maybe.else false))
                  [http/status.created
                   {#@http.headers (http.headers (list))
@@ -90,7 +90,7 @@
          user (random.ascii/lower 10)
          password (random.ascii/lower 10)
 
-         content (\ ! map (\ utf8.codec encoded)
+         content (\ ! each (\ utf8.codec encoded)
                     (random.ascii/lower 10))]
         ($_ _.and
             (_.cover [/.repository /.user_agent /.Address]
@@ -100,13 +100,13 @@
                                               address)]
                        (and (|> (\ repo download uri)
                                 io.run!
-                                (try\map (\ utf8.codec decoded))
-                                try\join
-                                (try\map (text\= (format address uri)))
+                                (try\each (\ utf8.codec decoded))
+                                try\conjoint
+                                (try\each (text\= (format address uri)))
                                 (try.else false))
                             (|> (\ repo upload uri content)
                                 io.run!
-                                (try\map (function.constant true))
+                                (try\each (function.constant true))
                                 (try.else false)))))
             (_.cover [/.upload_failure]
                      (let [repo (/.repository (..good_http user password)
-- 
cgit v1.2.3