module Network.AWS.IoT.GetPolicy
(
getPolicy
, GetPolicy
, gpPolicyName
, getPolicyResponse
, GetPolicyResponse
, gprsPolicyName
, gprsPolicyDocument
, gprsDefaultVersionId
, gprsPolicyARN
, gprsResponseStatus
) where
import Network.AWS.IoT.Types
import Network.AWS.IoT.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype GetPolicy = GetPolicy'
{ _gpPolicyName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getPolicy
:: Text
-> GetPolicy
getPolicy pPolicyName_ =
GetPolicy'
{ _gpPolicyName = pPolicyName_
}
gpPolicyName :: Lens' GetPolicy Text
gpPolicyName = lens _gpPolicyName (\ s a -> s{_gpPolicyName = a});
instance AWSRequest GetPolicy where
type Rs GetPolicy = GetPolicyResponse
request = get ioT
response
= receiveJSON
(\ s h x ->
GetPolicyResponse' <$>
(x .?> "policyName") <*> (x .?> "policyDocument") <*>
(x .?> "defaultVersionId")
<*> (x .?> "policyArn")
<*> (pure (fromEnum s)))
instance ToHeaders GetPolicy where
toHeaders = const mempty
instance ToPath GetPolicy where
toPath GetPolicy'{..}
= mconcat ["/policies/", toBS _gpPolicyName]
instance ToQuery GetPolicy where
toQuery = const mempty
data GetPolicyResponse = GetPolicyResponse'
{ _gprsPolicyName :: !(Maybe Text)
, _gprsPolicyDocument :: !(Maybe Text)
, _gprsDefaultVersionId :: !(Maybe Text)
, _gprsPolicyARN :: !(Maybe Text)
, _gprsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getPolicyResponse
:: Int
-> GetPolicyResponse
getPolicyResponse pResponseStatus_ =
GetPolicyResponse'
{ _gprsPolicyName = Nothing
, _gprsPolicyDocument = Nothing
, _gprsDefaultVersionId = Nothing
, _gprsPolicyARN = Nothing
, _gprsResponseStatus = pResponseStatus_
}
gprsPolicyName :: Lens' GetPolicyResponse (Maybe Text)
gprsPolicyName = lens _gprsPolicyName (\ s a -> s{_gprsPolicyName = a});
gprsPolicyDocument :: Lens' GetPolicyResponse (Maybe Text)
gprsPolicyDocument = lens _gprsPolicyDocument (\ s a -> s{_gprsPolicyDocument = a});
gprsDefaultVersionId :: Lens' GetPolicyResponse (Maybe Text)
gprsDefaultVersionId = lens _gprsDefaultVersionId (\ s a -> s{_gprsDefaultVersionId = a});
gprsPolicyARN :: Lens' GetPolicyResponse (Maybe Text)
gprsPolicyARN = lens _gprsPolicyARN (\ s a -> s{_gprsPolicyARN = a});
gprsResponseStatus :: Lens' GetPolicyResponse Int
gprsResponseStatus = lens _gprsResponseStatus (\ s a -> s{_gprsResponseStatus = a});