Cleanup

src/Dodge/Render/HUD.hs

@@ -248,11 +248,12 @@ drawRBOptions :: Config -> World -> Picture
 drawRBOptions cfig w = fold $ do
     guard $ ButtonRight `M.member` _mouseButtons (_input w)
     invid <- you w ^? crManipulation . manObject . imSelectedItem
+    itid <- you w ^? crInv . ix invid
     eslist <-
-        fmap eqSiteToPositions $
-            you w ^? crInv . ix invid >>= \k -> w ^? cWorld . lWorld . items . ix k >>= equipType -- . itUse . uequipEffect . eeType
+        fmap eqTypeToSites $
+            w ^? cWorld . lWorld . items . ix itid >>= equipType
     i <- w ^? rbOptions . opSel
-    let ae = getEquipmentAllocation invid w
+    let ae = equipmentDesignation invid w
     sss <- w ^? hud . diSections
     Sel i' j _ <- w ^? hud . diSelection . _Just
     curpos <- selSecYint i' j sss