diff options
Diffstat (limited to 'stdlib/source/program/aedifex/metadata/snapshot.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/metadata/snapshot.lux | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux index 6faab7b3b..c96957740 100644 --- a/stdlib/source/program/aedifex/metadata/snapshot.lux +++ b/stdlib/source/program/aedifex/metadata/snapshot.lux @@ -106,10 +106,10 @@ (<>.default {#///artifact/versioning.snapshot #///artifact/snapshot.Local #///artifact/versioning.last_updated ///artifact/time.epoch #///artifact/versioning.versions (list <default_version>)})))] - (wrap {#artifact {#///artifact.group group - #///artifact.name name - #///artifact.version version} - #versioning versioning})))) + (in {#artifact {#///artifact.group group + #///artifact.name name + #///artifact.version version} + #versioning versioning})))) (def: #export equivalence (Equivalence Metadata) @@ -128,16 +128,16 @@ [project (\ repository download (..uri artifact))] (case project (#try.Success project) - (wrap (|> project - (do> try.monad - [(\ utf8.codec decode)] - [(\ xml.codec decode)] - [list (<xml>.run ..parser)]))) + (in (|> project + (do> try.monad + [(\ utf8.codec decode)] + [(\ xml.codec decode)] + [list (<xml>.run ..parser)]))) (#try.Failure error) - (wrap (#try.Success - {#artifact artifact - #versioning ///artifact/versioning.init}))))) + (in (#try.Success + {#artifact artifact + #versioning ///artifact/versioning.init}))))) (def: #export (write repository artifact metadata) (-> (Repository Async) Artifact Metadata (Async (Try Any))) |