aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex
diff options
context:
space:
mode:
authorEduardo Julian2021-09-14 02:01:49 -0400
committerEduardo Julian2021-09-14 02:01:49 -0400
commit1c93f003f73116202b1f964b0d1b6d3f07b69fb0 (patch)
tree925f64cd59ab2ce48bccf6dd4df1142296d2094a /stdlib/source/program/aedifex
parentbca1a9cdcf837e184378d5e6339a969e40d1dbab (diff)
No more "^slots".
Diffstat (limited to 'stdlib/source/program/aedifex')
-rw-r--r--stdlib/source/program/aedifex/artifact/snapshot/stamp.lux6
-rw-r--r--stdlib/source/program/aedifex/artifact/snapshot/version.lux8
-rw-r--r--stdlib/source/program/aedifex/artifact/snapshot/version/value.lux4
-rw-r--r--stdlib/source/program/aedifex/artifact/time/time.lux8
-rw-r--r--stdlib/source/program/aedifex/artifact/versioning.lux8
-rw-r--r--stdlib/source/program/aedifex/metadata/artifact.lux4
-rw-r--r--stdlib/source/program/aedifex/metadata/snapshot.lux6
7 files changed, 22 insertions, 22 deletions
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
index f40cf76e5..153a270a8 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
@@ -39,10 +39,10 @@
list
{xml.#Node ..<timestamp> xml.attributes}))
-(def: .public (format (^slots [#time #build]))
+(def: .public (format (^open "_[0]"))
(-> Stamp (List XML))
- (list (..time_format time)
- (//build.format build)))
+ (list (..time_format _#time)
+ (//build.format _#build)))
(def: time_parser
(Parser Time)
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version.lux b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
index e2782c12a..ab64989e5 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/version.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
@@ -45,12 +45,12 @@
(-> xml.Tag Text XML)
(|> value {xml.#Text} list {xml.#Node tag xml.attributes}))
-(def: .public (format (^slots [#extension #value #updated]))
+(def: .public (format (^open "_[0]"))
(-> Version XML)
(<| {xml.#Node ..<snapshot_version> xml.attributes}
- (list (..text_format ..<extension> extension)
- (..text_format ..<value> value)
- (..text_format ..<updated> (///time.format updated)))))
+ (list (..text_format ..<extension> _#extension)
+ (..text_format ..<value> _#value)
+ (..text_format ..<updated> (///time.format _#updated)))))
(def: (text tag)
(-> xml.Tag (Parser Text))
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
index d2092b306..7a7b4b28f 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
@@ -29,14 +29,14 @@
(def: .public snapshot
"SNAPSHOT")
-(def: .public (format (^slots [#version #snapshot]))
+(def: .public (format (^open "[0]"))
(%.Format Value)
(case snapshot
{///.#Local}
version
{///.#Remote stamp}
- (let [(^slots [///stamp.#time ///stamp.#build]) stamp]
+ (let [(^open "[0]") stamp]
(%.format (text.replaced ..snapshot
(///time.format time)
version)
diff --git a/stdlib/source/program/aedifex/artifact/time/time.lux b/stdlib/source/program/aedifex/artifact/time/time.lux
index 4b77f6d1f..441c4605b 100644
--- a/stdlib/source/program/aedifex/artifact/time/time.lux
+++ b/stdlib/source/program/aedifex/artifact/time/time.lux
@@ -21,10 +21,10 @@
(def: .public (format value)
(%.Format Time)
- (let [(^slots [time.#hour time.#minute time.#second]) (time.clock value)]
- (%.format (//.pad #hour)
- (//.pad #minute)
- (//.pad #second))))
+ (let [(^open "_[0]") (time.clock value)]
+ (%.format (//.pad _#hour)
+ (//.pad _#minute)
+ (//.pad _#second))))
(def: .public parser
(<text>.Parser Time)
diff --git a/stdlib/source/program/aedifex/artifact/versioning.lux b/stdlib/source/program/aedifex/artifact/versioning.lux
index 09d8e4758..99769536f 100644
--- a/stdlib/source/program/aedifex/artifact/versioning.lux
+++ b/stdlib/source/program/aedifex/artifact/versioning.lux
@@ -61,12 +61,12 @@
(-> //time.Time XML)
(|>> //time.format {xml.#Text} list {xml.#Node ..<last_updated> xml.attributes}))
-(def: .public (format (^slots [#snapshot #last_updated #versions]))
+(def: .public (format (^open "_[0]"))
(-> Versioning XML)
(<| {xml.#Node ..<versioning> xml.attributes}
- (list (//snapshot.format snapshot)
- (..last_updated_format last_updated)
- (|> versions
+ (list (//snapshot.format _#snapshot)
+ (..last_updated_format _#last_updated)
+ (|> _#versions
(list#each //snapshot/version.format)
{xml.#Node ..<snapshot_versions> xml.attributes}))))
diff --git a/stdlib/source/program/aedifex/metadata/artifact.lux b/stdlib/source/program/aedifex/metadata/artifact.lux
index d0a662185..60d5d6e6d 100644
--- a/stdlib/source/program/aedifex/metadata/artifact.lux
+++ b/stdlib/source/program/aedifex/metadata/artifact.lux
@@ -59,7 +59,7 @@
(def: (time_format value)
(%.Format Time)
- (let [(^slots [time.#hour time.#minute time.#second]) (time.clock value)]
+ (let [(^open "[0]") (time.clock value)]
(%.format (..pad #hour)
(..pad #minute)
(..pad #second))))
@@ -187,7 +187,7 @@
{try.#Failure error}
(in {try.#Success
- (let [(^slots [///artifact.#group ///artifact.#name]) artifact]
+ (let [(^open "[0]") artifact]
[..#group #group
..#name #name
..#versions (list)
diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux
index 943bf6004..fe9a2e6a0 100644
--- a/stdlib/source/program/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/program/aedifex/metadata/snapshot.lux
@@ -69,15 +69,15 @@
[version_format Version ..<version> (|>)]
)
-(def: .public (format (^slots [#artifact #versioning]))
+(def: .public (format (^open "[0]"))
(-> Metadata XML)
- (let [(^slots [///artifact.#group ///artifact.#name ///artifact.#version]) artifact]
+ (let [(^open "[0]") #artifact]
{xml.#Node ..<metadata>
xml.attributes
(list (..group_format group)
(..name_format name)
(..version_format version)
- (///artifact/versioning.format versioning))}))
+ (///artifact/versioning.format #versioning))}))
(def: (text tag)
(-> xml.Tag (Parser Text))