{-# 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.PutVoiceConnectorEmergencyCallingConfiguration
(
PutVoiceConnectorEmergencyCallingConfiguration (..),
newPutVoiceConnectorEmergencyCallingConfiguration,
putVoiceConnectorEmergencyCallingConfiguration_voiceConnectorId,
putVoiceConnectorEmergencyCallingConfiguration_emergencyCallingConfiguration,
PutVoiceConnectorEmergencyCallingConfigurationResponse (..),
newPutVoiceConnectorEmergencyCallingConfigurationResponse,
putVoiceConnectorEmergencyCallingConfigurationResponse_emergencyCallingConfiguration,
putVoiceConnectorEmergencyCallingConfigurationResponse_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 PutVoiceConnectorEmergencyCallingConfiguration = PutVoiceConnectorEmergencyCallingConfiguration'
{ PutVoiceConnectorEmergencyCallingConfiguration -> Text
voiceConnectorId :: Prelude.Text,
PutVoiceConnectorEmergencyCallingConfiguration
-> EmergencyCallingConfiguration
emergencyCallingConfiguration :: EmergencyCallingConfiguration
}
deriving (PutVoiceConnectorEmergencyCallingConfiguration
-> PutVoiceConnectorEmergencyCallingConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutVoiceConnectorEmergencyCallingConfiguration
-> PutVoiceConnectorEmergencyCallingConfiguration -> Bool
$c/= :: PutVoiceConnectorEmergencyCallingConfiguration
-> PutVoiceConnectorEmergencyCallingConfiguration -> Bool
== :: PutVoiceConnectorEmergencyCallingConfiguration
-> PutVoiceConnectorEmergencyCallingConfiguration -> Bool
$c== :: PutVoiceConnectorEmergencyCallingConfiguration
-> PutVoiceConnectorEmergencyCallingConfiguration -> Bool
Prelude.Eq, Int -> PutVoiceConnectorEmergencyCallingConfiguration -> ShowS
[PutVoiceConnectorEmergencyCallingConfiguration] -> ShowS
PutVoiceConnectorEmergencyCallingConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutVoiceConnectorEmergencyCallingConfiguration] -> ShowS
$cshowList :: [PutVoiceConnectorEmergencyCallingConfiguration] -> ShowS
show :: PutVoiceConnectorEmergencyCallingConfiguration -> String
$cshow :: PutVoiceConnectorEmergencyCallingConfiguration -> String
showsPrec :: Int -> PutVoiceConnectorEmergencyCallingConfiguration -> ShowS
$cshowsPrec :: Int -> PutVoiceConnectorEmergencyCallingConfiguration -> ShowS
Prelude.Show, forall x.
Rep PutVoiceConnectorEmergencyCallingConfiguration x
-> PutVoiceConnectorEmergencyCallingConfiguration
forall x.
PutVoiceConnectorEmergencyCallingConfiguration
-> Rep PutVoiceConnectorEmergencyCallingConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutVoiceConnectorEmergencyCallingConfiguration x
-> PutVoiceConnectorEmergencyCallingConfiguration
$cfrom :: forall x.
PutVoiceConnectorEmergencyCallingConfiguration
-> Rep PutVoiceConnectorEmergencyCallingConfiguration x
Prelude.Generic)
newPutVoiceConnectorEmergencyCallingConfiguration ::
Prelude.Text ->
EmergencyCallingConfiguration ->
PutVoiceConnectorEmergencyCallingConfiguration
newPutVoiceConnectorEmergencyCallingConfiguration :: Text
-> EmergencyCallingConfiguration
-> PutVoiceConnectorEmergencyCallingConfiguration
newPutVoiceConnectorEmergencyCallingConfiguration
Text
pVoiceConnectorId_
EmergencyCallingConfiguration
pEmergencyCallingConfiguration_ =
PutVoiceConnectorEmergencyCallingConfiguration'
{ $sel:voiceConnectorId:PutVoiceConnectorEmergencyCallingConfiguration' :: Text
voiceConnectorId =
Text
pVoiceConnectorId_,
$sel:emergencyCallingConfiguration:PutVoiceConnectorEmergencyCallingConfiguration' :: EmergencyCallingConfiguration
emergencyCallingConfiguration =
EmergencyCallingConfiguration
pEmergencyCallingConfiguration_
}
putVoiceConnectorEmergencyCallingConfiguration_voiceConnectorId :: Lens.Lens' PutVoiceConnectorEmergencyCallingConfiguration Prelude.Text
putVoiceConnectorEmergencyCallingConfiguration_voiceConnectorId :: Lens' PutVoiceConnectorEmergencyCallingConfiguration Text
putVoiceConnectorEmergencyCallingConfiguration_voiceConnectorId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutVoiceConnectorEmergencyCallingConfiguration' {Text
voiceConnectorId :: Text
$sel:voiceConnectorId:PutVoiceConnectorEmergencyCallingConfiguration' :: PutVoiceConnectorEmergencyCallingConfiguration -> Text
voiceConnectorId} -> Text
voiceConnectorId) (\s :: PutVoiceConnectorEmergencyCallingConfiguration
s@PutVoiceConnectorEmergencyCallingConfiguration' {} Text
a -> PutVoiceConnectorEmergencyCallingConfiguration
s {$sel:voiceConnectorId:PutVoiceConnectorEmergencyCallingConfiguration' :: Text
voiceConnectorId = Text
a} :: PutVoiceConnectorEmergencyCallingConfiguration)
putVoiceConnectorEmergencyCallingConfiguration_emergencyCallingConfiguration :: Lens.Lens' PutVoiceConnectorEmergencyCallingConfiguration EmergencyCallingConfiguration
putVoiceConnectorEmergencyCallingConfiguration_emergencyCallingConfiguration :: Lens'
PutVoiceConnectorEmergencyCallingConfiguration
EmergencyCallingConfiguration
putVoiceConnectorEmergencyCallingConfiguration_emergencyCallingConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutVoiceConnectorEmergencyCallingConfiguration' {EmergencyCallingConfiguration
emergencyCallingConfiguration :: EmergencyCallingConfiguration
$sel:emergencyCallingConfiguration:PutVoiceConnectorEmergencyCallingConfiguration' :: PutVoiceConnectorEmergencyCallingConfiguration
-> EmergencyCallingConfiguration
emergencyCallingConfiguration} -> EmergencyCallingConfiguration
emergencyCallingConfiguration) (\s :: PutVoiceConnectorEmergencyCallingConfiguration
s@PutVoiceConnectorEmergencyCallingConfiguration' {} EmergencyCallingConfiguration
a -> PutVoiceConnectorEmergencyCallingConfiguration
s {$sel:emergencyCallingConfiguration:PutVoiceConnectorEmergencyCallingConfiguration' :: EmergencyCallingConfiguration
emergencyCallingConfiguration = EmergencyCallingConfiguration
a} :: PutVoiceConnectorEmergencyCallingConfiguration)
instance
Core.AWSRequest
PutVoiceConnectorEmergencyCallingConfiguration
where
type
AWSResponse
PutVoiceConnectorEmergencyCallingConfiguration =
PutVoiceConnectorEmergencyCallingConfigurationResponse
request :: (Service -> Service)
-> PutVoiceConnectorEmergencyCallingConfiguration
-> Request PutVoiceConnectorEmergencyCallingConfiguration
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 PutVoiceConnectorEmergencyCallingConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse PutVoiceConnectorEmergencyCallingConfiguration)))
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 EmergencyCallingConfiguration
-> Int -> PutVoiceConnectorEmergencyCallingConfigurationResponse
PutVoiceConnectorEmergencyCallingConfigurationResponse'
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
"EmergencyCallingConfiguration")
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
PutVoiceConnectorEmergencyCallingConfiguration
where
hashWithSalt :: Int -> PutVoiceConnectorEmergencyCallingConfiguration -> Int
hashWithSalt
Int
_salt
PutVoiceConnectorEmergencyCallingConfiguration' {Text
EmergencyCallingConfiguration
emergencyCallingConfiguration :: EmergencyCallingConfiguration
voiceConnectorId :: Text
$sel:emergencyCallingConfiguration:PutVoiceConnectorEmergencyCallingConfiguration' :: PutVoiceConnectorEmergencyCallingConfiguration
-> EmergencyCallingConfiguration
$sel:voiceConnectorId:PutVoiceConnectorEmergencyCallingConfiguration' :: PutVoiceConnectorEmergencyCallingConfiguration -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
voiceConnectorId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` EmergencyCallingConfiguration
emergencyCallingConfiguration
instance
Prelude.NFData
PutVoiceConnectorEmergencyCallingConfiguration
where
rnf :: PutVoiceConnectorEmergencyCallingConfiguration -> ()
rnf
PutVoiceConnectorEmergencyCallingConfiguration' {Text
EmergencyCallingConfiguration
emergencyCallingConfiguration :: EmergencyCallingConfiguration
voiceConnectorId :: Text
$sel:emergencyCallingConfiguration:PutVoiceConnectorEmergencyCallingConfiguration' :: PutVoiceConnectorEmergencyCallingConfiguration
-> EmergencyCallingConfiguration
$sel:voiceConnectorId:PutVoiceConnectorEmergencyCallingConfiguration' :: PutVoiceConnectorEmergencyCallingConfiguration -> 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 EmergencyCallingConfiguration
emergencyCallingConfiguration
instance
Data.ToHeaders
PutVoiceConnectorEmergencyCallingConfiguration
where
toHeaders :: PutVoiceConnectorEmergencyCallingConfiguration -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToJSON
PutVoiceConnectorEmergencyCallingConfiguration
where
toJSON :: PutVoiceConnectorEmergencyCallingConfiguration -> Value
toJSON
PutVoiceConnectorEmergencyCallingConfiguration' {Text
EmergencyCallingConfiguration
emergencyCallingConfiguration :: EmergencyCallingConfiguration
voiceConnectorId :: Text
$sel:emergencyCallingConfiguration:PutVoiceConnectorEmergencyCallingConfiguration' :: PutVoiceConnectorEmergencyCallingConfiguration
-> EmergencyCallingConfiguration
$sel:voiceConnectorId:PutVoiceConnectorEmergencyCallingConfiguration' :: PutVoiceConnectorEmergencyCallingConfiguration -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
( Key
"EmergencyCallingConfiguration"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= EmergencyCallingConfiguration
emergencyCallingConfiguration
)
]
)
instance
Data.ToPath
PutVoiceConnectorEmergencyCallingConfiguration
where
toPath :: PutVoiceConnectorEmergencyCallingConfiguration -> ByteString
toPath
PutVoiceConnectorEmergencyCallingConfiguration' {Text
EmergencyCallingConfiguration
emergencyCallingConfiguration :: EmergencyCallingConfiguration
voiceConnectorId :: Text
$sel:emergencyCallingConfiguration:PutVoiceConnectorEmergencyCallingConfiguration' :: PutVoiceConnectorEmergencyCallingConfiguration
-> EmergencyCallingConfiguration
$sel:voiceConnectorId:PutVoiceConnectorEmergencyCallingConfiguration' :: PutVoiceConnectorEmergencyCallingConfiguration -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/voice-connectors/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
voiceConnectorId,
ByteString
"/emergency-calling-configuration"
]
instance
Data.ToQuery
PutVoiceConnectorEmergencyCallingConfiguration
where
toQuery :: PutVoiceConnectorEmergencyCallingConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data PutVoiceConnectorEmergencyCallingConfigurationResponse = PutVoiceConnectorEmergencyCallingConfigurationResponse'
{ PutVoiceConnectorEmergencyCallingConfigurationResponse
-> Maybe EmergencyCallingConfiguration
emergencyCallingConfiguration :: Prelude.Maybe EmergencyCallingConfiguration,
PutVoiceConnectorEmergencyCallingConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (PutVoiceConnectorEmergencyCallingConfigurationResponse
-> PutVoiceConnectorEmergencyCallingConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutVoiceConnectorEmergencyCallingConfigurationResponse
-> PutVoiceConnectorEmergencyCallingConfigurationResponse -> Bool
$c/= :: PutVoiceConnectorEmergencyCallingConfigurationResponse
-> PutVoiceConnectorEmergencyCallingConfigurationResponse -> Bool
== :: PutVoiceConnectorEmergencyCallingConfigurationResponse
-> PutVoiceConnectorEmergencyCallingConfigurationResponse -> Bool
$c== :: PutVoiceConnectorEmergencyCallingConfigurationResponse
-> PutVoiceConnectorEmergencyCallingConfigurationResponse -> Bool
Prelude.Eq, Int
-> PutVoiceConnectorEmergencyCallingConfigurationResponse -> ShowS
[PutVoiceConnectorEmergencyCallingConfigurationResponse] -> ShowS
PutVoiceConnectorEmergencyCallingConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutVoiceConnectorEmergencyCallingConfigurationResponse] -> ShowS
$cshowList :: [PutVoiceConnectorEmergencyCallingConfigurationResponse] -> ShowS
show :: PutVoiceConnectorEmergencyCallingConfigurationResponse -> String
$cshow :: PutVoiceConnectorEmergencyCallingConfigurationResponse -> String
showsPrec :: Int
-> PutVoiceConnectorEmergencyCallingConfigurationResponse -> ShowS
$cshowsPrec :: Int
-> PutVoiceConnectorEmergencyCallingConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep PutVoiceConnectorEmergencyCallingConfigurationResponse x
-> PutVoiceConnectorEmergencyCallingConfigurationResponse
forall x.
PutVoiceConnectorEmergencyCallingConfigurationResponse
-> Rep PutVoiceConnectorEmergencyCallingConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutVoiceConnectorEmergencyCallingConfigurationResponse x
-> PutVoiceConnectorEmergencyCallingConfigurationResponse
$cfrom :: forall x.
PutVoiceConnectorEmergencyCallingConfigurationResponse
-> Rep PutVoiceConnectorEmergencyCallingConfigurationResponse x
Prelude.Generic)
newPutVoiceConnectorEmergencyCallingConfigurationResponse ::
Prelude.Int ->
PutVoiceConnectorEmergencyCallingConfigurationResponse
newPutVoiceConnectorEmergencyCallingConfigurationResponse :: Int -> PutVoiceConnectorEmergencyCallingConfigurationResponse
newPutVoiceConnectorEmergencyCallingConfigurationResponse
Int
pHttpStatus_ =
PutVoiceConnectorEmergencyCallingConfigurationResponse'
{ $sel:emergencyCallingConfiguration:PutVoiceConnectorEmergencyCallingConfigurationResponse' :: Maybe EmergencyCallingConfiguration
emergencyCallingConfiguration =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:PutVoiceConnectorEmergencyCallingConfigurationResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
putVoiceConnectorEmergencyCallingConfigurationResponse_emergencyCallingConfiguration :: Lens.Lens' PutVoiceConnectorEmergencyCallingConfigurationResponse (Prelude.Maybe EmergencyCallingConfiguration)
putVoiceConnectorEmergencyCallingConfigurationResponse_emergencyCallingConfiguration :: Lens'
PutVoiceConnectorEmergencyCallingConfigurationResponse
(Maybe EmergencyCallingConfiguration)
putVoiceConnectorEmergencyCallingConfigurationResponse_emergencyCallingConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutVoiceConnectorEmergencyCallingConfigurationResponse' {Maybe EmergencyCallingConfiguration
emergencyCallingConfiguration :: Maybe EmergencyCallingConfiguration
$sel:emergencyCallingConfiguration:PutVoiceConnectorEmergencyCallingConfigurationResponse' :: PutVoiceConnectorEmergencyCallingConfigurationResponse
-> Maybe EmergencyCallingConfiguration
emergencyCallingConfiguration} -> Maybe EmergencyCallingConfiguration
emergencyCallingConfiguration) (\s :: PutVoiceConnectorEmergencyCallingConfigurationResponse
s@PutVoiceConnectorEmergencyCallingConfigurationResponse' {} Maybe EmergencyCallingConfiguration
a -> PutVoiceConnectorEmergencyCallingConfigurationResponse
s {$sel:emergencyCallingConfiguration:PutVoiceConnectorEmergencyCallingConfigurationResponse' :: Maybe EmergencyCallingConfiguration
emergencyCallingConfiguration = Maybe EmergencyCallingConfiguration
a} :: PutVoiceConnectorEmergencyCallingConfigurationResponse)
putVoiceConnectorEmergencyCallingConfigurationResponse_httpStatus :: Lens.Lens' PutVoiceConnectorEmergencyCallingConfigurationResponse Prelude.Int
putVoiceConnectorEmergencyCallingConfigurationResponse_httpStatus :: Lens' PutVoiceConnectorEmergencyCallingConfigurationResponse Int
putVoiceConnectorEmergencyCallingConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutVoiceConnectorEmergencyCallingConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:PutVoiceConnectorEmergencyCallingConfigurationResponse' :: PutVoiceConnectorEmergencyCallingConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: PutVoiceConnectorEmergencyCallingConfigurationResponse
s@PutVoiceConnectorEmergencyCallingConfigurationResponse' {} Int
a -> PutVoiceConnectorEmergencyCallingConfigurationResponse
s {$sel:httpStatus:PutVoiceConnectorEmergencyCallingConfigurationResponse' :: Int
httpStatus = Int
a} :: PutVoiceConnectorEmergencyCallingConfigurationResponse)
instance
Prelude.NFData
PutVoiceConnectorEmergencyCallingConfigurationResponse
where
rnf :: PutVoiceConnectorEmergencyCallingConfigurationResponse -> ()
rnf
PutVoiceConnectorEmergencyCallingConfigurationResponse' {Int
Maybe EmergencyCallingConfiguration
httpStatus :: Int
emergencyCallingConfiguration :: Maybe EmergencyCallingConfiguration
$sel:httpStatus:PutVoiceConnectorEmergencyCallingConfigurationResponse' :: PutVoiceConnectorEmergencyCallingConfigurationResponse -> Int
$sel:emergencyCallingConfiguration:PutVoiceConnectorEmergencyCallingConfigurationResponse' :: PutVoiceConnectorEmergencyCallingConfigurationResponse
-> Maybe EmergencyCallingConfiguration
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe EmergencyCallingConfiguration
emergencyCallingConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus