{-# 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.Lightsail.DeleteLoadBalancerTlsCertificate
(
DeleteLoadBalancerTlsCertificate (..),
newDeleteLoadBalancerTlsCertificate,
deleteLoadBalancerTlsCertificate_force,
deleteLoadBalancerTlsCertificate_loadBalancerName,
deleteLoadBalancerTlsCertificate_certificateName,
DeleteLoadBalancerTlsCertificateResponse (..),
newDeleteLoadBalancerTlsCertificateResponse,
deleteLoadBalancerTlsCertificateResponse_operations,
deleteLoadBalancerTlsCertificateResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Lightsail.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteLoadBalancerTlsCertificate = DeleteLoadBalancerTlsCertificate'
{
DeleteLoadBalancerTlsCertificate -> Maybe Bool
force :: Prelude.Maybe Prelude.Bool,
DeleteLoadBalancerTlsCertificate -> Text
loadBalancerName :: Prelude.Text,
DeleteLoadBalancerTlsCertificate -> Text
certificateName :: Prelude.Text
}
deriving (DeleteLoadBalancerTlsCertificate
-> DeleteLoadBalancerTlsCertificate -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteLoadBalancerTlsCertificate
-> DeleteLoadBalancerTlsCertificate -> Bool
$c/= :: DeleteLoadBalancerTlsCertificate
-> DeleteLoadBalancerTlsCertificate -> Bool
== :: DeleteLoadBalancerTlsCertificate
-> DeleteLoadBalancerTlsCertificate -> Bool
$c== :: DeleteLoadBalancerTlsCertificate
-> DeleteLoadBalancerTlsCertificate -> Bool
Prelude.Eq, ReadPrec [DeleteLoadBalancerTlsCertificate]
ReadPrec DeleteLoadBalancerTlsCertificate
Int -> ReadS DeleteLoadBalancerTlsCertificate
ReadS [DeleteLoadBalancerTlsCertificate]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteLoadBalancerTlsCertificate]
$creadListPrec :: ReadPrec [DeleteLoadBalancerTlsCertificate]
readPrec :: ReadPrec DeleteLoadBalancerTlsCertificate
$creadPrec :: ReadPrec DeleteLoadBalancerTlsCertificate
readList :: ReadS [DeleteLoadBalancerTlsCertificate]
$creadList :: ReadS [DeleteLoadBalancerTlsCertificate]
readsPrec :: Int -> ReadS DeleteLoadBalancerTlsCertificate
$creadsPrec :: Int -> ReadS DeleteLoadBalancerTlsCertificate
Prelude.Read, Int -> DeleteLoadBalancerTlsCertificate -> ShowS
[DeleteLoadBalancerTlsCertificate] -> ShowS
DeleteLoadBalancerTlsCertificate -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteLoadBalancerTlsCertificate] -> ShowS
$cshowList :: [DeleteLoadBalancerTlsCertificate] -> ShowS
show :: DeleteLoadBalancerTlsCertificate -> String
$cshow :: DeleteLoadBalancerTlsCertificate -> String
showsPrec :: Int -> DeleteLoadBalancerTlsCertificate -> ShowS
$cshowsPrec :: Int -> DeleteLoadBalancerTlsCertificate -> ShowS
Prelude.Show, forall x.
Rep DeleteLoadBalancerTlsCertificate x
-> DeleteLoadBalancerTlsCertificate
forall x.
DeleteLoadBalancerTlsCertificate
-> Rep DeleteLoadBalancerTlsCertificate x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteLoadBalancerTlsCertificate x
-> DeleteLoadBalancerTlsCertificate
$cfrom :: forall x.
DeleteLoadBalancerTlsCertificate
-> Rep DeleteLoadBalancerTlsCertificate x
Prelude.Generic)
newDeleteLoadBalancerTlsCertificate ::
Prelude.Text ->
Prelude.Text ->
DeleteLoadBalancerTlsCertificate
newDeleteLoadBalancerTlsCertificate :: Text -> Text -> DeleteLoadBalancerTlsCertificate
newDeleteLoadBalancerTlsCertificate
Text
pLoadBalancerName_
Text
pCertificateName_ =
DeleteLoadBalancerTlsCertificate'
{ $sel:force:DeleteLoadBalancerTlsCertificate' :: Maybe Bool
force =
forall a. Maybe a
Prelude.Nothing,
$sel:loadBalancerName:DeleteLoadBalancerTlsCertificate' :: Text
loadBalancerName = Text
pLoadBalancerName_,
$sel:certificateName:DeleteLoadBalancerTlsCertificate' :: Text
certificateName = Text
pCertificateName_
}
deleteLoadBalancerTlsCertificate_force :: Lens.Lens' DeleteLoadBalancerTlsCertificate (Prelude.Maybe Prelude.Bool)
deleteLoadBalancerTlsCertificate_force :: Lens' DeleteLoadBalancerTlsCertificate (Maybe Bool)
deleteLoadBalancerTlsCertificate_force = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteLoadBalancerTlsCertificate' {Maybe Bool
force :: Maybe Bool
$sel:force:DeleteLoadBalancerTlsCertificate' :: DeleteLoadBalancerTlsCertificate -> Maybe Bool
force} -> Maybe Bool
force) (\s :: DeleteLoadBalancerTlsCertificate
s@DeleteLoadBalancerTlsCertificate' {} Maybe Bool
a -> DeleteLoadBalancerTlsCertificate
s {$sel:force:DeleteLoadBalancerTlsCertificate' :: Maybe Bool
force = Maybe Bool
a} :: DeleteLoadBalancerTlsCertificate)
deleteLoadBalancerTlsCertificate_loadBalancerName :: Lens.Lens' DeleteLoadBalancerTlsCertificate Prelude.Text
deleteLoadBalancerTlsCertificate_loadBalancerName :: Lens' DeleteLoadBalancerTlsCertificate Text
deleteLoadBalancerTlsCertificate_loadBalancerName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteLoadBalancerTlsCertificate' {Text
loadBalancerName :: Text
$sel:loadBalancerName:DeleteLoadBalancerTlsCertificate' :: DeleteLoadBalancerTlsCertificate -> Text
loadBalancerName} -> Text
loadBalancerName) (\s :: DeleteLoadBalancerTlsCertificate
s@DeleteLoadBalancerTlsCertificate' {} Text
a -> DeleteLoadBalancerTlsCertificate
s {$sel:loadBalancerName:DeleteLoadBalancerTlsCertificate' :: Text
loadBalancerName = Text
a} :: DeleteLoadBalancerTlsCertificate)
deleteLoadBalancerTlsCertificate_certificateName :: Lens.Lens' DeleteLoadBalancerTlsCertificate Prelude.Text
deleteLoadBalancerTlsCertificate_certificateName :: Lens' DeleteLoadBalancerTlsCertificate Text
deleteLoadBalancerTlsCertificate_certificateName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteLoadBalancerTlsCertificate' {Text
certificateName :: Text
$sel:certificateName:DeleteLoadBalancerTlsCertificate' :: DeleteLoadBalancerTlsCertificate -> Text
certificateName} -> Text
certificateName) (\s :: DeleteLoadBalancerTlsCertificate
s@DeleteLoadBalancerTlsCertificate' {} Text
a -> DeleteLoadBalancerTlsCertificate
s {$sel:certificateName:DeleteLoadBalancerTlsCertificate' :: Text
certificateName = Text
a} :: DeleteLoadBalancerTlsCertificate)
instance
Core.AWSRequest
DeleteLoadBalancerTlsCertificate
where
type
AWSResponse DeleteLoadBalancerTlsCertificate =
DeleteLoadBalancerTlsCertificateResponse
request :: (Service -> Service)
-> DeleteLoadBalancerTlsCertificate
-> Request DeleteLoadBalancerTlsCertificate
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 DeleteLoadBalancerTlsCertificate
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DeleteLoadBalancerTlsCertificate)))
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 [Operation]
-> Int -> DeleteLoadBalancerTlsCertificateResponse
DeleteLoadBalancerTlsCertificateResponse'
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
"operations" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
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
DeleteLoadBalancerTlsCertificate
where
hashWithSalt :: Int -> DeleteLoadBalancerTlsCertificate -> Int
hashWithSalt
Int
_salt
DeleteLoadBalancerTlsCertificate' {Maybe Bool
Text
certificateName :: Text
loadBalancerName :: Text
force :: Maybe Bool
$sel:certificateName:DeleteLoadBalancerTlsCertificate' :: DeleteLoadBalancerTlsCertificate -> Text
$sel:loadBalancerName:DeleteLoadBalancerTlsCertificate' :: DeleteLoadBalancerTlsCertificate -> Text
$sel:force:DeleteLoadBalancerTlsCertificate' :: DeleteLoadBalancerTlsCertificate -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
force
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
loadBalancerName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
certificateName
instance
Prelude.NFData
DeleteLoadBalancerTlsCertificate
where
rnf :: DeleteLoadBalancerTlsCertificate -> ()
rnf DeleteLoadBalancerTlsCertificate' {Maybe Bool
Text
certificateName :: Text
loadBalancerName :: Text
force :: Maybe Bool
$sel:certificateName:DeleteLoadBalancerTlsCertificate' :: DeleteLoadBalancerTlsCertificate -> Text
$sel:loadBalancerName:DeleteLoadBalancerTlsCertificate' :: DeleteLoadBalancerTlsCertificate -> Text
$sel:force:DeleteLoadBalancerTlsCertificate' :: DeleteLoadBalancerTlsCertificate -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
force
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
loadBalancerName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
certificateName
instance
Data.ToHeaders
DeleteLoadBalancerTlsCertificate
where
toHeaders :: DeleteLoadBalancerTlsCertificate -> 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
"Lightsail_20161128.DeleteLoadBalancerTlsCertificate" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DeleteLoadBalancerTlsCertificate where
toJSON :: DeleteLoadBalancerTlsCertificate -> Value
toJSON DeleteLoadBalancerTlsCertificate' {Maybe Bool
Text
certificateName :: Text
loadBalancerName :: Text
force :: Maybe Bool
$sel:certificateName:DeleteLoadBalancerTlsCertificate' :: DeleteLoadBalancerTlsCertificate -> Text
$sel:loadBalancerName:DeleteLoadBalancerTlsCertificate' :: DeleteLoadBalancerTlsCertificate -> Text
$sel:force:DeleteLoadBalancerTlsCertificate' :: DeleteLoadBalancerTlsCertificate -> Maybe Bool
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"force" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Bool
force,
forall a. a -> Maybe a
Prelude.Just
(Key
"loadBalancerName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
loadBalancerName),
forall a. a -> Maybe a
Prelude.Just
(Key
"certificateName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
certificateName)
]
)
instance Data.ToPath DeleteLoadBalancerTlsCertificate where
toPath :: DeleteLoadBalancerTlsCertificate -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
DeleteLoadBalancerTlsCertificate
where
toQuery :: DeleteLoadBalancerTlsCertificate -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteLoadBalancerTlsCertificateResponse = DeleteLoadBalancerTlsCertificateResponse'
{
DeleteLoadBalancerTlsCertificateResponse -> Maybe [Operation]
operations :: Prelude.Maybe [Operation],
DeleteLoadBalancerTlsCertificateResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteLoadBalancerTlsCertificateResponse
-> DeleteLoadBalancerTlsCertificateResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteLoadBalancerTlsCertificateResponse
-> DeleteLoadBalancerTlsCertificateResponse -> Bool
$c/= :: DeleteLoadBalancerTlsCertificateResponse
-> DeleteLoadBalancerTlsCertificateResponse -> Bool
== :: DeleteLoadBalancerTlsCertificateResponse
-> DeleteLoadBalancerTlsCertificateResponse -> Bool
$c== :: DeleteLoadBalancerTlsCertificateResponse
-> DeleteLoadBalancerTlsCertificateResponse -> Bool
Prelude.Eq, ReadPrec [DeleteLoadBalancerTlsCertificateResponse]
ReadPrec DeleteLoadBalancerTlsCertificateResponse
Int -> ReadS DeleteLoadBalancerTlsCertificateResponse
ReadS [DeleteLoadBalancerTlsCertificateResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteLoadBalancerTlsCertificateResponse]
$creadListPrec :: ReadPrec [DeleteLoadBalancerTlsCertificateResponse]
readPrec :: ReadPrec DeleteLoadBalancerTlsCertificateResponse
$creadPrec :: ReadPrec DeleteLoadBalancerTlsCertificateResponse
readList :: ReadS [DeleteLoadBalancerTlsCertificateResponse]
$creadList :: ReadS [DeleteLoadBalancerTlsCertificateResponse]
readsPrec :: Int -> ReadS DeleteLoadBalancerTlsCertificateResponse
$creadsPrec :: Int -> ReadS DeleteLoadBalancerTlsCertificateResponse
Prelude.Read, Int -> DeleteLoadBalancerTlsCertificateResponse -> ShowS
[DeleteLoadBalancerTlsCertificateResponse] -> ShowS
DeleteLoadBalancerTlsCertificateResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteLoadBalancerTlsCertificateResponse] -> ShowS
$cshowList :: [DeleteLoadBalancerTlsCertificateResponse] -> ShowS
show :: DeleteLoadBalancerTlsCertificateResponse -> String
$cshow :: DeleteLoadBalancerTlsCertificateResponse -> String
showsPrec :: Int -> DeleteLoadBalancerTlsCertificateResponse -> ShowS
$cshowsPrec :: Int -> DeleteLoadBalancerTlsCertificateResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteLoadBalancerTlsCertificateResponse x
-> DeleteLoadBalancerTlsCertificateResponse
forall x.
DeleteLoadBalancerTlsCertificateResponse
-> Rep DeleteLoadBalancerTlsCertificateResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteLoadBalancerTlsCertificateResponse x
-> DeleteLoadBalancerTlsCertificateResponse
$cfrom :: forall x.
DeleteLoadBalancerTlsCertificateResponse
-> Rep DeleteLoadBalancerTlsCertificateResponse x
Prelude.Generic)
newDeleteLoadBalancerTlsCertificateResponse ::
Prelude.Int ->
DeleteLoadBalancerTlsCertificateResponse
newDeleteLoadBalancerTlsCertificateResponse :: Int -> DeleteLoadBalancerTlsCertificateResponse
newDeleteLoadBalancerTlsCertificateResponse
Int
pHttpStatus_ =
DeleteLoadBalancerTlsCertificateResponse'
{ $sel:operations:DeleteLoadBalancerTlsCertificateResponse' :: Maybe [Operation]
operations =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteLoadBalancerTlsCertificateResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteLoadBalancerTlsCertificateResponse_operations :: Lens.Lens' DeleteLoadBalancerTlsCertificateResponse (Prelude.Maybe [Operation])
deleteLoadBalancerTlsCertificateResponse_operations :: Lens' DeleteLoadBalancerTlsCertificateResponse (Maybe [Operation])
deleteLoadBalancerTlsCertificateResponse_operations = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteLoadBalancerTlsCertificateResponse' {Maybe [Operation]
operations :: Maybe [Operation]
$sel:operations:DeleteLoadBalancerTlsCertificateResponse' :: DeleteLoadBalancerTlsCertificateResponse -> Maybe [Operation]
operations} -> Maybe [Operation]
operations) (\s :: DeleteLoadBalancerTlsCertificateResponse
s@DeleteLoadBalancerTlsCertificateResponse' {} Maybe [Operation]
a -> DeleteLoadBalancerTlsCertificateResponse
s {$sel:operations:DeleteLoadBalancerTlsCertificateResponse' :: Maybe [Operation]
operations = Maybe [Operation]
a} :: DeleteLoadBalancerTlsCertificateResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
deleteLoadBalancerTlsCertificateResponse_httpStatus :: Lens.Lens' DeleteLoadBalancerTlsCertificateResponse Prelude.Int
deleteLoadBalancerTlsCertificateResponse_httpStatus :: Lens' DeleteLoadBalancerTlsCertificateResponse Int
deleteLoadBalancerTlsCertificateResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteLoadBalancerTlsCertificateResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteLoadBalancerTlsCertificateResponse' :: DeleteLoadBalancerTlsCertificateResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteLoadBalancerTlsCertificateResponse
s@DeleteLoadBalancerTlsCertificateResponse' {} Int
a -> DeleteLoadBalancerTlsCertificateResponse
s {$sel:httpStatus:DeleteLoadBalancerTlsCertificateResponse' :: Int
httpStatus = Int
a} :: DeleteLoadBalancerTlsCertificateResponse)
instance
Prelude.NFData
DeleteLoadBalancerTlsCertificateResponse
where
rnf :: DeleteLoadBalancerTlsCertificateResponse -> ()
rnf DeleteLoadBalancerTlsCertificateResponse' {Int
Maybe [Operation]
httpStatus :: Int
operations :: Maybe [Operation]
$sel:httpStatus:DeleteLoadBalancerTlsCertificateResponse' :: DeleteLoadBalancerTlsCertificateResponse -> Int
$sel:operations:DeleteLoadBalancerTlsCertificateResponse' :: DeleteLoadBalancerTlsCertificateResponse -> Maybe [Operation]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Operation]
operations
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus