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/command/auto.lux    | 2 +-
 stdlib/source/test/aedifex/command/deploy.lux  | 4 ++--
 stdlib/source/test/aedifex/command/install.lux | 2 +-
 stdlib/source/test/aedifex/command/version.lux | 2 +-
 4 files changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index 074eeab5e..934810e0c 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -98,7 +98,7 @@
             (in (do async.monad
                   [verdict (do ///action.monad
                              [_ (\ fs make_directory source)
-                              _ (\ fs write (binary.create 0) dummy_path)
+                              _ (\ fs write (binary.empty 0) dummy_path)
                               .let [[@runs command] (..command expected_runs end_signal fs dummy_path)]
                               _ (\ watcher poll [])]
                              (do {! async.monad}
diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux
index 4bdbafd59..4d11234bd 100644
--- a/stdlib/source/test/aedifex/command/deploy.lux
+++ b/stdlib/source/test/aedifex/command/deploy.lux
@@ -5,13 +5,13 @@
     [abstract
      [monad (#+ do)]]
     [control
+     ["." maybe]
      ["." try (#+ Try)]
      [concurrency
       ["." async (#+ Async)]]
      [parser
       ["." environment]]]
     [data
-     ["." maybe]
      ["." binary ("#\." equivalence)]
      ["." text ("#\." equivalence)
       ["%" format (#+ format)]
@@ -84,7 +84,7 @@
                                                (get@ #///.sources)
                                                set.list
                                                (export.library fs)
-                                               (\ ! map (format.run tar.writer)))
+                                               (\ ! map (format.result tar.writer)))
 
                           actual_pom (\ repository download (///repository/remote.uri (get@ #///artifact.version artifact) artifact ///artifact/extension.pom))
                           actual_library (\ repository download (///repository/remote.uri (get@ #///artifact.version artifact) artifact ///artifact/extension.lux_library))
diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index a3cd99edd..86fe5ebea 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -50,7 +50,7 @@
                          [_ (: (Async (Try Any))
                                (file.make_directories async.monad fs head))]
                          (: (Async (Try Any))
-                            (file.make_file async.monad fs (binary.create 0) (format head / head ".lux")))))))))
+                            (file.make_file async.monad fs (binary.empty 0) (format head / head ".lux")))))))))
 
 (def: (execute! program fs sample)
   (-> (Program Async) (file.System Async) ///.Profile (Async (Try Text)))
diff --git a/stdlib/source/test/aedifex/command/version.lux b/stdlib/source/test/aedifex/command/version.lux
index f1c424289..0400cbc58 100644
--- a/stdlib/source/test/aedifex/command/version.lux
+++ b/stdlib/source/test/aedifex/command/version.lux
@@ -5,12 +5,12 @@
     [abstract
      [monad (#+ do)]]
     [control
+     ["." maybe]
      ["." try]
      ["." exception (#+ exception:)]
      [concurrency
       ["." async (#+ Async)]]]
     [data
-     ["." maybe]
      ["." text ("#\." equivalence)
       ["%" format (#+ format)]]]
     [math
-- 
cgit v1.2.3