Auto create tree structure for held item ammo, add derive instances

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

@@ -37,6 +37,7 @@ data ProjectileUpdate
 data AmmoType
     = ProjectileAmmo
     | BulletAmmo
+    | BeltBulletAmmo
     | ElectricalAmmo
     | DroneAmmo
     | GasAmmo

src/Dodge/Data/Item/Use/Equipment.hs

@@ -23,13 +23,13 @@ data EquipEffect = EquipEffect
     , _eeViewDist :: Maybe Float
     , _eeAttachPos :: Point3
     }
-    --deriving (Eq, Ord, Show, Read) --Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data EquipParams
     = NoEquipParams
     | EquipID {_eparamID :: Int}
     | EquipCounter {_eparamInt :: Int}
-    --deriving (Eq, Ord, Show, Read) --Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''EquipEffect
 makeLenses ''EquipParams