Implement modules changing shell payloads

2024-12-24 21:13:58 +00:00
parent e82ef26b3e
commit 81fd2131e0
18 changed files with 82 additions and 18 deletions
@@ -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