Rethink selection lists as intmaps

src/Dodge/Data/HUD.hs

@@ -5,7 +5,8 @@
 
 module Dodge.Data.HUD where
 
---import Dodge.Data.SelectionList
+import Dodge.Data.Combine
+import Dodge.Data.SelectionList
 import Dodge.Data.Button
 import Dodge.Data.FloorItem
 import Control.Lens
@@ -20,9 +21,8 @@ data HUDElement
 
 data SubInventory
     = NoSubInventory
-    | ExamineInventory {_subInvSel :: Maybe Int}
-    | CombineInventory {_subInvSel :: Maybe Int, _subInvRegex :: String
-        , _subInvRegexInput :: Bool}
+    | ExamineInventory {_subInvMSel :: Maybe Int}
+    | CombineInventory {_subInvMap :: SelectionIntMap CombinableItem}
     | LockedInventory
     | DisplayTerminal {_termID :: Int}
 --    deriving (Eq, Ord, Show, Read) --Generic, Flat)