mkdatespan haddock

This commit is contained in:
Simon Michael 2011-07-17 15:54:58 +00:00
parent cd68f43be3
commit 55033b6e79

View File

@ -561,6 +561,8 @@ justdatespan rdate = do
d <- smartdate d <- smartdate
return $ spanFromSmartDate rdate d return $ spanFromSmartDate rdate d
-- | Make a datespan from two valid date strings parseable by parsedate
-- (or raise an error). Eg: mkdatespan "2011/1/1" "2011/12/31".
mkdatespan :: String -> String -> DateSpan mkdatespan :: String -> String -> DateSpan
mkdatespan b = DateSpan (Just $ parsedate b) . Just . parsedate mkdatespan b = DateSpan (Just $ parsedate b) . Just . parsedate