slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Support parsing of dates in yyyy-dd-mm format

Browse Source
This commit is contained in:
tim 2008-12-09 07:15:18 +00:00
parent 22728c5c07
commit 250c92f646
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Ledger/Dates.hs
View File

@ -198,12 +198,14 @@ startofyear day = fromGregorian y 1 1 where (y,_,_) = toGregorian day
parsedatetime :: String -> UTCTime parsedatetime :: String -> UTCTime
parsedatetime s = parsedatetime s =
parsetimewith "%Y/%m/%d %H:%M:%S" s $ parsetimewith "%Y/%m/%d %H:%M:%S" s $
parsetimewith "%Y-%m-%d %H:%M:%S" s $
error $ printf "could not parse timestamp \"%s\"" s error $ printf "could not parse timestamp \"%s\"" s
-- | Parse a date string to a time type, or raise an error. -- | Parse a date string to a time type, or raise an error.
parsedate :: String -> Day parsedate :: String -> Day
parsedate s = parsedate s =
parsetimewith "%Y/%m/%d" s $ parsetimewith "%Y/%m/%d" s $
parsetimewith "%Y-%m-%d" s $
error $ printf "could not parse date \"%s\"" s error $ printf "could not parse date \"%s\"" s
-- | Parse a time string to a time type using the provided pattern, or -- | Parse a time string to a time type using the provided pattern, or