From e00ba096c8837abe85d366e0c1293c09dbe84d81 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 18 Aug 2021 03:29:15 -0400
Subject: Some bug fixes.

---
 stdlib/source/program/aedifex/package.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/package.lux b/stdlib/source/program/aedifex/package.lux
index 6b65a936d..c0c73e0fd 100644
--- a/stdlib/source/program/aedifex/package.lux
+++ b/stdlib/source/program/aedifex/package.lux
@@ -1,6 +1,6 @@
 (.module:
   [library
-   [lux #*
+   [lux (#- local)
     [abstract
      [equivalence (#+ Equivalence)]]
     [control
@@ -36,7 +36,7 @@
 (template [<name> <tag>]
   [(def: .public (<name> package)
      (-> Package Bit)
-     (case (get@ #origin package)
+     (case (value@ #origin package)
        (<tag> _)
        true
        
@@ -61,19 +61,19 @@
 
 (def: .public dependencies
   (-> Package (Try (Set Dependency)))
-  (|>> (get@ #pom)
+  (|>> (value@ #pom)
        product.left
        list
        (<xml>.result //pom.parser)
-       (try\map (get@ #/.dependencies))))
+       (try\map (value@ #/.dependencies))))
 
 (def: .public repositories
   (-> Package (Try (Set Address)))
-  (|>> (get@ #pom)
+  (|>> (value@ #pom)
        product.left
        list
        (<xml>.result //pom.parser)
-       (try\map (get@ #/.repositories))))
+       (try\map (value@ #/.repositories))))
 
 (def: .public equivalence
   (Equivalence Package)
-- 
cgit v1.2.3