Commit before attempting to add concurrency to loop

src/Dodge/HeldUse.hs

@@ -1,15 +1,13 @@
 module Dodge.HeldUse where
 
-import Dodge.Creature.HandPos
-import Dodge.Tesla.Arc
 import Color
 import Data.Maybe
 import Data.Traversable
 import Dodge.Base.Coordinate
 import Dodge.Bullet
+import Dodge.Creature.HandPos
 import Dodge.Data.World
 import Dodge.Gas
-import Dodge.Item.Location
 import Dodge.Item.Weapon.BatteryGuns
 import Dodge.Item.Weapon.Launcher
 import Dodge.Item.Weapon.Radar
@@ -18,6 +16,7 @@ import Dodge.Item.Weapon.TriggerType
 import Dodge.Item.Weapon.Utility
 import Dodge.Projectile.Create
 import Dodge.SoundLogic
+import Dodge.Tesla.Arc
 import Dodge.WorldEvent.Flash
 import Geometry
 import qualified IntMapHelp as IM
@@ -357,7 +356,6 @@ useMod hm = case hm of
         cr & crDir %~ tweenAngles x (_crOldDir cr)
             & crPos %~ tweenPoints x (_crOldPos cr)
 
-
 mcUseHeld :: HeldItemType -> Item -> Machine -> World -> World
 mcUseHeld hit = case hit of
     LASGUN -> mcShootLaser
@@ -449,9 +447,9 @@ fireRemoteShell it cr w =
     set
         (cWorld . creatures . ix cid . crInv . ix j . itUse . heldUse)
         (HeldExplodeRemoteShell itid i)
-        $ addRemRocket w'
+        $ addRemRocket w
   where
-    (w', itid) = getHeldItemLoc cr w
+    itid = _itID it
     i = IM.newKey $ _props (_cWorld w)
     cid = _crID cr
     addRemRocket =