Remove ptCrIgnore

src/Dodge/WorldEvent/Explosion.hs

@@ -61,7 +61,7 @@ makeFlameExplosionAt p w
     & instantParticles .++~ newFlames
   where 
     newFlames = zipWith makeFlameWithVelAndTime velocities timers
-    makeFlameWithVelAndTime vel time = aFlameParticle time p vel Nothing
+    makeFlameWithVelAndTime vel time = aFlameParticle time p vel
     velocities = replicateM 15 (randInCirc 1) & evalState $ _randGen w
     timers     = randomRs (80,100) $ _randGen w
     -- the ( Nthing :: Maybe Int ) here is "maybe" a creature id that the
@@ -87,7 +87,7 @@ makeExplosionAt p w = w
     sizes = randomRs (2,9) $ _randGen w
     --times = randomRs (20,25) $ _randGen w
     times = randomRs (15,20) $ _randGen w
-    mF q z v size time = makeFlamelet q z v Nothing size time
+    mF q z v size time = makeFlamelet q z v size time
     newFs = zipWith5 mF fPs zs (fmap (3 *.*) fVs') sizes times
     addFlames w' = foldl' (flip ($)) w' newFs
     --pushAgainstWalls q = maybe q (uncurry (+.+)) $ reflectPointWalls p q wls