From aac67b3d4d9c7ef4826e928d2aaf15779d81cb40 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Fri, 6 May 2016 19:02:48 -0700 Subject: [PATCH] lib: fix parsedate haddock --- hledger-lib/Hledger/Data/Dates.hs | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/hledger-lib/Hledger/Data/Dates.hs b/hledger-lib/Hledger/Data/Dates.hs index a71671fcd..49c50c1dc 100644 --- a/hledger-lib/Hledger/Data/Dates.hs +++ b/hledger-lib/Hledger/Data/Dates.hs @@ -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)