Cleanup

2025-08-27 00:34:24 +01:00
parent 06d50ac752
commit 79a0137d54
6 changed files with 46 additions and 41 deletions
@@ -64,7 +64,7 @@ activateDetonator det = fromMaybe id $ do
    return $ cWorld . lWorld . projectiles . ix pjid . pjTimer .~ 0

 toggleEquipmentAt :: NewInt InvInt -> Creature -> World -> World
-toggleEquipmentAt invid cr w = case getEquipmentAllocation invid w of
+toggleEquipmentAt invid cr w = case equipmentDesignation invid w of
    DoNotMoveEquipment -> w
    PutOnEquipment{_allocNewPos = newp} ->
        w