diff --git a/src/Dodge/Data/Item/BulletMod.hs b/src/Dodge/Data/Item/BulletMod.hs new file mode 100644 index 000000000..a258eb7b8 --- /dev/null +++ b/src/Dodge/Data/Item/BulletMod.hs @@ -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