Remove afterParticles

src/Dodge/Update.hs

@@ -43,7 +43,6 @@ update w
                  $ set worldEvents id $ _worldEvents w1
                                  w1
                 w3 = updateCamera
-                           $ updateAfterParticles'
                            $ colCrsWalls 
                              w2
             in  checkEndGame $ ppEvents w3
@@ -79,10 +78,6 @@ updateParticles' :: World -> World
 updateParticles' w = set particles' (catMaybes ps) w'
     where (w',ps) = mapAccumR (\a b -> _ptUpdate' b a b) w $ _particles' w
 
-updateAfterParticles' :: World -> World
-updateAfterParticles' w = set afterParticles' (catMaybes ps) w'
-    where (w',ps) = mapAccumR (\a b -> _ptUpdate' b a b) w $ _afterParticles' w
-
 updateCreatures :: World -> World
 updateCreatures w = f $ set randGen newG $ set creatures (IM.mapMaybe id crs) w
     where ((f,newG),crs) = IM.mapAccum (\g' cr -> _crUpdate cr w g' cr) (id,_randGen w) $ _creatures w