slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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 ++ "\"") -- parsedatetime s = fromMaybe (error' $ "could not parse timestamp \"" ++ s ++ "\"")
-- (parsedatetimeM s) -- (parsedatetimeM s)
-- | Parse a date string to a time type, or raise an error. -- | Parse a YYYY-MM-DD or YYYY/MM/DD date string to a Day, or raise an error. For testing/debugging.
-- >>> let d = parsedate "2008/11/26" --
-- >>> parsedate "2008/02/03" `is` _parsetimewith "%Y/%m/%d" "2008/02/03" d -- >>> parsedate "2008/02/03"
-- >>> parsedate "2008-02-03" `is` _parsetimewith "%Y/%m/%d" "2008/02/03" d -- 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 :: String -> Day
parsedate s = fromMaybe (error' $ "could not parse date \"" ++ s ++ "\"") parsedate s = fromMaybe (error' $ "could not parse date \"" ++ s ++ "\"")
(parsedateM s) (parsedateM s)