Small additions to stdlib.

1 files changed, 14 insertions, 1 deletions

diff --git a/stdlib/source/lux/time/duration.lux b/stdlib/source/lux/time/duration.lux
index 91f262fe4..20ef20c8c 100644
--- a/stdlib/source/lux/time/duration.lux
+++ b/stdlib/source/lux/time/duration.lux
@@ -2,7 +2,7 @@
   [lux #*
    [control
     equivalence
-    order
+    [order (#+ Order)]
     codec
     [monoid (#+ Monoid)]
     ["p" parser]
@@ -71,6 +71,19 @@
       [>= i/>=]
       ))
 
+  (open: "duration/." Order<Duration>)
+
+  (do-template [<name> <op>]
+    [(def: #export (<name> left right)
+       (-> Duration Duration Duration)
+       (if (<op> left right)
+         right
+         left))]
+
+    [max duration/>]
+    [min duration/<]
+    )
+
   (do-template [<name> <op>]
     [(def: #export <name>
        (-> Duration Bit)