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.
2014-08-07 17:36:10 -07:00 · 2014-08-07 17:36:10 -07:00 · a0010a294f
commit a0010a294f
parent 632dee668d
1 changed files with 2 additions and 2 deletions
--- a/hledger-lib/Hledger/Data/Dates.hs
+++ b/hledger-lib/Hledger/Data/Dates.hs
@ -474,10 +474,10 @@ ymd :: GenParser Char st SmartDate
 ymd = do
  y <- many1 digit
  failIfInvalidYear y
-  datesepchar
+  sep <- datesepchar
  m <- many1 digit
  failIfInvalidMonth m
-  datesepchar
+  char sep
  d <- many1 digit
  failIfInvalidDay d
  return $ (y,m,d)