Cleanup warnings

src/Dodge/WorldEvent/Flash.hs

@@ -11,18 +11,15 @@ flicker : potentially long, moving, abrupt changes in alpha
 module Dodge.WorldEvent.Flash
     where
 import Dodge.Data
-import Dodge.Base
+--import Dodge.Base
 import Dodge.Picture
 import Dodge.LightSources
-
 import Dodge.WorldEvent.ThingsHit
 import Dodge.WorldEvent.HelperParticle
-
 import Picture
 import Geometry
 
 import Data.Maybe (maybeToList)
-
 import Control.Lens
 
 glareAt :: Int -> Float -> Float -> Color -> Int -> Float -> Point2 -> World -> World
@@ -70,12 +67,13 @@ lowLightPic :: Float -> Float -> Color -> (Point2, Point2) -> World -> Picture
 lowLightPic len wdth col (a,b) w = case thingsHit a b w of
         ((p, E3x2 wall):_) 
             -> setCol . lineOfThickness wdth $ [alongSegBy len p wa, alongSegBy len p wb]
-                where x = len *.* normalizeV (wa -.- wb)
-                      (wa,wb) = _wlLine wall
+              where 
+                (wa,wb) = _wlLine wall
         ((p, E3x1 cr):_) 
             -> setCol . uncurry translate cp . rotate (-0.25 * pi + argV (p -.- cp))
                     $ thickArc 0 (pi/2) (_crRad cr) wdth
-                where cp = _crPos cr
+              where 
+                cp = _crPos cr
         _   -> blank
   where setCol = color col . setDepth (-0.5) . setLayer 2
 
@@ -93,6 +91,7 @@ explosionFlashAt p =  over tempLightSources ((:) $ tLightFade 20 150 intensityFu
             | x < 10 = 1 / (10 - fromIntegral x)
             | otherwise = 1
 
+flameGlareAt :: Point2 -> World -> World
 flameGlareAt = glareAt 1 10 5 (withAlpha 0.05 orange) 8 40
 
 lowLightDirected :: Color -> Point2 -> Point2 -> [Float] -> World -> World