cli: smart dates must use a consistent separator
Along with the preceding commits, this means that date:2014-8/1 is now parsed as 2014/01/01-2014/08/01 as intended, not 2014/08/01.
This commit is contained in:
parent
632dee668d
commit
a0010a294f
@ -474,10 +474,10 @@ ymd :: GenParser Char st SmartDate
|
|||||||
ymd = do
|
ymd = do
|
||||||
y <- many1 digit
|
y <- many1 digit
|
||||||
failIfInvalidYear y
|
failIfInvalidYear y
|
||||||
datesepchar
|
sep <- datesepchar
|
||||||
m <- many1 digit
|
m <- many1 digit
|
||||||
failIfInvalidMonth m
|
failIfInvalidMonth m
|
||||||
datesepchar
|
char sep
|
||||||
d <- many1 digit
|
d <- many1 digit
|
||||||
failIfInvalidDay d
|
failIfInvalidDay d
|
||||||
return $ (y,m,d)
|
return $ (y,m,d)
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user