Cleanup

2025-08-27 00:34:24 +01:00
parent 06d50ac752
commit 79a0137d54
6 changed files with 46 additions and 41 deletions
@@ -45,8 +45,8 @@ updateBaseWheelEvent yi w
    bdown b = w & has (input . mouseButtons . ix b)
    rbscrollmax = fromMaybe 1 $ do
        invid <- you w ^? crManipulation . manObject . imSelectedItem
-        esite <- you w ^? crInv . ix invid >>= \k -> w ^? cWorld . lWorld . items . ix k >>= equipType -- . itUse . uequipEffect . eeType
-        return . length $ eqSiteToPositions esite
+        etype <- you w ^? crInv . ix invid >>= \k -> w ^? cWorld . lWorld . items . ix k >>= equipType
+        return . length $ eqTypeToSites etype

 selectedItemScroll :: Int -> World -> Maybe World
 selectedItemScroll yi w = do