diff options
| author | Eduardo Julian | 2020-12-29 23:29:54 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-12-29 23:29:54 -0400 |
| commit | 02d27daeacac74785c2b0f4d1ce03d432377a36e (patch) | |
| tree | 5129c496d136deb57880f202153e96f4f585e355 /stdlib/source/program/aedifex/artifact.lux | |
| parent | 832a9361b632331e82a64c07baa560487ca8abde (diff) | |
Unified repository abstraction for Aedifex.
Diffstat (limited to 'stdlib/source/program/aedifex/artifact.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/artifact.lux | 24 |
1 files changed, 7 insertions, 17 deletions
diff --git a/stdlib/source/program/aedifex/artifact.lux b/stdlib/source/program/aedifex/artifact.lux index 6ba0a1e48..07b53157f 100644 --- a/stdlib/source/program/aedifex/artifact.lux +++ b/stdlib/source/program/aedifex/artifact.lux @@ -68,24 +68,14 @@ (text.split_all_with ..group_separator) (text.join_with separator))) -(def: (address separator artifact) - (-> Text Artifact Text) - (let [directory (%.format (..directory separator (get@ #group artifact)) - separator - (get@ #name artifact) - separator - (get@ #version artifact))] - (%.format directory - separator - (..identity artifact)))) - -(def: #export uri +(def: #export (uri artifact) (-> Artifact URI) - (..address uri.separator)) - -(def: #export (path system) - (All [!] (-> (file.System !) Artifact Path)) - (..address (\ system separator))) + (let [/ uri.separator + group (..directory / (get@ #group artifact)) + name (get@ #name artifact) + version (get@ #version artifact) + identity (..identity artifact)] + (%.format group / name / version / identity))) (def: #export (local artifact) (-> Artifact (List Text)) |