From f3e869d0246e956399ec31a074c6c6299ff73602 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 8 Jul 2021 23:59:00 -0400
Subject: Made sure the "phase" parameter of extensions is always usable (even
 across language boundaries)

---
 stdlib/source/program/aedifex/dependency.lux | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

(limited to 'stdlib/source/program/aedifex/dependency.lux')

diff --git a/stdlib/source/program/aedifex/dependency.lux b/stdlib/source/program/aedifex/dependency.lux
index b7b605447..f06b00260 100644
--- a/stdlib/source/program/aedifex/dependency.lux
+++ b/stdlib/source/program/aedifex/dependency.lux
@@ -2,13 +2,14 @@
   [lux (#- Type)
    [abstract
     [equivalence (#+ Equivalence)]
+    [order (#+ Order)]
     [hash (#+ Hash)]]
    [data
     ["." product]
-    ["." text
+    ["." text ("#\." order)
      ["%" format (#+ format)]]]]
   ["." // #_
-   ["#" artifact (#+ Artifact)
+   ["#" artifact (#+ Artifact) ("#\." order)
     [type (#+ Type)]]])
 
 (type: #export Dependency
@@ -25,3 +26,18 @@
 (def: #export equivalence
   (Equivalence Dependency)
   (\ hash &equivalence))
+
+(implementation: #export order
+  (Order Dependency)
+
+  (def: &equivalence
+    ..equivalence)
+
+  (def: (< reference subject)
+    (<| (or (//\< (get@ #artifact reference)
+                  (get@ #artifact subject)))
+        
+        (and (//\= (get@ #artifact reference)
+                   (get@ #artifact subject)))
+        (text\< (get@ #type reference)
+                (get@ #type subject)))))
-- 
cgit v1.2.3