Cleanup warnings

src/Dodge/Item/Weapon/UseEffect.hs

@@ -6,10 +6,10 @@ module Dodge.Item.Weapon.UseEffect
 import Dodge.Data
 import Dodge.Base
 import Dodge.Picture.Layer
-import Dodge.Item.Weapon.Decoration
+--import Dodge.Item.Weapon.Decoration
 import Dodge.Item.Weapon.TriggerType
-import Dodge.WorldEvent.Flash
-import Dodge.WorldEvent.ThingsHit
+--import Dodge.WorldEvent.Flash
+--import Dodge.WorldEvent.ThingsHit
 import Picture
 import Geometry
 
@@ -39,7 +39,7 @@ mvBlip :: Point2 -> Color
     -> Int  -- ^ Max possible timer value
     -> Int  -- ^ Current timer value
     -> World -> Particle -> (World, Maybe Particle)
-mvBlip p col maxt 0 w pt = (w, Nothing)
+mvBlip _ _   _    0 w _ = (w, Nothing)
 mvBlip p col maxt t w pt 
     = (w, Just $ pt & ptUpdate' .~ mvBlip p col maxt (t-1)
                     & ptDraw   .~ (const . setDepth (-0.5)
@@ -73,7 +73,7 @@ mvSonar x p w pt = (w, Just $ pt {_ptDraw = const pic
           where crad = _crRad cr
                 cpos = _crPos cr
     r = fromIntegral (500 - x*5)
-    sweepPics = [colHelper 0.05 $ uncurry translate p $ thickCircle r 5 ]
+    --sweepPics = [colHelper 0.05 $ uncurry translate p $ thickCircle r 5 ]
     globalAlpha | x > 10 = 1
                 | otherwise = fromIntegral x / 10
     colHelper y = color (withAlpha (y * globalAlpha) green)
@@ -97,7 +97,7 @@ mvRadar x p w pt =
   where 
     pic = onLayerL [levLayer ShadowLayer, 1] $ pictures sweepPics
     putBlips = over worldEvents ( over particles (blips ++) . )
-    blips = map (\p -> blipAt p (withAlpha (0.5*globalAlpha) red) 50) circPoints
+    blips = map (\bp -> blipAt bp (withAlpha (0.5*globalAlpha) red) 50) circPoints
     circPoints = mapMaybe (\wl -> uncurry collidePointCircCorrect (_wlLine wl) r p)
         $ map (over wlLine swp) (IM.elems $ wallsAlongCirc p r w)
                       ++ IM.elems (wallsAlongCirc p r w)
@@ -109,7 +109,7 @@ mvRadar x p w pt =
                 ]
     globalAlpha | x > 10 = 1
                 | otherwise = fromIntegral x / 10
-    colHelper y = color (withAlpha (y * globalAlpha) red)
+    --colHelper y = color (withAlpha (y * globalAlpha) red)
 
 aTractorBeam 
     :: Int      -- ^ Color id
@@ -186,9 +186,7 @@ updateTractor colID time i w
         | x > -1 = x
         | x > -5 = -1
         | otherwise = (x - 10) / 5
-    d = errorNormalizeV 13 $ p' -.- p1
     f x = g x / 50
-    cID = fromIntegral colID / 10
     col = mixColors 0.5 0.5 white blue
     px z = (fromIntegral time + 5) *.* z
     pz z = fromIntegral time * 10 *.* z