aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/dependency
diff options
context:
space:
mode:
authorEduardo Julian2022-04-07 03:27:59 -0400
committerEduardo Julian2022-04-07 03:27:59 -0400
commit9224e54bf175ebe13c3fae42f04b649413c737e7 (patch)
treedab2b19f79e79020792ee0bfe0fb6abe522639a3 /stdlib/source/program/aedifex/dependency
parent7542b0addd9eaf01dd5f1c4c8a39b67f51a4bd06 (diff)
De-sigil-ification: &
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/aedifex/dependency.lux4
-rw-r--r--stdlib/source/program/aedifex/dependency/deployment.lux24
2 files changed, 14 insertions, 14 deletions
diff --git a/stdlib/source/program/aedifex/dependency.lux b/stdlib/source/program/aedifex/dependency.lux
index 5bf2e4ef9..4027354d9 100644
--- a/stdlib/source/program/aedifex/dependency.lux
+++ b/stdlib/source/program/aedifex/dependency.lux
@@ -27,12 +27,12 @@
(def: .public equivalence
(Equivalence Dependency)
- (# hash &equivalence))
+ (# hash equivalence))
(implementation: .public order
(Order Dependency)
- (def: &equivalence
+ (def: equivalence
..equivalence)
(def: (< reference subject)
diff --git a/stdlib/source/program/aedifex/dependency/deployment.lux b/stdlib/source/program/aedifex/dependency/deployment.lux
index 735ec1ebd..0b9ca5b83 100644
--- a/stdlib/source/program/aedifex/dependency/deployment.lux
+++ b/stdlib/source/program/aedifex/dependency/deployment.lux
@@ -73,18 +73,18 @@
(-> ///artifact/type.Type Status (List ///artifact/type.Type))
(with_expansions [<sha-1> (format type ///artifact/extension.sha-1)
<md5> (format type ///artifact/extension.md5)]
- (list& type
- (case status
- {///dependency/status.#Unverified}
- (list)
-
- {///dependency/status.#Partial partial}
- (list (case partial
- {.#Left _} <sha-1>
- {.#Right _} <md5>))
-
- {///dependency/status.#Verified _}
- (list <sha-1> <md5>)))))
+ (partial_list type
+ (case status
+ {///dependency/status.#Unverified}
+ (list)
+
+ {///dependency/status.#Partial partial}
+ (list (case partial
+ {.#Left _} <sha-1>
+ {.#Right _} <md5>))
+
+ {///dependency/status.#Verified _}
+ (list <sha-1> <md5>)))))
(def: (update_snapshot [artifact type] now snapshot)
(-> Dependency Instant Metadata (Try Metadata))