Start unifying regex parts of selection sections

2023-02-20 18:20:48 +00:00
parent c3fb94c7b5
commit 7b9b1d1799
12 changed files with 90 additions and 136 deletions
@@ -140,8 +140,7 @@ toggleCombineInv uv = case uv ^? uvWorld . hud . hudElement . subInventory of
 enterCombineInv :: Configuration -> World -> World
 enterCombineInv cfig w = w & hud . hudElement . subInventory .~ CombineInventory 
    cm'
-    Nothing 
-    sss
+    FilterableSections {_fssFilters=IM.singleton (-1) Nothing,_fssSections = sss}
    --(updateCombineSelections w cfig sss)
  where
    cm' = IM.fromAscList $ zip [0..] $ combineList' w