aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program
diff options
context:
space:
mode:
authorEduardo Julian2021-07-16 02:23:00 -0400
committerEduardo Julian2021-07-16 02:23:00 -0400
commitbfacc0c96e56eedf788aba44bd8ad2848a35c390 (patch)
tree7d5f637d589ac68c645d6d726967d6fac51da15d /stdlib/source/program
parent0abd5bd3c0e38e352e9ba38268e04e1c858ab01e (diff)
Fixed some inconsistent naming.
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