diff options
Diffstat (limited to 'stdlib/source/lux/time/instant.lux')
| -rw-r--r-- | stdlib/source/lux/time/instant.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/time/instant.lux b/stdlib/source/lux/time/instant.lux index 2901d5828..5177ffb44 100644 --- a/stdlib/source/lux/time/instant.lux +++ b/stdlib/source/lux/time/instant.lux @@ -214,7 +214,7 @@ (l;Lexer Int) (do p;Monad<Parser> [sign? (p;opt (l;this "-")) - raw-year (l;codec number;Codec<Text,Int> (l;many l;decimal)) + raw-year (p;codec number;Codec<Text,Int> (l;many l;decimal)) #let [signum (case sign? #;None 1 (#;Some _) -1)]] @@ -222,12 +222,12 @@ (def: lex-section (l;Lexer Int) - (l;codec number;Codec<Text,Int> (l;exactly +2 l;decimal))) + (p;codec number;Codec<Text,Int> (l;exactly +2 l;decimal))) (def: lex-millis (l;Lexer Int) (p;either (|> (l;at-most +3 l;decimal) - (l;codec number;Codec<Text,Int>) + (p;codec number;Codec<Text,Int>) (p;after (l;this "."))) (:: p;Monad<Parser> wrap 0))) |