From 4228c901e8c563a6244549f96611b4205c834b91 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Tue, 14 Jun 2011 19:10:16 +0000 Subject: [PATCH] change nulldate --- hledger-lib/Hledger/Data/Dates.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/hledger-lib/Hledger/Data/Dates.hs b/hledger-lib/Hledger/Data/Dates.hs index 819bbd5dd..5f3bd952e 100644 --- a/hledger-lib/Hledger/Data/Dates.hs +++ b/hledger-lib/Hledger/Data/Dates.hs @@ -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 [