Move shells to external magazines

src/Dodge/Data/Item/Use.hs

@@ -57,7 +57,9 @@ data ItemUse
         {_attachParams :: AttachParams}
     | AmmoMagUse
         { _amagLoadStatus :: ReloadStatus
-        , _amagParams :: AmmoParams }
+        , _amagParams :: AmmoParams 
+        , _amagType :: AmmoType
+        }
     --deriving (Eq, Show, Read) --Generic, Flat)
 
 data HeldParams
@@ -75,6 +77,11 @@ data AttachParams
     | TargetAttachParams
 
 data AmmoParams = BulletParams {_ampBullet :: Bullet}
+    | ProjectileParams
+        { _ampPayload :: Payload
+        , _ampPjDraw :: ProjectileDraw
+        , _ampPjCreation :: ProjectileCreate
+        }
 
 data ScrollAttachParams
     = ZoomScrollParams

src/Dodge/Data/Item/Use/Consumption/Ammo.hs

@@ -43,10 +43,6 @@ data AmmoSourceType
 
 data AmmoType
     = ProjectileAmmo
-        { _amPayload :: Payload
-        , _amPjDraw :: ProjectileDraw
-        , _amPjCreation :: ProjectileCreate
-        }
     | SmallBulletAmmo
     | LargeBulletAmmo
     | DroneAmmo