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/program/aedifex/command/build.lux   | 5 ++---
 stdlib/source/program/aedifex/command/deploy.lux  | 2 +-
 stdlib/source/program/aedifex/command/deps.lux    | 8 ++++----
 stdlib/source/program/aedifex/command/install.lux | 2 +-
 4 files changed, 8 insertions(+), 9 deletions(-)

(limited to 'stdlib/source/program/aedifex/command')

diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index 00380e59b..58df179e2 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -13,7 +13,6 @@
       ["." async (#+ Async) ("#\." monad)]]]
     [data
      ["." product]
-     ["." maybe]
      ["." text ("#\." order)
       ["%" format (#+ format)]]
      [collection
@@ -218,7 +217,7 @@
                                                    (async.upon! recur
                                                                 (\ process <capability> []))))
                                                (console.write_line line console)))))
-                 io.run)]
+                 io.run!)]
        read!))]
 
   [log_output! read]
@@ -232,7 +231,7 @@
 (def: windows?
   Bit
   (|> (java/lang/System::getProperty "os.name")
-      io.run
+      io.run!
       (try.else "")
       text.lower_cased
       (text.starts_with? "windows")))
diff --git a/stdlib/source/program/aedifex/command/deploy.lux b/stdlib/source/program/aedifex/command/deploy.lux
index 2ff5ca8fb..cbddc9b27 100644
--- a/stdlib/source/program/aedifex/command/deploy.lux
+++ b/stdlib/source/program/aedifex/command/deploy.lux
@@ -63,7 +63,7 @@
                  (get@ #/.sources)
                  set.list
                  (export.library fs)
-                 (\ ! map (binary.run tar.writer)))
+                 (\ ! map (binary.result tar.writer)))
      pom (\ async.monad in (///pom.write profile))
      _ (///dependency/deployment.one
         repository
diff --git a/stdlib/source/program/aedifex/command/deps.lux b/stdlib/source/program/aedifex/command/deps.lux
index 9dbabbfca..185bd6229 100644
--- a/stdlib/source/program/aedifex/command/deps.lux
+++ b/stdlib/source/program/aedifex/command/deps.lux
@@ -59,19 +59,19 @@
                   (///dependency/deployment.all local))
        _ (console.write_line (exception.report
                               ["Local successes" (|> local_successes
-                                                     (list.sort (\ ///dependency.order <))
+                                                     (list.sorted (\ ///dependency.order <))
                                                      (exception.listing ..format))]
                               ["Local failures" (|> local_failures
-                                                    (list.sort (\ ///dependency.order <))
+                                                    (list.sorted (\ ///dependency.order <))
                                                     (exception.listing ..format))]
                               ["Remote successes" (|> remote_successes
                                                       (set.of_list ///dependency.hash)
                                                       (set.difference (set.of_list ///dependency.hash local_successes))
                                                       set.list
-                                                      (list.sort (\ ///dependency.order <))
+                                                      (list.sorted (\ ///dependency.order <))
                                                       (exception.listing ..format))]
                               ["Remote failures" (|> remote_failures
-                                                     (list.sort (\ ///dependency.order <))
+                                                     (list.sorted (\ ///dependency.order <))
                                                      (exception.listing ..format))])
                              console)]
       (in resolution))))
diff --git a/stdlib/source/program/aedifex/command/install.lux b/stdlib/source/program/aedifex/command/install.lux
index c86400b6a..9b06daaec 100644
--- a/stdlib/source/program/aedifex/command/install.lux
+++ b/stdlib/source/program/aedifex/command/install.lux
@@ -67,7 +67,7 @@
                                                           (\ xml.codec encode)
                                                           (\ utf8.codec encode))]
                                          {#///package.origin (#///origin.Local "")
-                                          #///package.library (let [library (binary.run tar.writer package)]
+                                          #///package.library (let [library (binary.result tar.writer package)]
                                                                 [library (///dependency/status.verified library)])
                                           #///package.pom [pom
                                                            pom_data
-- 
cgit v1.2.3