aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/command
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/aedifex/command/build.lux14
-rw-r--r--stdlib/source/program/aedifex/command/deps.lux4
2 files changed, 9 insertions, 9 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)
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))]