From f46cf82bed51bb160ba585a0201f9854dee5f601 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 15 Apr 2010 16:14:50 +0000
Subject: [PATCH] parsing: simpler high-level parse error message

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

diff --git a/hledger-lib/Hledger/Data/Parse.hs b/hledger-lib/Hledger/Data/Parse.hs
index 6990607cb..0fb5f6eaa 100644
--- a/hledger-lib/Hledger/Data/Parse.hs
+++ b/hledger-lib/Hledger/Data/Parse.hs
@@ -244,7 +244,7 @@ ledgerFile = do items <- many ledgerItem
                           , ledgerEndTagDirective
                           , emptyLine >> return (return id)
                           , liftM (return . addTimeLogEntry)  timelogentry
-                          ]
+                          ] <?> "ledger transaction, timelog entry, or directive"
 
 emptyLine :: GenParser Char st ()
 emptyLine = do many spacenonewline