Cleanup

src/Dodge/Render/ShapePicture.hs

@@ -2,6 +2,7 @@ module Dodge.Render.ShapePicture
     ( worldSPic
     ) where
 import Dodge.Creature.Picture.Awareness
+import Dodge.Particle.Draw
 import Dodge.RadarBlip
 import Dodge.ShortShow
 import Dodge.Config.Data
@@ -81,7 +82,7 @@ cullPoint cfig w p
 
 extraPics :: Configuration -> World -> Picture
 extraPics cfig w = pictures (_decorations w)
-    <> concatMapPic (dbArg _ptDraw) (_particles    w)
+    <> concatMapPic drawParticle (_particles    w)
     <> concatMapPic drawBlip (_radarBlips    w)
     <> concatMapPic (dbArg _bmDraw) (_positronBeams $ _beams w)
     <> concatMapPic (dbArg _bmDraw) (_electronBeams $ _beams w)