diff options
author | Eduardo Julian | 2021-07-27 03:51:10 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-07-27 03:51:10 -0400 |
commit | 061fd8a209bbcaffc2bfb850ac6046752a567d50 (patch) | |
tree | 8cd83ad7d0bc06ded7976eb5420467e485733ae8 /stdlib/source/program/aedifex/pom.lux | |
parent | e64b6d0114c26a455e19a416b5f02a4d19dd711f (diff) |
Re-named wrap => in && unwrap => out.
Diffstat (limited to 'stdlib/source/program/aedifex/pom.lux')
-rw-r--r-- | stdlib/source/program/aedifex/pom.lux | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/stdlib/source/program/aedifex/pom.lux b/stdlib/source/program/aedifex/pom.lux index b458c7a21..145d65f6e 100644 --- a/stdlib/source/program/aedifex/pom.lux +++ b/stdlib/source/program/aedifex/pom.lux @@ -152,7 +152,7 @@ ))) _ - (exception.throw /.no_identity []))) + (exception.except /.no_identity []))) (def: property_parser (Parser [Tag Text]) @@ -173,16 +173,16 @@ (do maybe.monad [group (dictionary.get ["" ..group_tag] properties) artifact (dictionary.get ["" ..artifact_tag] properties)] - (wrap {#//dependency.artifact {#//artifact.group group - #//artifact.name artifact - #//artifact.version (|> properties - (dictionary.get ["" ..version_tag]) - (maybe.default "") - (text.replace_all "${project.version}" own_version) - (text.replace_all "${project.parent.version}" parent_version))} - #//dependency.type (|> properties - (dictionary.get ["" "type"]) - (maybe.default //artifact/type.jvm_library))}))))) + (in {#//dependency.artifact {#//artifact.group group + #//artifact.name artifact + #//artifact.version (|> properties + (dictionary.get ["" ..version_tag]) + (maybe.default "") + (text.replace_all "${project.version}" own_version) + (text.replace_all "${project.parent.version}" parent_version))} + #//dependency.type (|> properties + (dictionary.get ["" "type"]) + (maybe.default //artifact/type.jvm_library))}))))) (def: (dependencies_parser own_version parent_version) (-> Text Text (Parser (List Dependency))) @@ -224,8 +224,8 @@ <xml>.somewhere (<>.default (list))) _ (<>.some <xml>.ignore)] - (wrap (|> (\ /.monoid identity) - (update@ #/.dependencies (function (_ empty) - (list\fold set.add empty dependencies))) - (update@ #/.repositories (function (_ empty) - (list\fold set.add empty repositories))))))))) + (in (|> (\ /.monoid identity) + (update@ #/.dependencies (function (_ empty) + (list\fold set.add empty dependencies))) + (update@ #/.repositories (function (_ empty) + (list\fold set.add empty repositories))))))))) |