aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/aedifex/artifact/time.lux6
1 files changed, 6 insertions, 0 deletions
diff --git a/stdlib/source/program/aedifex/artifact/time.lux b/stdlib/source/program/aedifex/artifact/time.lux
index 41ee0d418..ec7ddc4a9 100644
--- a/stdlib/source/program/aedifex/artifact/time.lux
+++ b/stdlib/source/program/aedifex/artifact/time.lux
@@ -26,6 +26,12 @@
Time
[/date.epoch time.midnight])
+(def: #export (instant time)
+ (-> Time Instant)
+ (let [[date time] time]
+ (instant.from_date_time (/date.value date)
+ time)))
+
(def: #export (from_instant instant)
(-> Instant (Try Time))
(do try.monad