module Stratosphere.MediaLive.Channel.UdpOutputSettingsProperty (
        module Exports, UdpOutputSettingsProperty(..),
        mkUdpOutputSettingsProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.MediaLive.Channel.FecOutputSettingsProperty as Exports
import {-# SOURCE #-} Stratosphere.MediaLive.Channel.OutputLocationRefProperty as Exports
import {-# SOURCE #-} Stratosphere.MediaLive.Channel.UdpContainerSettingsProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data UdpOutputSettingsProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-udpoutputsettings.html>
    UdpOutputSettingsProperty {UdpOutputSettingsProperty -> ()
haddock_workaround_ :: (),
                               -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-udpoutputsettings.html#cfn-medialive-channel-udpoutputsettings-buffermsec>
                               UdpOutputSettingsProperty -> Maybe (Value Integer)
bufferMsec :: (Prelude.Maybe (Value Prelude.Integer)),
                               -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-udpoutputsettings.html#cfn-medialive-channel-udpoutputsettings-containersettings>
                               UdpOutputSettingsProperty -> Maybe UdpContainerSettingsProperty
containerSettings :: (Prelude.Maybe UdpContainerSettingsProperty),
                               -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-udpoutputsettings.html#cfn-medialive-channel-udpoutputsettings-destination>
                               UdpOutputSettingsProperty -> Maybe OutputLocationRefProperty
destination :: (Prelude.Maybe OutputLocationRefProperty),
                               -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-udpoutputsettings.html#cfn-medialive-channel-udpoutputsettings-fecoutputsettings>
                               UdpOutputSettingsProperty -> Maybe FecOutputSettingsProperty
fecOutputSettings :: (Prelude.Maybe FecOutputSettingsProperty)}
  deriving stock (UdpOutputSettingsProperty -> UdpOutputSettingsProperty -> Bool
(UdpOutputSettingsProperty -> UdpOutputSettingsProperty -> Bool)
-> (UdpOutputSettingsProperty -> UdpOutputSettingsProperty -> Bool)
-> Eq UdpOutputSettingsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: UdpOutputSettingsProperty -> UdpOutputSettingsProperty -> Bool
== :: UdpOutputSettingsProperty -> UdpOutputSettingsProperty -> Bool
$c/= :: UdpOutputSettingsProperty -> UdpOutputSettingsProperty -> Bool
/= :: UdpOutputSettingsProperty -> UdpOutputSettingsProperty -> Bool
Prelude.Eq, Int -> UdpOutputSettingsProperty -> ShowS
[UdpOutputSettingsProperty] -> ShowS
UdpOutputSettingsProperty -> String
(Int -> UdpOutputSettingsProperty -> ShowS)
-> (UdpOutputSettingsProperty -> String)
-> ([UdpOutputSettingsProperty] -> ShowS)
-> Show UdpOutputSettingsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> UdpOutputSettingsProperty -> ShowS
showsPrec :: Int -> UdpOutputSettingsProperty -> ShowS
$cshow :: UdpOutputSettingsProperty -> String
show :: UdpOutputSettingsProperty -> String
$cshowList :: [UdpOutputSettingsProperty] -> ShowS
showList :: [UdpOutputSettingsProperty] -> ShowS
Prelude.Show)
mkUdpOutputSettingsProperty :: UdpOutputSettingsProperty
mkUdpOutputSettingsProperty :: UdpOutputSettingsProperty
mkUdpOutputSettingsProperty
  = UdpOutputSettingsProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), bufferMsec :: Maybe (Value Integer)
bufferMsec = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       containerSettings :: Maybe UdpContainerSettingsProperty
containerSettings = Maybe UdpContainerSettingsProperty
forall a. Maybe a
Prelude.Nothing, destination :: Maybe OutputLocationRefProperty
destination = Maybe OutputLocationRefProperty
forall a. Maybe a
Prelude.Nothing,
       fecOutputSettings :: Maybe FecOutputSettingsProperty
fecOutputSettings = Maybe FecOutputSettingsProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties UdpOutputSettingsProperty where
  toResourceProperties :: UdpOutputSettingsProperty -> ResourceProperties
toResourceProperties UdpOutputSettingsProperty {Maybe (Value Integer)
Maybe FecOutputSettingsProperty
Maybe OutputLocationRefProperty
Maybe UdpContainerSettingsProperty
()
haddock_workaround_ :: UdpOutputSettingsProperty -> ()
bufferMsec :: UdpOutputSettingsProperty -> Maybe (Value Integer)
containerSettings :: UdpOutputSettingsProperty -> Maybe UdpContainerSettingsProperty
destination :: UdpOutputSettingsProperty -> Maybe OutputLocationRefProperty
fecOutputSettings :: UdpOutputSettingsProperty -> Maybe FecOutputSettingsProperty
haddock_workaround_ :: ()
bufferMsec :: Maybe (Value Integer)
containerSettings :: Maybe UdpContainerSettingsProperty
destination :: Maybe OutputLocationRefProperty
fecOutputSettings :: Maybe FecOutputSettingsProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::MediaLive::Channel.UdpOutputSettings",
         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 -> 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..=) Key
"BufferMsec" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
bufferMsec,
                            Key -> UdpContainerSettingsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ContainerSettings" (UdpContainerSettingsProperty -> (Key, Value))
-> Maybe UdpContainerSettingsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe UdpContainerSettingsProperty
containerSettings,
                            Key -> OutputLocationRefProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Destination" (OutputLocationRefProperty -> (Key, Value))
-> Maybe OutputLocationRefProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe OutputLocationRefProperty
destination,
                            Key -> FecOutputSettingsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"FecOutputSettings" (FecOutputSettingsProperty -> (Key, Value))
-> Maybe FecOutputSettingsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe FecOutputSettingsProperty
fecOutputSettings])}
instance JSON.ToJSON UdpOutputSettingsProperty where
  toJSON :: UdpOutputSettingsProperty -> Value
