diff options
Diffstat (limited to 'stdlib/source/lux/time/instant.lux')
-rw-r--r-- | stdlib/source/lux/time/instant.lux | 12 |
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] )) |