module Network.AWS.DirectoryService.DisableRadius
(
disableRadius
, DisableRadius
, drDirectoryId
, disableRadiusResponse
, DisableRadiusResponse
, drrsResponseStatus
) 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
newtype DisableRadius = DisableRadius'
{ _drDirectoryId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
disableRadius
:: Text
-> DisableRadius
disableRadius pDirectoryId_ =
DisableRadius'
{ _drDirectoryId = pDirectoryId_
}
drDirectoryId :: Lens' DisableRadius Text
drDirectoryId = lens _drDirectoryId (\ s a -> s{_drDirectoryId = a});
instance AWSRequest DisableRadius where
type Rs DisableRadius = DisableRadiusResponse
request = postJSON directoryService
response
= receiveEmpty
(\ s h x ->
DisableRadiusResponse' <$> (pure (fromEnum s)))
instance Hashable DisableRadius
instance NFData DisableRadius
instance ToHeaders DisableRadius where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DirectoryService_20150416.DisableRadius" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DisableRadius where
toJSON DisableRadius'{..}
= object
(catMaybes [Just ("DirectoryId" .= _drDirectoryId)])
instance ToPath DisableRadius where
toPath = const "/"
instance ToQuery DisableRadius where
toQuery = const mempty
newtype DisableRadiusResponse = DisableRadiusResponse'
{ _drrsResponseStatus :: Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
disableRadiusResponse
:: Int
-> DisableRadiusResponse
disableRadiusResponse pResponseStatus_ =
DisableRadiusResponse'
{ _drrsResponseStatus = pResponseStatus_
}
drrsResponseStatus :: Lens' DisableRadiusResponse Int
drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a});
instance NFData DisableRadiusResponse