diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/aedifex/metadata/artifact.lux | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/stdlib/source/program/aedifex/metadata/artifact.lux b/stdlib/source/program/aedifex/metadata/artifact.lux index 55659f391..777c7df1b 100644 --- a/stdlib/source/program/aedifex/metadata/artifact.lux +++ b/stdlib/source/program/aedifex/metadata/artifact.lux @@ -135,11 +135,11 @@ (def: last_updated_parser (Parser Instant) - (<text>.embed (do <>.monad - [date ..date_parser - time ..time_parser] - (wrap (instant.of_date_time date time))) - (..text ..<last_updated>))) + (<text>.then (do <>.monad + [date ..date_parser + time ..time_parser] + (in (instant.of_date_time date time))) + (..text ..<last_updated>))) (def: #export parser (Parser Metadata) @@ -178,19 +178,19 @@ [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 - (let [(^slots [#///artifact.group #///artifact.name]) artifact] - {#group group - #name name - #versions (list) - #last_updated ..epoch})))))) + (in (#try.Success + (let [(^slots [#///artifact.group #///artifact.name]) artifact] + {#group group + #name name + #versions (list) + #last_updated ..epoch})))))) (def: #export (write repository artifact metadata) (-> (Repository Async) Artifact Metadata (Async (Try Any))) |