Cleanup

src/Dodge/Item/Weapon/ExtraEffect.hs

@@ -27,7 +27,6 @@ import Dodge.SoundLogic
 import Dodge.Item.Weapon.LaserPath
 --import Dodge.Item.Attachment.Data
 import Dodge.Creature.Test
-import Dodge.WorldEvent.HelperParticle
 import Picture
 import Geometry.Vector
 import LensHelp
@@ -138,7 +137,7 @@ targetLaserUpdate _ cr w t
         & tgActive .~ False
         )
   where
-    (mp, ps) = reflectLaserAlong 0.2 sp ep w
+    (mp, _) = reflectLaserAlong 0.2 sp ep w
     sp = _crPos cr +.+ 15 *.* unitVectorAtAngle (_crDir cr)
     ep = sp +.+ 5000 *.* normalizeV (mouseWorldPos w -.- sp)
     addLaserPic = lasers .:~ LaserStart