Move flares into own grouping

src/Dodge/Update.hs

@@ -6,6 +6,7 @@ Description : Simulation update
 module Dodge.Update ( updateUniverse ) where
 import Dodge.Data
 import Dodge.RadarBlip
+import Dodge.Flare
 import Dodge.Menu
 import Dodge.CullBox
 --import Dodge.Block
@@ -78,6 +79,7 @@ functionalUpdate cfig w = checkEndGame
     . updateIMl _modifications _mdUpdate
     . updateParticles 
     . updateRadarBlips 
+    . updateFlares 
     . updateBeams
     . updateIMl _props _pjUpdate  
     . updateLightSources
@@ -205,6 +207,9 @@ updateLightSources w = over tempLightSources f w
 updateRadarBlips :: World -> World
 updateRadarBlips = radarBlips %~ mapMaybe updateRadarBlip
 
+updateFlares :: World -> World
+updateFlares = flares %~ mapMaybe updateFlare
+
 {- Apply internal particle updates, delete 'Nothing's.  -}
 updateParticles :: World -> World
 updateParticles w = updateInstantParticles $ set particles (catMaybes ps) w'