REF remove dead comments

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