Remove SelectionSections

2024-10-25 22:19:04 +01:00
parent a20fc48eaa
commit d93c548d3c
15 changed files with 202 additions and 195 deletions
@@ -16,7 +16,7 @@ import Geometry.Data
 data HUDElement
    = DisplayInventory
        { _subInventory :: SubInventory
-        , _diSections :: SelectionSections ()
+        , _diSections :: IntMap (SelectionSection ())
        , _diSelection :: Maybe (Int, Int)
        , _diFilters :: IntMap (Maybe String)
        , _diSelectionExtra :: Int
@@ -36,7 +36,7 @@ data SubInventory
        }
    | ExamineInventory
    | CombineInventory
-        { _ciSections :: SelectionSections CombinableItem
+        { _ciSections :: IntMap (SelectionSection CombinableItem)
        , _ciSelection :: Maybe (Int, Int)
        , _ciFilters :: IntMap (Maybe String)
        }