remove a haddock-troubling comment from AddCommand
This commit is contained in:
parent
815a96d35a
commit
18e9f826d6
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user