{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}
module Dodge.Data.Item.UseDelay where
import Control.Lens
data UseDelay -- should just be Delay
    = NoDelay
    | FixedRate
        {_rateMax   :: Int
        ,_rateTime  :: Int
        }
    | VariableRate
        {_rateMax       :: Int
        ,_rateTime      :: Int
        ,_rateMaxMax    :: Int
        ,_rateMinMax    :: Int
        }
    | WarmUpNoDelay
        {_warmTime :: Int
        ,_warmMax  :: Int
        }
makeLenses ''UseDelay