{-# 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.Organizations.DeclineHandshake
(
declineHandshake
, DeclineHandshake
, dHandshakeId
, declineHandshakeResponse
, DeclineHandshakeResponse
, drsHandshake
, drsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Organizations.Types
import Network.AWS.Organizations.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeclineHandshake = DeclineHandshake'
{ _dHandshakeId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
declineHandshake
:: Text
-> DeclineHandshake
declineHandshake pHandshakeId_ =
DeclineHandshake' {_dHandshakeId = pHandshakeId_}
dHandshakeId :: Lens' DeclineHandshake Text
dHandshakeId = lens _dHandshakeId (\ s a -> s{_dHandshakeId = a})
instance AWSRequest DeclineHandshake where
type Rs DeclineHandshake = DeclineHandshakeResponse
request = postJSON organizations
response
= receiveJSON
(\ s h x ->
DeclineHandshakeResponse' <$>
(x .?> "Handshake") <*> (pure (fromEnum s)))
instance Hashable DeclineHandshake where
instance NFData DeclineHandshake where
instance ToHeaders DeclineHandshake where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSOrganizationsV20161128.DeclineHandshake" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeclineHandshake where
toJSON DeclineHandshake'{..}
= object
(catMaybes [Just ("HandshakeId" .= _dHandshakeId)])
instance ToPath DeclineHandshake where
toPath = const "/"
instance ToQuery DeclineHandshake where
toQuery = const mempty
data DeclineHandshakeResponse = DeclineHandshakeResponse'
{ _drsHandshake :: !(Maybe Handshake)
, _drsResponseStatus :: !Int
} deriving (Eq, Show, Data, Typeable, Generic)
declineHandshakeResponse
:: Int
-> DeclineHandshakeResponse
declineHandshakeResponse pResponseStatus_ =
DeclineHandshakeResponse'
{_drsHandshake = Nothing, _drsResponseStatus = pResponseStatus_}
drsHandshake :: Lens' DeclineHandshakeResponse (Maybe Handshake)
drsHandshake = lens _drsHandshake (\ s a -> s{_drsHandshake = a})
drsResponseStatus :: Lens' DeclineHandshakeResponse Int
drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})
instance NFData DeclineHandshakeResponse where