{-# 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.DirectoryService.CancelSchemaExtension
(
cancelSchemaExtension
, CancelSchemaExtension
, cseDirectoryId
, cseSchemaExtensionId
, cancelSchemaExtensionResponse
, CancelSchemaExtensionResponse
, csersResponseStatus
) where
import Network.AWS.DirectoryService.Types
import Network.AWS.DirectoryService.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data CancelSchemaExtension = CancelSchemaExtension'
{ _cseDirectoryId :: !Text
, _cseSchemaExtensionId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cancelSchemaExtension
:: Text
-> Text
-> CancelSchemaExtension
cancelSchemaExtension pDirectoryId_ pSchemaExtensionId_ =
CancelSchemaExtension'
{ _cseDirectoryId = pDirectoryId_
, _cseSchemaExtensionId = pSchemaExtensionId_
}
cseDirectoryId :: Lens' CancelSchemaExtension Text
cseDirectoryId = lens _cseDirectoryId (\ s a -> s{_cseDirectoryId = a});
cseSchemaExtensionId :: Lens' CancelSchemaExtension Text
cseSchemaExtensionId = lens _cseSchemaExtensionId (\ s a -> s{_cseSchemaExtensionId = a});
instance AWSRequest CancelSchemaExtension where
type Rs CancelSchemaExtension =
CancelSchemaExtensionResponse
request = postJSON directoryService
response
= receiveEmpty
(\ s h x ->
CancelSchemaExtensionResponse' <$>
(pure (fromEnum s)))
instance Hashable CancelSchemaExtension
instance NFData CancelSchemaExtension
instance ToHeaders CancelSchemaExtension where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DirectoryService_20150416.CancelSchemaExtension" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CancelSchemaExtension where
toJSON CancelSchemaExtension'{..}
= object
(catMaybes
[Just ("DirectoryId" .= _cseDirectoryId),
Just ("SchemaExtensionId" .= _cseSchemaExtensionId)])
instance ToPath CancelSchemaExtension where
toPath = const "/"
instance ToQuery CancelSchemaExtension where
toQuery = const mempty
newtype CancelSchemaExtensionResponse = CancelSchemaExtensionResponse'
{ _csersResponseStatus :: Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cancelSchemaExtensionResponse
:: Int
-> CancelSchemaExtensionResponse
cancelSchemaExtensionResponse pResponseStatus_ =
CancelSchemaExtensionResponse'
{ _csersResponseStatus = pResponseStatus_
}
csersResponseStatus :: Lens' CancelSchemaExtensionResponse Int
csersResponseStatus = lens _csersResponseStatus (\ s a -> s{_csersResponseStatus = a});
instance NFData CancelSchemaExtensionResponse