{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.CodePipeline.DeregisterWebhookWithThirdParty
(
deregisterWebhookWithThirdParty
, DeregisterWebhookWithThirdParty
, dwwtpWebhookName
, deregisterWebhookWithThirdPartyResponse
, DeregisterWebhookWithThirdPartyResponse
, dwwtprsResponseStatus
) where
import Network.AWS.CodePipeline.Types
import Network.AWS.CodePipeline.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeregisterWebhookWithThirdParty = DeregisterWebhookWithThirdParty'
{ _dwwtpWebhookName :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deregisterWebhookWithThirdParty
:: DeregisterWebhookWithThirdParty
deregisterWebhookWithThirdParty =
DeregisterWebhookWithThirdParty' {_dwwtpWebhookName = Nothing}
dwwtpWebhookName :: Lens' DeregisterWebhookWithThirdParty (Maybe Text)
dwwtpWebhookName = lens _dwwtpWebhookName (\ s a -> s{_dwwtpWebhookName = a})
instance AWSRequest DeregisterWebhookWithThirdParty
where
type Rs DeregisterWebhookWithThirdParty =
DeregisterWebhookWithThirdPartyResponse
request = postJSON codePipeline
response
= receiveEmpty
(\ s h x ->
DeregisterWebhookWithThirdPartyResponse' <$>
(pure (fromEnum s)))
instance Hashable DeregisterWebhookWithThirdParty
where
instance NFData DeregisterWebhookWithThirdParty where
instance ToHeaders DeregisterWebhookWithThirdParty
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodePipeline_20150709.DeregisterWebhookWithThirdParty"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeregisterWebhookWithThirdParty where
toJSON DeregisterWebhookWithThirdParty'{..}
= object
(catMaybes
[("webhookName" .=) <$> _dwwtpWebhookName])
instance ToPath DeregisterWebhookWithThirdParty where
toPath = const "/"
instance ToQuery DeregisterWebhookWithThirdParty
where
toQuery = const mempty
newtype DeregisterWebhookWithThirdPartyResponse = DeregisterWebhookWithThirdPartyResponse'
{ _dwwtprsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deregisterWebhookWithThirdPartyResponse
:: Int
-> DeregisterWebhookWithThirdPartyResponse
deregisterWebhookWithThirdPartyResponse pResponseStatus_ =
DeregisterWebhookWithThirdPartyResponse'
{_dwwtprsResponseStatus = pResponseStatus_}
dwwtprsResponseStatus :: Lens' DeregisterWebhookWithThirdPartyResponse Int
dwwtprsResponseStatus = lens _dwwtprsResponseStatus (\ s a -> s{_dwwtprsResponseStatus = a})
instance NFData
DeregisterWebhookWithThirdPartyResponse
where