Allow for no-ammo muzzles

src/Dodge/Data/Muzzle.hs

@@ -13,12 +13,16 @@ data Muzzle = Muzzle
     , _mzAmmoSlot :: AmmoExtractPosition
     , _mzFlareType :: FlareType
     , _mzEffect :: MuzzleEffect
-    , _mzAmmoPerShot :: AmmoPerShot
+--    , _mzAmmoPerShot :: AmmoPerShot
     , _mzRandomOffset :: Float
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data AmmoExtractPosition = MagBelow Int | CapacitorBelow | CapacitorSelf
+data AmmoExtractPosition 
+    = MagBelow {_magBelowID :: Int, _aps :: AmmoPerShot}
+    | CapacitorBelow {_aps :: AmmoPerShot}
+    | CapacitorSelf {_aps :: AmmoPerShot}
+    | NoAmmoRequired
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data FlareType
@@ -62,3 +66,4 @@ data AmmoPerShot
 makeLenses ''Muzzle
 makeLenses ''MuzzleEffect
 makeLenses ''AmmoPerShot
+makeLenses ''AmmoExtractPosition