Start projectile refactor

src/Dodge/Data.hs

@@ -10,6 +10,7 @@ circular imports are probably not a good idea.
 {-# LANGUAGE DerivingStrategies #-}
 module Dodge.Data 
     ( module Dodge.Data
+    , module Dodge.Data.Ammo
     , module Dodge.Data.Payload
     , module Dodge.Data.RadarSweep
     , module Dodge.Data.PosEvent
@@ -54,6 +55,7 @@ module Dodge.Data
     , module Dodge.Data.RadarBlip
     , module Dodge.Data.PathGraph
     ) where
+import Dodge.Data.Ammo
 import Dodge.Data.Payload
 import Dodge.Data.RadarSweep
 import Dodge.Data.PosEvent
@@ -590,9 +592,9 @@ type HitEffect' = Flame
 
 data AmmoType
     = ProjectileAmmo
-        { _amPayload :: Point2 -> World -> World
+        { _amPayload :: Payload
         , _amString :: String
-        , _amPjDraw :: Prop -> SPic
+        , _amPjDraw :: ProjectileDraw
         , _amPjCreation :: Item -> Creature -> World -> World
         }
     | BulletAmmo