From 55033b6e79819c30c6749050dfad17d2e20de4ec Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 17 Jul 2011 15:54:58 +0000
Subject: [PATCH] mkdatespan haddock

---
 hledger-lib/Hledger/Data/Dates.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/hledger-lib/Hledger/Data/Dates.hs b/hledger-lib/Hledger/Data/Dates.hs
index 5f43af02c..b6c2129a2 100644
--- a/hledger-lib/Hledger/Data/Dates.hs
+++ b/hledger-lib/Hledger/Data/Dates.hs
@@ -561,6 +561,8 @@ justdatespan rdate = do
   d <- smartdate
   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 b = DateSpan (Just $ parsedate b) . Just . parsedate