From 43549704c011dac000755f315d99414acca04fd5 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 5 Jun 2009 10:41:57 +0000
Subject: [PATCH] tracewith

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

diff --git a/Ledger/Utils.hs b/Ledger/Utils.hs
index 0590176fa..b62e8970d 100644
--- a/Ledger/Utils.hs
+++ b/Ledger/Utils.hs
@@ -230,6 +230,9 @@ strace a = trace (show a) a
 ltrace :: Show a => String -> a -> a
 ltrace l a = trace (l ++ ": " ++ show a) a
 
+-- | trace an expression using a custom show function
+tracewith f e = trace (f e) e
+
 -- parsing
 
 parsewith :: Parser a -> String -> Either ParseError a