simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-26 03:42:25 +03:00
Code Issues Projects Releases Wiki Activity

;lib: add YYYY.MM.DD to parsedate/parsedateM helpers

Browse Source 
For a bit more consistency with simple dates. And document better.
This commit is contained in:
Simon Michael 2020-02-27 10:57:55 -08:00
parent 5a2f28f3ac
commit 43c55bf4ea
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
hledger-lib/Hledger/Data/Dates.hs
View File

@ -668,11 +668,14 @@ parsetime =
#endif
-- | Parse a couple of date string formats to a time type.
-- | Try to parse a couple of date string formats:
-- `YYYY-MM-DD`, `YYYY/MM/DD` or `YYYY.MM.DD`, with leading zeros required.
-- For internal use, not quite the same as the journal's "simple dates".
parsedateM :: String -> Maybe Day
parsedateM s = firstJust [
parsetime defaultTimeLocale "%Y/%m/%d" s,
parsetime defaultTimeLocale "%Y-%m-%d" s
parsetime defaultTimeLocale "%Y-%m-%d" s,
parsetime defaultTimeLocale "%Y.%m.%d" s
]
@ -681,7 +684,7 @@ parsedateM s = firstJust [
-- parsedatetime s = fromMaybe (error' $ "could not parse timestamp \"" ++ s ++ "\"")
-- (parsedatetimeM s)
-- | Parse a YYYY-MM-DD or YYYY/MM/DD date string to a Day, or raise an error. For testing/debugging.
-- | Like parsedateM, raising an error on parse failure.
--
-- >>> parsedate "2008/02/03"
-- 2008-02-03