remove a haddock-troubling comment from AddCommand

This commit is contained in:
Simon Michael 2009-05-15 10:16:41 +00:00
parent 815a96d35a
commit 18e9f826d6

View File

@ -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