Move combine list over to SelectionSections -- more todo

src/Dodge/Update/Scroll.hs

@@ -2,6 +2,7 @@ module Dodge.Update.Scroll (
     updateWheelEvent,
 ) where
 
+import Dodge.SelectionSections
 import SelectionIntMap
 import qualified Data.Map.Strict as M
 import Data.Maybe
@@ -49,7 +50,8 @@ updateWheelEvent yi w = case w ^. hud . hudElement of
     invKeyDown = ScancodeCapsLock `M.member` _pressedKeys (_input w)
 
 moveCombineSel :: Int -> World -> World
-moveCombineSel yi = hud . hudElement . subInventory . subInvMap %~ moveSelectionMapSelection yi
+moveCombineSel yi = hud . hudElement . subInventory . ciSections 
+    %~ scrollSelectionSections yi
 
 moveSubSel :: Int -> Int -> World -> World
 moveSubSel yi maxyi =