Commit before perhaps rethinking item structure

src/Dodge/Data/Item/BulletMod.hs

@@ -8,8 +8,7 @@ import Data.Aeson.TH
 import Dodge.Data.Bullet
 
 data BulletMod
-    = -- BulletModTrajectory { _bmTrajectory :: BulletTrajectoryType}
-     BulletModPayload {_bmPayload :: BulletPayload}
+    = BulletModPayload {_bmPayload :: BulletPayload}
     | BulletModEffect {_bmEffect :: BulletEffect}
     deriving (Eq, Ord, Show, Read)
 

src/Dodge/Data/Item/Combine.hs

@@ -22,6 +22,7 @@ data ItemType
     | AMMOMAG {_ibtAmmoMag :: AmmoMagType}
     | TARGETING {_ibtTargeting :: TargetingType}
     | BULLETMOD {_ibtBulletMod :: BulletMod}
+    | STICKYMOD
     deriving (Eq, Ord, Show, Read)
 
 data CraftType