aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/pom.lux
diff options
context:
space:
mode:
authorEduardo Julian2021-09-10 02:27:34 -0400
committerEduardo Julian2021-09-10 02:27:34 -0400
commitf71ec9cb4ead1e7f9573a37686c87e6a9206a415 (patch)
tree30c716f305a729d1266256ad0f2a504ff66e2f64 /stdlib/source/program/aedifex/pom.lux
parentcd71a864ad5be13ed6ec6d046e0a2cb1087bdf94 (diff)
Fixed the indentation of variants.
Diffstat (limited to 'stdlib/source/program/aedifex/pom.lux')
-rw-r--r--stdlib/source/program/aedifex/pom.lux24
1 files changed, 12 insertions, 12 deletions
diff --git a/stdlib/source/program/aedifex/pom.lux b/stdlib/source/program/aedifex/pom.lux
index 49e3793fe..e98730532 100644
--- a/stdlib/source/program/aedifex/pom.lux
+++ b/stdlib/source/program/aedifex/pom.lux
@@ -48,13 +48,13 @@
(def: version
XML
{#_.Node ["" "modelVersion"] _.attributes
- (list {#_.Text "4.0.0"})})
+ (list {#_.Text "4.0.0"})})
(def: (property tag value)
(-> Text Text XML)
{#_.Node ["" tag]
- _.attributes
- (list {#_.Text value})})
+ _.attributes
+ (list {#_.Text value})})
(def: (artifact value)
(-> Artifact (List XML))
@@ -84,9 +84,9 @@
(def: (dependency value)
(-> Dependency XML)
{#_.Node ["" ..dependency_tag]
- _.attributes
- (list\composite (..artifact (value@ #//dependency.artifact value))
- (list (..property "type" (value@ #//dependency.type value))))})
+ _.attributes
+ (list\composite (..artifact (value@ #//dependency.artifact value))
+ (list (..property "type" (value@ #//dependency.type value))))})
(def: (group tag)
(-> Text (-> (List XML) XML))
@@ -144,12 +144,12 @@
{#.Some identity}
{#try.Success
{#_.Node ["" ..project_tag] _.attributes
- ($_ list\composite
- (list ..version)
- (..artifact identity)
- (|> value (value@ #/.repositories) set.list (list\each ..repository) (..group "repositories") list)
- (|> value (value@ #/.dependencies) set.list (list\each ..dependency) (..group ..dependencies_tag) list)
- )}}
+ ($_ list\composite
+ (list ..version)
+ (..artifact identity)
+ (|> value (value@ #/.repositories) set.list (list\each ..repository) (..group "repositories") list)
+ (|> value (value@ #/.dependencies) set.list (list\each ..dependency) (..group ..dependencies_tag) list)
+ )}}
_
(exception.except /.no_identity [])))