aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/artifact/value.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/aedifex/artifact/value.lux18
1 files changed, 6 insertions, 12 deletions
diff --git a/stdlib/source/program/aedifex/artifact/value.lux b/stdlib/source/program/aedifex/artifact/value.lux
index eb5c33c22..3e92dbf16 100644
--- a/stdlib/source/program/aedifex/artifact/value.lux
+++ b/stdlib/source/program/aedifex/artifact/value.lux
@@ -1,25 +1,19 @@
(.module:
- [lux (#- Name Type)
+ [lux #*
[abstract
[equivalence (#+ Equivalence)]]
[data
["." product]
["." text
["%" format]]
- [format
- ["." xml]]
[collection
["." list ("#\." functor)]]]
[math
[number
- ["n" nat]]]
- ["." time (#+ Time)
- ["." instant (#+ Instant)]
- ["." date (#+ Date)]
- ["." year]
- ["." month]]]
+ ["." nat]]]
+ [time
+ ["." instant]]]
[// (#+ Version)
- [type (#+ Type)]
["." time_stamp (#+ Time_Stamp)]])
(type: #export Build
@@ -35,7 +29,7 @@
($_ product.equivalence
text.equivalence
instant.equivalence
- n.equivalence
+ nat.equivalence
))
(def: separator
@@ -44,7 +38,7 @@
(def: snapshot
"SNAPSHOT")
-(def: #export (format [version time_stamp build])
+(def: #export (format (^slots [#version #time_stamp #build]))
(%.Format Value)
(%.format (text.replace_all ..snapshot
(time_stamp.format time_stamp)