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
@@ -49,7 +49,7 @@ updateWheelEvent yi w = case w ^. hud . hudElement of
    invKeyDown = ScancodeCapsLock `M.member` _pressedKeys (_input w)

 moveCombineSel :: Int -> World -> World
-moveCombineSel yi = hud . hudElement . subInventory . ciSections 
+moveCombineSel yi = hud . hudElement . subInventory . ciSections . fssSections
    %~ scrollSelectionSections yi

 moveSubSel :: Int -> Int -> World -> World