module Stratosphere.MediaLive.Channel.AudioWatermarkSettingsProperty (
        module Exports, AudioWatermarkSettingsProperty(..),
        mkAudioWatermarkSettingsProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.MediaLive.Channel.NielsenWatermarksSettingsProperty as Exports
import Stratosphere.ResourceProperties
data AudioWatermarkSettingsProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-audiowatermarksettings.html>
    AudioWatermarkSettingsProperty {AudioWatermarkSettingsProperty -> ()
haddock_workaround_ :: (),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-audiowatermarksettings.html#cfn-medialive-channel-audiowatermarksettings-nielsenwatermarkssettings>
                                    AudioWatermarkSettingsProperty
-> Maybe NielsenWatermarksSettingsProperty
nielsenWatermarksSettings :: (Prelude.Maybe NielsenWatermarksSettingsProperty)}
  deriving stock (AudioWatermarkSettingsProperty
-> AudioWatermarkSettingsProperty -> Bool
(AudioWatermarkSettingsProperty
 -> AudioWatermarkSettingsProperty -> Bool)
-> (AudioWatermarkSettingsProperty
    -> AudioWatermarkSettingsProperty -> Bool)
-> Eq AudioWatermarkSettingsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AudioWatermarkSettingsProperty
-> AudioWatermarkSettingsProperty -> Bool
== :: AudioWatermarkSettingsProperty
-> AudioWatermarkSettingsProperty -> Bool
$c/= :: AudioWatermarkSettingsProperty
-> AudioWatermarkSettingsProperty -> Bool
/= :: AudioWatermarkSettingsProperty
-> AudioWatermarkSettingsProperty -> Bool
Prelude.Eq, Int -> AudioWatermarkSettingsProperty -> ShowS
[AudioWatermarkSettingsProperty] -> ShowS
AudioWatermarkSettingsProperty -> String
(Int -> AudioWatermarkSettingsProperty -> ShowS)
-> (AudioWatermarkSettingsProperty -> String)
-> ([AudioWatermarkSettingsProperty] -> ShowS)
-> Show AudioWatermarkSettingsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AudioWatermarkSettingsProperty -> ShowS
showsPrec :: Int -> AudioWatermarkSettingsProperty -> ShowS
$cshow :: AudioWatermarkSettingsProperty -> String
show :: AudioWatermarkSettingsProperty -> String
$cshowList :: [AudioWatermarkSettingsProperty] -> ShowS
showList :: [AudioWatermarkSettingsProperty] -> ShowS
Prelude.Show)
mkAudioWatermarkSettingsProperty :: AudioWatermarkSettingsProperty
mkAudioWatermarkSettingsProperty :: AudioWatermarkSettingsProperty
mkAudioWatermarkSettingsProperty
  = AudioWatermarkSettingsProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (),
       nielsenWatermarksSettings :: Maybe NielsenWatermarksSettingsProperty
nielsenWatermarksSettings = Maybe NielsenWatermarksSettingsProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties AudioWatermarkSettingsProperty where
  toResourceProperties :: AudioWatermarkSettingsProperty -> ResourceProperties
toResourceProperties AudioWatermarkSettingsProperty {Maybe NielsenWatermarksSettingsProperty
()
haddock_workaround_ :: AudioWatermarkSettingsProperty -> ()
nielsenWatermarksSettings :: AudioWatermarkSettingsProperty
-> Maybe NielsenWatermarksSettingsProperty
haddock_workaround_ :: ()
nielsenWatermarksSettings :: Maybe NielsenWatermarksSettingsProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::MediaLive::Channel.AudioWatermarkSettings",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                           [Key -> NielsenWatermarksSettingsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"NielsenWatermarksSettings"
                              (NielsenWatermarksSettingsProperty -> (Key, Value))
-> Maybe NielsenWatermarksSettingsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe NielsenWatermarksSettingsProperty
nielsenWatermarksSettings])}
instance JSON.ToJSON AudioWatermarkSettingsProperty where
  toJSON :: AudioWatermarkSettingsProperty -> Value
toJSON AudioWatermarkSettingsProperty {Maybe NielsenWatermarksSettingsProperty
()
haddock_workaround_ :: AudioWatermarkSettingsProperty -> ()
nielsenWatermarksSettings :: AudioWatermarkSettingsProperty
-> Maybe NielsenWatermarksSettingsProperty
haddock_workaround_ :: ()
nielsenWatermarksSettings :: Maybe NielsenWatermarksSettingsProperty
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
              [Key -> NielsenWatermarksSettingsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"NielsenWatermarksSettings"
                 (NielsenWatermarksSettingsProperty -> (Key, Value))
-> Maybe NielsenWatermarksSettingsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe NielsenWatermarksSettingsProperty
nielsenWatermarksSettings]))
instance Property "NielsenWatermarksSettings" AudioWatermarkSettingsProperty where
  type PropertyType "NielsenWatermarksSettings" AudioWatermarkSettingsProperty = NielsenWatermarksSettingsProperty
  set :: PropertyType
  "NielsenWatermarksSettings" AudioWatermarkSettingsProperty
-> AudioWatermarkSettingsProperty -> AudioWatermarkSettingsProperty
set PropertyType
  "NielsenWatermarksSettings" AudioWatermarkSettingsProperty
newValue AudioWatermarkSettingsProperty {Maybe NielsenWatermarksSettingsProperty
()
haddock_workaround_ :: AudioWatermarkSettingsProperty -> ()
nielsenWatermarksSettings :: AudioWatermarkSettingsProperty
-> Maybe NielsenWatermarksSettingsProperty
haddock_workaround_ :: ()
nielsenWatermarksSettings :: Maybe NielsenWatermarksSettingsProperty
..}
    = AudioWatermarkSettingsProperty
        {nielsenWatermarksSettings :: Maybe NielsenWatermarksSettingsProperty
nielsenWatermarksSettings = NielsenWatermarksSettingsProperty
-> Maybe NielsenWatermarksSettingsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "NielsenWatermarksSettings" AudioWatermarkSettingsProperty
NielsenWatermarksSettingsProperty
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}