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/program/aedifex/command/build.lux | 14 +++++++-------
 stdlib/source/program/aedifex/command/deps.lux  |  4 ++--
 2 files changed, 9 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 17301333a..52804be43 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -84,8 +84,8 @@
 (def: (remove_dependency dependency)
   (-> Dependency (-> Resolution Resolution))
   (|>> dictionary.entries
-       (list.filter (|>> product.left (is? dependency) not))
-       (dictionary.from_list ///dependency.hash)))
+       (list.only (|>> product.left (is? dependency) not))
+       (dictionary.of_list ///dependency.hash)))
 
 (def: (compiler resolution compiler_dependency)
   (-> Resolution Dependency (Try [Resolution Compiler]))
@@ -122,8 +122,8 @@
 (def: (libraries fs home)
   (All [!] (-> (file.System !) Path Resolution (List Path)))
   (|>> dictionary.keys
-       (list.filter (|>> (get@ #///dependency.type)
-                         (text\= ///artifact/type.lux_library)))
+       (list.only (|>> (get@ #///dependency.type)
+                       (text\= ///artifact/type.lux_library)))
        (list\map (..path fs home))))
 
 (def: version_separator
@@ -157,9 +157,9 @@
 (def: #export (host_dependencies fs home)
   (All [!] (-> (file.System !) Path Resolution (List Path)))
   (|>> dictionary.keys
-       (list.filter (|>> (get@ #///dependency.type)
-                         (text\= ///artifact/type.lux_library)
-                         not))
+       (list.only (|>> (get@ #///dependency.type)
+                       (text\= ///artifact/type.lux_library)
+                       not))
        (list\fold (function (_ dependency uniques)
                     (let [artifact (get@ #///dependency.artifact dependency)
                           identity [(get@ #///artifact.group artifact)
diff --git a/stdlib/source/program/aedifex/command/deps.lux b/stdlib/source/program/aedifex/command/deps.lux
index c2344ea80..a7db4af20 100644
--- a/stdlib/source/program/aedifex/command/deps.lux
+++ b/stdlib/source/program/aedifex/command/deps.lux
@@ -65,8 +65,8 @@
                                                     (list.sort (\ ///dependency.order <))
                                                     (exception.enumerate ..format))]
                               ["Remote successes" (|> remote_successes
-                                                      (set.from_list ///dependency.hash)
-                                                      (set.difference (set.from_list ///dependency.hash local_successes))
+                                                      (set.of_list ///dependency.hash)
+                                                      (set.difference (set.of_list ///dependency.hash local_successes))
                                                       set.to_list
                                                       (list.sort (\ ///dependency.order <))
                                                       (exception.enumerate ..format))]
-- 
cgit v1.2.3