Better syntax for "library/lux.^multi".

1 files changed, 7 insertions, 7 deletions

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)