aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/dependency/deployment.lux
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/deployment.lux
parent7542b0addd9eaf01dd5f1c4c8a39b67f51a4bd06 (diff)
De-sigil-ification: &
Diffstat (limited to 'stdlib/source/program/aedifex/dependency/deployment.lux')
-rw-r--r--stdlib/source/program/aedifex/dependency/deployment.lux24
1 files changed, 12 insertions, 12 deletions
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))