{-# 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.ImageBuilder.DeleteDistributionConfiguration
(
DeleteDistributionConfiguration (..),
newDeleteDistributionConfiguration,
deleteDistributionConfiguration_distributionConfigurationArn,
DeleteDistributionConfigurationResponse (..),
newDeleteDistributionConfigurationResponse,
deleteDistributionConfigurationResponse_distributionConfigurationArn,
deleteDistributionConfigurationResponse_requestId,
deleteDistributionConfigurationResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.ImageBuilder.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteDistributionConfiguration = DeleteDistributionConfiguration'
{
DeleteDistributionConfiguration -> Text
distributionConfigurationArn :: Prelude.Text
}
deriving (DeleteDistributionConfiguration
-> DeleteDistributionConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteDistributionConfiguration
-> DeleteDistributionConfiguration -> Bool
$c/= :: DeleteDistributionConfiguration
-> DeleteDistributionConfiguration -> Bool
== :: DeleteDistributionConfiguration
-> DeleteDistributionConfiguration -> Bool
$c== :: DeleteDistributionConfiguration
-> DeleteDistributionConfiguration -> Bool
Prelude.Eq, ReadPrec [DeleteDistributionConfiguration]
ReadPrec DeleteDistributionConfiguration
Int -> ReadS DeleteDistributionConfiguration
ReadS [DeleteDistributionConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteDistributionConfiguration]
$creadListPrec :: ReadPrec [DeleteDistributionConfiguration]
readPrec :: ReadPrec DeleteDistributionConfiguration
$creadPrec :: ReadPrec DeleteDistributionConfiguration
readList :: ReadS [DeleteDistributionConfiguration]
$creadList :: ReadS [DeleteDistributionConfiguration]
readsPrec :: Int -> ReadS DeleteDistributionConfiguration
$creadsPrec :: Int -> ReadS DeleteDistributionConfiguration
Prelude.Read, Int -> DeleteDistributionConfiguration -> ShowS
[DeleteDistributionConfiguration] -> ShowS
DeleteDistributionConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteDistributionConfiguration] -> ShowS
$cshowList :: [DeleteDistributionConfiguration] -> ShowS
show :: DeleteDistributionConfiguration -> String
$cshow :: DeleteDistributionConfiguration -> String
showsPrec :: Int -> DeleteDistributionConfiguration -> ShowS
$cshowsPrec :: Int -> DeleteDistributionConfiguration -> ShowS
Prelude.Show, forall x.
Rep DeleteDistributionConfiguration x
-> DeleteDistributionConfiguration
forall x.
DeleteDistributionConfiguration
-> Rep DeleteDistributionConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteDistributionConfiguration x
-> DeleteDistributionConfiguration
$cfrom :: forall x.
DeleteDistributionConfiguration
-> Rep DeleteDistributionConfiguration x
Prelude.Generic)
newDeleteDistributionConfiguration ::
Prelude.Text ->
DeleteDistributionConfiguration
newDeleteDistributionConfiguration :: Text -> DeleteDistributionConfiguration
newDeleteDistributionConfiguration
Text
pDistributionConfigurationArn_ =
DeleteDistributionConfiguration'
{ $sel:distributionConfigurationArn:DeleteDistributionConfiguration' :: Text
distributionConfigurationArn =
Text
pDistributionConfigurationArn_
}
deleteDistributionConfiguration_distributionConfigurationArn :: Lens.Lens' DeleteDistributionConfiguration Prelude.Text
deleteDistributionConfiguration_distributionConfigurationArn :: Lens' DeleteDistributionConfiguration Text
deleteDistributionConfiguration_distributionConfigurationArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteDistributionConfiguration' {Text
distributionConfigurationArn :: Text
$sel:distributionConfigurationArn:DeleteDistributionConfiguration' :: DeleteDistributionConfiguration -> Text
distributionConfigurationArn} -> Text
distributionConfigurationArn) (\s :: DeleteDistributionConfiguration
s@DeleteDistributionConfiguration' {} Text
a -> DeleteDistributionConfiguration
s {$sel:distributionConfigurationArn:DeleteDistributionConfiguration' :: Text
distributionConfigurationArn = Text
a} :: DeleteDistributionConfiguration)
instance
Core.AWSRequest
DeleteDistributionConfiguration
where
type
AWSResponse DeleteDistributionConfiguration =
DeleteDistributionConfigurationResponse
request :: (Service -> Service)
-> DeleteDistributionConfiguration
-> Request DeleteDistributionConfiguration
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.delete (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteDistributionConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DeleteDistributionConfiguration)))
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 Text
-> Maybe Text -> Int -> DeleteDistributionConfigurationResponse
DeleteDistributionConfigurationResponse'
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
"distributionConfigurationArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"requestId")
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
DeleteDistributionConfiguration
where
hashWithSalt :: Int -> DeleteDistributionConfiguration -> Int
hashWithSalt
Int
_salt
DeleteDistributionConfiguration' {Text
distributionConfigurationArn :: Text
$sel:distributionConfigurationArn:DeleteDistributionConfiguration' :: DeleteDistributionConfiguration -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
distributionConfigurationArn
instance
Prelude.NFData
DeleteDistributionConfiguration
where
rnf :: DeleteDistributionConfiguration -> ()
rnf DeleteDistributionConfiguration' {Text
distributionConfigurationArn :: Text
$sel:distributionConfigurationArn:DeleteDistributionConfiguration' :: DeleteDistributionConfiguration -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
distributionConfigurationArn
instance
Data.ToHeaders
DeleteDistributionConfiguration
where
toHeaders :: DeleteDistributionConfiguration -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath DeleteDistributionConfiguration where
toPath :: DeleteDistributionConfiguration -> ByteString
toPath =
forall a b. a -> b -> a
Prelude.const ByteString
"/DeleteDistributionConfiguration"
instance Data.ToQuery DeleteDistributionConfiguration where
toQuery :: DeleteDistributionConfiguration -> QueryString
toQuery DeleteDistributionConfiguration' {Text
distributionConfigurationArn :: Text
$sel:distributionConfigurationArn:DeleteDistributionConfiguration' :: DeleteDistributionConfiguration -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"distributionConfigurationArn"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
distributionConfigurationArn
]
data DeleteDistributionConfigurationResponse = DeleteDistributionConfigurationResponse'
{
DeleteDistributionConfigurationResponse -> Maybe Text
distributionConfigurationArn :: Prelude.Maybe Prelude.Text,
DeleteDistributionConfigurationResponse -> Maybe Text
requestId :: Prelude.Maybe Prelude.Text,
DeleteDistributionConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteDistributionConfigurationResponse
-> DeleteDistributionConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteDistributionConfigurationResponse
-> DeleteDistributionConfigurationResponse -> Bool
$c/= :: DeleteDistributionConfigurationResponse
-> DeleteDistributionConfigurationResponse -> Bool
== :: DeleteDistributionConfigurationResponse
-> DeleteDistributionConfigurationResponse -> Bool
$c== :: DeleteDistributionConfigurationResponse
-> DeleteDistributionConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [DeleteDistributionConfigurationResponse]
ReadPrec DeleteDistributionConfigurationResponse
Int -> ReadS DeleteDistributionConfigurationResponse
ReadS [DeleteDistributionConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteDistributionConfigurationResponse]
$creadListPrec :: ReadPrec [DeleteDistributionConfigurationResponse]
readPrec :: ReadPrec DeleteDistributionConfigurationResponse
$creadPrec :: ReadPrec DeleteDistributionConfigurationResponse
readList :: ReadS [DeleteDistributionConfigurationResponse]
$creadList :: ReadS [DeleteDistributionConfigurationResponse]
readsPrec :: Int -> ReadS DeleteDistributionConfigurationResponse
$creadsPrec :: Int -> ReadS DeleteDistributionConfigurationResponse
Prelude.Read, Int -> DeleteDistributionConfigurationResponse -> ShowS
[DeleteDistributionConfigurationResponse] -> ShowS
DeleteDistributionConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteDistributionConfigurationResponse] -> ShowS
$cshowList :: [DeleteDistributionConfigurationResponse] -> ShowS
show :: DeleteDistributionConfigurationResponse -> String
$cshow :: DeleteDistributionConfigurationResponse -> String
showsPrec :: Int -> DeleteDistributionConfigurationResponse -> ShowS
$cshowsPrec :: Int -> DeleteDistributionConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteDistributionConfigurationResponse x
-> DeleteDistributionConfigurationResponse
forall x.
DeleteDistributionConfigurationResponse
-> Rep DeleteDistributionConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteDistributionConfigurationResponse x
-> DeleteDistributionConfigurationResponse
$cfrom :: forall x.
DeleteDistributionConfigurationResponse
-> Rep DeleteDistributionConfigurationResponse x
Prelude.Generic)
newDeleteDistributionConfigurationResponse ::
Prelude.Int ->
DeleteDistributionConfigurationResponse
newDeleteDistributionConfigurationResponse :: Int -> DeleteDistributionConfigurationResponse
newDeleteDistributionConfigurationResponse
Int
pHttpStatus_ =
DeleteDistributionConfigurationResponse'
{ $sel:distributionConfigurationArn:DeleteDistributionConfigurationResponse' :: Maybe Text
distributionConfigurationArn =
forall a. Maybe a
Prelude.Nothing,
$sel:requestId:DeleteDistributionConfigurationResponse' :: Maybe Text
requestId = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteDistributionConfigurationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteDistributionConfigurationResponse_distributionConfigurationArn :: Lens.Lens' DeleteDistributionConfigurationResponse (Prelude.Maybe Prelude.Text)
deleteDistributionConfigurationResponse_distributionConfigurationArn :: Lens' DeleteDistributionConfigurationResponse (Maybe Text)
deleteDistributionConfigurationResponse_distributionConfigurationArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteDistributionConfigurationResponse' {Maybe Text
distributionConfigurationArn :: Maybe Text
$sel:distributionConfigurationArn:DeleteDistributionConfigurationResponse' :: DeleteDistributionConfigurationResponse -> Maybe Text
distributionConfigurationArn} -> Maybe Text
distributionConfigurationArn) (\s :: DeleteDistributionConfigurationResponse
s@DeleteDistributionConfigurationResponse' {} Maybe Text
a -> DeleteDistributionConfigurationResponse
s {$sel:distributionConfigurationArn:DeleteDistributionConfigurationResponse' :: Maybe Text
distributionConfigurationArn = Maybe Text
a} :: DeleteDistributionConfigurationResponse)
deleteDistributionConfigurationResponse_requestId :: Lens.Lens' DeleteDistributionConfigurationResponse (Prelude.Maybe Prelude.Text)
deleteDistributionConfigurationResponse_requestId :: Lens' DeleteDistributionConfigurationResponse (Maybe Text)
deleteDistributionConfigurationResponse_requestId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteDistributionConfigurationResponse' {Maybe Text
requestId :: Maybe Text
$sel:requestId:DeleteDistributionConfigurationResponse' :: DeleteDistributionConfigurationResponse -> Maybe Text
requestId} -> Maybe Text
requestId) (\s :: DeleteDistributionConfigurationResponse
s@DeleteDistributionConfigurationResponse' {} Maybe Text
a -> DeleteDistributionConfigurationResponse
s {$sel:requestId:DeleteDistributionConfigurationResponse' :: Maybe Text
requestId = Maybe Text
a} :: DeleteDistributionConfigurationResponse)
deleteDistributionConfigurationResponse_httpStatus :: Lens.Lens' DeleteDistributionConfigurationResponse Prelude.Int
deleteDistributionConfigurationResponse_httpStatus :: Lens' DeleteDistributionConfigurationResponse Int
deleteDistributionConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteDistributionConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteDistributionConfigurationResponse' :: DeleteDistributionConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteDistributionConfigurationResponse
s@DeleteDistributionConfigurationResponse' {} Int
a -> DeleteDistributionConfigurationResponse
s {$sel:httpStatus:DeleteDistributionConfigurationResponse' :: Int
httpStatus = Int
a} :: DeleteDistributionConfigurationResponse)
instance
Prelude.NFData
DeleteDistributionConfigurationResponse
where
rnf :: DeleteDistributionConfigurationResponse -> ()
rnf DeleteDistributionConfigurationResponse' {Int
Maybe Text
httpStatus :: Int
requestId :: Maybe Text
distributionConfigurationArn :: Maybe Text
$sel:httpStatus:DeleteDistributionConfigurationResponse' :: DeleteDistributionConfigurationResponse -> Int
$sel:requestId:DeleteDistributionConfigurationResponse' :: DeleteDistributionConfigurationResponse -> Maybe Text
$sel:distributionConfigurationArn:DeleteDistributionConfigurationResponse' :: DeleteDistributionConfigurationResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
distributionConfigurationArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
requestId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus