Continue projectile udpate refactor

src/Dodge/Projectile/Draw.hs

@@ -4,7 +4,6 @@ module Dodge.Projectile.Draw (
 
 import Control.Lens
 import Data.Strict.Tuple
-import Dodge.Data.Item.Use.Consumption.Ammo
 import Dodge.Data.Projectile
 import Geometry
 import Picture
@@ -13,7 +12,7 @@ import ShapePicture
 
 drawProjectile :: Projectile -> SPic
 drawProjectile pj
-    | Just DestroyPU{} <- pj ^? pjUpdates . ix 0 = mempty
+    | RetiredProjectile <- pj ^. pjType = mempty
     | Just NoHoming <- pj ^? pjType . rkHoming =
         drawShell Nothing pj
     | Just _ <- pj ^? pjType . rkHoming =