Remove explicit muzzle flares for picture updated every frame

src/Dodge/Update.hs

@@ -30,8 +30,6 @@ import Dodge.Distortion
 import Dodge.DrWdWd
 import Dodge.EnergyBall
 import Dodge.Flame
-import Dodge.Flare
---import Dodge.InputFocus
 import Dodge.Inventory
 import Dodge.Item.Location
 import Dodge.Laser.Update
@@ -250,7 +248,6 @@ functionalUpdate w =
         . over uvWorld updateEnergyBalls
         . over uvWorld updateBullets
         . over uvWorld updateRadarBlips
-        . over uvWorld updateFlares
 --        . over uvWorld updateBeams
         . over uvWorld updateLasers
         . over uvWorld updateTeslaArcs
@@ -278,6 +275,7 @@ functionalUpdate w =
         . over uvWorld zoneClouds
         . over uvWorld zoneCreatures
         -- . over uvWorld updateInventorySelectionList
+        . set (uvWorld . cWorld . lWorld . flares) []
         $ over uvWorld updatePastWorlds w
 
 checkTermDist :: World -> World
@@ -422,9 +420,6 @@ updateLightSources = updateObjMapMaybe tempLightSources (\b -> updateTempLightSo
 updateRadarBlips :: World -> World
 updateRadarBlips = updateObjMapMaybe radarBlips updateRadarBlip
 
-updateFlares :: World -> World
-updateFlares = updateObjMapMaybe flares updateFlare
-
 {- Apply internal particle updates, delete 'Nothing's.  -}
 updateBullets :: World -> World
 updateBullets w = updateInstantBullets $ set (cWorld . lWorld . bullets) (catMaybes ps) w'