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.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index e14eee20f..41668665e 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -83,7 +83,7 @@
(def: (remove_dependency dependency)
(-> Dependency (-> Resolution Resolution))
(|>> dictionary.entries
- (list.only (|>> product.left (is? dependency) not))
+ (list.only (|>> product.left (same? dependency) not))
(dictionary.of_list ///dependency.hash)))
(def: (compiler resolution compiler_dependency)
@@ -135,8 +135,8 @@
text.equivalence)
(def: (< left right)
- (loop [left (text.split_all_with ..version_separator left)
- right (text.split_all_with ..version_separator right)]
+ (loop [left (text.all_split_by ..version_separator left)
+ right (text.all_split_by ..version_separator right)]
(case [left right]
[(#.Item leftH leftT) (#.Item rightH rightT)]
(if (text\= leftH rightH)
@@ -164,7 +164,7 @@
identity [(get@ #///artifact.group artifact)
(get@ #///artifact.name artifact)]
version (get@ #///artifact.version artifact)]
- (case (dictionary.get identity uniques)
+ (case (dictionary.value identity uniques)
(#.Some [current_version current_path])
(if (\ version_order < version current_version)
(dictionary.has identity [version dependency] uniques)