Reorganise/cleanup

2023-02-21 01:24:22 +00:00
parent dee7472d31
commit 4904c57972
13 changed files with 119 additions and 140 deletions
@@ -16,7 +16,7 @@ import Data.IntMap.Strict (IntMap)
 data HUDElement
    = DisplayInventory 
        { _subInventory :: SubInventory
-        , _diSections :: FilterableSections ()
+        , _diSections :: SelectionSections ()
        }
    | DisplayCarte

@@ -25,7 +25,7 @@ data SubInventory
    | ExamineInventory {_subInvMSel :: Maybe Int}
 --    | CombineInventory {_subInvMap :: SelectionIntMap CombinableItem}
    | CombineInventory {_ciCombinations :: IntMap (SelectionItem CombinableItem)
-        , _ciSections :: FilterableSections CombinableItem
+        , _ciSections :: SelectionSections CombinableItem
        }
    | LockedInventory
    | DisplayTerminal {_termID :: Int}