{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.ChimeSdkVoice.PutVoiceConnectorStreamingConfiguration
(
PutVoiceConnectorStreamingConfiguration (..),
newPutVoiceConnectorStreamingConfiguration,
putVoiceConnectorStreamingConfiguration_voiceConnectorId,
putVoiceConnectorStreamingConfiguration_streamingConfiguration,
PutVoiceConnectorStreamingConfigurationResponse (..),
newPutVoiceConnectorStreamingConfigurationResponse,
putVoiceConnectorStreamingConfigurationResponse_streamingConfiguration,
putVoiceConnectorStreamingConfigurationResponse_httpStatus,
)
where
import Amazonka.ChimeSdkVoice.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data PutVoiceConnectorStreamingConfiguration = PutVoiceConnectorStreamingConfiguration'
{ PutVoiceConnectorStreamingConfiguration -> Text
voiceConnectorId :: Prelude.Text,
PutVoiceConnectorStreamingConfiguration -> StreamingConfiguration
streamingConfiguration :: StreamingConfiguration
}
deriving (PutVoiceConnectorStreamingConfiguration
-> PutVoiceConnectorStreamingConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutVoiceConnectorStreamingConfiguration
-> PutVoiceConnectorStreamingConfiguration -> Bool
$c/= :: PutVoiceConnectorStreamingConfiguration
-> PutVoiceConnectorStreamingConfiguration -> Bool
== :: PutVoiceConnectorStreamingConfiguration
-> PutVoiceConnectorStreamingConfiguration -> Bool
$c== :: PutVoiceConnectorStreamingConfiguration
-> PutVoiceConnectorStreamingConfiguration -> Bool
Prelude.Eq, ReadPrec [PutVoiceConnectorStreamingConfiguration]
ReadPrec PutVoiceConnectorStreamingConfiguration
Int -> ReadS PutVoiceConnectorStreamingConfiguration
ReadS [PutVoiceConnectorStreamingConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutVoiceConnectorStreamingConfiguration]
$creadListPrec :: ReadPrec [PutVoiceConnectorStreamingConfiguration]
readPrec :: ReadPrec PutVoiceConnectorStreamingConfiguration
$creadPrec :: ReadPrec PutVoiceConnectorStreamingConfiguration
readList :: ReadS [PutVoiceConnectorStreamingConfiguration]
$creadList :: ReadS [PutVoiceConnectorStreamingConfiguration]
readsPrec :: Int -> ReadS PutVoiceConnectorStreamingConfiguration
$creadsPrec :: Int -> ReadS PutVoiceConnectorStreamingConfiguration
Prelude.Read, Int -> PutVoiceConnectorStreamingConfiguration -> ShowS
[PutVoiceConnectorStreamingConfiguration] -> ShowS
PutVoiceConnectorStreamingConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutVoiceConnectorStreamingConfiguration] -> ShowS
$cshowList :: [PutVoiceConnectorStreamingConfiguration] -> ShowS
show :: PutVoiceConnectorStreamingConfiguration -> String
$cshow :: PutVoiceConnectorStreamingConfiguration -> String
showsPrec :: Int -> PutVoiceConnectorStreamingConfiguration -> ShowS
$cshowsPrec :: Int -> PutVoiceConnectorStreamingConfiguration -> ShowS
Prelude.Show, forall x.
Rep PutVoiceConnectorStreamingConfiguration x
-> PutVoiceConnectorStreamingConfiguration
forall x.
PutVoiceConnectorStreamingConfiguration
-> Rep PutVoiceConnectorStreamingConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutVoiceConnectorStreamingConfiguration x
-> PutVoiceConnectorStreamingConfiguration
$cfrom :: forall x.
PutVoiceConnectorStreamingConfiguration
-> Rep PutVoiceConnectorStreamingConfiguration x
Prelude.Generic)
newPutVoiceConnectorStreamingConfiguration ::
Prelude.Text ->
StreamingConfiguration ->
PutVoiceConnectorStreamingConfiguration
newPutVoiceConnectorStreamingConfiguration :: Text
-> StreamingConfiguration
-> PutVoiceConnectorStreamingConfiguration
newPutVoiceConnectorStreamingConfiguration
Text
pVoiceConnectorId_
StreamingConfiguration
pStreamingConfiguration_ =
PutVoiceConnectorStreamingConfiguration'
{ $sel:voiceConnectorId:PutVoiceConnectorStreamingConfiguration' :: Text
voiceConnectorId =
Text
pVoiceConnectorId_,
$sel:streamingConfiguration:PutVoiceConnectorStreamingConfiguration' :: StreamingConfiguration
streamingConfiguration =
StreamingConfiguration
pStreamingConfiguration_
}
putVoiceConnectorStreamingConfiguration_voiceConnectorId :: Lens.Lens' PutVoiceConnectorStreamingConfiguration Prelude.Text
putVoiceConnectorStreamingConfiguration_voiceConnectorId :: Lens' PutVoiceConnectorStreamingConfiguration Text
putVoiceConnectorStreamingConfiguration_voiceConnectorId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutVoiceConnectorStreamingConfiguration' {Text
voiceConnectorId :: Text
$sel:voiceConnectorId:PutVoiceConnectorStreamingConfiguration' :: PutVoiceConnectorStreamingConfiguration -> Text
voiceConnectorId} -> Text
voiceConnectorId) (\s :: PutVoiceConnectorStreamingConfiguration
s@PutVoiceConnectorStreamingConfiguration' {} Text
a -> PutVoiceConnectorStreamingConfiguration
s {$sel:voiceConnectorId:PutVoiceConnectorStreamingConfiguration' :: Text
voiceConnectorId = Text
a} :: PutVoiceConnectorStreamingConfiguration)
putVoiceConnectorStreamingConfiguration_streamingConfiguration :: Lens.Lens' PutVoiceConnectorStreamingConfiguration StreamingConfiguration
putVoiceConnectorStreamingConfiguration_streamingConfiguration :: Lens'
PutVoiceConnectorStreamingConfiguration StreamingConfiguration
putVoiceConnectorStreamingConfiguration_streamingConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutVoiceConnectorStreamingConfiguration' {StreamingConfiguration
streamingConfiguration :: StreamingConfiguration
$sel:streamingConfiguration:PutVoiceConnectorStreamingConfiguration' :: PutVoiceConnectorStreamingConfiguration -> StreamingConfiguration
streamingConfiguration} -> StreamingConfiguration
streamingConfiguration) (\s :: PutVoiceConnectorStreamingConfiguration
s@PutVoiceConnectorStreamingConfiguration' {} StreamingConfiguration
a -> PutVoiceConnectorStreamingConfiguration
s {$sel:streamingConfiguration:PutVoiceConnectorStreamingConfiguration' :: StreamingConfiguration
streamingConfiguration = StreamingConfiguration
a} :: PutVoiceConnectorStreamingConfiguration)
instance
Core.AWSRequest
PutVoiceConnectorStreamingConfiguration
where
type
AWSResponse
PutVoiceConnectorStreamingConfiguration =
PutVoiceConnectorStreamingConfigurationResponse
request :: (Service -> Service)
-> PutVoiceConnectorStreamingConfiguration
-> Request PutVoiceConnectorStreamingConfiguration
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy PutVoiceConnectorStreamingConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse PutVoiceConnectorStreamingConfiguration)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe StreamingConfiguration
-> Int -> PutVoiceConnectorStreamingConfigurationResponse
PutVoiceConnectorStreamingConfigurationResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"StreamingConfiguration")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
PutVoiceConnectorStreamingConfiguration
where
hashWithSalt :: Int -> PutVoiceConnectorStreamingConfiguration -> Int
hashWithSalt
Int
_salt
PutVoiceConnectorStreamingConfiguration' {Text
StreamingConfiguration
streamingConfiguration :: StreamingConfiguration
voiceConnectorId :: Text
$sel:streamingConfiguration:PutVoiceConnectorStreamingConfiguration' :: PutVoiceConnectorStreamingConfiguration -> StreamingConfiguration
$sel:voiceConnectorId:PutVoiceConnectorStreamingConfiguration' :: PutVoiceConnectorStreamingConfiguration -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
voiceConnectorId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` StreamingConfiguration
streamingConfiguration
instance
Prelude.NFData
PutVoiceConnectorStreamingConfiguration
where
rnf :: PutVoiceConnectorStreamingConfiguration -> ()
rnf PutVoiceConnectorStreamingConfiguration' {Text
StreamingConfiguration
streamingConfiguration :: StreamingConfiguration
voiceConnectorId :: Text
$sel:streamingConfiguration:PutVoiceConnectorStreamingConfiguration' :: PutVoiceConnectorStreamingConfiguration -> StreamingConfiguration
$sel:voiceConnectorId:PutVoiceConnectorStreamingConfiguration' :: PutVoiceConnectorStreamingConfiguration -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
voiceConnectorId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf StreamingConfiguration
streamingConfiguration
instance
Data.ToHeaders
PutVoiceConnectorStreamingConfiguration
where
toHeaders :: PutVoiceConnectorStreamingConfiguration -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToJSON
PutVoiceConnectorStreamingConfiguration
where
toJSON :: PutVoiceConnectorStreamingConfiguration -> Value
toJSON PutVoiceConnectorStreamingConfiguration' {Text
StreamingConfiguration
streamingConfiguration :: StreamingConfiguration
voiceConnectorId :: Text
$sel:streamingConfiguration:PutVoiceConnectorStreamingConfiguration' :: PutVoiceConnectorStreamingConfiguration -> StreamingConfiguration
$sel:voiceConnectorId:PutVoiceConnectorStreamingConfiguration' :: PutVoiceConnectorStreamingConfiguration -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
( Key
"StreamingConfiguration"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= StreamingConfiguration
streamingConfiguration
)
]
)
instance
Data.ToPath
PutVoiceConnectorStreamingConfiguration
where
toPath :: PutVoiceConnectorStreamingConfiguration -> ByteString
toPath PutVoiceConnectorStreamingConfiguration' {Text
StreamingConfiguration
streamingConfiguration :: StreamingConfiguration
voiceConnectorId :: Text
$sel:streamingConfiguration:PutVoiceConnectorStreamingConfiguration' :: PutVoiceConnectorStreamingConfiguration -> StreamingConfiguration
$sel:voiceConnectorId:PutVoiceConnectorStreamingConfiguration' :: PutVoiceConnectorStreamingConfiguration -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/voice-connectors/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
voiceConnectorId,
ByteString
"/streaming-configuration"
]
instance
Data.ToQuery
PutVoiceConnectorStreamingConfiguration
where
toQuery :: PutVoiceConnectorStreamingConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data PutVoiceConnectorStreamingConfigurationResponse = PutVoiceConnectorStreamingConfigurationResponse'
{ PutVoiceConnectorStreamingConfigurationResponse
-> Maybe StreamingConfiguration
streamingConfiguration :: Prelude.Maybe StreamingConfiguration,
PutVoiceConnectorStreamingConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (PutVoiceConnectorStreamingConfigurationResponse
-> PutVoiceConnectorStreamingConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutVoiceConnectorStreamingConfigurationResponse
-> PutVoiceConnectorStreamingConfigurationResponse -> Bool
$c/= :: PutVoiceConnectorStreamingConfigurationResponse
-> PutVoiceConnectorStreamingConfigurationResponse -> Bool
== :: PutVoiceConnectorStreamingConfigurationResponse
-> PutVoiceConnectorStreamingConfigurationResponse -> Bool
$c== :: PutVoiceConnectorStreamingConfigurationResponse
-> PutVoiceConnectorStreamingConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [PutVoiceConnectorStreamingConfigurationResponse]
ReadPrec PutVoiceConnectorStreamingConfigurationResponse
Int -> ReadS PutVoiceConnectorStreamingConfigurationResponse
ReadS [PutVoiceConnectorStreamingConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutVoiceConnectorStreamingConfigurationResponse]
$creadListPrec :: ReadPrec [PutVoiceConnectorStreamingConfigurationResponse]
readPrec :: ReadPrec PutVoiceConnectorStreamingConfigurationResponse
$creadPrec :: ReadPrec PutVoiceConnectorStreamingConfigurationResponse
readList :: ReadS [PutVoiceConnectorStreamingConfigurationResponse]
$creadList :: ReadS [PutVoiceConnectorStreamingConfigurationResponse]
readsPrec :: Int -> ReadS PutVoiceConnectorStreamingConfigurationResponse
$creadsPrec :: Int -> ReadS PutVoiceConnectorStreamingConfigurationResponse
Prelude.Read, Int -> PutVoiceConnectorStreamingConfigurationResponse -> ShowS
[PutVoiceConnectorStreamingConfigurationResponse] -> ShowS
PutVoiceConnectorStreamingConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutVoiceConnectorStreamingConfigurationResponse] -> ShowS
$cshowList :: [PutVoiceConnectorStreamingConfigurationResponse] -> ShowS
show :: PutVoiceConnectorStreamingConfigurationResponse -> String
$cshow :: PutVoiceConnectorStreamingConfigurationResponse -> String
showsPrec :: Int -> PutVoiceConnectorStreamingConfigurationResponse -> ShowS
$cshowsPrec :: Int -> PutVoiceConnectorStreamingConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep PutVoiceConnectorStreamingConfigurationResponse x
-> PutVoiceConnectorStreamingConfigurationResponse
forall x.
PutVoiceConnectorStreamingConfigurationResponse
-> Rep PutVoiceConnectorStreamingConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutVoiceConnectorStreamingConfigurationResponse x
-> PutVoiceConnectorStreamingConfigurationResponse
$cfrom :: forall x.
PutVoiceConnectorStreamingConfigurationResponse
-> Rep PutVoiceConnectorStreamingConfigurationResponse x
Prelude.Generic)
newPutVoiceConnectorStreamingConfigurationResponse ::
Prelude.Int ->
PutVoiceConnectorStreamingConfigurationResponse
newPutVoiceConnectorStreamingConfigurationResponse :: Int -> PutVoiceConnectorStreamingConfigurationResponse
newPutVoiceConnectorStreamingConfigurationResponse
Int
pHttpStatus_ =
PutVoiceConnectorStreamingConfigurationResponse'
{ $sel:streamingConfiguration:PutVoiceConnectorStreamingConfigurationResponse' :: Maybe StreamingConfiguration
streamingConfiguration =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:PutVoiceConnectorStreamingConfigurationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
putVoiceConnectorStreamingConfigurationResponse_streamingConfiguration :: Lens.Lens' PutVoiceConnectorStreamingConfigurationResponse (Prelude.Maybe StreamingConfiguration)
putVoiceConnectorStreamingConfigurationResponse_streamingConfiguration :: Lens'
PutVoiceConnectorStreamingConfigurationResponse
(Maybe StreamingConfiguration)
putVoiceConnectorStreamingConfigurationResponse_streamingConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutVoiceConnectorStreamingConfigurationResponse' {Maybe StreamingConfiguration
streamingConfiguration :: Maybe StreamingConfiguration
$sel:streamingConfiguration:PutVoiceConnectorStreamingConfigurationResponse' :: PutVoiceConnectorStreamingConfigurationResponse
-> Maybe StreamingConfiguration
streamingConfiguration} -> Maybe StreamingConfiguration
streamingConfiguration) (\s :: PutVoiceConnectorStreamingConfigurationResponse
s@PutVoiceConnectorStreamingConfigurationResponse' {} Maybe StreamingConfiguration
a -> PutVoiceConnectorStreamingConfigurationResponse
s {$sel:streamingConfiguration:PutVoiceConnectorStreamingConfigurationResponse' :: Maybe StreamingConfiguration
streamingConfiguration = Maybe StreamingConfiguration
a} :: PutVoiceConnectorStreamingConfigurationResponse)
putVoiceConnectorStreamingConfigurationResponse_httpStatus :: Lens.Lens' PutVoiceConnectorStreamingConfigurationResponse Prelude.Int
putVoiceConnectorStreamingConfigurationResponse_httpStatus :: Lens' PutVoiceConnectorStreamingConfigurationResponse Int
putVoiceConnectorStreamingConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutVoiceConnectorStreamingConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:PutVoiceConnectorStreamingConfigurationResponse' :: PutVoiceConnectorStreamingConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: PutVoiceConnectorStreamingConfigurationResponse
s@PutVoiceConnectorStreamingConfigurationResponse' {} Int
a -> PutVoiceConnectorStreamingConfigurationResponse
s {$sel:httpStatus:PutVoiceConnectorStreamingConfigurationResponse' :: Int
httpStatus = Int
a} :: PutVoiceConnectorStreamingConfigurationResponse)
instance
Prelude.NFData
PutVoiceConnectorStreamingConfigurationResponse
where
rnf :: PutVoiceConnectorStreamingConfigurationResponse -> ()
rnf
PutVoiceConnectorStreamingConfigurationResponse' {Int
Maybe StreamingConfiguration
httpStatus :: Int
streamingConfiguration :: Maybe StreamingConfiguration
$sel:httpStatus:PutVoiceConnectorStreamingConfigurationResponse' :: PutVoiceConnectorStreamingConfigurationResponse -> Int
$sel:streamingConfiguration:PutVoiceConnectorStreamingConfigurationResponse' :: PutVoiceConnectorStreamingConfigurationResponse
-> Maybe StreamingConfiguration
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe StreamingConfiguration
streamingConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus