aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/time/instant.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/lux/time/instant.lux')
-rw-r--r--stdlib/source/lux/time/instant.lux12
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/lux/time/instant.lux b/stdlib/source/lux/time/instant.lux
index 5177ffb44..5fb8bf4f1 100644
--- a/stdlib/source/lux/time/instant.lux
+++ b/stdlib/source/lux/time/instant.lux
@@ -13,17 +13,17 @@
["R" result]
(coll [list "L/" Fold<List> Functor<List>]
["v" vector "v/" Functor<Vector> Fold<Vector>]))
- (type model))
+ (type opaque))
(.. [duration "duration/" Order<Duration>]
[date]))
-(model: #export Instant
+(opaque: #export Instant
{#;doc "Instant is defined as milliseconds since the epoch."}
Int
(def: #export from-millis
(-> Int Instant)
- (|>. @model))
+ (|>. @opaque))
(def: #export to-millis
(-> Instant Int)
@@ -35,7 +35,7 @@
(def: #export (shift duration instant)
(-> duration;Duration Instant Instant)
- (@model (i.+ (duration;to-millis duration) (@repr instant))))
+ (@opaque (i.+ (duration;to-millis duration) (@repr instant))))
(def: #export (relative instant)
(-> Instant duration;Duration)
@@ -43,7 +43,7 @@
(def: #export (absolute offset)
(-> duration;Duration Instant)
- (|> offset duration;to-millis @model))
+ (|> offset duration;to-millis @opaque))
(struct: #export _ (Eq Instant)
(def: (= param subject)
@@ -62,7 +62,7 @@
(def: order Order<Instant>)
(do-template [<name>]
[(def: <name>
- (|>. @repr (:: number;Enum<Int> <name>) @model))]
+ (|>. @repr (:: number;Enum<Int> <name>) @opaque))]
[succ] [pred]
))