diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/aedifex/artifact.lux | 6 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/artifact/versioning.lux | 7 |
2 files changed, 7 insertions, 6 deletions
diff --git a/stdlib/source/program/aedifex/artifact.lux b/stdlib/source/program/aedifex/artifact.lux index 07b53157f..9e87988ea 100644 --- a/stdlib/source/program/aedifex/artifact.lux +++ b/stdlib/source/program/aedifex/artifact.lux @@ -68,12 +68,12 @@ (text.split_all_with ..group_separator) (text.join_with separator))) -(def: #export (uri artifact) - (-> Artifact URI) +(def: #export (uri version artifact) + (-> Version Artifact URI) (let [/ uri.separator group (..directory / (get@ #group artifact)) name (get@ #name artifact) - version (get@ #version artifact) + ## version (get@ #version artifact) identity (..identity artifact)] (%.format group / name / version / identity))) diff --git a/stdlib/source/program/aedifex/artifact/versioning.lux b/stdlib/source/program/aedifex/artifact/versioning.lux index 41b3179d3..dab943145 100644 --- a/stdlib/source/program/aedifex/artifact/versioning.lux +++ b/stdlib/source/program/aedifex/artifact/versioning.lux @@ -89,9 +89,10 @@ (Parser Versioning) (<| (..sub ..<versioning>) ($_ <>.and - (<xml>.somewhere //snapshot.parser) - (<xml>.somewhere ..last_updated_parser) - (<| <xml>.somewhere + (<>.default #//snapshot.Local (<xml>.somewhere //snapshot.parser)) + (<>.default instant.epoch (<xml>.somewhere ..last_updated_parser)) + (<| (<>.default (list)) + <xml>.somewhere (..sub ..<snapshot_versions>) (<>.some //snapshot/version.parser)) ))) |