From a62ce3f9c2b605e0033f4772b0f64c4525de4d86 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 11 Aug 2021 02:38:59 -0400
Subject: Relocated maybe and lazy from data to control.

---
 stdlib/source/test/aedifex/repository/remote.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 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 0ff764bdd..8cca4aee8 100644
--- a/stdlib/source/test/aedifex/repository/remote.lux
+++ b/stdlib/source/test/aedifex/repository/remote.lux
@@ -6,12 +6,12 @@
      [monad (#+ do)]]
     [control
      ["." io (#+ IO)]
+     ["." maybe ("#\." functor)]
      ["." try ("#\." monad)]
      ["." exception]
      ["." function]]
     [data
      ["." binary ("#\." equivalence)]
-     ["." maybe ("#\." functor)]
      ["." text ("#\." equivalence)
       ["%" format (#+ format)]
       [encoding
@@ -99,20 +99,20 @@
                                                        #//identity.password password})
                                               address)]
                        (and (|> (\ repo download uri)
-                                io.run
+                                io.run!
                                 (try\map (\ utf8.codec decode))
                                 try\join
                                 (try\map (text\= (format address uri)))
                                 (try.else false))
                             (|> (\ repo upload uri content)
-                                io.run
+                                io.run!
                                 (try\map (function.constant true))
                                 (try.else false)))))
             (_.cover [/.upload_failure]
                      (let [repo (/.repository (..good_http user password)
                                               #.None
                                               address)]
-                       (case (io.run (\ repo upload uri content))
+                       (case (io.run! (\ repo upload uri content))
                          (#try.Failure error)
                          (exception.match? /.upload_failure error)
                          
@@ -122,7 +122,7 @@
                      (let [repo (/.repository ..bad_http
                                               #.None
                                               address)]
-                       (case (io.run (\ repo download uri))
+                       (case (io.run! (\ repo download uri))
                          (#try.Failure error)
                          (exception.match? /.download_failure error)
                          
-- 
cgit v1.2.3