{-# 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.OpsWorks.DescribePermissions
(
describePermissions
, DescribePermissions
, dpIAMUserARN
, dpStackId
, describePermissionsResponse
, DescribePermissionsResponse
, dprsPermissions
, dprsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.OpsWorks.Types
import Network.AWS.OpsWorks.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribePermissions = DescribePermissions'
{ _dpIAMUserARN :: !(Maybe Text)
, _dpStackId :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describePermissions
:: DescribePermissions
describePermissions =
DescribePermissions'
{ _dpIAMUserARN = Nothing
, _dpStackId = Nothing
}
dpIAMUserARN :: Lens' DescribePermissions (Maybe Text)
dpIAMUserARN = lens _dpIAMUserARN (\ s a -> s{_dpIAMUserARN = a});
dpStackId :: Lens' DescribePermissions (Maybe Text)
dpStackId = lens _dpStackId (\ s a -> s{_dpStackId = a});
instance AWSRequest DescribePermissions where
type Rs DescribePermissions =
DescribePermissionsResponse
request = postJSON opsWorks
response
= receiveJSON
(\ s h x ->
DescribePermissionsResponse' <$>
(x .?> "Permissions" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable DescribePermissions
instance NFData DescribePermissions
instance ToHeaders DescribePermissions where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.DescribePermissions" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribePermissions where
toJSON DescribePermissions'{..}
= object
(catMaybes
[("IamUserArn" .=) <$> _dpIAMUserARN,
("StackId" .=) <$> _dpStackId])
instance ToPath DescribePermissions where
toPath = const "/"
instance ToQuery DescribePermissions where
toQuery = const mempty
data DescribePermissionsResponse = DescribePermissionsResponse'
{ _dprsPermissions :: !(Maybe [Permission])
, _dprsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describePermissionsResponse
:: Int
-> DescribePermissionsResponse
describePermissionsResponse pResponseStatus_ =
DescribePermissionsResponse'
{ _dprsPermissions = Nothing
, _dprsResponseStatus = pResponseStatus_
}
dprsPermissions :: Lens' DescribePermissionsResponse [Permission]
dprsPermissions = lens _dprsPermissions (\ s a -> s{_dprsPermissions = a}) . _Default . _Coerce;
dprsResponseStatus :: Lens' DescribePermissionsResponse Int
dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a});
instance NFData DescribePermissionsResponse