Slow your turn when moving and not aiming

src/Dodge/WorldEvent/Explosion.hs

@@ -17,7 +17,7 @@ import Control.Monad.State
 import Data.List
 --import Data.Maybe
 import System.Random
-import qualified Data.IntMap.Strict as IM
+--import qualified Data.IntMap.Strict as IM
 import Control.Lens
 
 makePoisonExplosionAt 
@@ -36,7 +36,7 @@ makeTeslaExplosionAt
     :: Point2   -- ^ Position
     -> World 
     -> World
-makeTeslaExplosionAt pos w = undefined
+makeTeslaExplosionAt pos w = undefined pos w
 --     soundOncePos grenadeBang pos $ foldr ($) w listOfFunctions -- a bit shorter
 --  where 
 --    xs = randomRs (0, 2*pi) $ _randGen w