Cleanup, fix broken records in LeftUse

2024-10-03 10:34:17 +01:00
parent e88b3c7443
commit 1953fb2d0c
19 changed files with 71 additions and 114 deletions
@@ -48,7 +48,7 @@ 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 . equipEffect . eeSite
+        esite <- you w ^? crInv . ix invid . itUse . uequipEffect . eeSite
        return $ length $ equipSiteToPositions esite
    y = fromIntegral yi
    numLocs = (fst . IM.findMax $ (w ^. cWorld . lWorld . seenLocations)) + 1