From f937f592766b9d0bdcd5295009f3ed80c17bc474 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 10 Mar 2010 19:17:32 +0000
Subject: [PATCH] assertParse now generates test failures

---
 hledger-lib/Ledger/Utils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger-lib/Ledger/Utils.hs b/hledger-lib/Ledger/Utils.hs
index 81ba11a70..d3a342cf0 100644
--- a/hledger-lib/Ledger/Utils.hs
+++ b/hledger-lib/Ledger/Utils.hs
@@ -292,7 +292,7 @@ a `is` e = assertEqual "" e a
 
 -- | Assert a parse result is some expected value, or print a parse error.
 assertParse :: (Show a, Eq a) => (Either ParseError a) -> a -> Assertion
-assertParse parse expected = either printParseError (`is` expected) parse
+assertParse parse expected = either (assertFailure.show) (`is` expected) parse
 
 printParseError :: (Show a) => a -> IO ()
 printParseError e = do putStr "parse error at "; print e