From b8b3de071957e3d3308ca0f0cf82f28a47c8b527 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 8 Oct 2008 17:47:58 +0000
Subject: [PATCH] document an issue with parse errors

---
 Ledger/Parse.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Ledger/Parse.hs b/Ledger/Parse.hs
index 88d157a1d..7425dec35 100644
--- a/Ledger/Parse.hs
+++ b/Ledger/Parse.hs
@@ -152,6 +152,9 @@ reservedOp = P.reservedOp lexer
 
 -- parsers
 
+-- | Parse a RawLedger from either a ledger file or a timelog file.
+-- It tries first the ledger parser then the timelog parser, unfortunately
+-- this obscures ledger file parse errors.
 ledgerfile :: Parser RawLedger
 ledgerfile = try (ledger) <|> ledgerfromtimelog