Implement modules changing shell payloads

src/Dodge/Data/EnergyBall.hs

@@ -19,7 +19,6 @@ data EnergyBall = EnergyBall
     , _ebWidth :: Float
     , _ebTimer :: Int
     , _ebEff :: (DamageType, Int)
---    , _ebZ :: Float
     , _ebRot :: Float
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)

src/Dodge/Data/Item/Combine.hs

@@ -5,6 +5,7 @@
 
 module Dodge.Data.Item.Combine where
 
+import Dodge.Data.Payload
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -71,6 +72,7 @@ data AttachType
     | REMOTESCREEN
     | HOMINGMODULE
     | AUGMENTEDHUD
+    | SHELLPAYLOAD {_shellPayload :: Payload}
     deriving (Eq, Ord, Show, Read)
 
 data AmmoMagType

src/Dodge/Data/Payload.hs

@@ -8,7 +8,9 @@ module Dodge.Data.Payload where
 import Data.Aeson
 import Data.Aeson.TH
 
-data Payload = ExplosionPayload | DudPayload
+data Payload = ExplosionPayload 
+    | ShrapnelBomb
+    | DudPayload
     deriving (Show, Eq, Ord, Enum, Bounded, Read) --Generic, Flat)
 
 deriveJSON defaultOptions ''Payload