From e53c1a090eb9cfac3cb23d10d981648d02518ed1 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 13 Aug 2021 04:18:57 -0400
Subject: Made program: specify its bindings the same way as syntax:.

---
 stdlib/source/program/aedifex/command/build.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 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 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)
-- 
cgit v1.2.3