Add explicit layer datatype

src/Dodge/WorldEvent/Shockwave.hs

@@ -8,7 +8,6 @@ import Dodge.Data
 import Dodge.Wall.Damage
 import Dodge.Base
 import Dodge.Zone
-import Dodge.Picture.Layer
 import Geometry
 import Picture
 import LensHelp
@@ -38,7 +37,7 @@ makeShockwaveAt is p rad dam push col = instantParticles .:~ Shockwave
 {- Shockwave picture.  -}
 drawShockwave :: Particle -> Picture
 drawShockwave pt = setDepth 20 
-    . setLayer 1
+    . setLayer BloomLayer
     . uncurryV translate (_ptPos pt) 
     . color (_ptColor pt) 
     $ thickCircle rad thickness
@@ -115,7 +114,7 @@ moveInverseShockwave w pt
 
 drawInverseShockwave :: Particle -> Picture
 drawInverseShockwave  pt 
-    = setLayer 1 $ setDepth 20 $ uncurryV translate p 
+    = setLayer BloomLayer $ setDepth 20 $ uncurryV translate p 
                           $ color cyan $ thickCircle rad thickness
   where
     p = _ptPos pt