Cleanup

2024-12-19 23:40:04 +00:00
parent f3cfe8cb5f
commit e1989eaa1e
28 changed files with 285 additions and 300 deletions
@@ -48,8 +48,8 @@ updateWheelEvent yi w = case w ^. hud . hudElement of
  where
    rbscrollmax = fromMaybe 1 $ do
        invid <- you w ^? crManipulation . manObject . imSelectedItem
-        esite <- you w ^? crInv . ix invid . itUse . uequipEffect . eeSite
-        return $ length $ equipSiteToPositions esite
+        esite <- you w ^? crInv . ix invid . itUse . uequipEffect . eeType
+        return $ length $ eqSiteToPositions esite
    y = fromIntegral yi
    numLocs = (fst . IM.findMax $ (w ^. cWorld . lWorld . seenLocations)) + 1
    bdown b = b `M.member` _mouseButtons (_input w)