slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove a haddock-troubling comment from AddCommand

Browse Source
This commit is contained in:
Simon Michael 2009-05-15 10:16:41 +00:00
parent 815a96d35a
commit 18e9f826d6
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
AddCommand.hs
View File

@ -202,7 +202,6 @@ transactionsSimilarTo l s =
sortBy compareRelevanceAndRecency sortBy compareRelevanceAndRecency
$ filter ((> threshold).fst) $ filter ((> threshold).fst)
$ [(compareLedgerDescriptions s $ ltdescription t, t) | t <- ts] $ [(compareLedgerDescriptions s $ ltdescription t, t) | t <- ts]
-- $ [(compareLedgerDescriptions s $ (strace $ unwords $ [ltdescription t] ++ (map (replace ":" " " . paccount) $ ltpostings t)), t) | t <- ts]
where where
compareRelevanceAndRecency (n1,t1) (n2,t2) = compare (n2,ltdate t2) (n1,ltdate t1) compareRelevanceAndRecency (n1,t1) (n2,t2) = compare (n2,ltdate t2) (n1,ltdate t1)
ts = ledger_txns $ rawledger l ts = ledger_txns $ rawledger l