{-# 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.CodePipeline.DeregisterWebhookWithThirdParty
(
DeregisterWebhookWithThirdParty (..),
newDeregisterWebhookWithThirdParty,
deregisterWebhookWithThirdParty_webhookName,
DeregisterWebhookWithThirdPartyResponse (..),
newDeregisterWebhookWithThirdPartyResponse,
deregisterWebhookWithThirdPartyResponse_httpStatus,
)
where
import Amazonka.CodePipeline.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 DeregisterWebhookWithThirdParty = DeregisterWebhookWithThirdParty'
{
DeregisterWebhookWithThirdParty -> Maybe Text
webhookName :: Prelude.Maybe Prelude.Text
}
deriving (DeregisterWebhookWithThirdParty
-> DeregisterWebhookWithThirdParty -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeregisterWebhookWithThirdParty
-> DeregisterWebhookWithThirdParty -> Bool
$c/= :: DeregisterWebhookWithThirdParty
-> DeregisterWebhookWithThirdParty -> Bool
== :: DeregisterWebhookWithThirdParty
-> DeregisterWebhookWithThirdParty -> Bool
$c== :: DeregisterWebhookWithThirdParty
-> DeregisterWebhookWithThirdParty -> Bool
Prelude.Eq, ReadPrec [DeregisterWebhookWithThirdParty]
ReadPrec DeregisterWebhookWithThirdParty
Int -> ReadS DeregisterWebhookWithThirdParty
ReadS [DeregisterWebhookWithThirdParty]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeregisterWebhookWithThirdParty]
$creadListPrec :: ReadPrec [DeregisterWebhookWithThirdParty]
readPrec :: ReadPrec DeregisterWebhookWithThirdParty
$creadPrec :: ReadPrec DeregisterWebhookWithThirdParty
readList :: ReadS [DeregisterWebhookWithThirdParty]
$creadList :: ReadS [DeregisterWebhookWithThirdParty]
readsPrec :: Int -> ReadS DeregisterWebhookWithThirdParty
$creadsPrec :: Int -> ReadS DeregisterWebhookWithThirdParty
Prelude.Read, Int -> DeregisterWebhookWithThirdParty -> ShowS
[DeregisterWebhookWithThirdParty] -> ShowS
DeregisterWebhookWithThirdParty -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeregisterWebhookWithThirdParty] -> ShowS
$cshowList :: [DeregisterWebhookWithThirdParty] -> ShowS
show :: DeregisterWebhookWithThirdParty -> String
$cshow :: DeregisterWebhookWithThirdParty -> String
showsPrec :: Int -> DeregisterWebhookWithThirdParty -> ShowS
$cshowsPrec :: Int -> DeregisterWebhookWithThirdParty -> ShowS
Prelude.Show, forall x.
Rep DeregisterWebhookWithThirdParty x
-> DeregisterWebhookWithThirdParty
forall x.
DeregisterWebhookWithThirdParty
-> Rep DeregisterWebhookWithThirdParty x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeregisterWebhookWithThirdParty x
-> DeregisterWebhookWithThirdParty
$cfrom :: forall x.
DeregisterWebhookWithThirdParty
-> Rep DeregisterWebhookWithThirdParty x
Prelude.Generic)
newDeregisterWebhookWithThirdParty ::
DeregisterWebhookWithThirdParty
newDeregisterWebhookWithThirdParty :: DeregisterWebhookWithThirdParty
newDeregisterWebhookWithThirdParty =
DeregisterWebhookWithThirdParty'
{ $sel:webhookName:DeregisterWebhookWithThirdParty' :: Maybe Text
webhookName =
forall a. Maybe a
Prelude.Nothing
}
deregisterWebhookWithThirdParty_webhookName :: Lens.Lens' DeregisterWebhookWithThirdParty (Prelude.Maybe Prelude.Text)
deregisterWebhookWithThirdParty_webhookName :: Lens' DeregisterWebhookWithThirdParty (Maybe Text)
deregisterWebhookWithThirdParty_webhookName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeregisterWebhookWithThirdParty' {Maybe Text
webhookName :: Maybe Text
$sel:webhookName:DeregisterWebhookWithThirdParty' :: DeregisterWebhookWithThirdParty -> Maybe Text
webhookName} -> Maybe Text
webhookName) (\s :: DeregisterWebhookWithThirdParty
s@DeregisterWebhookWithThirdParty' {} Maybe Text
a -> DeregisterWebhookWithThirdParty
s {$sel:webhookName:DeregisterWebhookWithThirdParty' :: Maybe Text
webhookName = Maybe Text
a} :: DeregisterWebhookWithThirdParty)
instance
Core.AWSRequest
DeregisterWebhookWithThirdParty
where
type
AWSResponse DeregisterWebhookWithThirdParty =
DeregisterWebhookWithThirdPartyResponse
request :: (Service -> Service)
-> DeregisterWebhookWithThirdParty
-> Request DeregisterWebhookWithThirdParty
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 DeregisterWebhookWithThirdParty
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DeregisterWebhookWithThirdParty)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> DeregisterWebhookWithThirdPartyResponse
DeregisterWebhookWithThirdPartyResponse'
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))
)
instance
Prelude.Hashable
DeregisterWebhookWithThirdParty
where
hashWithSalt :: Int -> DeregisterWebhookWithThirdParty -> Int
hashWithSalt
Int
_salt
DeregisterWebhookWithThirdParty' {Maybe Text
webhookName :: Maybe Text
$sel:webhookName:DeregisterWebhookWithThirdParty' :: DeregisterWebhookWithThirdParty -> Maybe Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
webhookName
instance
Prelude.NFData
DeregisterWebhookWithThirdParty
where
rnf :: DeregisterWebhookWithThirdParty -> ()
rnf DeregisterWebhookWithThirdParty' {Maybe Text
webhookName :: Maybe Text
$sel:webhookName:DeregisterWebhookWithThirdParty' :: DeregisterWebhookWithThirdParty -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
webhookName
instance
Data.ToHeaders
DeregisterWebhookWithThirdParty
where
toHeaders :: DeregisterWebhookWithThirdParty -> 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
"CodePipeline_20150709.DeregisterWebhookWithThirdParty" ::
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 DeregisterWebhookWithThirdParty where
toJSON :: DeregisterWebhookWithThirdParty -> Value
toJSON DeregisterWebhookWithThirdParty' {Maybe Text
webhookName :: Maybe Text
$sel:webhookName:DeregisterWebhookWithThirdParty' :: DeregisterWebhookWithThirdParty -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[(Key
"webhookName" 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 Text
webhookName]
)
instance Data.ToPath DeregisterWebhookWithThirdParty where
toPath :: DeregisterWebhookWithThirdParty -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeregisterWebhookWithThirdParty where
toQuery :: DeregisterWebhookWithThirdParty -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeregisterWebhookWithThirdPartyResponse = DeregisterWebhookWithThirdPartyResponse'
{
DeregisterWebhookWithThirdPartyResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeregisterWebhookWithThirdPartyResponse
-> DeregisterWebhookWithThirdPartyResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeregisterWebhookWithThirdPartyResponse
-> DeregisterWebhookWithThirdPartyResponse -> Bool
$c/= :: DeregisterWebhookWithThirdPartyResponse
-> DeregisterWebhookWithThirdPartyResponse -> Bool
== :: DeregisterWebhookWithThirdPartyResponse
-> DeregisterWebhookWithThirdPartyResponse -> Bool
$c== :: DeregisterWebhookWithThirdPartyResponse
-> DeregisterWebhookWithThirdPartyResponse -> Bool
Prelude.Eq, ReadPrec [DeregisterWebhookWithThirdPartyResponse]
ReadPrec DeregisterWebhookWithThirdPartyResponse
Int -> ReadS DeregisterWebhookWithThirdPartyResponse
ReadS [DeregisterWebhookWithThirdPartyResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeregisterWebhookWithThirdPartyResponse]
$creadListPrec :: ReadPrec [DeregisterWebhookWithThirdPartyResponse]
readPrec :: ReadPrec DeregisterWebhookWithThirdPartyResponse
$creadPrec :: ReadPrec DeregisterWebhookWithThirdPartyResponse
readList :: ReadS [DeregisterWebhookWithThirdPartyResponse]
$creadList :: ReadS [DeregisterWebhookWithThirdPartyResponse]
readsPrec :: Int -> ReadS DeregisterWebhookWithThirdPartyResponse
$creadsPrec :: Int -> ReadS DeregisterWebhookWithThirdPartyResponse
Prelude.Read, Int -> DeregisterWebhookWithThirdPartyResponse -> ShowS
[DeregisterWebhookWithThirdPartyResponse] -> ShowS
DeregisterWebhookWithThirdPartyResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeregisterWebhookWithThirdPartyResponse] -> ShowS
$cshowList :: [DeregisterWebhookWithThirdPartyResponse] -> ShowS
show :: DeregisterWebhookWithThirdPartyResponse -> String
$cshow :: DeregisterWebhookWithThirdPartyResponse -> String
showsPrec :: Int -> DeregisterWebhookWithThirdPartyResponse -> ShowS
$cshowsPrec :: Int -> DeregisterWebhookWithThirdPartyResponse -> ShowS
Prelude.Show, forall x.
Rep DeregisterWebhookWithThirdPartyResponse x
-> DeregisterWebhookWithThirdPartyResponse
forall x.
DeregisterWebhookWithThirdPartyResponse
-> Rep DeregisterWebhookWithThirdPartyResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeregisterWebhookWithThirdPartyResponse x
-> DeregisterWebhookWithThirdPartyResponse
$cfrom :: forall x.
DeregisterWebhookWithThirdPartyResponse
-> Rep DeregisterWebhookWithThirdPartyResponse x
Prelude.Generic)
newDeregisterWebhookWithThirdPartyResponse ::
Prelude.Int ->
DeregisterWebhookWithThirdPartyResponse
newDeregisterWebhookWithThirdPartyResponse :: Int -> DeregisterWebhookWithThirdPartyResponse
newDeregisterWebhookWithThirdPartyResponse
Int
pHttpStatus_ =
DeregisterWebhookWithThirdPartyResponse'
{ $sel:httpStatus:DeregisterWebhookWithThirdPartyResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
deregisterWebhookWithThirdPartyResponse_httpStatus :: Lens.Lens' DeregisterWebhookWithThirdPartyResponse Prelude.Int
deregisterWebhookWithThirdPartyResponse_httpStatus :: Lens' DeregisterWebhookWithThirdPartyResponse Int
deregisterWebhookWithThirdPartyResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeregisterWebhookWithThirdPartyResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeregisterWebhookWithThirdPartyResponse' :: DeregisterWebhookWithThirdPartyResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeregisterWebhookWithThirdPartyResponse
s@DeregisterWebhookWithThirdPartyResponse' {} Int
a -> DeregisterWebhookWithThirdPartyResponse
s {$sel:httpStatus:DeregisterWebhookWithThirdPartyResponse' :: Int
httpStatus = Int
a} :: DeregisterWebhookWithThirdPartyResponse)
instance
Prelude.NFData
DeregisterWebhookWithThirdPartyResponse
where
rnf :: DeregisterWebhookWithThirdPartyResponse -> ()
rnf DeregisterWebhookWithThirdPartyResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeregisterWebhookWithThirdPartyResponse' :: DeregisterWebhookWithThirdPartyResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus