Implement modules changing shell payloads

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