From 62b3abfcc014ca1c19d62aacdd497f6a250b372c Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 25 Jul 2021 03:12:17 -0400
Subject: Better syntax for "library/lux.^multi".

---
 stdlib/source/test/aedifex/command/auto.lux    |  4 ++--
 stdlib/source/test/aedifex/command/deps.lux    | 14 +++++++-------
 stdlib/source/test/aedifex/command/version.lux |  4 ++--
 3 files changed, 11 insertions(+), 11 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 a7ea2795b..474a8dd1f 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -59,7 +59,7 @@
            (do (try.with !)
              [_ (\ fs write (\ utf8.codec encode (%.nat actual_runs)) dummy_file)
               _ (\ fs modify
-                   (|> actual_runs .int instant.from_millis)
+                   (|> actual_runs .int instant.of_millis)
                    dummy_file)]
              (wrap [shell.normal []])))))]))
 
@@ -84,7 +84,7 @@
                profile (|> empty_profile
                            with_program
                            with_target
-                           (set@ #///.sources (set.from_list text.hash (list source))))]
+                           (set@ #///.sources (set.of_list text.hash (list source))))]
 
          home (random.ascii/alpha 5)
          working_directory (random.ascii/alpha 5)
diff --git a/stdlib/source/test/aedifex/command/deps.lux b/stdlib/source/test/aedifex/command/deps.lux
index 738cd5090..40645b731 100644
--- a/stdlib/source/test/aedifex/command/deps.lux
+++ b/stdlib/source/test/aedifex/command/deps.lux
@@ -60,9 +60,9 @@
          working_directory (random.ascii/alpha 5)
 
          dependee_artifact $///artifact.random
-         depender_artifact (random.filter (predicate.complement
-                                           (\ ///artifact.equivalence = dependee_artifact))
-                                          $///artifact.random)
+         depender_artifact (random.only (predicate.complement
+                                         (\ ///artifact.equivalence = dependee_artifact))
+                                        $///artifact.random)
 
          [_ dependee_package] $///package.random
          [_ depender_package] $///package.random
@@ -75,12 +75,12 @@
                dependee_pom (|> (\ ///.monoid identity)
                                 (set@ #///.identity (#.Some dependee_artifact))
                                 ///pom.write
-                                try.assume)
+                                try.assumed)
                depender_pom (|> (\ ///.monoid identity)
                                 (set@ #///.identity (#.Some depender_artifact))
-                                (set@ #///.dependencies (set.from_list ///dependency.hash (list dependee)))
+                                (set@ #///.dependencies (set.of_list ///dependency.hash (list dependee)))
                                 ///pom.write
-                                try.assume)
+                                try.assumed)
                
                dependee_package (|> dependee_package
                                     (set@ #///package.origin (#///repository/origin.Remote ""))
@@ -103,7 +103,7 @@
                                     (dictionary.put dependee dependee_package)
                                     (///dependency/deployment.all local))
                             post (|> (\ ///.monoid identity)
-                                     (set@ #///.dependencies (set.from_list ///dependency.hash (list dependee depender)))
+                                     (set@ #///.dependencies (set.of_list ///dependency.hash (list dependee depender)))
                                      (/.do! console local
                                             (list (///repository.mock ($///dependency/resolution.single depender_artifact depender_package)
                                                                       []))
diff --git a/stdlib/source/test/aedifex/command/version.lux b/stdlib/source/test/aedifex/command/version.lux
index 4a8ccc1be..d0d172a7a 100644
--- a/stdlib/source/test/aedifex/command/version.lux
+++ b/stdlib/source/test/aedifex/command/version.lux
@@ -35,7 +35,7 @@
 
   (def: (on_read [open? state])
     (if open?
-      (try.from_maybe
+      (try.of_maybe
        (do maybe.monad
          [head (text.nth 0 state)
           [_ tail] (text.split 1 state)]
@@ -43,7 +43,7 @@
       (exception.throw ..console_is_closed! [])))
   (def: (on_read_line [open? state])
     (if open?
-      (try.from_maybe
+      (try.of_maybe
        (do maybe.monad
          [[output state] (text.split_with text.new_line state)]
          (wrap [[open? state] output])))
-- 
cgit v1.2.3