From 9ad1b8cc5bb71b4e08fdd79ce825870e8c326a90 Mon Sep 17 00:00:00 2001 From: justin Date: Mon, 30 Sep 2024 11:42:46 +0100 Subject: [PATCH] Add file --- src/Dodge/Data/Item/BulletMod.hs | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 src/Dodge/Data/Item/BulletMod.hs 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