diff --git a/src/Dodge/Data/MuzzleEffect.hs b/src/Dodge/Data/MuzzleEffect.hs new file mode 100644 index 000000000..9f65c93e9 --- /dev/null +++ b/src/Dodge/Data/MuzzleEffect.hs @@ -0,0 +1,17 @@ +{-# 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