diff options
Diffstat (limited to 'stdlib/source/lux/time/date.lux')
-rw-r--r-- | stdlib/source/lux/time/date.lux | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/lux/time/date.lux b/stdlib/source/lux/time/date.lux index f4680a6ca..38fc89800 100644 --- a/stdlib/source/lux/time/date.lux +++ b/stdlib/source/lux/time/date.lux @@ -29,7 +29,7 @@ #November #December) -(struct: #export _ (Equivalence Month) +(structure: #export _ (Equivalence Month) (def: (= reference sample) (case [reference sample] (^template [<tag>] @@ -67,7 +67,7 @@ #November +10 #December +11)) -(struct: #export _ (Order Month) +(structure: #export _ (Order Month) (def: eq Equivalence<Month>) (do-template [<name> <comp>] [(def: (<name> reference sample) @@ -79,7 +79,7 @@ [>= n/>=] )) -(struct: #export _ (Enum Month) +(structure: #export _ (Enum Month) (def: order Order<Month>) (def: (succ month) (case month @@ -119,7 +119,7 @@ #Friday #Saturday) -(struct: #export _ (Equivalence Day) +(structure: #export _ (Equivalence Day) (def: (= reference sample) (case [reference sample] (^template [<tag>] @@ -147,7 +147,7 @@ #Friday +5 #Saturday +6)) -(struct: #export _ (Order Day) +(structure: #export _ (Order Day) (def: eq Equivalence<Day>) (do-template [<name> <comp>] [(def: (<name> reference sample) @@ -159,7 +159,7 @@ [>= n/>=] )) -(struct: #export _ (Enum Day) +(structure: #export _ (Enum Day) (def: order Order<Day>) (def: (succ day) (case day @@ -185,7 +185,7 @@ #month Month #day Nat}) -(struct: #export _ (Equivalence Date) +(structure: #export _ (Equivalence Date) (def: (= reference sample) (and (i/= (get@ #year reference) (get@ #year sample)) @@ -205,7 +205,7 @@ (n/< (get@ #day reference) (get@ #day sample)))) -(struct: #export _ (Order Date) +(structure: #export _ (Order Date) (def: eq Equivalence<Date>) (def: < date/<) (def: (> reference sample) @@ -314,7 +314,7 @@ (-> Text (e.Error Date)) (l.run input lex-date)) -(struct: #export _ +(structure: #export _ {#.doc "Based on ISO 8601. For example: 2017-01-15"} |