Start adding filters to selection lists

src/Dodge/Data/HUD.hs

@@ -10,6 +10,7 @@ import Dodge.Data.Button
 import Dodge.Data.FloorItem
 import Control.Lens
 import Geometry.Data
+import qualified Data.Text as T
 
 data HUDElement
     = DisplayInventory 
@@ -21,7 +22,8 @@ data HUDElement
 data SubInventory
     = NoSubInventory
     | ExamineInventory {_subInvSel :: Maybe Int}
-    | CombineInventory {_subInvSel :: Maybe Int}
+    | CombineInventory {_subInvSel :: Maybe Int, _subInvRegex :: T.Text 
+        , _subInvRegexInput :: Bool}
     | LockedInventory
     | DisplayTerminal {_termID :: Int}
     deriving (Eq, Ord, Show, Read) --Generic, Flat)