module Stratosphere.InspectorV2.CisScanConfiguration.MonthlyScheduleProperty (
        module Exports, MonthlyScheduleProperty(..),
        mkMonthlyScheduleProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.InspectorV2.CisScanConfiguration.TimeProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data MonthlyScheduleProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-inspectorv2-cisscanconfiguration-monthlyschedule.html>
    MonthlyScheduleProperty {MonthlyScheduleProperty -> ()
haddock_workaround_ :: (),
                             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-inspectorv2-cisscanconfiguration-monthlyschedule.html#cfn-inspectorv2-cisscanconfiguration-monthlyschedule-day>
                             MonthlyScheduleProperty -> Value Text
day :: (Value Prelude.Text),
                             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-inspectorv2-cisscanconfiguration-monthlyschedule.html#cfn-inspectorv2-cisscanconfiguration-monthlyschedule-starttime>
                             MonthlyScheduleProperty -> TimeProperty
startTime :: TimeProperty}
  deriving stock (MonthlyScheduleProperty -> MonthlyScheduleProperty -> Bool
(MonthlyScheduleProperty -> MonthlyScheduleProperty -> Bool)
-> (MonthlyScheduleProperty -> MonthlyScheduleProperty -> Bool)
-> Eq MonthlyScheduleProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MonthlyScheduleProperty -> MonthlyScheduleProperty -> Bool
== :: MonthlyScheduleProperty -> MonthlyScheduleProperty -> Bool
$c/= :: MonthlyScheduleProperty -> MonthlyScheduleProperty -> Bool
/= :: MonthlyScheduleProperty -> MonthlyScheduleProperty -> Bool
Prelude.Eq, Int -> MonthlyScheduleProperty -> ShowS
[MonthlyScheduleProperty] -> ShowS
MonthlyScheduleProperty -> String
(Int -> MonthlyScheduleProperty -> ShowS)
-> (MonthlyScheduleProperty -> String)
-> ([MonthlyScheduleProperty] -> ShowS)
-> Show MonthlyScheduleProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> MonthlyScheduleProperty -> ShowS
showsPrec :: Int -> MonthlyScheduleProperty -> ShowS
$cshow :: MonthlyScheduleProperty -> String
show :: MonthlyScheduleProperty -> String
$cshowList :: [MonthlyScheduleProperty] -> ShowS
showList :: [MonthlyScheduleProperty] -> ShowS
Prelude.Show)
mkMonthlyScheduleProperty ::
  Value Prelude.Text -> TimeProperty -> MonthlyScheduleProperty
mkMonthlyScheduleProperty :: Value Text -> TimeProperty -> MonthlyScheduleProperty
mkMonthlyScheduleProperty Value Text
day TimeProperty
startTime
  = MonthlyScheduleProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), day :: Value Text
day = Value Text
day, startTime :: TimeProperty
startTime = TimeProperty
startTime}
instance ToResourceProperties MonthlyScheduleProperty where
  toResourceProperties :: MonthlyScheduleProperty -> ResourceProperties
toResourceProperties MonthlyScheduleProperty {()
Value Text
TimeProperty
haddock_workaround_ :: MonthlyScheduleProperty -> ()
day :: MonthlyScheduleProperty -> Value Text
startTime :: MonthlyScheduleProperty -> TimeProperty
haddock_workaround_ :: ()
day :: Value Text
startTime :: TimeProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::InspectorV2::CisScanConfiguration.MonthlySchedule",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"Day" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
day, Key
"StartTime" Key -> TimeProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= TimeProperty
startTime]}
instance JSON.ToJSON MonthlyScheduleProperty where
  toJSON :: MonthlyScheduleProperty -> Value
toJSON MonthlyScheduleProperty {()
Value Text
TimeProperty
haddock_workaround_ :: MonthlyScheduleProperty -> ()
day :: MonthlyScheduleProperty -> Value Text
startTime :: MonthlyScheduleProperty -> TimeProperty
haddock_workaround_ :: ()
day :: Value Text
startTime :: TimeProperty
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"Day" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
day, Key
"StartTime" Key -> TimeProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= TimeProperty
startTime]
instance Property "Day" MonthlyScheduleProperty where
  type PropertyType "Day" MonthlyScheduleProperty = Value Prelude.Text
  set :: PropertyType "Day" MonthlyScheduleProperty
-> MonthlyScheduleProperty -> MonthlyScheduleProperty
set PropertyType "Day" MonthlyScheduleProperty
newValue MonthlyScheduleProperty {()
Value Text
TimeProperty
haddock_workaround_ :: MonthlyScheduleProperty -> ()
day :: MonthlyScheduleProperty -> Value Text
startTime :: MonthlyScheduleProperty -> TimeProperty
haddock_workaround_ :: ()
day :: Value Text
startTime :: TimeProperty
..}
    = MonthlyScheduleProperty {day :: Value Text
day = PropertyType "Day" MonthlyScheduleProperty
Value Text
newValue, ()
TimeProperty
haddock_workaround_ :: ()
startTime :: TimeProperty
haddock_workaround_ :: ()
startTime :: TimeProperty
..}
instance Property "StartTime" MonthlyScheduleProperty where
  type PropertyType "StartTime" MonthlyScheduleProperty = TimeProperty
  set :: PropertyType "StartTime" MonthlyScheduleProperty
-> MonthlyScheduleProperty -> MonthlyScheduleProperty
set PropertyType "StartTime" MonthlyScheduleProperty
newValue MonthlyScheduleProperty {()
Value Text
TimeProperty
haddock_workaround_ :: MonthlyScheduleProperty -> ()
day :: MonthlyScheduleProperty -> Value Text
startTime :: MonthlyScheduleProperty -> TimeProperty
haddock_workaround_ :: ()
day :: Value Text
startTime :: TimeProperty
..}
    = MonthlyScheduleProperty {startTime :: TimeProperty
startTime = PropertyType "StartTime" MonthlyScheduleProperty
TimeProperty
newValue, ()
Value Text
haddock_workaround_ :: ()
day :: Value Text
haddock_workaround_ :: ()
day :: Value Text
..}