Refactor weapon usages

src/Dodge/Item/Weapon/UseEffect.hs

@@ -9,7 +9,7 @@ import Dodge.Base.Zone
 import Dodge.Base.Collide
 import Dodge.Picture.Layer
 --import Dodge.Item.Weapon.Decoration
-import Dodge.Item.Weapon.TriggerType
+--import Dodge.Item.Weapon.TriggerType
 --import Dodge.WorldEvent.Flash
 --import Dodge.WorldEvent.ThingsHit
 import Picture
@@ -114,7 +114,7 @@ aTractorBeam
     -> World
 aTractorBeam col cr w 
     = set (creatures . ix cid . crInv . ix itRef . itUse)
-        (\_ -> shoot $ aTractorBeam ((col + 1) `mod` 10))
+        (\_ -> aTractorBeam ((col + 1) `mod` 10))
     $ over projectiles (IM.insert i (tractorBeamAt col i pos dir)) w
   where 
     i = newProjectileKey w