aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/artifact/snapshot
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/aedifex/artifact/snapshot')
-rw-r--r--stdlib/source/program/aedifex/artifact/snapshot/stamp.lux34
-rw-r--r--stdlib/source/program/aedifex/artifact/snapshot/version.lux36
-rw-r--r--stdlib/source/program/aedifex/artifact/snapshot/version/value.lux26
3 files changed, 48 insertions, 48 deletions
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
index d84234cb5..f17f27680 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
@@ -1,20 +1,20 @@
(.using
- [library
- [lux "*"
- [abstract
- [equivalence {"+" Equivalence}]
- [monad {"+" do}]]
- [control
- ["<>" parser
- ["<[0]>" xml {"+" Parser}]
- ["<[0]>" text]]]
- [data
- ["[0]" product]
- [format
- ["[0]" xml {"+" XML}]]]]]
- ["[0]" // "_"
- ["[1][0]" time {"+" Time}]
- ["[1][0]" build {"+" Build}]])
+ [library
+ [lux "*"
+ [abstract
+ [equivalence {"+" Equivalence}]
+ [monad {"+" do}]]
+ [control
+ ["<>" parser
+ ["<[0]>" xml {"+" Parser}]
+ ["<[0]>" text]]]
+ [data
+ ["[0]" product]
+ [format
+ ["[0]" xml {"+" XML}]]]]]
+ ["[0]" // "_"
+ ["[1][0]" time {"+" Time}]
+ ["[1][0]" build {"+" Build}]])
(type: .public Stamp
(Record
@@ -39,7 +39,7 @@
list
{xml.#Node ..<timestamp> xml.attributes}))
-(def: .public (format (^open "_[0]"))
+(def: .public (format (open "_[0]"))
(-> Stamp (List XML))
(list (..time_format _#time)
(//build.format _#build)))
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version.lux b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
index d23e166c8..66923459c 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/version.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
@@ -1,21 +1,21 @@
(.using
- [library
- [lux {"-" Type}
- [abstract
- [equivalence {"+" Equivalence}]
- [monad {"+" do}]]
- [control
- ["<>" parser
- ["<[0]>" xml {"+" Parser}]
- ["<[0]>" text]]]
- [data
- ["[0]" product]
- ["[0]" text]
- [format
- ["[0]" xml {"+" XML}]]]]]
- ["[0]" /// "_"
- ["[1][0]" type {"+" Type}]
- ["[1][0]" time {"+" Time}]])
+ [library
+ [lux {"-" Type}
+ [abstract
+ [equivalence {"+" Equivalence}]
+ [monad {"+" do}]]
+ [control
+ ["<>" parser
+ ["<[0]>" xml {"+" Parser}]
+ ["<[0]>" text]]]
+ [data
+ ["[0]" product]
+ ["[0]" text]
+ [format
+ ["[0]" xml {"+" XML}]]]]]
+ ["[0]" /// "_"
+ ["[1][0]" type {"+" Type}]
+ ["[1][0]" time {"+" Time}]])
(type: .public Version
(Record
@@ -45,7 +45,7 @@
(-> xml.Tag Text XML)
(|> value {xml.#Text} list {xml.#Node tag xml.attributes}))
-(def: .public (format (^open "_[0]"))
+(def: .public (format (open "_[0]"))
(-> Version XML)
(<| {xml.#Node ..<snapshot_version> xml.attributes}
(list (..text_format ..<extension> _#extension)
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
index f01c01522..65d30acdf 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
@@ -1,15 +1,15 @@
(.using
- [library
- [lux "*"
- [abstract
- [equivalence {"+" Equivalence}]]
- [data
- ["[0]" product]
- ["[0]" text
- ["%" format]]]]]
- ["[0]" /// {"+" Snapshot}
- ["[1][0]" time]
- ["[1][0]" stamp]])
+ [library
+ [lux "*"
+ [abstract
+ [equivalence {"+" Equivalence}]]
+ [data
+ ["[0]" product]
+ ["[0]" text
+ ["%" format]]]]]
+ ["[0]" /// {"+" Snapshot}
+ ["[1][0]" time]
+ ["[1][0]" stamp]])
(type: .public Value
(Record
@@ -29,14 +29,14 @@
(def: .public snapshot
"SNAPSHOT")
-(def: .public (format (^open "/[0]"))
+(def: .public (format (open "/[0]"))
(%.Format Value)
(case /#snapshot
{///.#Local}
/#version
{///.#Remote stamp}
- (let [(^open "/[0]") stamp]
+ (let [(open "/[0]") stamp]
(%.format (text.replaced ..snapshot
(///time.format /#time)
/#version)