{-# 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.AppRunner.DeleteObservabilityConfiguration
(
DeleteObservabilityConfiguration (..),
newDeleteObservabilityConfiguration,
deleteObservabilityConfiguration_observabilityConfigurationArn,
DeleteObservabilityConfigurationResponse (..),
newDeleteObservabilityConfigurationResponse,
deleteObservabilityConfigurationResponse_httpStatus,
deleteObservabilityConfigurationResponse_observabilityConfiguration,
)
where
import Amazonka.AppRunner.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 DeleteObservabilityConfiguration = DeleteObservabilityConfiguration'
{
DeleteObservabilityConfiguration -> Text
observabilityConfigurationArn :: Prelude.Text
}
deriving (DeleteObservabilityConfiguration
-> DeleteObservabilityConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteObservabilityConfiguration
-> DeleteObservabilityConfiguration -> Bool
$c/= :: DeleteObservabilityConfiguration
-> DeleteObservabilityConfiguration -> Bool
== :: DeleteObservabilityConfiguration
-> DeleteObservabilityConfiguration -> Bool
$c== :: DeleteObservabilityConfiguration
-> DeleteObservabilityConfiguration -> Bool
Prelude.Eq, ReadPrec [DeleteObservabilityConfiguration]
ReadPrec DeleteObservabilityConfiguration
Int -> ReadS DeleteObservabilityConfiguration
ReadS [DeleteObservabilityConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteObservabilityConfiguration]
$creadListPrec :: ReadPrec [DeleteObservabilityConfiguration]
readPrec :: ReadPrec DeleteObservabilityConfiguration
$creadPrec :: ReadPrec DeleteObservabilityConfiguration
readList :: ReadS [DeleteObservabilityConfiguration]
$creadList :: ReadS [DeleteObservabilityConfiguration]
readsPrec :: Int -> ReadS DeleteObservabilityConfiguration
$creadsPrec :: Int -> ReadS DeleteObservabilityConfiguration
Prelude.Read, Int -> DeleteObservabilityConfiguration -> ShowS
[DeleteObservabilityConfiguration] -> ShowS
DeleteObservabilityConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteObservabilityConfiguration] -> ShowS
$cshowList :: [DeleteObservabilityConfiguration] -> ShowS
show :: DeleteObservabilityConfiguration -> String
$cshow :: DeleteObservabilityConfiguration -> String
showsPrec :: Int -> DeleteObservabilityConfiguration -> ShowS
$cshowsPrec :: Int -> DeleteObservabilityConfiguration -> ShowS
Prelude.Show, forall x.
Rep DeleteObservabilityConfiguration x
-> DeleteObservabilityConfiguration
forall x.
DeleteObservabilityConfiguration
-> Rep DeleteObservabilityConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteObservabilityConfiguration x
-> DeleteObservabilityConfiguration
$cfrom :: forall x.
DeleteObservabilityConfiguration
-> Rep DeleteObservabilityConfiguration x
Prelude.Generic)
newDeleteObservabilityConfiguration ::
Prelude.Text ->
DeleteObservabilityConfiguration
newDeleteObservabilityConfiguration :: Text -> DeleteObservabilityConfiguration
newDeleteObservabilityConfiguration
Text
pObservabilityConfigurationArn_ =
DeleteObservabilityConfiguration'
{ $sel:observabilityConfigurationArn:DeleteObservabilityConfiguration' :: Text
observabilityConfigurationArn =
Text
pObservabilityConfigurationArn_
}
deleteObservabilityConfiguration_observabilityConfigurationArn :: Lens.Lens' DeleteObservabilityConfiguration Prelude.Text
deleteObservabilityConfiguration_observabilityConfigurationArn :: Lens' DeleteObservabilityConfiguration Text
deleteObservabilityConfiguration_observabilityConfigurationArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteObservabilityConfiguration' {Text
observabilityConfigurationArn :: Text
$sel:observabilityConfigurationArn:DeleteObservabilityConfiguration' :: DeleteObservabilityConfiguration -> Text
observabilityConfigurationArn} -> Text
observabilityConfigurationArn) (\s :: DeleteObservabilityConfiguration
s@DeleteObservabilityConfiguration' {} Text
a -> DeleteObservabilityConfiguration
s {$sel:observabilityConfigurationArn:DeleteObservabilityConfiguration' :: Text
observabilityConfigurationArn = Text
a} :: DeleteObservabilityConfiguration)
instance
Core.AWSRequest
DeleteObservabilityConfiguration
where
type
AWSResponse DeleteObservabilityConfiguration =
DeleteObservabilityConfigurationResponse
request :: (Service -> Service)
-> DeleteObservabilityConfiguration
-> Request DeleteObservabilityConfiguration
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteObservabilityConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DeleteObservabilityConfiguration)))
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 ->
Int
-> ObservabilityConfiguration
-> DeleteObservabilityConfigurationResponse
DeleteObservabilityConfigurationResponse'
forall (f :: * -> *) a b. Functor 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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"ObservabilityConfiguration")
)
instance
Prelude.Hashable
DeleteObservabilityConfiguration
where
hashWithSalt :: Int -> DeleteObservabilityConfiguration -> Int
hashWithSalt
Int
_salt
DeleteObservabilityConfiguration' {Text
observabilityConfigurationArn :: Text
$sel:observabilityConfigurationArn:DeleteObservabilityConfiguration' :: DeleteObservabilityConfiguration -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
observabilityConfigurationArn
instance
Prelude.NFData
DeleteObservabilityConfiguration
where
rnf :: DeleteObservabilityConfiguration -> ()
rnf DeleteObservabilityConfiguration' {Text
observabilityConfigurationArn :: Text
$sel:observabilityConfigurationArn:DeleteObservabilityConfiguration' :: DeleteObservabilityConfiguration -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
observabilityConfigurationArn
instance
Data.ToHeaders
DeleteObservabilityConfiguration
where
toHeaders :: DeleteObservabilityConfiguration -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"AppRunner.DeleteObservabilityConfiguration" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DeleteObservabilityConfiguration where
toJSON :: DeleteObservabilityConfiguration -> Value
toJSON DeleteObservabilityConfiguration' {Text
observabilityConfigurationArn :: Text
$sel:observabilityConfigurationArn:DeleteObservabilityConfiguration' :: DeleteObservabilityConfiguration -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
( Key
"ObservabilityConfigurationArn"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
observabilityConfigurationArn
)
]
)
instance Data.ToPath DeleteObservabilityConfiguration where
toPath :: DeleteObservabilityConfiguration -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
DeleteObservabilityConfiguration
where
toQuery :: DeleteObservabilityConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteObservabilityConfigurationResponse = DeleteObservabilityConfigurationResponse'
{
DeleteObservabilityConfigurationResponse -> Int
httpStatus :: Prelude.Int,
DeleteObservabilityConfigurationResponse
-> ObservabilityConfiguration
observabilityConfiguration :: ObservabilityConfiguration
}
deriving (DeleteObservabilityConfigurationResponse
-> DeleteObservabilityConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteObservabilityConfigurationResponse
-> DeleteObservabilityConfigurationResponse -> Bool
$c/= :: DeleteObservabilityConfigurationResponse
-> DeleteObservabilityConfigurationResponse -> Bool
== :: DeleteObservabilityConfigurationResponse
-> DeleteObservabilityConfigurationResponse -> Bool
$c== :: DeleteObservabilityConfigurationResponse
-> DeleteObservabilityConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [DeleteObservabilityConfigurationResponse]
ReadPrec DeleteObservabilityConfigurationResponse
Int -> ReadS DeleteObservabilityConfigurationResponse
ReadS [DeleteObservabilityConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteObservabilityConfigurationResponse]
$creadListPrec :: ReadPrec [DeleteObservabilityConfigurationResponse]
readPrec :: ReadPrec DeleteObservabilityConfigurationResponse
$creadPrec :: ReadPrec DeleteObservabilityConfigurationResponse
readList :: ReadS [DeleteObservabilityConfigurationResponse]
$creadList :: ReadS [DeleteObservabilityConfigurationResponse]
readsPrec :: Int -> ReadS DeleteObservabilityConfigurationResponse
$creadsPrec :: Int -> ReadS DeleteObservabilityConfigurationResponse
Prelude.Read, Int -> DeleteObservabilityConfigurationResponse -> ShowS
[DeleteObservabilityConfigurationResponse] -> ShowS
DeleteObservabilityConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteObservabilityConfigurationResponse] -> ShowS
$cshowList :: [DeleteObservabilityConfigurationResponse] -> ShowS
show :: DeleteObservabilityConfigurationResponse -> String
$cshow :: DeleteObservabilityConfigurationResponse -> String
showsPrec :: Int -> DeleteObservabilityConfigurationResponse -> ShowS
$cshowsPrec :: Int -> DeleteObservabilityConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteObservabilityConfigurationResponse x
-> DeleteObservabilityConfigurationResponse
forall x.
DeleteObservabilityConfigurationResponse
-> Rep DeleteObservabilityConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteObservabilityConfigurationResponse x
-> DeleteObservabilityConfigurationResponse
$cfrom :: forall x.
DeleteObservabilityConfigurationResponse
-> Rep DeleteObservabilityConfigurationResponse x
Prelude.Generic)
newDeleteObservabilityConfigurationResponse ::
Prelude.Int ->
ObservabilityConfiguration ->
DeleteObservabilityConfigurationResponse
newDeleteObservabilityConfigurationResponse :: Int
-> ObservabilityConfiguration
-> DeleteObservabilityConfigurationResponse
newDeleteObservabilityConfigurationResponse
Int
pHttpStatus_
ObservabilityConfiguration
pObservabilityConfiguration_ =
DeleteObservabilityConfigurationResponse'
{ $sel:httpStatus:DeleteObservabilityConfigurationResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:observabilityConfiguration:DeleteObservabilityConfigurationResponse' :: ObservabilityConfiguration
observabilityConfiguration =
ObservabilityConfiguration
pObservabilityConfiguration_
}
deleteObservabilityConfigurationResponse_httpStatus :: Lens.Lens' DeleteObservabilityConfigurationResponse Prelude.Int
deleteObservabilityConfigurationResponse_httpStatus :: Lens' DeleteObservabilityConfigurationResponse Int
deleteObservabilityConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteObservabilityConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteObservabilityConfigurationResponse' :: DeleteObservabilityConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteObservabilityConfigurationResponse
s@DeleteObservabilityConfigurationResponse' {} Int
a -> DeleteObservabilityConfigurationResponse
s {$sel:httpStatus:DeleteObservabilityConfigurationResponse' :: Int
httpStatus = Int
a} :: DeleteObservabilityConfigurationResponse)
deleteObservabilityConfigurationResponse_observabilityConfiguration :: Lens.Lens' DeleteObservabilityConfigurationResponse ObservabilityConfiguration
deleteObservabilityConfigurationResponse_observabilityConfiguration :: Lens'
DeleteObservabilityConfigurationResponse ObservabilityConfiguration
deleteObservabilityConfigurationResponse_observabilityConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteObservabilityConfigurationResponse' {ObservabilityConfiguration
observabilityConfiguration :: ObservabilityConfiguration
$sel:observabilityConfiguration:DeleteObservabilityConfigurationResponse' :: DeleteObservabilityConfigurationResponse
-> ObservabilityConfiguration
observabilityConfiguration} -> ObservabilityConfiguration
observabilityConfiguration) (\s :: DeleteObservabilityConfigurationResponse
s@DeleteObservabilityConfigurationResponse' {} ObservabilityConfiguration
a -> DeleteObservabilityConfigurationResponse
s {$sel:observabilityConfiguration:DeleteObservabilityConfigurationResponse' :: ObservabilityConfiguration
observabilityConfiguration = ObservabilityConfiguration
a} :: DeleteObservabilityConfigurationResponse)
instance
Prelude.NFData
DeleteObservabilityConfigurationResponse
where
rnf :: DeleteObservabilityConfigurationResponse -> ()
rnf DeleteObservabilityConfigurationResponse' {Int
ObservabilityConfiguration
observabilityConfiguration :: ObservabilityConfiguration
httpStatus :: Int
$sel:observabilityConfiguration:DeleteObservabilityConfigurationResponse' :: DeleteObservabilityConfigurationResponse
-> ObservabilityConfiguration
$sel:httpStatus:DeleteObservabilityConfigurationResponse' :: DeleteObservabilityConfigurationResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ObservabilityConfiguration
observabilityConfiguration