{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE DeriveAnyClass #-} {-# LANGUAGE StrictData #-} {-# LANGUAGE TemplateHaskell #-} module Dodge.Data.MuzzleEffect where import Control.Lens --import Data.Aeson --import Data.Aeson.TH --import Dodge.Data.Item.Use.Consumption.Ammo data CumulativeMuzzleEffect = CME { _cmeRecoil :: Float , _cmeTorque :: Float , _cmeSound :: Bool } deriving (Eq,Ord,Show,Read) makeLenses ''CumulativeMuzzleEffect