module Network.AWS.IoT.DeletePolicyVersion
(
deletePolicyVersion
, DeletePolicyVersion
, dpvPolicyName
, dpvPolicyVersionId
, deletePolicyVersionResponse
, DeletePolicyVersionResponse
) 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 DeletePolicyVersion = DeletePolicyVersion'
{ _dpvPolicyName :: !Text
, _dpvPolicyVersionId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deletePolicyVersion
:: Text
-> Text
-> DeletePolicyVersion
deletePolicyVersion pPolicyName_ pPolicyVersionId_ =
DeletePolicyVersion'
{ _dpvPolicyName = pPolicyName_
, _dpvPolicyVersionId = pPolicyVersionId_
}
dpvPolicyName :: Lens' DeletePolicyVersion Text
dpvPolicyName = lens _dpvPolicyName (\ s a -> s{_dpvPolicyName = a});
dpvPolicyVersionId :: Lens' DeletePolicyVersion Text
dpvPolicyVersionId = lens _dpvPolicyVersionId (\ s a -> s{_dpvPolicyVersionId = a});
instance AWSRequest DeletePolicyVersion where
type Rs DeletePolicyVersion =
DeletePolicyVersionResponse
request = delete ioT
response = receiveNull DeletePolicyVersionResponse'
instance Hashable DeletePolicyVersion
instance NFData DeletePolicyVersion
instance ToHeaders DeletePolicyVersion where
toHeaders = const mempty
instance ToPath DeletePolicyVersion where
toPath DeletePolicyVersion'{..}
= mconcat
["/policies/", toBS _dpvPolicyName, "/version/",
toBS _dpvPolicyVersionId]
instance ToQuery DeletePolicyVersion where
toQuery = const mempty
data DeletePolicyVersionResponse =
DeletePolicyVersionResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deletePolicyVersionResponse
:: DeletePolicyVersionResponse
deletePolicyVersionResponse = DeletePolicyVersionResponse'
instance NFData DeletePolicyVersionResponse