Pass item to item use function

src/Dodge/Item/Weapon/UseEffect.hs

@@ -112,7 +112,7 @@ aTractorBeam
     -> World
 aTractorBeam col cr w 
     = set (creatures . ix cid . crInv . ix itRef . itUse)
-        (shoot $ aTractorBeam ((col + 1) `mod` 10))
+        (\_ -> shoot $ aTractorBeam ((col + 1) `mod` 10))
     $ over projectiles (IM.insert i (tractorBeamAt col i pos dir)) w
   where 
     i = newProjectileKey w