aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/dependency
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/aedifex/dependency')
-rw-r--r--stdlib/source/program/aedifex/dependency/deployment.lux20
-rw-r--r--stdlib/source/program/aedifex/dependency/resolution.lux42
-rw-r--r--stdlib/source/program/aedifex/dependency/status.lux10
3 files changed, 36 insertions, 36 deletions
diff --git a/stdlib/source/program/aedifex/dependency/deployment.lux b/stdlib/source/program/aedifex/dependency/deployment.lux
index fa6da0bc0..84170965c 100644
--- a/stdlib/source/program/aedifex/dependency/deployment.lux
+++ b/stdlib/source/program/aedifex/dependency/deployment.lux
@@ -56,15 +56,15 @@
#///dependency/status.Unverified
(in [])
- (#///dependency/status.Partial partial)
+ {#///dependency/status.Partial partial}
(case partial
- (#.Left sha-1)
+ {#.Left sha-1}
(deploy_hash ///hash.sha-1_codec ///artifact/extension.sha-1 sha-1)
- (#.Right md5)
+ {#.Right md5}
(deploy_hash ///hash.md5_codec ///artifact/extension.md5 md5))
- (#///dependency/status.Verified sha-1 md5)
+ {#///dependency/status.Verified sha-1 md5}
(do !
[_ (deploy_hash ///hash.sha-1_codec ///artifact/extension.sha-1 sha-1)]
(deploy_hash ///hash.md5_codec ///artifact/extension.md5 md5))))))
@@ -78,12 +78,12 @@
#///dependency/status.Unverified
(list)
- (#///dependency/status.Partial partial)
+ {#///dependency/status.Partial partial}
(list (case partial
- (#.Left _) <sha-1>
- (#.Right _) <md5>))
+ {#.Left _} <sha-1>
+ {#.Right _} <md5>))
- (#///dependency/status.Verified _)
+ {#///dependency/status.Verified _}
(list <sha-1> <md5>)))))
(def: (update_snapshot [artifact type] now snapshot)
@@ -99,8 +99,8 @@
#///artifact/snapshot.Local
#///artifact/snapshot.Local
- (#///artifact/snapshot.Remote [_ build])
- (#///artifact/snapshot.Remote [now (++ build)]))))
+ {#///artifact/snapshot.Remote [_ build]}
+ {#///artifact/snapshot.Remote [now (++ build)]})))
(with@ [#///metadata/snapshot.versioning #///artifact/versioning.last_updated] now))
versioning_snapshot (value@ [#///metadata/snapshot.versioning #///artifact/versioning.snapshot] snapshot)]]
(in (|> snapshot
diff --git a/stdlib/source/program/aedifex/dependency/resolution.lux b/stdlib/source/program/aedifex/dependency/resolution.lux
index ce54d9d9a..3c8241595 100644
--- a/stdlib/source/program/aedifex/dependency/resolution.lux
+++ b/stdlib/source/program/aedifex/dependency/resolution.lux
@@ -85,7 +85,7 @@
(do async.monad
[?actual (\ repository download (///repository/remote.uri version_template artifact extension))]
(case ?actual
- (#try.Success actual)
+ {#try.Success actual}
(in (do [! try.monad]
[output (\ ! each (for [@.old (|>> (:as java/lang/String)
java/lang/String::trim
@@ -99,10 +99,10 @@
(\ codec decoded))
_ (exception.assertion exception [artifact extension output]
(\ ///hash.equivalence = (hash library) actual))]
- (in (#.Some actual))))
+ (in {#.Some actual})))
- (#try.Failure error)
- (in (#try.Success #.None)))))
+ {#try.Failure error}
+ (in {#try.Success #.None}))))
(def: (hashed repository version_template artifact extension)
(-> (Repository Async) Version Artifact Extension (Async (Try [Binary Status])))
@@ -115,14 +115,14 @@
repository version_template artifact (format extension ///artifact/extension.md5)
///hash.md5 ///hash.md5_codec ..md5_does_not_match)]
(in [data (case [?sha-1 ?md5]
- [(#.Some sha-1) (#.Some md5)]
- (#//status.Verified sha-1 md5)
+ [{#.Some sha-1} {#.Some md5}]
+ {#//status.Verified sha-1 md5}
- [(#.Some sha-1) #.None]
- (#//status.Partial (#.Left sha-1))
+ [{#.Some sha-1} #.None]
+ {#//status.Partial {#.Left sha-1}}
- [#.None (#.Some md5)]
- (#//status.Partial (#.Right md5))
+ [#.None {#.Some md5}]
+ {#//status.Partial {#.Right md5}}
[#.None #.None]
#//status.Unverified)])))
@@ -144,7 +144,7 @@
[pom (\ utf8.codec decoded pom_data)
pom (\ xml.codec decoded pom)
profile (<xml>.result ///pom.parser (list pom))]
- (in [#///package.origin (#///repository/origin.Remote "")
+ (in [#///package.origin {#///repository/origin.Remote ""}
#///package.library library_&_status
#///package.pom [pom pom_data pom_status]]))))))
@@ -187,17 +187,17 @@
(exception.except ..cannot_resolve)
(\ async.monad in))
- (#.Item repository alternatives)
+ {#.Item repository alternatives}
(do [! async.monad]
[_ (..announce_fetching console repository (value@ #//.artifact dependency))
outcome (..one repository dependency)]
(case outcome
- (#try.Success package)
+ {#try.Success package}
(do !
[_ (..announce_success console repository (value@ #//.artifact dependency))]
(in outcome))
- (#try.Failure error)
+ {#try.Failure error}
(do !
[_ (..announce_failure console repository (value@ #//.artifact dependency))]
(any console alternatives dependency))))))
@@ -217,7 +217,7 @@
(\ async.monad in
[successes failures resolution])
- (#.Item head tail)
+ {#.Item head tail}
(case (value@ [#//.artifact #///artifact.version] head)
... Skip if there is no version
"" (recur repositories
@@ -227,13 +227,13 @@
resolution)
_ (do [! async.monad]
[?package (case (dictionary.value head resolution)
- (#.Some package)
- (in (#try.Success package))
+ {#.Some package}
+ (in {#try.Success package})
#.None
(..any console repositories head))]
(case ?package
- (#try.Success package)
+ {#try.Success package}
(do !
[.let [redundant? (: (Predicate Dependency)
(predicate.or (\ //.equivalence = head)
@@ -252,15 +252,15 @@
... sub_repositories (list\composite repositories package_repositories)
]]
(recur repositories
- (#.Item head successes)
+ {#.Item head successes}
failures
(set.list (set.union (set.of_list //.hash tail)
(set.of_list //.hash sub_dependencies)))
(dictionary.has head package resolution)))
- (#try.Failure error)
+ {#try.Failure error}
(recur repositories
successes
- (#.Item head failures)
+ {#.Item head failures}
tail
resolution)))))))
diff --git a/stdlib/source/program/aedifex/dependency/status.lux b/stdlib/source/program/aedifex/dependency/status.lux
index f5439114e..150d3120b 100644
--- a/stdlib/source/program/aedifex/dependency/status.lux
+++ b/stdlib/source/program/aedifex/dependency/status.lux
@@ -13,9 +13,9 @@
(type: .public Status
(Variant
#Unverified
- (#Partial (Either (Hash SHA-1)
- (Hash MD5)))
- (#Verified (Hash SHA-1) (Hash MD5))))
+ {#Partial (Either (Hash SHA-1)
+ (Hash MD5))}
+ {#Verified (Hash SHA-1) (Hash MD5)}))
(implementation: any_equivalence
(Equivalence Any)
@@ -37,6 +37,6 @@
(def: .public (verified payload)
(-> Binary Status)
- (#Verified
+ {#Verified
(///hash.sha-1 payload)
- (///hash.md5 payload)))
+ (///hash.md5 payload)})
generated by cgit v1.2.3 (git 2.25.1) at 2024-07-03 01:14:26 +0000