change nulldate

This commit is contained in:
Simon Michael 2011-06-14 19:10:16 +00:00
parent 5106938b4b
commit 4228c901e8

View File

@ -566,9 +566,11 @@ justdatespan rdate = do
mkdatespan :: String -> String -> DateSpan
mkdatespan b = DateSpan (Just $ parsedate b) . Just . parsedate
nulldatespan :: DateSpan
nulldatespan = DateSpan Nothing Nothing
nulldate = parsedate "1900/01/01"
nulldate :: Day
nulldate = parsedate "0000/00/00"
tests_Hledger_Data_Dates = TestList
[