Move flares into own grouping

src/Dodge/Render/ShapePicture.hs

@@ -4,6 +4,7 @@ module Dodge.Render.ShapePicture
 import Dodge.Creature.Picture.Awareness
 import Dodge.Particle.Draw
 import Dodge.RadarBlip
+import Dodge.Flare
 import Dodge.ShortShow
 import Dodge.Config.Data
 import Dodge.Render.InfoBox
@@ -84,6 +85,7 @@ extraPics :: Configuration -> World -> Picture
 extraPics cfig w = pictures (_decorations w)
     <> concatMapPic drawParticle (_particles    w)
     <> concatMapPic drawBlip (_radarBlips    w)
+    <> concatMapPic drawFlare (_flares    w)
     <> concatMapPic (dbArg _bmDraw) (_positronBeams $ _beams w)
     <> concatMapPic (dbArg _bmDraw) (_electronBeams $ _beams w)
     <> concatMapPic (dbArg _lsPict) (_lightSources w)