toJSON UdpOutputSettingsProperty {Maybe (Value Integer)
Maybe FecOutputSettingsProperty
Maybe OutputLocationRefProperty
Maybe UdpContainerSettingsProperty
()
haddock_workaround_ :: UdpOutputSettingsProperty -> ()
bufferMsec :: UdpOutputSettingsProperty -> Maybe (Value Integer)
containerSettings :: UdpOutputSettingsProperty -> Maybe UdpContainerSettingsProperty
destination :: UdpOutputSettingsProperty -> Maybe OutputLocationRefProperty
fecOutputSettings :: UdpOutputSettingsProperty -> Maybe FecOutputSettingsProperty
haddock_workaround_ :: ()
bufferMsec :: Maybe (Value Integer)
containerSettings :: Maybe UdpContainerSettingsProperty
destination :: Maybe OutputLocationRefProperty
fecOutputSettings :: Maybe FecOutputSettingsProperty
..}
    = [(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 -> 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..=) Key
"BufferMsec" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
bufferMsec,
               Key -> UdpContainerSettingsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ContainerSettings" (UdpContainerSettingsProperty -> (Key, Value))
-> Maybe UdpContainerSettingsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe UdpContainerSettingsProperty
containerSettings,
               Key -> OutputLocationRefProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Destination" (OutputLocationRefProperty -> (Key, Value))
-> Maybe OutputLocationRefProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe OutputLocationRefProperty
destination,
               Key -> FecOutputSettingsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"FecOutputSettings" (FecOutputSettingsProperty -> (Key, Value))
-> Maybe FecOutputSettingsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe FecOutputSettingsProperty
fecOutputSettings]))
instance Property "BufferMsec" UdpOutputSettingsProperty where
  type PropertyType "BufferMsec" UdpOutputSettingsProperty = Value Prelude.Integer
  set :: PropertyType "BufferMsec" UdpOutputSettingsProperty
