From bfacc0c96e56eedf788aba44bd8ad2848a35c390 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 16 Jul 2021 02:23:00 -0400
Subject: Fixed some inconsistent naming.

---
 stdlib/source/program/aedifex/artifact/time.lux | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'stdlib/source/program/aedifex/artifact/time.lux')

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
-- 
cgit v1.2.3