module Network.Google.Resource.Genomics.DataSets.GetIAMPolicy
(
DataSetsGetIAMPolicyResource
, dataSetsGetIAMPolicy
, DataSetsGetIAMPolicy
, dsgipXgafv
, dsgipUploadProtocol
, dsgipPp
, dsgipAccessToken
, dsgipUploadType
, dsgipPayload
, dsgipBearerToken
, dsgipResource
, dsgipCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type DataSetsGetIAMPolicyResource =
"v1" :>
CaptureMode "resource" "getIamPolicy" Text :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] GetIAMPolicyRequest :>
Post '[JSON] Policy
data DataSetsGetIAMPolicy = DataSetsGetIAMPolicy
{ _dsgipXgafv :: !(Maybe Text)
, _dsgipUploadProtocol :: !(Maybe Text)
, _dsgipPp :: !Bool
, _dsgipAccessToken :: !(Maybe Text)
, _dsgipUploadType :: !(Maybe Text)
, _dsgipPayload :: !GetIAMPolicyRequest
, _dsgipBearerToken :: !(Maybe Text)
, _dsgipResource :: !Text
, _dsgipCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
dataSetsGetIAMPolicy
:: GetIAMPolicyRequest
-> Text
-> DataSetsGetIAMPolicy
dataSetsGetIAMPolicy pDsgipPayload_ pDsgipResource_ =
DataSetsGetIAMPolicy
{ _dsgipXgafv = Nothing
, _dsgipUploadProtocol = Nothing
, _dsgipPp = True
, _dsgipAccessToken = Nothing
, _dsgipUploadType = Nothing
, _dsgipPayload = pDsgipPayload_
, _dsgipBearerToken = Nothing
, _dsgipResource = pDsgipResource_
, _dsgipCallback = Nothing
}
dsgipXgafv :: Lens' DataSetsGetIAMPolicy (Maybe Text)
dsgipXgafv
= lens _dsgipXgafv (\ s a -> s{_dsgipXgafv = a})
dsgipUploadProtocol :: Lens' DataSetsGetIAMPolicy (Maybe Text)
dsgipUploadProtocol
= lens _dsgipUploadProtocol
(\ s a -> s{_dsgipUploadProtocol = a})
dsgipPp :: Lens' DataSetsGetIAMPolicy Bool
dsgipPp = lens _dsgipPp (\ s a -> s{_dsgipPp = a})
dsgipAccessToken :: Lens' DataSetsGetIAMPolicy (Maybe Text)
dsgipAccessToken
= lens _dsgipAccessToken
(\ s a -> s{_dsgipAccessToken = a})
dsgipUploadType :: Lens' DataSetsGetIAMPolicy (Maybe Text)
dsgipUploadType
= lens _dsgipUploadType
(\ s a -> s{_dsgipUploadType = a})
dsgipPayload :: Lens' DataSetsGetIAMPolicy GetIAMPolicyRequest
dsgipPayload
= lens _dsgipPayload (\ s a -> s{_dsgipPayload = a})
dsgipBearerToken :: Lens' DataSetsGetIAMPolicy (Maybe Text)
dsgipBearerToken
= lens _dsgipBearerToken
(\ s a -> s{_dsgipBearerToken = a})
dsgipResource :: Lens' DataSetsGetIAMPolicy Text
dsgipResource
= lens _dsgipResource
(\ s a -> s{_dsgipResource = a})
dsgipCallback :: Lens' DataSetsGetIAMPolicy (Maybe Text)
dsgipCallback
= lens _dsgipCallback
(\ s a -> s{_dsgipCallback = a})
instance GoogleRequest DataSetsGetIAMPolicy where
type Rs DataSetsGetIAMPolicy = Policy
requestClient DataSetsGetIAMPolicy{..}
= go _dsgipResource _dsgipXgafv _dsgipUploadProtocol
(Just _dsgipPp)
_dsgipAccessToken
_dsgipUploadType
_dsgipBearerToken
_dsgipCallback
(Just AltJSON)
_dsgipPayload
genomicsService
where go
= buildClient
(Proxy :: Proxy DataSetsGetIAMPolicyResource)
mempty