Tweak use location

src/Dodge/Creature/State.hs

@@ -3,7 +3,6 @@ module Dodge.Creature.State (
     doDamage,
 ) where
 
-import Data.Bifunctor
 import Dodge.Data.DoubleTree
 import Dodge.Item.Orientation
 import Dodge.Item.UseDelay
@@ -218,7 +217,7 @@ 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' = bimap id id $ t ^. locLDT
+    let t' = t ^. locLDT
     cr <- w ^? cWorld . lWorld . creatures . ix 0
     return $ heldEffectNoHammerCheck t' cr w