Start adding filters to selection lists

src/Dodge/Combine.hs

@@ -8,6 +8,7 @@ module Dodge.Combine (
     enterCombineInv,
 ) where
 
+import qualified Data.Text as T
 import qualified Data.IntSet as IS
 import Control.Lens
 import Control.Monad
@@ -92,7 +93,11 @@ toggleCombineInv w = case w ^. hud . hudElement of
     _ -> w & enterCombineInv
 
 enterCombineInv :: World -> World
-enterCombineInv w = w & hud . hudElement . subInventory .~ CombineInventory mi
+enterCombineInv w = w & hud . hudElement . subInventory .~ CombineInventory 
+    { _subInvSel = mi
+    , _subInvRegex = T.pack ""
+    , _subInvRegexInput = False
+    }
   where
     mi = 0 <$ listToMaybe (combineItemListYou w)