This commit is contained in:
2024-09-30 11:42:46 +01:00
parent 0701c4043e
commit 9ad1b8cc5b
+17
View File
@@ -0,0 +1,17 @@
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}
module Dodge.Data.Item.BulletMod
where
import Control.Lens
import Data.Aeson
import Data.Aeson.TH
import Dodge.Data.Bullet
data BulletMod
= BulletModTrajectory { _bmTrajectory :: BulletTrajectoryType}
| BulletModPayload {_bmPayload :: BulletPayload}
| BulletModEffect {_bmEffect :: BulletEffect}
deriving (Eq, Ord, Show, Read)
deriveJSON defaultOptions ''BulletMod
makeLenses ''BulletMod