{-# 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.GetSipMediaApplicationLoggingConfiguration
(
GetSipMediaApplicationLoggingConfiguration (..),
newGetSipMediaApplicationLoggingConfiguration,
getSipMediaApplicationLoggingConfiguration_sipMediaApplicationId,
GetSipMediaApplicationLoggingConfigurationResponse (..),
newGetSipMediaApplicationLoggingConfigurationResponse,
getSipMediaApplicationLoggingConfigurationResponse_sipMediaApplicationLoggingConfiguration,
getSipMediaApplicationLoggingConfigurationResponse_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 GetSipMediaApplicationLoggingConfiguration = GetSipMediaApplicationLoggingConfiguration'
{ GetSipMediaApplicationLoggingConfiguration -> Text
sipMediaApplicationId :: Prelude.Text
}
deriving (GetSipMediaApplicationLoggingConfiguration
-> GetSipMediaApplicationLoggingConfiguration -> Bool
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]
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
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.
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'
{ $sel:sipMediaApplicationId:GetSipMediaApplicationLoggingConfiguration' :: Text
sipMediaApplicationId =
Text
pSipMediaApplicationId_
}
getSipMediaApplicationLoggingConfiguration_sipMediaApplicationId :: Lens.Lens' GetSipMediaApplicationLoggingConfiguration Prelude.Text
getSipMediaApplicationLoggingConfiguration_sipMediaApplicationId :: Lens' GetSipMediaApplicationLoggingConfiguration Text
getSipMediaApplicationLoggingConfiguration_sipMediaApplicationId = 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 :: (Service -> Service)
-> GetSipMediaApplicationLoggingConfiguration
-> Request GetSipMediaApplicationLoggingConfiguration
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 GetSipMediaApplicationLoggingConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse GetSipMediaApplicationLoggingConfiguration)))
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 SipMediaApplicationLoggingConfiguration
-> Int -> GetSipMediaApplicationLoggingConfigurationResponse
GetSipMediaApplicationLoggingConfigurationResponse'
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
"SipMediaApplicationLoggingConfiguration"
)
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
GetSipMediaApplicationLoggingConfiguration
where
hashWithSalt :: Int -> GetSipMediaApplicationLoggingConfiguration -> Int
hashWithSalt
Int
_salt
GetSipMediaApplicationLoggingConfiguration' {Text
sipMediaApplicationId :: Text
$sel:sipMediaApplicationId:GetSipMediaApplicationLoggingConfiguration' :: GetSipMediaApplicationLoggingConfiguration -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
sipMediaApplicationId
instance
Prelude.NFData
GetSipMediaApplicationLoggingConfiguration
where
rnf :: GetSipMediaApplicationLoggingConfiguration -> ()
rnf GetSipMediaApplicationLoggingConfiguration' {Text
sipMediaApplicationId :: Text
$sel:sipMediaApplicationId:GetSipMediaApplicationLoggingConfiguration' :: GetSipMediaApplicationLoggingConfiguration -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
sipMediaApplicationId
instance
Data.ToHeaders
GetSipMediaApplicationLoggingConfiguration
where
toHeaders :: GetSipMediaApplicationLoggingConfiguration -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
GetSipMediaApplicationLoggingConfiguration
where
toPath :: GetSipMediaApplicationLoggingConfiguration -> ByteString
toPath
GetSipMediaApplicationLoggingConfiguration' {Text
sipMediaApplicationId :: Text
$sel:sipMediaApplicationId:GetSipMediaApplicationLoggingConfiguration' :: GetSipMediaApplicationLoggingConfiguration -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/sip-media-applications/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
sipMediaApplicationId,
ByteString
"/logging-configuration"
]
instance
Data.ToQuery
GetSipMediaApplicationLoggingConfiguration
where
toQuery :: GetSipMediaApplicationLoggingConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const 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
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]
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
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.
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'
{ $sel:sipMediaApplicationLoggingConfiguration:GetSipMediaApplicationLoggingConfigurationResponse' :: Maybe SipMediaApplicationLoggingConfiguration
sipMediaApplicationLoggingConfiguration =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetSipMediaApplicationLoggingConfigurationResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
getSipMediaApplicationLoggingConfigurationResponse_sipMediaApplicationLoggingConfiguration :: Lens.Lens' GetSipMediaApplicationLoggingConfigurationResponse (Prelude.Maybe SipMediaApplicationLoggingConfiguration)
getSipMediaApplicationLoggingConfigurationResponse_sipMediaApplicationLoggingConfiguration :: Lens'
GetSipMediaApplicationLoggingConfigurationResponse
(Maybe SipMediaApplicationLoggingConfiguration)
getSipMediaApplicationLoggingConfigurationResponse_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 :: Lens' GetSipMediaApplicationLoggingConfigurationResponse Int
getSipMediaApplicationLoggingConfigurationResponse_httpStatus = 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
where
rnf :: GetSipMediaApplicationLoggingConfigurationResponse -> ()
rnf
GetSipMediaApplicationLoggingConfigurationResponse' {Int
Maybe SipMediaApplicationLoggingConfiguration
httpStatus :: Int
sipMediaApplicationLoggingConfiguration :: Maybe SipMediaApplicationLoggingConfiguration
$sel:httpStatus:GetSipMediaApplicationLoggingConfigurationResponse' :: GetSipMediaApplicationLoggingConfigurationResponse -> Int
$sel:sipMediaApplicationLoggingConfiguration:GetSipMediaApplicationLoggingConfigurationResponse' :: GetSipMediaApplicationLoggingConfigurationResponse
-> Maybe SipMediaApplicationLoggingConfiguration
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe SipMediaApplicationLoggingConfiguration
sipMediaApplicationLoggingConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus