module Network.AWS.CloudDirectory.DeleteDirectory
(
deleteDirectory
, DeleteDirectory
, delDirectoryARN
, deleteDirectoryResponse
, DeleteDirectoryResponse
, ddrsResponseStatus
, ddrsDirectoryARN
) 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 DeleteDirectory = DeleteDirectory'
{ _delDirectoryARN :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteDirectory
:: Text
-> DeleteDirectory
deleteDirectory pDirectoryARN_ =
DeleteDirectory' {_delDirectoryARN = pDirectoryARN_}
delDirectoryARN :: Lens' DeleteDirectory Text
delDirectoryARN = lens _delDirectoryARN (\ s a -> s{_delDirectoryARN = a});
instance AWSRequest DeleteDirectory where
type Rs DeleteDirectory = DeleteDirectoryResponse
request = putJSON cloudDirectory
response
= receiveJSON
(\ s h x ->
DeleteDirectoryResponse' <$>
(pure (fromEnum s)) <*> (x .:> "DirectoryArn"))
instance Hashable DeleteDirectory where
instance NFData DeleteDirectory where
instance ToHeaders DeleteDirectory where
toHeaders DeleteDirectory'{..}
= mconcat
["x-amz-data-partition" =# _delDirectoryARN]
instance ToJSON DeleteDirectory where
toJSON = const (Object mempty)
instance ToPath DeleteDirectory where
toPath
= const "/amazonclouddirectory/2017-01-11/directory"
instance ToQuery DeleteDirectory where
toQuery = const mempty
data DeleteDirectoryResponse = DeleteDirectoryResponse'
{ _ddrsResponseStatus :: !Int
, _ddrsDirectoryARN :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteDirectoryResponse
:: Int
-> Text
-> DeleteDirectoryResponse
deleteDirectoryResponse pResponseStatus_ pDirectoryARN_ =
DeleteDirectoryResponse'
{_ddrsResponseStatus = pResponseStatus_, _ddrsDirectoryARN = pDirectoryARN_}
ddrsResponseStatus :: Lens' DeleteDirectoryResponse Int
ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a});
ddrsDirectoryARN :: Lens' DeleteDirectoryResponse Text
ddrsDirectoryARN = lens _ddrsDirectoryARN (\ s a -> s{_ddrsDirectoryARN = a});
instance NFData DeleteDirectoryResponse where