From 18e9f826d67964c1ae894f875db294f84a27a8f7 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 15 May 2009 10:16:41 +0000
Subject: [PATCH] remove a haddock-troubling comment from AddCommand

---
 AddCommand.hs | 1 -
 1 file changed, 1 deletion(-)

diff --git a/AddCommand.hs b/AddCommand.hs
index 428ff6103..cf1bf45bc 100644
--- a/AddCommand.hs
+++ b/AddCommand.hs
@@ -202,7 +202,6 @@ transactionsSimilarTo l s =
     sortBy compareRelevanceAndRecency
                $ filter ((> threshold).fst)
                $ [(compareLedgerDescriptions s $ ltdescription t, t) | t <- ts]
-               -- $ [(compareLedgerDescriptions s $ (strace $ unwords $ [ltdescription t] ++ (map (replace ":" " " . paccount) $ ltpostings t)), t) | t <- ts]
     where
       compareRelevanceAndRecency (n1,t1) (n2,t2) = compare (n2,ltdate t2) (n1,ltdate t1)
       ts = ledger_txns $ rawledger l