{-# 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.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 where
instance NFData DeleteRegistrationCode where
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 where