simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-12 19:08:34 +03:00
Code Issues Projects Releases Wiki Activity

lib: fix parsedate haddock

Browse Source
This commit is contained in:
Simon Michael 2016-05-06 19:02:48 -07:00
parent 913b8e4c19
commit aac67b3d4d
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -546,10 +546,14 @@ parsedateM s = firstJust [
-- parsedatetime s = fromMaybe (error' $ "could not parse timestamp \"" ++ s ++ "\"")
-- (parsedatetimeM s)
-- | Parse a date string to a time type, or raise an error.
-- >>> let d = parsedate "2008/11/26"
-- >>> parsedate "2008/02/03" `is` _parsetimewith "%Y/%m/%d" "2008/02/03" d
-- >>> parsedate "2008-02-03" `is` _parsetimewith "%Y/%m/%d" "2008/02/03" d
-- | Parse a YYYY-MM-DD or YYYY/MM/DD date string to a Day, or raise an error. For testing/debugging.
--
-- >>> parsedate "2008/02/03"
-- 2008-02-03
-- >>> parsedate "2008/02/03/"
-- *** Exception: could not parse date "2008/02/03/"
-- >>> parsedate "2008/02/30" -- invalid dates may get silently adjusted
-- 2008-02-29
parsedate :: String -> Day
parsedate s = fromMaybe (error' $ "could not parse date \"" ++ s ++ "\"")
(parsedateM s)