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

haddock fix

Browse Source
This commit is contained in:
Simon Michael 2008-11-24 00:14:11 +00:00
parent dc007e69a5
commit b3c0bba51e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Ledger/Parse.hs
View File

@ -534,7 +534,7 @@ y = do
return (y,"1","1") return (y,"1","1")
-- | Parse a flexible date string, with awareness of the current time, -- | Parse a flexible date string, with awareness of the current time,
-- | and return a Date or raise an error. -- and return a Date or raise an error.
smartparsedate :: String -> Date smartparsedate :: String -> Date
smartparsedate s = parsedate $ printf "%04s/%02s/%02s" y m d smartparsedate s = parsedate $ printf "%04s/%02s/%02s" y m d
where (y,m,d) = fromparse $ parsewith smartdate s where (y,m,d) = fromparse $ parsewith smartdate s