{-# 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.CodeDeploy.DeleteGitHubAccountToken
(
deleteGitHubAccountToken
, DeleteGitHubAccountToken
, dghatTokenName
, deleteGitHubAccountTokenResponse
, DeleteGitHubAccountTokenResponse
, dghatrsTokenName
, dghatrsResponseStatus
) where
import Network.AWS.CodeDeploy.Types
import Network.AWS.CodeDeploy.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteGitHubAccountToken = DeleteGitHubAccountToken'
{ _dghatTokenName :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteGitHubAccountToken
:: DeleteGitHubAccountToken
deleteGitHubAccountToken = DeleteGitHubAccountToken' {_dghatTokenName = Nothing}
dghatTokenName :: Lens' DeleteGitHubAccountToken (Maybe Text)
dghatTokenName = lens _dghatTokenName (\ s a -> s{_dghatTokenName = a})
instance AWSRequest DeleteGitHubAccountToken where
type Rs DeleteGitHubAccountToken =
DeleteGitHubAccountTokenResponse
request = postJSON codeDeploy
response
= receiveJSON
(\ s h x ->
DeleteGitHubAccountTokenResponse' <$>
(x .?> "tokenName") <*> (pure (fromEnum s)))
instance Hashable DeleteGitHubAccountToken where
instance NFData DeleteGitHubAccountToken where
instance ToHeaders DeleteGitHubAccountToken where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeDeploy_20141006.DeleteGitHubAccountToken" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteGitHubAccountToken where
toJSON DeleteGitHubAccountToken'{..}
= object
(catMaybes [("tokenName" .=) <$> _dghatTokenName])
instance ToPath DeleteGitHubAccountToken where
toPath = const "/"
instance ToQuery DeleteGitHubAccountToken where
toQuery = const mempty
data DeleteGitHubAccountTokenResponse = DeleteGitHubAccountTokenResponse'
{ _dghatrsTokenName :: !(Maybe Text)
, _dghatrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteGitHubAccountTokenResponse
:: Int
-> DeleteGitHubAccountTokenResponse
deleteGitHubAccountTokenResponse pResponseStatus_ =
DeleteGitHubAccountTokenResponse'
{_dghatrsTokenName = Nothing, _dghatrsResponseStatus = pResponseStatus_}
dghatrsTokenName :: Lens' DeleteGitHubAccountTokenResponse (Maybe Text)
dghatrsTokenName = lens _dghatrsTokenName (\ s a -> s{_dghatrsTokenName = a})
dghatrsResponseStatus :: Lens' DeleteGitHubAccountTokenResponse Int
dghatrsResponseStatus = lens _dghatrsResponseStatus (\ s a -> s{_dghatrsResponseStatus = a})
instance NFData DeleteGitHubAccountTokenResponse
where