{-# 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
    = BulletModPayload {_bmPayload :: BulletPayload}
    | BulletModEffect {_bmEffect :: BulletEffect}
    deriving (Eq, Ord, Show, Read)

deriveJSON defaultOptions ''BulletMod
makeLenses ''BulletMod