Cleanup

src/Dodge/WorldEvent/Explosion.hs

@@ -8,10 +8,6 @@ module Dodge.WorldEvent.Explosion (
     makeTeslaExplosionAt,
 ) where
 
---import Dodge.WorldEvent.Flash
-
---import Geometry.Vector3D
-
 import Control.Monad
 import Data.List
 import Dodge.Base.Collide
@@ -27,8 +23,6 @@ import LensHelp
 import Picture
 import RandomHelp
 
---import Data.Maybe
-
 makePoisonExplosionAt ::
     -- | Position
     Point2 ->
@@ -97,7 +91,6 @@ makeExplosionAt p w =
     inversePushOut v = (15 - magV v) * 0.01 *.* v
     fVs' = zipWith (+.+) fVs $ map inversePushOut fPs'
     sizes = randomRs (2, 9) $ _randGen w
-    --times = randomRs (20,25) $ _randGen w
     times = randomRs (15, 20) $ _randGen w
     mF q z v size time = makeFlamelet q z v size time
     newFs = zipWith5 mF fPs zs (fmap (3 *.*) fVs') sizes times