From e68a72b07247edf648572322277fc112b55c8dc6 Mon Sep 17 00:00:00 2001
From: nick <nick@ingolia.org>
Date: Tue, 9 Dec 2008 21:00:46 +0000
Subject: [PATCH] Handle ledger parse errors

---
 hledger.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/hledger.hs b/hledger.hs
index 24ab4215b..cbe3c6fae 100644
--- a/hledger.hs
+++ b/hledger.hs
@@ -42,7 +42,10 @@ module Main (
              module UICommand,
 )
 where
+import Control.Monad.Error
 import qualified Data.Map as Map (lookup)
+import System.IO
+
 import Ledger
 import Utils
 import Options
@@ -74,5 +77,4 @@ parseLedgerAndDo :: [Opt] -> [String] -> ([Opt] -> [String] -> Ledger -> IO ())
 parseLedgerAndDo opts args cmd = do
   refdate <- today
   let runcmd = cmd opts args . prepareLedger opts args refdate
-  ledgerFilePathFromOpts opts >>= parseLedgerFile >>= either printParseError runcmd
-
+  ledgerFilePathFromOpts opts >>= runErrorT . parseLedgerFile >>= either (hPutStrLn stderr) runcmd