aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex
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
parentcd71a864ad5be13ed6ec6d046e0a2cb1087bdf94 (diff)
Fixed the indentation of variants.
Diffstat (limited to 'stdlib/source/program/aedifex')
-rw-r--r--stdlib/source/program/aedifex/artifact/snapshot.lux4
-rw-r--r--stdlib/source/program/aedifex/metadata/artifact.lux14
-rw-r--r--stdlib/source/program/aedifex/metadata/snapshot.lux10
-rw-r--r--stdlib/source/program/aedifex/package.lux4
-rw-r--r--stdlib/source/program/aedifex/pom.lux24
5 files changed, 28 insertions, 28 deletions
diff --git a/stdlib/source/program/aedifex/artifact/snapshot.lux b/stdlib/source/program/aedifex/artifact/snapshot.lux
index 64ff5d7b7..5ac1e126a 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot.lux
@@ -46,8 +46,8 @@
(def: local_copy_format
XML
{#xml.Node <local_copy>
- xml.attributes
- (list {#xml.Text ..local_copy_value})})
+ xml.attributes
+ (list {#xml.Text ..local_copy_value})})
(def: local_copy_parser
(Parser Any)
diff --git a/stdlib/source/program/aedifex/metadata/artifact.lux b/stdlib/source/program/aedifex/metadata/artifact.lux
index b56c66104..d0bdf887e 100644
--- a/stdlib/source/program/aedifex/metadata/artifact.lux
+++ b/stdlib/source/program/aedifex/metadata/artifact.lux
@@ -99,13 +99,13 @@
(def: .public (format value)
(-> Metadata XML)
{#xml.Node ..<metadata>
- xml.attributes
- (list (..group_format (value@ #group value))
- (..name_format (value@ #name value))
- {#xml.Node ..<versioning>
- xml.attributes
- (list (..versions_format (value@ #versions value))
- (..last_updated_format (value@ #last_updated value)))})})
+ xml.attributes
+ (list (..group_format (value@ #group value))
+ (..name_format (value@ #name value))
+ {#xml.Node ..<versioning>
+ xml.attributes
+ (list (..versions_format (value@ #versions value))
+ (..last_updated_format (value@ #last_updated value)))})})
(def: (text tag)
(-> xml.Tag (Parser Text))
diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux
index 58792b042..05a065c6f 100644
--- a/stdlib/source/program/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/program/aedifex/metadata/snapshot.lux
@@ -73,11 +73,11 @@
(-> Metadata XML)
(let [(^slots [#///artifact.group #///artifact.name #///artifact.version]) artifact]
{#xml.Node ..<metadata>
- xml.attributes
- (list (..group_format group)
- (..name_format name)
- (..version_format version)
- (///artifact/versioning.format versioning))}))
+ xml.attributes
+ (list (..group_format group)
+ (..name_format name)
+ (..version_format version)
+ (///artifact/versioning.format versioning))}))
(def: (text tag)
(-> xml.Tag (Parser Text))
diff --git a/stdlib/source/program/aedifex/package.lux b/stdlib/source/program/aedifex/package.lux
index 62757c9b0..923c69cbc 100644
--- a/stdlib/source/program/aedifex/package.lux
+++ b/stdlib/source/program/aedifex/package.lux
@@ -53,12 +53,12 @@
[#origin {#//origin.Local ""}
#library [library
{#//status.Verified (//hash.sha-1 library)
- (//hash.md5 library)}]
+ (//hash.md5 library)}]
#pom (let [binary_pom (|> pom (\ xml.codec encoded) (\ utf8.codec encoded))]
[pom
binary_pom
{#//status.Verified (//hash.sha-1 binary_pom)
- (//hash.md5 binary_pom)}])])
+ (//hash.md5 binary_pom)}])])
(def: .public dependencies
(-> Package (Try (Set Dependency)))
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 [])))