module Network.AWS.CloudDirectory.DisableDirectory
(
disableDirectory
, DisableDirectory
, ddDirectoryARN
, disableDirectoryResponse
, DisableDirectoryResponse
, drsResponseStatus
, drsDirectoryARN
) where
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DisableDirectory = DisableDirectory'
{ _ddDirectoryARN :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
disableDirectory
:: Text
-> DisableDirectory
disableDirectory pDirectoryARN_ =
DisableDirectory' {_ddDirectoryARN = pDirectoryARN_}
ddDirectoryARN :: Lens' DisableDirectory Text
ddDirectoryARN = lens _ddDirectoryARN (\ s a -> s{_ddDirectoryARN = a});
instance AWSRequest DisableDirectory where
type Rs DisableDirectory = DisableDirectoryResponse
request = putJSON cloudDirectory
response
= receiveJSON
(\ s h x ->
DisableDirectoryResponse' <$>
(pure (fromEnum s)) <*> (x .:> "DirectoryArn"))
instance Hashable DisableDirectory where
instance NFData DisableDirectory where
instance ToHeaders DisableDirectory where
toHeaders DisableDirectory'{..}
= mconcat ["x-amz-data-partition" =# _ddDirectoryARN]
instance ToJSON DisableDirectory where
toJSON = const (Object mempty)
instance ToPath DisableDirectory where
toPath
= const
"/amazonclouddirectory/2017-01-11/directory/disable"
instance ToQuery DisableDirectory where
toQuery = const mempty
data DisableDirectoryResponse = DisableDirectoryResponse'
{ _drsResponseStatus :: !Int
, _drsDirectoryARN :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
disableDirectoryResponse
:: Int
-> Text
-> DisableDirectoryResponse
disableDirectoryResponse pResponseStatus_ pDirectoryARN_ =
DisableDirectoryResponse'
{_drsResponseStatus = pResponseStatus_, _drsDirectoryARN = pDirectoryARN_}
drsResponseStatus :: Lens' DisableDirectoryResponse Int
drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
drsDirectoryARN :: Lens' DisableDirectoryResponse Text
drsDirectoryARN = lens _drsDirectoryARN (\ s a -> s{_drsDirectoryARN = a});
instance NFData DisableDirectoryResponse where