{-# 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.Chime.GetSipMediaApplicationLoggingConfiguration
(
GetSipMediaApplicationLoggingConfiguration (..),
newGetSipMediaApplicationLoggingConfiguration,
getSipMediaApplicationLoggingConfiguration_sipMediaApplicationId,
GetSipMediaApplicationLoggingConfigurationResponse (..),
newGetSipMediaApplicationLoggingConfigurationResponse,
getSipMediaApplicationLoggingConfigurationResponse_sipMediaApplicationLoggingConfiguration,
getSipMediaApplicationLoggingConfigurationResponse_httpStatus,
)
where
import Amazonka.Chime.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetSipMediaApplicationLoggingConfiguration = GetSipMediaApplicationLoggingConfiguration'
{
GetSipMediaApplicationLoggingConfiguration -> Text
sipMediaApplicationId :: Prelude.Text
}
deriving (GetSipMediaApplicationLoggingConfiguration
-> GetSipMediaApplicationLoggingConfiguration -> Bool
(GetSipMediaApplicationLoggingConfiguration
-> GetSipMediaApplicationLoggingConfiguration -> Bool)
-> (GetSipMediaApplicationLoggingConfiguration
-> GetSipMediaApplicationLoggingConfiguration -> Bool)
-> Eq GetSipMediaApplicationLoggingConfiguration
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetSipMediaApplicationLoggingConfiguration
-> GetSipMediaApplicationLoggingConfiguration -> Bool
$c/= :: GetSipMediaApplicationLoggingConfiguration
-> GetSipMediaApplicationLoggingConfiguration -> Bool
== :: GetSipMediaApplicationLoggingConfiguration
-> GetSipMediaApplicationLoggingConfiguration -> Bool
$c== :: GetSipMediaApplicationLoggingConfiguration
-> GetSipMediaApplicationLoggingConfiguration -> Bool
Prelude.Eq, ReadPrec [GetSipMediaApplicationLoggingConfiguration]
ReadPrec GetSipMediaApplicationLoggingConfiguration
Int -> ReadS GetSipMediaApplicationLoggingConfiguration
ReadS [GetSipMediaApplicationLoggingConfiguration]
(Int -> ReadS GetSipMediaApplicationLoggingConfiguration)
-> ReadS [GetSipMediaApplicationLoggingConfiguration]
-> ReadPrec GetSipMediaApplicationLoggingConfiguration
-> ReadPrec [GetSipMediaApplicationLoggingConfiguration]
-> Read GetSipMediaApplicationLoggingConfiguration
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetSipMediaApplicationLoggingConfiguration]
$creadListPrec :: ReadPrec [GetSipMediaApplicationLoggingConfiguration]
readPrec :: ReadPrec GetSipMediaApplicationLoggingConfiguration
$creadPrec :: ReadPrec GetSipMediaApplicationLoggingConfiguration
readList :: ReadS [GetSipMediaApplicationLoggingConfiguration]
$creadList :: ReadS [GetSipMediaApplicationLoggingConfiguration]
readsPrec :: Int -> ReadS GetSipMediaApplicationLoggingConfiguration
$creadsPrec :: Int -> ReadS GetSipMediaApplicationLoggingConfiguration
Prelude.Read, Int -> GetSipMediaApplicationLoggingConfiguration -> ShowS
[GetSipMediaApplicationLoggingConfiguration] -> ShowS
GetSipMediaApplicationLoggingConfiguration -> String
(Int -> GetSipMediaApplicationLoggingConfiguration -> ShowS)
-> (GetSipMediaApplicationLoggingConfiguration -> String)
-> ([GetSipMediaApplicationLoggingConfiguration] -> ShowS)
-> Show GetSipMediaApplicationLoggingConfiguration
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetSipMediaApplicationLoggingConfiguration] -> ShowS
$cshowList :: [GetSipMediaApplicationLoggingConfiguration] -> ShowS
show :: GetSipMediaApplicationLoggingConfiguration -> String
$cshow :: GetSipMediaApplicationLoggingConfiguration -> String
showsPrec :: Int -> GetSipMediaApplicationLoggingConfiguration -> ShowS
$cshowsPrec :: Int -> GetSipMediaApplicationLoggingConfiguration -> ShowS
Prelude.Show, (forall x.
GetSipMediaApplicationLoggingConfiguration
-> Rep GetSipMediaApplicationLoggingConfiguration x)
-> (forall x.
Rep GetSipMediaApplicationLoggingConfiguration x
-> GetSipMediaApplicationLoggingConfiguration)
-> Generic GetSipMediaApplicationLoggingConfiguration
forall x.
Rep GetSipMediaApplicationLoggingConfiguration x
-> GetSipMediaApplicationLoggingConfiguration
forall x.
GetSipMediaApplicationLoggingConfiguration
-> Rep GetSipMediaApplicationLoggingConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetSipMediaApplicationLoggingConfiguration x
-> GetSipMediaApplicationLoggingConfiguration
$cfrom :: forall x.
GetSipMediaApplicationLoggingConfiguration
-> Rep GetSipMediaApplicationLoggingConfiguration x
Prelude.Generic)
newGetSipMediaApplicationLoggingConfiguration ::
Prelude.Text ->
GetSipMediaApplicationLoggingConfiguration
newGetSipMediaApplicationLoggingConfiguration :: Text -> GetSipMediaApplicationLoggingConfiguration
newGetSipMediaApplicationLoggingConfiguration
Text
pSipMediaApplicationId_ =
GetSipMediaApplicationLoggingConfiguration' :: Text -> GetSipMediaApplicationLoggingConfiguration
GetSipMediaApplicationLoggingConfiguration'
{ $sel:sipMediaApplicationId:GetSipMediaApplicationLoggingConfiguration' :: Text
sipMediaApplicationId =
Text
pSipMediaApplicationId_
}
getSipMediaApplicationLoggingConfiguration_sipMediaApplicationId :: Lens.Lens' GetSipMediaApplicationLoggingConfiguration Prelude.Text
getSipMediaApplicationLoggingConfiguration_sipMediaApplicationId :: (Text -> f Text)
-> GetSipMediaApplicationLoggingConfiguration
-> f GetSipMediaApplicationLoggingConfiguration
getSipMediaApplicationLoggingConfiguration_sipMediaApplicationId = (GetSipMediaApplicationLoggingConfiguration -> Text)
-> (GetSipMediaApplicationLoggingConfiguration
-> Text -> GetSipMediaApplicationLoggingConfiguration)
-> Lens
GetSipMediaApplicationLoggingConfiguration
GetSipMediaApplicationLoggingConfiguration
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSipMediaApplicationLoggingConfiguration' {Text
sipMediaApplicationId :: Text
$sel:sipMediaApplicationId:GetSipMediaApplicationLoggingConfiguration' :: GetSipMediaApplicationLoggingConfiguration -> Text
sipMediaApplicationId} -> Text
sipMediaApplicationId) (\s :: GetSipMediaApplicationLoggingConfiguration
s@GetSipMediaApplicationLoggingConfiguration' {} Text
a -> GetSipMediaApplicationLoggingConfiguration
s {$sel:sipMediaApplicationId:GetSipMediaApplicationLoggingConfiguration' :: Text
sipMediaApplicationId = Text
a} :: GetSipMediaApplicationLoggingConfiguration)
instance
Core.AWSRequest
GetSipMediaApplicationLoggingConfiguration
where
type
AWSResponse
GetSipMediaApplicationLoggingConfiguration =
GetSipMediaApplicationLoggingConfigurationResponse
request :: GetSipMediaApplicationLoggingConfiguration
-> Request GetSipMediaApplicationLoggingConfiguration
request = Service
-> GetSipMediaApplicationLoggingConfiguration
-> Request GetSipMediaApplicationLoggingConfiguration
forall a. ToRequest a => Service -> a -> Request a
Request.get Service
defaultService
response :: Logger
-> Service
-> Proxy GetSipMediaApplicationLoggingConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse GetSipMediaApplicationLoggingConfiguration)))
response =
(Int
-> ResponseHeaders
-> Object
-> Either
String (AWSResponse GetSipMediaApplicationLoggingConfiguration))
-> Logger
-> Service
-> Proxy GetSipMediaApplicationLoggingConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse GetSipMediaApplicationLoggingConfiguration)))
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe SipMediaApplicationLoggingConfiguration
-> Int -> GetSipMediaApplicationLoggingConfigurationResponse
GetSipMediaApplicationLoggingConfigurationResponse'
(Maybe SipMediaApplicationLoggingConfiguration
-> Int -> GetSipMediaApplicationLoggingConfigurationResponse)
-> Either String (Maybe SipMediaApplicationLoggingConfiguration)
-> Either
String (Int -> GetSipMediaApplicationLoggingConfigurationResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ( Object
x
Object
-> Text
-> Either String (Maybe SipMediaApplicationLoggingConfiguration)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"SipMediaApplicationLoggingConfiguration"
)
Either
String (Int -> GetSipMediaApplicationLoggingConfigurationResponse)
-> Either String Int
-> Either String GetSipMediaApplicationLoggingConfigurationResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
GetSipMediaApplicationLoggingConfiguration
instance
Prelude.NFData
GetSipMediaApplicationLoggingConfiguration
instance
Core.ToHeaders
GetSipMediaApplicationLoggingConfiguration
where
toHeaders :: GetSipMediaApplicationLoggingConfiguration -> ResponseHeaders
toHeaders = ResponseHeaders
-> GetSipMediaApplicationLoggingConfiguration -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const ResponseHeaders
forall a. Monoid a => a
Prelude.mempty
instance
Core.ToPath
GetSipMediaApplicationLoggingConfiguration
where
toPath :: GetSipMediaApplicationLoggingConfiguration -> ByteString
toPath
GetSipMediaApplicationLoggingConfiguration' {Text
sipMediaApplicationId :: Text
$sel:sipMediaApplicationId:GetSipMediaApplicationLoggingConfiguration' :: GetSipMediaApplicationLoggingConfiguration -> Text
..} =
[ByteString] -> ByteString
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/sip-media-applications/",
Text -> ByteString
forall a. ToByteString a => a -> ByteString
Core.toBS Text
sipMediaApplicationId,
ByteString
"/logging-configuration"
]
instance
Core.ToQuery
GetSipMediaApplicationLoggingConfiguration
where
toQuery :: GetSipMediaApplicationLoggingConfiguration -> QueryString
toQuery = QueryString
-> GetSipMediaApplicationLoggingConfiguration -> QueryString
forall a b. a -> b -> a
Prelude.const QueryString
forall a. Monoid a => a
Prelude.mempty
data GetSipMediaApplicationLoggingConfigurationResponse = GetSipMediaApplicationLoggingConfigurationResponse'
{
GetSipMediaApplicationLoggingConfigurationResponse
-> Maybe SipMediaApplicationLoggingConfiguration
sipMediaApplicationLoggingConfiguration :: Prelude.Maybe SipMediaApplicationLoggingConfiguration,
GetSipMediaApplicationLoggingConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetSipMediaApplicationLoggingConfigurationResponse
-> GetSipMediaApplicationLoggingConfigurationResponse -> Bool
(GetSipMediaApplicationLoggingConfigurationResponse
-> GetSipMediaApplicationLoggingConfigurationResponse -> Bool)
-> (GetSipMediaApplicationLoggingConfigurationResponse
-> GetSipMediaApplicationLoggingConfigurationResponse -> Bool)
-> Eq GetSipMediaApplicationLoggingConfigurationResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetSipMediaApplicationLoggingConfigurationResponse
-> GetSipMediaApplicationLoggingConfigurationResponse -> Bool
$c/= :: GetSipMediaApplicationLoggingConfigurationResponse
-> GetSipMediaApplicationLoggingConfigurationResponse -> Bool
== :: GetSipMediaApplicationLoggingConfigurationResponse
-> GetSipMediaApplicationLoggingConfigurationResponse -> Bool
$c== :: GetSipMediaApplicationLoggingConfigurationResponse
-> GetSipMediaApplicationLoggingConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [GetSipMediaApplicationLoggingConfigurationResponse]
ReadPrec GetSipMediaApplicationLoggingConfigurationResponse
Int -> ReadS GetSipMediaApplicationLoggingConfigurationResponse
ReadS [GetSipMediaApplicationLoggingConfigurationResponse]
(Int -> ReadS GetSipMediaApplicationLoggingConfigurationResponse)
-> ReadS [GetSipMediaApplicationLoggingConfigurationResponse]
-> ReadPrec GetSipMediaApplicationLoggingConfigurationResponse
-> ReadPrec [GetSipMediaApplicationLoggingConfigurationResponse]
-> Read GetSipMediaApplicationLoggingConfigurationResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetSipMediaApplicationLoggingConfigurationResponse]
$creadListPrec :: ReadPrec [GetSipMediaApplicationLoggingConfigurationResponse]
readPrec :: ReadPrec GetSipMediaApplicationLoggingConfigurationResponse
$creadPrec :: ReadPrec GetSipMediaApplicationLoggingConfigurationResponse
readList :: ReadS [GetSipMediaApplicationLoggingConfigurationResponse]
$creadList :: ReadS [GetSipMediaApplicationLoggingConfigurationResponse]
readsPrec :: Int -> ReadS GetSipMediaApplicationLoggingConfigurationResponse
$creadsPrec :: Int -> ReadS GetSipMediaApplicationLoggingConfigurationResponse
Prelude.Read, Int -> GetSipMediaApplicationLoggingConfigurationResponse -> ShowS
[GetSipMediaApplicationLoggingConfigurationResponse] -> ShowS
GetSipMediaApplicationLoggingConfigurationResponse -> String
(Int
-> GetSipMediaApplicationLoggingConfigurationResponse -> ShowS)
-> (GetSipMediaApplicationLoggingConfigurationResponse -> String)
-> ([GetSipMediaApplicationLoggingConfigurationResponse] -> ShowS)
-> Show GetSipMediaApplicationLoggingConfigurationResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetSipMediaApplicationLoggingConfigurationResponse] -> ShowS
$cshowList :: [GetSipMediaApplicationLoggingConfigurationResponse] -> ShowS
show :: GetSipMediaApplicationLoggingConfigurationResponse -> String
$cshow :: GetSipMediaApplicationLoggingConfigurationResponse -> String
showsPrec :: Int -> GetSipMediaApplicationLoggingConfigurationResponse -> ShowS
$cshowsPrec :: Int -> GetSipMediaApplicationLoggingConfigurationResponse -> ShowS
Prelude.Show, (forall x.
GetSipMediaApplicationLoggingConfigurationResponse
-> Rep GetSipMediaApplicationLoggingConfigurationResponse x)
-> (forall x.
Rep GetSipMediaApplicationLoggingConfigurationResponse x
-> GetSipMediaApplicationLoggingConfigurationResponse)
-> Generic GetSipMediaApplicationLoggingConfigurationResponse
forall x.
Rep GetSipMediaApplicationLoggingConfigurationResponse x
-> GetSipMediaApplicationLoggingConfigurationResponse
forall x.
GetSipMediaApplicationLoggingConfigurationResponse
-> Rep GetSipMediaApplicationLoggingConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetSipMediaApplicationLoggingConfigurationResponse x
-> GetSipMediaApplicationLoggingConfigurationResponse
$cfrom :: forall x.
GetSipMediaApplicationLoggingConfigurationResponse
-> Rep GetSipMediaApplicationLoggingConfigurationResponse x
Prelude.Generic)
newGetSipMediaApplicationLoggingConfigurationResponse ::
Prelude.Int ->
GetSipMediaApplicationLoggingConfigurationResponse
newGetSipMediaApplicationLoggingConfigurationResponse :: Int -> GetSipMediaApplicationLoggingConfigurationResponse
newGetSipMediaApplicationLoggingConfigurationResponse
Int
pHttpStatus_ =
GetSipMediaApplicationLoggingConfigurationResponse' :: Maybe SipMediaApplicationLoggingConfiguration
-> Int -> GetSipMediaApplicationLoggingConfigurationResponse
GetSipMediaApplicationLoggingConfigurationResponse'
{ $sel:sipMediaApplicationLoggingConfiguration:GetSipMediaApplicationLoggingConfigurationResponse' :: Maybe SipMediaApplicationLoggingConfiguration
sipMediaApplicationLoggingConfiguration =
Maybe SipMediaApplicationLoggingConfiguration
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetSipMediaApplicationLoggingConfigurationResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
getSipMediaApplicationLoggingConfigurationResponse_sipMediaApplicationLoggingConfiguration :: Lens.Lens' GetSipMediaApplicationLoggingConfigurationResponse (Prelude.Maybe SipMediaApplicationLoggingConfiguration)
getSipMediaApplicationLoggingConfigurationResponse_sipMediaApplicationLoggingConfiguration :: (Maybe SipMediaApplicationLoggingConfiguration
-> f (Maybe SipMediaApplicationLoggingConfiguration))
-> GetSipMediaApplicationLoggingConfigurationResponse
-> f GetSipMediaApplicationLoggingConfigurationResponse
getSipMediaApplicationLoggingConfigurationResponse_sipMediaApplicationLoggingConfiguration = (GetSipMediaApplicationLoggingConfigurationResponse
-> Maybe SipMediaApplicationLoggingConfiguration)
-> (GetSipMediaApplicationLoggingConfigurationResponse
-> Maybe SipMediaApplicationLoggingConfiguration
-> GetSipMediaApplicationLoggingConfigurationResponse)
-> Lens
GetSipMediaApplicationLoggingConfigurationResponse
GetSipMediaApplicationLoggingConfigurationResponse
(Maybe SipMediaApplicationLoggingConfiguration)
(Maybe SipMediaApplicationLoggingConfiguration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSipMediaApplicationLoggingConfigurationResponse' {Maybe SipMediaApplicationLoggingConfiguration
sipMediaApplicationLoggingConfiguration :: Maybe SipMediaApplicationLoggingConfiguration
$sel:sipMediaApplicationLoggingConfiguration:GetSipMediaApplicationLoggingConfigurationResponse' :: GetSipMediaApplicationLoggingConfigurationResponse
-> Maybe SipMediaApplicationLoggingConfiguration
sipMediaApplicationLoggingConfiguration} -> Maybe SipMediaApplicationLoggingConfiguration
sipMediaApplicationLoggingConfiguration) (\s :: GetSipMediaApplicationLoggingConfigurationResponse
s@GetSipMediaApplicationLoggingConfigurationResponse' {} Maybe SipMediaApplicationLoggingConfiguration
a -> GetSipMediaApplicationLoggingConfigurationResponse
s {$sel:sipMediaApplicationLoggingConfiguration:GetSipMediaApplicationLoggingConfigurationResponse' :: Maybe SipMediaApplicationLoggingConfiguration
sipMediaApplicationLoggingConfiguration = Maybe SipMediaApplicationLoggingConfiguration
a} :: GetSipMediaApplicationLoggingConfigurationResponse)
getSipMediaApplicationLoggingConfigurationResponse_httpStatus :: Lens.Lens' GetSipMediaApplicationLoggingConfigurationResponse Prelude.Int
getSipMediaApplicationLoggingConfigurationResponse_httpStatus :: (Int -> f Int)
-> GetSipMediaApplicationLoggingConfigurationResponse
-> f GetSipMediaApplicationLoggingConfigurationResponse
getSipMediaApplicationLoggingConfigurationResponse_httpStatus = (GetSipMediaApplicationLoggingConfigurationResponse -> Int)
-> (GetSipMediaApplicationLoggingConfigurationResponse
-> Int -> GetSipMediaApplicationLoggingConfigurationResponse)
-> Lens
GetSipMediaApplicationLoggingConfigurationResponse
GetSipMediaApplicationLoggingConfigurationResponse
Int
Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSipMediaApplicationLoggingConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetSipMediaApplicationLoggingConfigurationResponse' :: GetSipMediaApplicationLoggingConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetSipMediaApplicationLoggingConfigurationResponse
s@GetSipMediaApplicationLoggingConfigurationResponse' {} Int
a -> GetSipMediaApplicationLoggingConfigurationResponse
s {$sel:httpStatus:GetSipMediaApplicationLoggingConfigurationResponse' :: Int
httpStatus = Int
a} :: GetSipMediaApplicationLoggingConfigurationResponse)
instance
Prelude.NFData
GetSipMediaApplicationLoggingConfigurationResponse