From 931c64221e6e54a07e0b5abc820f8d6b54cdb02d Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 8 Aug 2011 01:34:43 +0000
Subject: [PATCH] more useful parse error from fixSmartDateStr

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

diff --git a/hledger-lib/Hledger/Data/Dates.hs b/hledger-lib/Hledger/Data/Dates.hs
index e879acd90..6b80b3073 100644
--- a/hledger-lib/Hledger/Data/Dates.hs
+++ b/hledger-lib/Hledger/Data/Dates.hs
@@ -169,7 +169,7 @@ showDay day = printf "%04d/%02d/%02d" y m d where (y,m,d) = toGregorian day
 -- | Convert a smart date string to an explicit yyyy\/mm\/dd string using
 -- the provided reference date, or raise an error.
 fixSmartDateStr :: Day -> String -> String
-fixSmartDateStr t s = either parseerror id $ fixSmartDateStrEither t s
+fixSmartDateStr d s = either (\e->error' $ printf "could not parse date %s %s" (show s) (show e)) id $ fixSmartDateStrEither d s
 
 -- | A safe version of fixSmartDateStr.
 fixSmartDateStrEither :: Day -> String -> Either ParseError String