Defunction-ify item modules, requires more cleanup

src/Dodge/WorldEvent/Flash.hs

@@ -15,6 +15,7 @@ module Dodge.WorldEvent.Flash
     , flareCircleAt
     ) where
 import Dodge.Data
+import Dodge.PtFlicker
 import Dodge.LightSource
 import Dodge.WorldEvent.HelperParticle
 --import Dodge.Default
@@ -52,8 +53,3 @@ explosionFlashAt p = tempLightSources .:~ tlsTimeRadFunPos 20 150 intensityFunc
         | x < 10 = 1 / (10 - fromIntegral x)
         | otherwise = 1
 
-ptFlicker :: Particle -> World -> World
-ptFlicker pt 
-    | _ptTimer pt `mod` 7 == 0 = tempLightSources 
-        .:~ tlsTimeRadColPos 1 70 (0.5 *.*.* xyzV4 (_ptColor pt)) (addZ 10 $ _ptPos pt)
-    | otherwise = id