Cleanup warnings

src/Dodge/WorldEvent/Explosion.hs

@@ -3,7 +3,6 @@ Explosions: creation of shockwave and particles at a given point.
  -}
 module Dodge.WorldEvent.Explosion
   where
-
 import Dodge.Data
 import Dodge.Base
 import Dodge.WorldEvent.SpawnParticle
@@ -16,7 +15,7 @@ import Picture
 
 import Control.Monad.State
 import Data.List
-import Data.Maybe
+--import Data.Maybe
 import System.Random
 import qualified Data.IntMap.Strict as IM
 import Control.Lens
@@ -78,6 +77,6 @@ makeExplosionAt p w
     times = randomRs (20,25) $ _randGen w
     mF q v size time = makeFlameletTimed q v Nothing size time
     newFs = zipWith4 mF fPs (fmap (3 *.*) fVs') sizes times
-    addFlames w = foldr ($) w newFs
+    addFlames w' = foldr ($) w' newFs
     pushAgainstWalls q = maybe q (uncurry (+.+)) $ reflectPointWalls p q $ wallsNearPoint q w