slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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 #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 :: String -> Maybe Day
parsedateM s = firstJust [ 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,
parsetime defaultTimeLocale "%Y.%m.%d" s
] ]
@ -681,7 +684,7 @@ parsedateM s = firstJust [
-- parsedatetime s = fromMaybe (error' $ "could not parse timestamp \"" ++ s ++ "\"") -- parsedatetime s = fromMaybe (error' $ "could not parse timestamp \"" ++ s ++ "\"")
-- (parsedatetimeM 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" -- >>> parsedate "2008/02/03"
-- 2008-02-03 -- 2008-02-03