From 971cfa1c920f493874c3bc1daef270ca5f2af673 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Mon, 29 May 2023 17:32:28 -0400 Subject: [PATCH] REF remove dead comments --- lib/Internal/History.hs | 3 --- 1 file changed, 3 deletions(-) diff --git a/lib/Internal/History.hs b/lib/Internal/History.hs index 09fd3f3..bbf52c9 100644 --- a/lib/Internal/History.hs +++ b/lib/Internal/History.hs @@ -154,7 +154,6 @@ matchRecords :: [MatchRe] -> [TxRecord] -> InsertExceptT CurrencyM [BalTx] matchRecords ms rs = do (matched, unmatched, notfound) <- matchAll (matchPriorities ms) rs case (matched, unmatched, notfound) of - -- TODO record number of times each match hits for debugging (ms_, [], []) -> liftInner $ combineErrors $ fmap balanceTx ms_ (_, us, ns) -> throwError $ InsertException [StatementError us ns] @@ -170,7 +169,6 @@ matchToGroup ms = first (L.sortOn spDate) $ L.partition (isJust . spDate) ms --- TDOO could use a better struct to flatten the maybe date subtype data MatchGroup = MatchGroup { mgDate :: ![MatchRe] , mgNoDate :: ![MatchRe] @@ -226,7 +224,6 @@ zipperMatch (Unzipped bs cs as) x = go [] cs ms' = maybe ms (: ms) (matchDec m) in return (Zipped bs $ ps ++ ms' ++ as, skipOrPass) --- TODO all this unpacking left/error crap is annoying zipperMatch' :: Zipped MatchRe -> TxRecord