module Network.AWS.IoT.DeleteRegistrationCode
(
deleteRegistrationCode
, DeleteRegistrationCode
, deleteRegistrationCodeResponse
, DeleteRegistrationCodeResponse
, drcrsResponseStatus
) where
import Network.AWS.IoT.Types
import Network.AWS.IoT.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeleteRegistrationCode =
DeleteRegistrationCode'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteRegistrationCode
:: DeleteRegistrationCode
deleteRegistrationCode = DeleteRegistrationCode'
instance AWSRequest DeleteRegistrationCode where
type Rs DeleteRegistrationCode =
DeleteRegistrationCodeResponse
request = delete ioT
response
= receiveEmpty
(\ s h x ->
DeleteRegistrationCodeResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteRegistrationCode
instance NFData DeleteRegistrationCode
instance ToHeaders DeleteRegistrationCode where
toHeaders = const mempty
instance ToPath DeleteRegistrationCode where
toPath = const "/registrationcode"
instance ToQuery DeleteRegistrationCode where
toQuery = const mempty
newtype DeleteRegistrationCodeResponse = DeleteRegistrationCodeResponse'
{ _drcrsResponseStatus :: Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteRegistrationCodeResponse
:: Int
-> DeleteRegistrationCodeResponse
deleteRegistrationCodeResponse pResponseStatus_ =
DeleteRegistrationCodeResponse'
{ _drcrsResponseStatus = pResponseStatus_
}
drcrsResponseStatus :: Lens' DeleteRegistrationCodeResponse Int
drcrsResponseStatus = lens _drcrsResponseStatus (\ s a -> s{_drcrsResponseStatus = a});
instance NFData DeleteRegistrationCodeResponse