Start unifying regex parts of selection sections

src/Dodge/Data/HUD.hs

@@ -16,20 +16,16 @@ import Data.IntMap.Strict (IntMap)
 data HUDElement
     = DisplayInventory 
         { _subInventory :: SubInventory
-        , _diSections :: SelectionSections ()
-        , _invRegex :: Maybe String
-        , _closeRegex :: Maybe String
+        , _diSections :: FilterableSections ()
         }
     | DisplayCarte
---    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data SubInventory
     = NoSubInventory
     | ExamineInventory {_subInvMSel :: Maybe Int}
 --    | CombineInventory {_subInvMap :: SelectionIntMap CombinableItem}
     | CombineInventory {_ciCombinations :: IntMap (SelectionItem CombinableItem)
-        , _ciRegex :: Maybe String
-        , _ciSections :: SelectionSections CombinableItem
+        , _ciSections :: FilterableSections CombinableItem
         }
     | LockedInventory
     | DisplayTerminal {_termID :: Int}

src/Dodge/Data/SelectionList.hs

@@ -44,7 +44,6 @@ data SelectionSections a = SelectionSections
     }
 
 data SectionCursor = SectionCursor
-    --{ _scurSel :: Int
     { _scurPos :: Int
     , _scurSize :: Int
     , _scurColor :: Color