Cleanup

src/Dodge/Creature/State.hs

@@ -26,7 +26,6 @@ import Dodge.Data.Damage.Type
 import Dodge.Data.World
 import Dodge.DoubleTree
 import Dodge.Euse
-import Dodge.HeldUse
 import Dodge.Inventory.SelectionList
 import Dodge.Item.BackgroundEffect
 import Dodge.Item.Grammar
@@ -218,9 +217,8 @@ doAnyEquipmentEffect loc cr = case itm ^? itLocation . ilEquipSite . _Just of
 tryUseParent :: LocationLDT ItemLink OItem -> World -> World
 tryUseParent loc w = fromMaybe w $ do
     t <- locUp loc
-    let t' = t ^. locLDT
     cr <- w ^? cWorld . lWorld . creatures . ix 0
-    return $ heldEffect InitialPress t' cr w
+    return $ gadgetEffect InitialPress t cr w
 
 trySynthBullet :: LocationLDT ItemLink OItem -> World -> World
 trySynthBullet loc w = fromMaybe w $ do