module Stratosphere.ConnectCampaignsV2.Campaign.OpenHoursProperty (
        module Exports, OpenHoursProperty(..), mkOpenHoursProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.ConnectCampaignsV2.Campaign.DailyHourProperty as Exports
import Stratosphere.ResourceProperties
data OpenHoursProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-connectcampaignsv2-campaign-openhours.html>
    OpenHoursProperty {OpenHoursProperty -> ()
haddock_workaround_ :: (),
                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-connectcampaignsv2-campaign-openhours.html#cfn-connectcampaignsv2-campaign-openhours-dailyhours>
                       OpenHoursProperty -> [DailyHourProperty]
dailyHours :: [DailyHourProperty]}
  deriving stock (OpenHoursProperty -> OpenHoursProperty -> Bool
(OpenHoursProperty -> OpenHoursProperty -> Bool)
-> (OpenHoursProperty -> OpenHoursProperty -> Bool)
-> Eq OpenHoursProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: OpenHoursProperty -> OpenHoursProperty -> Bool
== :: OpenHoursProperty -> OpenHoursProperty -> Bool
$c/= :: OpenHoursProperty -> OpenHoursProperty -> Bool
/= :: OpenHoursProperty -> OpenHoursProperty -> Bool
Prelude.Eq, Int -> OpenHoursProperty -> ShowS
[OpenHoursProperty] -> ShowS
OpenHoursProperty -> String
(Int -> OpenHoursProperty -> ShowS)
-> (OpenHoursProperty -> String)
-> ([OpenHoursProperty] -> ShowS)
-> Show OpenHoursProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> OpenHoursProperty -> ShowS
showsPrec :: Int -> OpenHoursProperty -> ShowS
$cshow :: OpenHoursProperty -> String
show :: OpenHoursProperty -> String
$cshowList :: [OpenHoursProperty] -> ShowS
showList :: [OpenHoursProperty] -> ShowS
Prelude.Show)
mkOpenHoursProperty :: [DailyHourProperty] -> OpenHoursProperty
mkOpenHoursProperty :: [DailyHourProperty] -> OpenHoursProperty
mkOpenHoursProperty [DailyHourProperty]
dailyHours
  = OpenHoursProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), dailyHours :: [DailyHourProperty]
dailyHours = [DailyHourProperty]
dailyHours}
instance ToResourceProperties OpenHoursProperty where
  toResourceProperties :: OpenHoursProperty -> ResourceProperties
toResourceProperties OpenHoursProperty {[DailyHourProperty]
()
haddock_workaround_ :: OpenHoursProperty -> ()
dailyHours :: OpenHoursProperty -> [DailyHourProperty]
haddock_workaround_ :: ()
dailyHours :: [DailyHourProperty]
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::ConnectCampaignsV2::Campaign.OpenHours",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"DailyHours" Key -> [DailyHourProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [DailyHourProperty]
dailyHours]}
instance JSON.ToJSON OpenHoursProperty where
  toJSON :: OpenHoursProperty -> Value
toJSON OpenHoursProperty {[DailyHourProperty]
()
haddock_workaround_ :: OpenHoursProperty -> ()
dailyHours :: OpenHoursProperty -> [DailyHourProperty]
haddock_workaround_ :: ()
dailyHours :: [DailyHourProperty]
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"DailyHours" Key -> [DailyHourProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [DailyHourProperty]
dailyHours]
instance Property "DailyHours" OpenHoursProperty where
  type PropertyType "DailyHours" OpenHoursProperty = [DailyHourProperty]
  set :: PropertyType "DailyHours" OpenHoursProperty
-> OpenHoursProperty -> OpenHoursProperty
set PropertyType "DailyHours" OpenHoursProperty
newValue OpenHoursProperty {[DailyHourProperty]
()
haddock_workaround_ :: OpenHoursProperty -> ()
dailyHours :: OpenHoursProperty -> [DailyHourProperty]
haddock_workaround_ :: ()
dailyHours :: [DailyHourProperty]
..}
    = OpenHoursProperty {dailyHours :: [DailyHourProperty]
dailyHours = [DailyHourProperty]
PropertyType "DailyHours" OpenHoursProperty
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}