{-# 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.GetSipMediaApplicationAlexaSkillConfiguration
(
GetSipMediaApplicationAlexaSkillConfiguration (..),
newGetSipMediaApplicationAlexaSkillConfiguration,
getSipMediaApplicationAlexaSkillConfiguration_sipMediaApplicationId,
GetSipMediaApplicationAlexaSkillConfigurationResponse (..),
newGetSipMediaApplicationAlexaSkillConfigurationResponse,
getSipMediaApplicationAlexaSkillConfigurationResponse_sipMediaApplicationAlexaSkillConfiguration,
getSipMediaApplicationAlexaSkillConfigurationResponse_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 GetSipMediaApplicationAlexaSkillConfiguration = GetSipMediaApplicationAlexaSkillConfiguration'
{ GetSipMediaApplicationAlexaSkillConfiguration -> Text
sipMediaApplicationId :: Prelude.Text
}
deriving (GetSipMediaApplicationAlexaSkillConfiguration
-> GetSipMediaApplicationAlexaSkillConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetSipMediaApplicationAlexaSkillConfiguration
-> GetSipMediaApplicationAlexaSkillConfiguration -> Bool
$c/= :: GetSipMediaApplicationAlexaSkillConfiguration
-> GetSipMediaApplicationAlexaSkillConfiguration -> Bool
== :: GetSipMediaApplicationAlexaSkillConfiguration
-> GetSipMediaApplicationAlexaSkillConfiguration -> Bool
$c== :: GetSipMediaApplicationAlexaSkillConfiguration
-> GetSipMediaApplicationAlexaSkillConfiguration -> Bool
Prelude.Eq, ReadPrec [GetSipMediaApplicationAlexaSkillConfiguration]
ReadPrec GetSipMediaApplicationAlexaSkillConfiguration
Int -> ReadS GetSipMediaApplicationAlexaSkillConfiguration
ReadS [GetSipMediaApplicationAlexaSkillConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetSipMediaApplicationAlexaSkillConfiguration]
$creadListPrec :: ReadPrec [GetSipMediaApplicationAlexaSkillConfiguration]
readPrec :: ReadPrec GetSipMediaApplicationAlexaSkillConfiguration
$creadPrec :: ReadPrec GetSipMediaApplicationAlexaSkillConfiguration
readList :: ReadS [GetSipMediaApplicationAlexaSkillConfiguration]
$creadList :: ReadS [GetSipMediaApplicationAlexaSkillConfiguration]
readsPrec :: Int -> ReadS GetSipMediaApplicationAlexaSkillConfiguration
$creadsPrec :: Int -> ReadS GetSipMediaApplicationAlexaSkillConfiguration
Prelude.Read, Int -> GetSipMediaApplicationAlexaSkillConfiguration -> ShowS
[GetSipMediaApplicationAlexaSkillConfiguration] -> ShowS
GetSipMediaApplicationAlexaSkillConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetSipMediaApplicationAlexaSkillConfiguration] -> ShowS
$cshowList :: [GetSipMediaApplicationAlexaSkillConfiguration] -> ShowS
show :: GetSipMediaApplicationAlexaSkillConfiguration -> String
$cshow :: GetSipMediaApplicationAlexaSkillConfiguration -> String
showsPrec :: Int -> GetSipMediaApplicationAlexaSkillConfiguration -> ShowS
$cshowsPrec :: Int -> GetSipMediaApplicationAlexaSkillConfiguration -> ShowS
Prelude.Show, forall x.
Rep GetSipMediaApplicationAlexaSkillConfiguration x
-> GetSipMediaApplicationAlexaSkillConfiguration
forall x.
GetSipMediaApplicationAlexaSkillConfiguration
-> Rep GetSipMediaApplicationAlexaSkillConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetSipMediaApplicationAlexaSkillConfiguration x
-> GetSipMediaApplicationAlexaSkillConfiguration
$cfrom :: forall x.
GetSipMediaApplicationAlexaSkillConfiguration
-> Rep GetSipMediaApplicationAlexaSkillConfiguration x
Prelude.Generic)
newGetSipMediaApplicationAlexaSkillConfiguration ::
Prelude.Text ->
GetSipMediaApplicationAlexaSkillConfiguration
newGetSipMediaApplicationAlexaSkillConfiguration :: Text -> GetSipMediaApplicationAlexaSkillConfiguration
newGetSipMediaApplicationAlexaSkillConfiguration
Text
pSipMediaApplicationId_ =
GetSipMediaApplicationAlexaSkillConfiguration'
{ $sel:sipMediaApplicationId:GetSipMediaApplicationAlexaSkillConfiguration' :: Text
sipMediaApplicationId =
Text
pSipMediaApplicationId_
}
getSipMediaApplicationAlexaSkillConfiguration_sipMediaApplicationId :: Lens.Lens' GetSipMediaApplicationAlexaSkillConfiguration Prelude.Text
getSipMediaApplicationAlexaSkillConfiguration_sipMediaApplicationId :: Lens' GetSipMediaApplicationAlexaSkillConfiguration Text
getSipMediaApplicationAlexaSkillConfiguration_sipMediaApplicationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSipMediaApplicationAlexaSkillConfiguration' {Text
sipMediaApplicationId :: Text
$sel:sipMediaApplicationId:GetSipMediaApplicationAlexaSkillConfiguration' :: GetSipMediaApplicationAlexaSkillConfiguration -> Text
sipMediaApplicationId} -> Text
sipMediaApplicationId) (\s :: GetSipMediaApplicationAlexaSkillConfiguration
s@GetSipMediaApplicationAlexaSkillConfiguration' {} Text
a -> GetSipMediaApplicationAlexaSkillConfiguration
s {$sel:sipMediaApplicationId:GetSipMediaApplicationAlexaSkillConfiguration' :: Text
sipMediaApplicationId = Text
a} :: GetSipMediaApplicationAlexaSkillConfiguration)
instance
Core.AWSRequest
GetSipMediaApplicationAlexaSkillConfiguration
where
type
AWSResponse
GetSipMediaApplicationAlexaSkillConfiguration =
GetSipMediaApplicationAlexaSkillConfigurationResponse
request :: (Service -> Service)
-> GetSipMediaApplicationAlexaSkillConfiguration
-> Request GetSipMediaApplicationAlexaSkillConfiguration
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy GetSipMediaApplicationAlexaSkillConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse GetSipMediaApplicationAlexaSkillConfiguration)))
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 SipMediaApplicationAlexaSkillConfiguration
-> Int -> GetSipMediaApplicationAlexaSkillConfigurationResponse
GetSipMediaApplicationAlexaSkillConfigurationResponse'
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
"SipMediaApplicationAlexaSkillConfiguration"
)
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
GetSipMediaApplicationAlexaSkillConfiguration
where
hashWithSalt :: Int -> GetSipMediaApplicationAlexaSkillConfiguration -> Int
hashWithSalt
Int
_salt
GetSipMediaApplicationAlexaSkillConfiguration' {Text
sipMediaApplicationId :: Text
$sel:sipMediaApplicationId:GetSipMediaApplicationAlexaSkillConfiguration' :: GetSipMediaApplicationAlexaSkillConfiguration -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
sipMediaApplicationId
instance
Prelude.NFData
GetSipMediaApplicationAlexaSkillConfiguration
where
rnf :: GetSipMediaApplicationAlexaSkillConfiguration -> ()
rnf
GetSipMediaApplicationAlexaSkillConfiguration' {Text
sipMediaApplicationId :: Text
$sel:sipMediaApplicationId:GetSipMediaApplicationAlexaSkillConfiguration' :: GetSipMediaApplicationAlexaSkillConfiguration -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
sipMediaApplicationId
instance
Data.ToHeaders
GetSipMediaApplicationAlexaSkillConfiguration
where
toHeaders :: GetSipMediaApplicationAlexaSkillConfiguration -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
GetSipMediaApplicationAlexaSkillConfiguration
where
toPath :: GetSipMediaApplicationAlexaSkillConfiguration -> ByteString
toPath
GetSipMediaApplicationAlexaSkillConfiguration' {Text
sipMediaApplicationId :: Text
$sel:sipMediaApplicationId:GetSipMediaApplicationAlexaSkillConfiguration' :: GetSipMediaApplicationAlexaSkillConfiguration -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/sip-media-applications/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
sipMediaApplicationId,
ByteString
"/alexa-skill-configuration"
]
instance
Data.ToQuery
GetSipMediaApplicationAlexaSkillConfiguration
where
toQuery :: GetSipMediaApplicationAlexaSkillConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetSipMediaApplicationAlexaSkillConfigurationResponse = GetSipMediaApplicationAlexaSkillConfigurationResponse'
{ GetSipMediaApplicationAlexaSkillConfigurationResponse
-> Maybe SipMediaApplicationAlexaSkillConfiguration
sipMediaApplicationAlexaSkillConfiguration :: Prelude.Maybe SipMediaApplicationAlexaSkillConfiguration,
GetSipMediaApplicationAlexaSkillConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetSipMediaApplicationAlexaSkillConfigurationResponse
-> GetSipMediaApplicationAlexaSkillConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetSipMediaApplicationAlexaSkillConfigurationResponse
-> GetSipMediaApplicationAlexaSkillConfigurationResponse -> Bool
$c/= :: GetSipMediaApplicationAlexaSkillConfigurationResponse
-> GetSipMediaApplicationAlexaSkillConfigurationResponse -> Bool
== :: GetSipMediaApplicationAlexaSkillConfigurationResponse
-> GetSipMediaApplicationAlexaSkillConfigurationResponse -> Bool
$c== :: GetSipMediaApplicationAlexaSkillConfigurationResponse
-> GetSipMediaApplicationAlexaSkillConfigurationResponse -> Bool
Prelude.Eq, Int
-> GetSipMediaApplicationAlexaSkillConfigurationResponse -> ShowS
[GetSipMediaApplicationAlexaSkillConfigurationResponse] -> ShowS
GetSipMediaApplicationAlexaSkillConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetSipMediaApplicationAlexaSkillConfigurationResponse] -> ShowS
$cshowList :: [GetSipMediaApplicationAlexaSkillConfigurationResponse] -> ShowS
show :: GetSipMediaApplicationAlexaSkillConfigurationResponse -> String
$cshow :: GetSipMediaApplicationAlexaSkillConfigurationResponse -> String
showsPrec :: Int
-> GetSipMediaApplicationAlexaSkillConfigurationResponse -> ShowS
$cshowsPrec :: Int
-> GetSipMediaApplicationAlexaSkillConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep GetSipMediaApplicationAlexaSkillConfigurationResponse x
-> GetSipMediaApplicationAlexaSkillConfigurationResponse
forall x.
GetSipMediaApplicationAlexaSkillConfigurationResponse
-> Rep GetSipMediaApplicationAlexaSkillConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetSipMediaApplicationAlexaSkillConfigurationResponse x
-> GetSipMediaApplicationAlexaSkillConfigurationResponse
$cfrom :: forall x.
GetSipMediaApplicationAlexaSkillConfigurationResponse
-> Rep GetSipMediaApplicationAlexaSkillConfigurationResponse x
Prelude.Generic)
newGetSipMediaApplicationAlexaSkillConfigurationResponse ::
Prelude.Int ->
GetSipMediaApplicationAlexaSkillConfigurationResponse
newGetSipMediaApplicationAlexaSkillConfigurationResponse :: Int -> GetSipMediaApplicationAlexaSkillConfigurationResponse
newGetSipMediaApplicationAlexaSkillConfigurationResponse
Int
pHttpStatus_ =
GetSipMediaApplicationAlexaSkillConfigurationResponse'
{ $sel:sipMediaApplicationAlexaSkillConfiguration:GetSipMediaApplicationAlexaSkillConfigurationResponse' :: Maybe SipMediaApplicationAlexaSkillConfiguration
sipMediaApplicationAlexaSkillConfiguration =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetSipMediaApplicationAlexaSkillConfigurationResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
getSipMediaApplicationAlexaSkillConfigurationResponse_sipMediaApplicationAlexaSkillConfiguration :: Lens.Lens' GetSipMediaApplicationAlexaSkillConfigurationResponse (Prelude.Maybe SipMediaApplicationAlexaSkillConfiguration)
getSipMediaApplicationAlexaSkillConfigurationResponse_sipMediaApplicationAlexaSkillConfiguration :: Lens'
GetSipMediaApplicationAlexaSkillConfigurationResponse
(Maybe SipMediaApplicationAlexaSkillConfiguration)
getSipMediaApplicationAlexaSkillConfigurationResponse_sipMediaApplicationAlexaSkillConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSipMediaApplicationAlexaSkillConfigurationResponse' {Maybe SipMediaApplicationAlexaSkillConfiguration
sipMediaApplicationAlexaSkillConfiguration :: Maybe SipMediaApplicationAlexaSkillConfiguration
$sel:sipMediaApplicationAlexaSkillConfiguration:GetSipMediaApplicationAlexaSkillConfigurationResponse' :: GetSipMediaApplicationAlexaSkillConfigurationResponse
-> Maybe SipMediaApplicationAlexaSkillConfiguration
sipMediaApplicationAlexaSkillConfiguration} -> Maybe SipMediaApplicationAlexaSkillConfiguration
sipMediaApplicationAlexaSkillConfiguration) (\s :: GetSipMediaApplicationAlexaSkillConfigurationResponse
s@GetSipMediaApplicationAlexaSkillConfigurationResponse' {} Maybe SipMediaApplicationAlexaSkillConfiguration
a -> GetSipMediaApplicationAlexaSkillConfigurationResponse
s {$sel:sipMediaApplicationAlexaSkillConfiguration:GetSipMediaApplicationAlexaSkillConfigurationResponse' :: Maybe SipMediaApplicationAlexaSkillConfiguration
sipMediaApplicationAlexaSkillConfiguration = Maybe SipMediaApplicationAlexaSkillConfiguration
a} :: GetSipMediaApplicationAlexaSkillConfigurationResponse)
getSipMediaApplicationAlexaSkillConfigurationResponse_httpStatus :: Lens.Lens' GetSipMediaApplicationAlexaSkillConfigurationResponse Prelude.Int
getSipMediaApplicationAlexaSkillConfigurationResponse_httpStatus :: Lens' GetSipMediaApplicationAlexaSkillConfigurationResponse Int
getSipMediaApplicationAlexaSkillConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSipMediaApplicationAlexaSkillConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetSipMediaApplicationAlexaSkillConfigurationResponse' :: GetSipMediaApplicationAlexaSkillConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetSipMediaApplicationAlexaSkillConfigurationResponse
s@GetSipMediaApplicationAlexaSkillConfigurationResponse' {} Int
a -> GetSipMediaApplicationAlexaSkillConfigurationResponse
s {$sel:httpStatus:GetSipMediaApplicationAlexaSkillConfigurationResponse' :: Int
httpStatus = Int
a} :: GetSipMediaApplicationAlexaSkillConfigurationResponse)
instance
Prelude.NFData
GetSipMediaApplicationAlexaSkillConfigurationResponse
where
rnf :: GetSipMediaApplicationAlexaSkillConfigurationResponse -> ()
rnf
GetSipMediaApplicationAlexaSkillConfigurationResponse' {Int
Maybe SipMediaApplicationAlexaSkillConfiguration
httpStatus :: Int
sipMediaApplicationAlexaSkillConfiguration :: Maybe SipMediaApplicationAlexaSkillConfiguration
$sel:httpStatus:GetSipMediaApplicationAlexaSkillConfigurationResponse' :: GetSipMediaApplicationAlexaSkillConfigurationResponse -> Int
$sel:sipMediaApplicationAlexaSkillConfiguration:GetSipMediaApplicationAlexaSkillConfigurationResponse' :: GetSipMediaApplicationAlexaSkillConfigurationResponse
-> Maybe SipMediaApplicationAlexaSkillConfiguration
..} =
forall a. NFData a => a -> ()
Prelude.rnf
Maybe SipMediaApplicationAlexaSkillConfiguration
sipMediaApplicationAlexaSkillConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus