Remove SelectionSections

2024-10-25 22:19:04 +01:00
parent a20fc48eaa
commit d93c548d3c
15 changed files with 202 additions and 195 deletions
@@ -177,11 +177,8 @@ defaultDisplayInventory =
 --        { _sssFilters = IM.fromList [(-1, mempty), (2, mempty)]
 --        }

-defaultInvSections :: SelectionSections ()
-defaultInvSections =
-    SelectionSections
-        { _sssSections =
-            IM.fromDistinctAscList $
+defaultInvSections :: IM.IntMap (SelectionSection ())
+defaultInvSections = IM.fromDistinctAscList $
                zip
                    [-1 ..]
                    [ defaultFiltSection
@@ -191,8 +188,6 @@ defaultInvSections =
                        & ssDescriptor .~ "NEARBY"
                    , defaultCOSection
                    ]
--        , _sssExtra = defaultSSSExtra
-        }

 defaultSS :: SelectionSection a
 defaultSS =