journal: require dates to begin with a digit

2015-10-04 08:41:01 -10:00 · 2015-10-04 08:41:01 -10:00 · a2f344f6d9
commit a2f344f6d9
parent aee8d2144b
1 changed files with 4 additions and 1 deletions
--- a/hledger-lib/Hledger/Read/JournalReader.hs
+++ b/hledger-lib/Hledger/Read/JournalReader.hs
@ -538,7 +538,10 @@ datep = do
  -- hacky: try to ensure precise errors for invalid dates
  -- XXX reported error position is not too good
  -- pos <- genericSourcePos <$> getPosition
-  datestr <- many1 $ choice' [digit, datesepchar]
+  datestr <- do
+    c <- digit
+    cs <- many $ choice' [digit, datesepchar]
+    return $ c:cs
  let sepchars = nub $ sort $ filter (`elem` datesepchars) datestr
  when (length sepchars /= 1) $ fail $ "bad date, different separators used: " ++ datestr
  let dateparts = wordsBy (`elem` datesepchars) datestr