Move SSSExtra out of SelectionSections

2024-10-25 21:55:09 +01:00
parent 069392bd33
commit a20fc48eaa
8 changed files with 207 additions and 181 deletions
@@ -168,13 +168,14 @@ defaultDisplayInventory =
        , _diSections = defaultInvSections
        , _diSelection = Just (1,0)
        , _diSelectionExtra = 0
+        , _diFilters = IM.fromList [(-1, mempty), (2, mempty)]
        }

-defaultSSSExtra :: SSSExtra
-defaultSSSExtra =
-    SSSExtra
-        { _sssFilters = IM.fromList [(-1, mempty), (2, mempty)]
-        }
+--defaultSSSExtra :: SSSExtra
+--defaultSSSExtra =
+--    SSSExtra
+--        { _sssFilters = IM.fromList [(-1, mempty), (2, mempty)]
+--        }

 defaultInvSections :: SelectionSections ()
 defaultInvSections =
@@ -190,7 +191,7 @@ defaultInvSections =
                        & ssDescriptor .~ "NEARBY"
                    , defaultCOSection
                    ]
-        , _sssExtra = defaultSSSExtra
+--        , _sssExtra = defaultSSSExtra
        }

 defaultSS :: SelectionSection a