Commit before attempting to add concurrency to loop

src/Dodge/Item/Weapon/BatteryGuns.hs

@@ -14,7 +14,6 @@ import Dodge.Base
 import Dodge.Beam
 import Dodge.Creature.HandPos
 import Dodge.Data.World
-import Dodge.Item.Location
 import Dodge.Item.Weapon.LaserPath
 import Geometry
 import qualified IntMapHelp as IM
@@ -157,11 +156,11 @@ circleLaser it cr w
 
 shootDualLaser :: Item -> Creature -> World -> World
 shootDualLaser it cr w =
-    w'
+    w
         & cWorld . newBeams . positronBeams .:~ dualRayAt (_lasBeam $ _itParams it) itid w (_lasColor $ _itParams it) dam phasev posl dirl
         & cWorld . newBeams . electronBeams .:~ basicBeamAt itid w (_lasColor2 $ _itParams it) dam phasev posr dirr
   where
-    (w', itid) = getHeldItemLoc cr w
+    itid = _itID it
     dir = _crDir cr
     pos = _crPos cr +.+ aimlength *.* unitVectorAtAngle dir
     aimlength = aimingMuzzlePos cr it