diff options
Diffstat (limited to 'stdlib/source/library/lux/time/date.lux')
| -rw-r--r-- | stdlib/source/library/lux/time/date.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/library/lux/time/date.lux b/stdlib/source/library/lux/time/date.lux index c2ad8d025..79250a35e 100644 --- a/stdlib/source/library/lux/time/date.lux +++ b/stdlib/source/library/lux/time/date.lux @@ -11,7 +11,7 @@ ["." try (#+ Try)] ["." exception (#+ exception:)] ["<>" parser - ["<text>" text (#+ Parser)]]] + ["<.>" text (#+ Parser)]]] [data ["." maybe] ["." text ("#\." monoid)] @@ -80,7 +80,7 @@ {#year year #month month #day day})) - (exception.throw ..invalid_day [year month day]))) + (exception.except ..invalid_day [year month day]))) (def: #export epoch Date @@ -147,7 +147,7 @@ (<>.either (|> (<text>.at_most 3 <text>.decimal) (<>.codec n.decimal) (<>.after (<text>.this "."))) - (\ <>.monad wrap 0))) + (\ <>.monad in 0))) (template [<minimum> <maximum> <parser> <exception>] [(exception: #export (<exception> {value Nat}) @@ -162,8 +162,8 @@ [value ..section_parser] (if (and (n.>= <minimum> value) (n.<= <maximum> value)) - (wrap value) - (<>.lift (exception.throw <exception> [value])))))] + (in value) + (<>.lift (exception.except <exception> [value])))))] [1 12 month_parser invalid_month] ) |