-> UdpOutputSettingsProperty -> UdpOutputSettingsProperty
set PropertyType "BufferMsec" UdpOutputSettingsProperty
newValue UdpOutputSettingsProperty {Maybe (Value Integer)
Maybe FecOutputSettingsProperty
Maybe OutputLocationRefProperty
Maybe UdpContainerSettingsProperty
()
haddock_workaround_ :: UdpOutputSettingsProperty -> ()
bufferMsec :: UdpOutputSettingsProperty -> Maybe (Value Integer)
containerSettings :: UdpOutputSettingsProperty -> Maybe UdpContainerSettingsProperty
destination :: UdpOutputSettingsProperty -> Maybe OutputLocationRefProperty
fecOutputSettings :: UdpOutputSettingsProperty -> Maybe FecOutputSettingsProperty
haddock_workaround_ :: ()
bufferMsec :: Maybe (Value Integer)
containerSettings :: Maybe UdpContainerSettingsProperty
destination :: Maybe OutputLocationRefProperty
fecOutputSettings :: Maybe FecOutputSettingsProperty
..}
    = UdpOutputSettingsProperty
        {bufferMsec :: Maybe (Value Integer)
bufferMsec = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "BufferMsec" UdpOutputSettingsProperty
Value Integer
newValue, Maybe FecOutputSettingsProperty
Maybe OutputLocationRefProperty
Maybe UdpContainerSettingsProperty
()
haddock_workaround_ :: ()
containerSettings :: Maybe UdpContainerSettingsProperty
destination :: Maybe OutputLocationRefProperty
fecOutputSettings :: Maybe FecOutputSettingsProperty
haddock_workaround_ :: ()
containerSettings :: Maybe UdpContainerSettingsProperty
destination :: Maybe OutputLocationRefProperty
fecOutputSettings :: Maybe FecOutputSettingsProperty
..}
instance Property "ContainerSettings" UdpOutputSettingsProperty where
  type PropertyType "ContainerSettings" UdpOutputSettingsProperty = UdpContainerSettingsProperty
  set :: PropertyType "ContainerSettings" UdpOutputSettingsProperty
-> UdpOutputSettingsProperty -> UdpOutputSettingsProperty
set PropertyType "ContainerSettings" UdpOutputSettingsProperty
newValue UdpOutputSettingsProperty {Maybe (Value Integer)
Maybe FecOutputSettingsProperty
Maybe OutputLocationRefProperty
Maybe UdpContainerSettingsProperty
()
haddock_workaround_ :: UdpOutputSettingsProperty -> ()
bufferMsec :: UdpOutputSettingsProperty -> Maybe (Value Integer)
containerSettings :: UdpOutputSettingsProperty -> Maybe UdpContainerSettingsProperty
destination :: UdpOutputSettingsProperty -> Maybe OutputLocationRefProperty
fecOutputSettings :: UdpOutputSettingsProperty -> Maybe FecOutputSettingsProperty
haddock_workaround_ :: ()
bufferMsec :: Maybe (Value Integer)
containerSettings :: Maybe UdpContainerSettingsProperty
destination :: Maybe OutputLocationRefProperty
fecOutputSettings :: Maybe FecOutputSettingsProperty
..}
    = UdpOutputSettingsProperty
        {containerSettings :: Maybe UdpContainerSettingsProperty
containerSettings = UdpContainerSettingsProperty -> Maybe UdpContainerSettingsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ContainerSettings" UdpOutputSettingsProperty
UdpContainerSettingsProperty
newValue, Maybe (Value Integer)
Maybe FecOutputSettingsProperty
Maybe OutputLocationRefProperty
()
haddock_workaround_ :: ()
bufferMsec :: Maybe (Value Integer)
destination :: Maybe OutputLocationRefProperty
fecOutputSettings :: Maybe FecOutputSettingsProperty
haddock_workaround_ :: ()
bufferMsec :: Maybe (Value Integer)
destination :: Maybe OutputLocationRefProperty
fecOutputSettings :: Maybe FecOutputSettingsProperty
..}
instance Property "Destination" UdpOutputSettingsProperty where
  type PropertyType "Destination" UdpOutputSettingsProperty = OutputLocationRefProperty
  set :: PropertyType "Destination" UdpOutputSettingsProperty
