Flatten HUDElement

src/Dodge/Update/Scroll.hs

@@ -23,7 +23,7 @@ import SDL
 
 -- yi should be nonzero
 updateWheelEvent :: Int -> World -> World
-updateWheelEvent yi w = case w ^. hud . hudElement . subInventory of
+updateWheelEvent yi w = case w ^. hud . subInventory of
     NoSubInventory -> updateBaseWheelEvent yi w
     ExamineInventory -> updateBaseWheelEvent yi w
     MapperInventory{} -> updateBaseWheelEvent yi w
@@ -118,7 +118,7 @@ zoomOutLongGun sc = fromMaybe sc $ do
 
 moveCombineSel :: Int -> World -> World
 moveCombineSel yi =
-    ( hud . hudElement . subInventory %~ doscroll
+    ( hud . subInventory %~ doscroll
     )
         . (worldEventFlags . at CombineInventoryChange ?~ ())
   where