module Stratosphere.SSMContacts.Rotation.RecurrenceSettingsProperty (
        module Exports, RecurrenceSettingsProperty(..),
        mkRecurrenceSettingsProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.SSMContacts.Rotation.MonthlySettingProperty as Exports
import {-# SOURCE #-} Stratosphere.SSMContacts.Rotation.ShiftCoverageProperty as Exports
import {-# SOURCE #-} Stratosphere.SSMContacts.Rotation.WeeklySettingProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data RecurrenceSettingsProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssmcontacts-rotation-recurrencesettings.html>
    RecurrenceSettingsProperty {RecurrenceSettingsProperty -> ()
haddock_workaround_ :: (),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssmcontacts-rotation-recurrencesettings.html#cfn-ssmcontacts-rotation-recurrencesettings-dailysettings>
                                RecurrenceSettingsProperty -> Maybe (ValueList Text)
dailySettings :: (Prelude.Maybe (ValueList Prelude.Text)),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssmcontacts-rotation-recurrencesettings.html#cfn-ssmcontacts-rotation-recurrencesettings-monthlysettings>
                                RecurrenceSettingsProperty -> Maybe [MonthlySettingProperty]
monthlySettings :: (Prelude.Maybe [MonthlySettingProperty]),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssmcontacts-rotation-recurrencesettings.html#cfn-ssmcontacts-rotation-recurrencesettings-numberofoncalls>
                                RecurrenceSettingsProperty -> Value Integer
numberOfOnCalls :: (Value Prelude.Integer),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssmcontacts-rotation-recurrencesettings.html#cfn-ssmcontacts-rotation-recurrencesettings-recurrencemultiplier>
                                RecurrenceSettingsProperty -> Value Integer
recurrenceMultiplier :: (Value Prelude.Integer),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssmcontacts-rotation-recurrencesettings.html#cfn-ssmcontacts-rotation-recurrencesettings-shiftcoverages>
                                RecurrenceSettingsProperty -> Maybe [ShiftCoverageProperty]
shiftCoverages :: (Prelude.Maybe [ShiftCoverageProperty]),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssmcontacts-rotation-recurrencesettings.html#cfn-ssmcontacts-rotation-recurrencesettings-weeklysettings>
                                RecurrenceSettingsProperty -> Maybe [WeeklySettingProperty]
weeklySettings :: (Prelude.Maybe [WeeklySettingProperty])}
  deriving stock (RecurrenceSettingsProperty -> RecurrenceSettingsProperty -> Bool
(RecurrenceSettingsProperty -> RecurrenceSettingsProperty -> Bool)
-> (RecurrenceSettingsProperty
    -> RecurrenceSettingsProperty -> Bool)
-> Eq RecurrenceSettingsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RecurrenceSettingsProperty -> RecurrenceSettingsProperty -> Bool
== :: RecurrenceSettingsProperty -> RecurrenceSettingsProperty -> Bool
$c/= :: RecurrenceSettingsProperty -> RecurrenceSettingsProperty -> Bool
/= :: RecurrenceSettingsProperty -> RecurrenceSettingsProperty -> Bool
Prelude.Eq, Int -> RecurrenceSettingsProperty -> ShowS
[RecurrenceSettingsProperty] -> ShowS
RecurrenceSettingsProperty -> String
(Int -> RecurrenceSettingsProperty -> ShowS)
-> (RecurrenceSettingsProperty -> String)
-> ([RecurrenceSettingsProperty] -> ShowS)
-> Show RecurrenceSettingsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RecurrenceSettingsProperty -> ShowS
showsPrec :: Int -> RecurrenceSettingsProperty -> ShowS
$cshow :: RecurrenceSettingsProperty -> String
show :: RecurrenceSettingsProperty -> String
$cshowList :: [RecurrenceSettingsProperty] -> ShowS
showList :: [RecurrenceSettingsProperty] -> ShowS
Prelude.Show)
mkRecurrenceSettingsProperty ::
  Value Prelude.Integer
  -> Value Prelude.Integer -> RecurrenceSettingsProperty
mkRecurrenceSettingsProperty :: Value Integer -> Value Integer -> RecurrenceSettingsProperty
mkRecurrenceSettingsProperty Value Integer
numberOfOnCalls Value Integer
recurrenceMultiplier
  = RecurrenceSettingsProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), numberOfOnCalls :: Value Integer
numberOfOnCalls = Value Integer
numberOfOnCalls,
       recurrenceMultiplier :: Value Integer
recurrenceMultiplier = Value Integer
recurrenceMultiplier,
       dailySettings :: Maybe (ValueList Text)
dailySettings = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing, monthlySettings :: Maybe [MonthlySettingProperty]
monthlySettings = Maybe [MonthlySettingProperty]
forall a. Maybe a
Prelude.Nothing,
       shiftCoverages :: Maybe [ShiftCoverageProperty]
shiftCoverages = Maybe [ShiftCoverageProperty]
forall a. Maybe a
Prelude.Nothing, weeklySettings :: Maybe [WeeklySettingProperty]
weeklySettings = Maybe [WeeklySettingProperty]
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties RecurrenceSettingsProperty where
  toResourceProperties :: RecurrenceSettingsProperty -> ResourceProperties
toResourceProperties RecurrenceSettingsProperty {Maybe [MonthlySettingProperty]
Maybe [ShiftCoverageProperty]
Maybe [WeeklySettingProperty]
Maybe (ValueList Text)
()
Value Integer
haddock_workaround_ :: RecurrenceSettingsProperty -> ()
dailySettings :: RecurrenceSettingsProperty -> Maybe (ValueList Text)
monthlySettings :: RecurrenceSettingsProperty -> Maybe [MonthlySettingProperty]
numberOfOnCalls :: RecurrenceSettingsProperty -> Value Integer
recurrenceMultiplier :: RecurrenceSettingsProperty -> Value Integer
shiftCoverages :: RecurrenceSettingsProperty -> Maybe [ShiftCoverageProperty]
weeklySettings :: RecurrenceSettingsProperty -> Maybe [WeeklySettingProperty]
haddock_workaround_ :: ()
dailySettings :: Maybe (ValueList Text)
monthlySettings :: Maybe [MonthlySettingProperty]
numberOfOnCalls :: Value Integer
recurrenceMultiplier :: Value Integer
shiftCoverages :: Maybe [ShiftCoverageProperty]
weeklySettings :: Maybe [WeeklySettingProperty]
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::SSMContacts::Rotation.RecurrenceSettings",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
                           [Key
"NumberOfOnCalls" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
numberOfOnCalls,
                            Key
"RecurrenceMultiplier" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
recurrenceMultiplier]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DailySettings" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
dailySettings,
                               Key -> [MonthlySettingProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"MonthlySettings" ([MonthlySettingProperty] -> (Key, Value))
-> Maybe [MonthlySettingProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [MonthlySettingProperty]
monthlySettings,
                               Key -> [ShiftCoverageProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ShiftCoverages" ([ShiftCoverageProperty] -> (Key, Value))
-> Maybe [ShiftCoverageProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [ShiftCoverageProperty]
shiftCoverages,
                               Key -> [WeeklySettingProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"WeeklySettings" ([WeeklySettingProperty] -> (Key, Value))
-> Maybe [WeeklySettingProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [WeeklySettingProperty]
weeklySettings]))}
instance JSON.ToJSON RecurrenceSettingsProperty where
  toJSON :: RecurrenceSettingsProperty -> Value
toJSON RecurrenceSettingsProperty {Maybe [MonthlySettingProperty]
Maybe [ShiftCoverageProperty]
Maybe [WeeklySettingProperty]
Maybe (ValueList Text)
()
Value Integer
haddock_workaround_ :: RecurrenceSettingsProperty -> ()
dailySettings :: RecurrenceSettingsProperty -> Maybe (ValueList Text)
monthlySettings :: RecurrenceSettingsProperty -> Maybe [MonthlySettingProperty]
numberOfOnCalls :: RecurrenceSettingsProperty -> Value Integer
recurrenceMultiplier :: RecurrenceSettingsProperty -> Value Integer
shiftCoverages :: RecurrenceSettingsProperty -> Maybe [ShiftCoverageProperty]
weeklySettings :: RecurrenceSettingsProperty -> Maybe [WeeklySettingProperty]
haddock_workaround_ :: ()
dailySettings :: Maybe (ValueList Text)
monthlySettings :: Maybe [MonthlySettingProperty]
numberOfOnCalls :: Value Integer
recurrenceMultiplier :: Value Integer
shiftCoverages :: Maybe [ShiftCoverageProperty]
weeklySettings :: Maybe [WeeklySettingProperty]
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
              [Key
"NumberOfOnCalls" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
numberOfOnCalls,
               Key
"RecurrenceMultiplier" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
recurrenceMultiplier]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DailySettings" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
dailySettings,
                  Key -> [MonthlySettingProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"MonthlySettings" ([MonthlySettingProperty] -> (Key, Value))
-> Maybe [MonthlySettingProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [MonthlySettingProperty]
monthlySettings,
                  Key -> [ShiftCoverageProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ShiftCoverages" ([ShiftCoverageProperty] -> (Key, Value))
-> Maybe [ShiftCoverageProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [ShiftCoverageProperty]
shiftCoverages,
                  Key -> [WeeklySettingProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"WeeklySettings" ([WeeklySettingProperty] -> (Key, Value))
-> Maybe [WeeklySettingProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [WeeklySettingProperty]
weeklySettings])))
instance Property "DailySettings" RecurrenceSettingsProperty where
  type PropertyType "DailySettings" RecurrenceSettingsProperty = ValueList Prelude.Text
  set :: PropertyType "DailySettings" RecurrenceSettingsProperty
-> RecurrenceSettingsProperty -> RecurrenceSettingsProperty
set PropertyType "DailySettings" RecurrenceSettingsProperty
newValue RecurrenceSettingsProperty {Maybe [MonthlySettingProperty]
Maybe [ShiftCoverageProperty]
Maybe [WeeklySettingProperty]
Maybe (ValueList Text)
()
Value Integer
haddock_workaround_ :: RecurrenceSettingsProperty -> ()
dailySettings :: RecurrenceSettingsProperty -> Maybe (ValueList Text)
monthlySettings :: RecurrenceSettingsProperty -> Maybe [MonthlySettingProperty]
numberOfOnCalls :: RecurrenceSettingsProperty -> Value Integer
recurrenceMultiplier :: RecurrenceSettingsProperty -> Value Integer
shiftCoverages :: RecurrenceSettingsProperty -> Maybe [ShiftCoverageProperty]
weeklySettings :: RecurrenceSettingsProperty -> Maybe [WeeklySettingProperty]
haddock_workaround_ :: ()
dailySettings :: Maybe (ValueList Text)
monthlySettings :: Maybe [MonthlySettingProperty]
numberOfOnCalls :: Value Integer
recurrenceMultiplier :: Value Integer
shiftCoverages :: Maybe [ShiftCoverageProperty]
weeklySettings :: Maybe [WeeklySettingProperty]
..}
    = RecurrenceSettingsProperty
        {dailySettings :: Maybe (ValueList Text)
dailySettings = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "DailySettings" RecurrenceSettingsProperty
ValueList Text
newValue, Maybe [MonthlySettingProperty]
Maybe [ShiftCoverageProperty]
Maybe [WeeklySettingProperty]
()
Value Integer
haddock_workaround_ :: ()
monthlySettings :: Maybe [MonthlySettingProperty]
numberOfOnCalls :: Value Integer
recurrenceMultiplier :: Value Integer
shiftCoverages :: Maybe [ShiftCoverageProperty]
weeklySettings :: Maybe [WeeklySettingProperty]
haddock_workaround_ :: ()
monthlySettings :: Maybe [MonthlySettingProperty]
numberOfOnCalls :: Value Integer
recurrenceMultiplier :: Value Integer
shiftCoverages :: Maybe [ShiftCoverageProperty]
weeklySettings :: Maybe [WeeklySettingProperty]
..}
instance Property "MonthlySettings" RecurrenceSettingsProperty where
  type PropertyType "MonthlySettings" RecurrenceSettingsProperty = [MonthlySettingProperty]
  set :: PropertyType "MonthlySettings" RecurrenceSettingsProperty
-> RecurrenceSettingsProperty -> RecurrenceSettingsProperty
set PropertyType "MonthlySettings" RecurrenceSettingsProperty
newValue RecurrenceSettingsProperty {Maybe [MonthlySettingProperty]
Maybe [ShiftCoverageProperty]
Maybe [WeeklySettingProperty]
Maybe (ValueList Text)
()
Value Integer
haddock_workaround_ :: RecurrenceSettingsProperty -> ()
dailySettings :: RecurrenceSettingsProperty -> Maybe (ValueList Text)
monthlySettings :: RecurrenceSettingsProperty -> Maybe [MonthlySettingProperty]
numberOfOnCalls :: RecurrenceSettingsProperty -> Value Integer
recurrenceMultiplier :: RecurrenceSettingsProperty -> Value Integer
shiftCoverages :: RecurrenceSettingsProperty -> Maybe [ShiftCoverageProperty]
weeklySettings :: RecurrenceSettingsProperty -> Maybe [WeeklySettingProperty]
haddock_workaround_ :: ()
dailySettings :: Maybe (ValueList Text)
monthlySettings :: Maybe [MonthlySettingProperty]
numberOfOnCalls :: Value Integer
recurrenceMultiplier :: Value Integer
shiftCoverages :: Maybe [ShiftCoverageProperty]
weeklySettings :: Maybe [WeeklySettingProperty]
..}
    = RecurrenceSettingsProperty
        {monthlySettings :: Maybe [MonthlySettingProperty]
monthlySettings = [MonthlySettingProperty] -> Maybe [MonthlySettingProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [MonthlySettingProperty]
PropertyType "MonthlySettings" RecurrenceSettingsProperty
newValue, Maybe [ShiftCoverageProperty]
Maybe [WeeklySettingProperty]
Maybe (ValueList Text)
()
Value Integer
haddock_workaround_ :: ()
dailySettings :: Maybe (ValueList Text)
numberOfOnCalls :: Value Integer
recurrenceMultiplier :: Value Integer
shiftCoverages :: Maybe [ShiftCoverageProperty]
weeklySettings :: Maybe [WeeklySettingProperty]
haddock_workaround_ :: ()
dailySettings :: Maybe (ValueList Text)
numberOfOnCalls :: Value Integer
recurrenceMultiplier :: Value Integer
shiftCoverages :: Maybe [ShiftCoverageProperty]
weeklySettings :: Maybe [WeeklySettingProperty]
..}
instance Property "NumberOfOnCalls" RecurrenceSettingsProperty where
  type PropertyType "NumberOfOnCalls" RecurrenceSettingsProperty = Value Prelude.Integer
  set :: PropertyType "NumberOfOnCalls" RecurrenceSettingsProperty
-> RecurrenceSettingsProperty -> RecurrenceSettingsProperty
set PropertyType "NumberOfOnCalls" RecurrenceSettingsProperty
newValue RecurrenceSettingsProperty {Maybe [MonthlySettingProperty]
Maybe [ShiftCoverageProperty]
Maybe [WeeklySettingProperty]
Maybe (ValueList Text)
()
Value Integer
haddock_workaround_ :: RecurrenceSettingsProperty -> ()
dailySettings :: RecurrenceSettingsProperty -> Maybe (ValueList Text)
monthlySettings :: RecurrenceSettingsProperty -> Maybe [MonthlySettingProperty]
numberOfOnCalls :: RecurrenceSettingsProperty -> Value Integer
recurrenceMultiplier :: RecurrenceSettingsProperty -> Value Integer
shiftCoverages :: RecurrenceSettingsProperty -> Maybe [ShiftCoverageProperty]
weeklySettings :: RecurrenceSettingsProperty -> Maybe [WeeklySettingProperty]
haddock_workaround_ :: ()
dailySettings :: Maybe (ValueList Text)
monthlySettings :: Maybe [MonthlySettingProperty]
numberOfOnCalls :: Value Integer
recurrenceMultiplier :: Value Integer
shiftCoverages :: Maybe [ShiftCoverageProperty]
weeklySettings :: Maybe [WeeklySettingProperty]
..}
    = RecurrenceSettingsProperty {numberOfOnCalls :: Value Integer
numberOfOnCalls = PropertyType "NumberOfOnCalls" RecurrenceSettingsProperty
Value Integer
newValue, Maybe [MonthlySettingProperty]
Maybe [ShiftCoverageProperty]
Maybe [WeeklySettingProperty]
Maybe (ValueList Text)
()
Value Integer
haddock_workaround_ :: ()
dailySettings :: Maybe (ValueList Text)
monthlySettings :: Maybe [MonthlySettingProperty]
recurrenceMultiplier :: Value Integer
shiftCoverages :: Maybe [ShiftCoverageProperty]
weeklySettings :: Maybe [WeeklySettingProperty]
haddock_workaround_ :: ()
dailySettings :: Maybe (ValueList Text)
monthlySettings :: Maybe [MonthlySettingProperty]
recurrenceMultiplier :: Value Integer
shiftCoverages :: Maybe [ShiftCoverageProperty]
weeklySettings :: Maybe [WeeklySettingProperty]
..}
instance Property "RecurrenceMultiplier" RecurrenceSettingsProperty where
  type PropertyType "RecurrenceMultiplier" RecurrenceSettingsProperty = Value Prelude.Integer
  set :: PropertyType "RecurrenceMultiplier" RecurrenceSettingsProperty
-> RecurrenceSettingsProperty -> RecurrenceSettingsProperty
set PropertyType "RecurrenceMultiplier" RecurrenceSettingsProperty
newValue RecurrenceSettingsProperty {Maybe [MonthlySettingProperty]
Maybe [ShiftCoverageProperty]
Maybe [WeeklySettingProperty]
Maybe (ValueList Text)
()
Value Integer
haddock_workaround_ :: RecurrenceSettingsProperty -> ()
dailySettings :: RecurrenceSettingsProperty -> Maybe (ValueList Text)
monthlySettings :: RecurrenceSettingsProperty -> Maybe [MonthlySettingProperty]
numberOfOnCalls :: RecurrenceSettingsProperty -> Value Integer
recurrenceMultiplier :: RecurrenceSettingsProperty -> Value Integer
shiftCoverages :: RecurrenceSettingsProperty -> Maybe [ShiftCoverageProperty]
weeklySettings :: RecurrenceSettingsProperty -> Maybe [WeeklySettingProperty]
haddock_workaround_ :: ()
dailySettings :: Maybe (ValueList Text)
monthlySettings :: Maybe [MonthlySettingProperty]
numberOfOnCalls :: Value Integer
recurrenceMultiplier :: Value Integer
shiftCoverages :: Maybe [ShiftCoverageProperty]
weeklySettings :: Maybe [WeeklySettingProperty]
..}
    = RecurrenceSettingsProperty {recurrenceMultiplier :: Value Integer
recurrenceMultiplier = PropertyType "RecurrenceMultiplier" RecurrenceSettingsProperty
Value Integer
newValue, Maybe [MonthlySettingProperty]
Maybe [ShiftCoverageProperty]
Maybe [WeeklySettingProperty]
Maybe (ValueList Text)
()
Value Integer
haddock_workaround_ :: ()
dailySettings :: Maybe (ValueList Text)
monthlySettings :: Maybe [MonthlySettingProperty]
numberOfOnCalls :: Value Integer
shiftCoverages :: Maybe [ShiftCoverageProperty]
weeklySettings :: Maybe [WeeklySettingProperty]
haddock_workaround_ :: ()
dailySettings :: Maybe (ValueList Text)
monthlySettings :: Maybe [MonthlySettingProperty]
numberOfOnCalls :: Value Integer
shiftCoverages :: Maybe [ShiftCoverageProperty]
weeklySettings :: Maybe [WeeklySettingProperty]
..}
instance Property "ShiftCoverages" RecurrenceSettingsProperty where
  type PropertyType "ShiftCoverages" RecurrenceSettingsProperty = [ShiftCoverageProperty]
  set :: PropertyType "ShiftCoverages" RecurrenceSettingsProperty
-> RecurrenceSettingsProperty -> RecurrenceSettingsProperty
set PropertyType "ShiftCoverages" RecurrenceSettingsProperty
newValue RecurrenceSettingsProperty {Maybe [MonthlySettingProperty]
Maybe [ShiftCoverageProperty]
Maybe [WeeklySettingProperty]
Maybe (ValueList Text)
()
Value Integer
haddock_workaround_ :: RecurrenceSettingsProperty -> ()
dailySettings :: RecurrenceSettingsProperty -> Maybe (ValueList Text)
monthlySettings :: RecurrenceSettingsProperty -> Maybe [MonthlySettingProperty]
numberOfOnCalls :: RecurrenceSettingsProperty -> Value Integer
recurrenceMultiplier :: RecurrenceSettingsProperty -> Value Integer
shiftCoverages :: RecurrenceSettingsProperty -> Maybe [ShiftCoverageProperty]
weeklySettings :: RecurrenceSettingsProperty -> Maybe [WeeklySettingProperty]
haddock_workaround_ :: ()
dailySettings :: Maybe (ValueList Text)
monthlySettings :: Maybe [MonthlySettingProperty]
numberOfOnCalls :: Value Integer
recurrenceMultiplier :: Value Integer
shiftCoverages :: Maybe [ShiftCoverageProperty]
weeklySettings :: Maybe [WeeklySettingProperty]
..}
    = RecurrenceSettingsProperty
        {shiftCoverages :: Maybe [ShiftCoverageProperty]
shiftCoverages = [ShiftCoverageProperty] -> Maybe [ShiftCoverageProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [ShiftCoverageProperty]
PropertyType "ShiftCoverages" RecurrenceSettingsProperty
newValue, Maybe [MonthlySettingProperty]
Maybe [WeeklySettingProperty]
Maybe (ValueList Text)
()
Value Integer
haddock_workaround_ :: ()
dailySettings :: Maybe (ValueList Text)
monthlySettings :: Maybe [MonthlySettingProperty]
numberOfOnCalls :: Value Integer
recurrenceMultiplier :: Value Integer
weeklySettings :: Maybe [WeeklySettingProperty]
haddock_workaround_ :: ()
dailySettings :: Maybe (ValueList Text)
monthlySettings :: Maybe [MonthlySettingProperty]
numberOfOnCalls :: Value Integer
recurrenceMultiplier :: Value Integer
weeklySettings :: Maybe [WeeklySettingProperty]
..}
instance Property "WeeklySettings" RecurrenceSettingsProperty where
  type PropertyType "WeeklySettings" RecurrenceSettingsProperty = [WeeklySettingProperty]
  set :: PropertyType "WeeklySettings" RecurrenceSettingsProperty
-> RecurrenceSettingsProperty -> RecurrenceSettingsProperty
set PropertyType "WeeklySettings" RecurrenceSettingsProperty
newValue RecurrenceSettingsProperty {Maybe [MonthlySettingProperty]
Maybe [ShiftCoverageProperty]
Maybe [WeeklySettingProperty]
Maybe (ValueList Text)
()
Value Integer
haddock_workaround_ :: RecurrenceSettingsProperty -> ()
dailySettings :: RecurrenceSettingsProperty -> Maybe (ValueList Text)
monthlySettings :: RecurrenceSettingsProperty -> Maybe [MonthlySettingProperty]
numberOfOnCalls :: RecurrenceSettingsProperty -> Value Integer
recurrenceMultiplier :: RecurrenceSettingsProperty -> Value Integer
shiftCoverages :: RecurrenceSettingsProperty -> Maybe [ShiftCoverageProperty]
weeklySettings :: RecurrenceSettingsProperty -> Maybe [WeeklySettingProperty]
haddock_workaround_ :: ()
dailySettings :: Maybe (ValueList Text)
monthlySettings :: Maybe [MonthlySettingProperty]
numberOfOnCalls :: Value Integer
recurrenceMultiplier :: Value Integer
shiftCoverages :: Maybe [ShiftCoverageProperty]
weeklySettings :: Maybe [WeeklySettingProperty]
..}
    = RecurrenceSettingsProperty
        {weeklySettings :: Maybe [WeeklySettingProperty]
weeklySettings = [WeeklySettingProperty] -> Maybe [WeeklySettingProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [WeeklySettingProperty]
PropertyType "WeeklySettings" RecurrenceSettingsProperty
newValue, Maybe [MonthlySettingProperty]
Maybe [ShiftCoverageProperty]
Maybe (ValueList Text)
()
Value Integer
haddock_workaround_ :: ()
dailySettings :: Maybe (ValueList Text)
monthlySettings :: Maybe [MonthlySettingProperty]
numberOfOnCalls :: Value Integer
recurrenceMultiplier :: Value Integer
shiftCoverages :: Maybe [ShiftCoverageProperty]
haddock_workaround_ :: ()
dailySettings :: Maybe (ValueList Text)
monthlySettings :: Maybe [MonthlySettingProperty]
numberOfOnCalls :: Value Integer
recurrenceMultiplier :: Value Integer
shiftCoverages :: Maybe [ShiftCoverageProperty]
..}