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

src/Dodge/Data/ComposedItem.hs

@@ -8,14 +8,16 @@ module Dodge.Data.ComposedItem
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
+import Dodge.Data.Item.Use.Consumption.Ammo
 
-data ComposeLinkType = AmmoInLink
+data ComposeLinkType 
+    = AmmoInLink AmmoType
     | AmmoModLink
 
 data ComposedItem = WeaponCI
     | WeaponScopeCI
-    | AmmoModifierCI
-    | BulletAmmoCI
+    | AmmoModifierCI AmmoType
+    | AmmoCI AmmoType
     | UncomposableCI
     deriving (Eq,Ord,Show,Read)