Filter combine list more sensibly

src/Dodge/Combine.hs

@@ -8,6 +8,7 @@ module Dodge.Combine (
     enterCombineInv,
 ) where
 
+import qualified Data.IntSet as IS
 import Control.Lens
 import Control.Monad
 import Data.Bifunctor
@@ -44,10 +45,10 @@ combineItemListYouX = map (first $ concatMap g) . lookupItems . yourInv
     g (amount, i) = replicate (_getItAmount amount) i
 
 combineListInfo :: World -> [([Int], ([String], Item))]
-combineListInfo w = filter (f . snd . snd) . map (cmm inv) $ combineItemListYouX w
+combineListInfo w = filter f . map (cmm inv) $ combineItemListYouX w
   where
     inv = yourInv w
-    f itm = _itType itm `notElem` fmap _itType inv
+    f (is,(_,itm)) = _itType itm `notElem` fmap _itType (IM.restrictKeys inv (IS.fromList is))
 
 combineItemListYou :: World -> [([Int], Item)]
 combineItemListYou = map (second snd) . combineListInfo