-> UdpOutputSettingsProperty -> UdpOutputSettingsProperty
set PropertyType "Destination" UdpOutputSettingsProperty
newValue UdpOutputSettingsProperty {Maybe (Value Integer)
Maybe FecOutputSettingsProperty
Maybe OutputLocationRefProperty
Maybe UdpContainerSettingsProperty
()
haddock_workaround_ :: UdpOutputSettingsProperty -> ()
bufferMsec :: UdpOutputSettingsProperty -> Maybe (Value Integer)
containerSettings :: UdpOutputSettingsProperty -> Maybe UdpContainerSettingsProperty
destination :: UdpOutputSettingsProperty -> Maybe OutputLocationRefProperty
fecOutputSettings :: UdpOutputSettingsProperty -> Maybe FecOutputSettingsProperty
haddock_workaround_ :: ()
bufferMsec :: Maybe (Value Integer)
containerSettings :: Maybe UdpContainerSettingsProperty
destination :: Maybe OutputLocationRefProperty
fecOutputSettings :: Maybe FecOutputSettingsProperty
..}
    = UdpOutputSettingsProperty
        {destination :: Maybe OutputLocationRefProperty
destination = OutputLocationRefProperty -> Maybe OutputLocationRefProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Destination" UdpOutputSettingsProperty
OutputLocationRefProperty
newValue, Maybe (Value Integer)
Maybe FecOutputSettingsProperty
Maybe UdpContainerSettingsProperty
()
haddock_workaround_ :: ()
bufferMsec :: Maybe (Value Integer)
containerSettings :: Maybe UdpContainerSettingsProperty
fecOutputSettings :: Maybe FecOutputSettingsProperty
haddock_workaround_ :: ()
bufferMsec :: Maybe (Value Integer)
containerSettings :: Maybe UdpContainerSettingsProperty
fecOutputSettings :: Maybe FecOutputSettingsProperty
..}
instance Property "FecOutputSettings" UdpOutputSettingsProperty where
  type PropertyType "FecOutputSettings" UdpOutputSettingsProperty = FecOutputSettingsProperty
  set :: PropertyType "FecOutputSettings" UdpOutputSettingsProperty
-> UdpOutputSettingsProperty -> UdpOutputSettingsProperty
set PropertyType "FecOutputSettings" UdpOutputSettingsProperty
newValue UdpOutputSettingsProperty {Maybe (Value Integer)
Maybe FecOutputSettingsProperty
Maybe OutputLocationRefProperty
Maybe UdpContainerSettingsProperty
()
haddock_workaround_ :: UdpOutputSettingsProperty -> ()
bufferMsec :: UdpOutputSettingsProperty -> Maybe (Value Integer)
containerSettings :: UdpOutputSettingsProperty -> Maybe UdpContainerSettingsProperty
destination :: UdpOutputSettingsProperty -> Maybe OutputLocationRefProperty
fecOutputSettings :: UdpOutputSettingsProperty -> Maybe FecOutputSettingsProperty
haddock_workaround_ :: ()
bufferMsec :: Maybe (Value Integer)
containerSettings :: Maybe UdpContainerSettingsProperty
destination :: Maybe OutputLocationRefProperty
fecOutputSettings :: Maybe FecOutputSettingsProperty
..}
    = UdpOutputSettingsProperty
        {fecOutputSettings :: Maybe FecOutputSettingsProperty
fecOutputSettings = FecOutputSettingsProperty -> Maybe FecOutputSettingsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "FecOutputSettings" UdpOutputSettingsProperty
FecOutputSettingsProperty
newValue, Maybe (Value Integer)
Maybe OutputLocationRefProperty
Maybe UdpContainerSettingsProperty
()
haddock_workaround_ :: ()
bufferMsec :: Maybe (Value Integer)
containerSettings :: Maybe UdpContainerSettingsProperty
destination :: Maybe OutputLocationRefProperty
haddock_workaround_ :: ()
bufferMsec :: Maybe (Value Integer)
containerSettings :: Maybe UdpContainerSettingsProperty
destination :: Maybe OutputLocationRefProperty
..}