module Network.AWS.IoT.SetDefaultPolicyVersion
(
setDefaultPolicyVersion
, SetDefaultPolicyVersion
, sdpvPolicyName
, sdpvPolicyVersionId
, setDefaultPolicyVersionResponse
, SetDefaultPolicyVersionResponse
) where
import Network.AWS.IoT.Types
import Network.AWS.IoT.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data SetDefaultPolicyVersion = SetDefaultPolicyVersion'
{ _sdpvPolicyName :: !Text
, _sdpvPolicyVersionId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
setDefaultPolicyVersion
:: Text
-> Text
-> SetDefaultPolicyVersion
setDefaultPolicyVersion pPolicyName_ pPolicyVersionId_ =
SetDefaultPolicyVersion'
{ _sdpvPolicyName = pPolicyName_
, _sdpvPolicyVersionId = pPolicyVersionId_
}
sdpvPolicyName :: Lens' SetDefaultPolicyVersion Text
sdpvPolicyName = lens _sdpvPolicyName (\ s a -> s{_sdpvPolicyName = a});
sdpvPolicyVersionId :: Lens' SetDefaultPolicyVersion Text
sdpvPolicyVersionId = lens _sdpvPolicyVersionId (\ s a -> s{_sdpvPolicyVersionId = a});
instance AWSRequest SetDefaultPolicyVersion where
type Rs SetDefaultPolicyVersion =
SetDefaultPolicyVersionResponse
request = patchJSON ioT
response
= receiveNull SetDefaultPolicyVersionResponse'
instance ToHeaders SetDefaultPolicyVersion where
toHeaders = const mempty
instance ToJSON SetDefaultPolicyVersion where
toJSON = const (Object mempty)
instance ToPath SetDefaultPolicyVersion where
toPath SetDefaultPolicyVersion'{..}
= mconcat
["/policies/", toBS _sdpvPolicyName, "/version/",
toBS _sdpvPolicyVersionId]
instance ToQuery SetDefaultPolicyVersion where
toQuery = const mempty
data SetDefaultPolicyVersionResponse =
SetDefaultPolicyVersionResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
setDefaultPolicyVersionResponse
:: SetDefaultPolicyVersionResponse
setDefaultPolicyVersionResponse = SetDefaultPolicyVersionResponse'