Cleanup various equipment/right button code

2025-08-27 00:45:58 +01:00
parent 79a0137d54
commit 7581c86d93
6 changed files with 25 additions and 32 deletions
@@ -252,7 +252,7 @@ drawRBOptions cfig w = fold $ do
    eslist <-
        fmap eqTypeToSites $
            w ^? cWorld . lWorld . items . ix itid >>= equipType
-    i <- w ^? rbOptions . opSel
+    i <- w ^? rbState . opSel
    let ae = equipmentDesignation invid w
    sss <- w ^? hud . diSections
    Sel i' j _ <- w ^? hud . diSelection . _Just