diff options
Diffstat (limited to 'stdlib/source/lux/time/instant.lux')
-rw-r--r-- | stdlib/source/lux/time/instant.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/time/instant.lux b/stdlib/source/lux/time/instant.lux index fcde19a3f..2b4d10394 100644 --- a/stdlib/source/lux/time/instant.lux +++ b/stdlib/source/lux/time/instant.lux @@ -9,7 +9,7 @@ [control [io (#+ IO io)] ["p" parser - ["l" text]]] + ["l" text (#+ Parser)]]] [data ["." error (#+ Error)] ["." maybe] @@ -216,7 +216,7 @@ ## Codec::decode (def: lex-year - (l.Lexer Int) + (Parser Int) (do p.monad [sign (p.or (l.this "-") (l.this "+")) raw-year (p.codec int.decimal (l.many l.decimal)) @@ -226,11 +226,11 @@ (wrap (i/* signum raw-year)))) (def: lex-section - (l.Lexer Int) + (Parser Int) (p.codec int.decimal (l.exactly 2 l.decimal))) (def: lex-millis - (l.Lexer Int) + (Parser Int) (p.either (|> (l.at-most 3 l.decimal) (p.codec int.decimal) (p.after (l.this "."))) @@ -244,7 +244,7 @@ ## Based on: https://stackoverflow.com/a/3309340/6823464 ## (def: lex-instant -## (l.Lexer Instant) +## (Parser Instant) ## (do p.monad ## [utc-year lex-year ## _ (l.this "-") |