module Network.Google.Resource.Genomics.DataSets.TestIAMPermissions
(
DataSetsTestIAMPermissionsResource
, dataSetsTestIAMPermissions
, DataSetsTestIAMPermissions
, dstipXgafv
, dstipUploadProtocol
, dstipPp
, dstipAccessToken
, dstipUploadType
, dstipPayload
, dstipBearerToken
, dstipResource
, dstipCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type DataSetsTestIAMPermissionsResource =
"v1" :>
CaptureMode "resource" "testIamPermissions" Text :>
QueryParam "$.xgafv" Xgafv :>
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] TestIAMPermissionsRequest :>
Post '[JSON] TestIAMPermissionsResponse
data DataSetsTestIAMPermissions = DataSetsTestIAMPermissions'
{ _dstipXgafv :: !(Maybe Xgafv)
, _dstipUploadProtocol :: !(Maybe Text)
, _dstipPp :: !Bool
, _dstipAccessToken :: !(Maybe Text)
, _dstipUploadType :: !(Maybe Text)
, _dstipPayload :: !TestIAMPermissionsRequest
, _dstipBearerToken :: !(Maybe Text)
, _dstipResource :: !Text
, _dstipCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
dataSetsTestIAMPermissions
:: TestIAMPermissionsRequest
-> Text
-> DataSetsTestIAMPermissions
dataSetsTestIAMPermissions pDstipPayload_ pDstipResource_ =
DataSetsTestIAMPermissions'
{ _dstipXgafv = Nothing
, _dstipUploadProtocol = Nothing
, _dstipPp = True
, _dstipAccessToken = Nothing
, _dstipUploadType = Nothing
, _dstipPayload = pDstipPayload_
, _dstipBearerToken = Nothing
, _dstipResource = pDstipResource_
, _dstipCallback = Nothing
}
dstipXgafv :: Lens' DataSetsTestIAMPermissions (Maybe Xgafv)
dstipXgafv
= lens _dstipXgafv (\ s a -> s{_dstipXgafv = a})
dstipUploadProtocol :: Lens' DataSetsTestIAMPermissions (Maybe Text)
dstipUploadProtocol
= lens _dstipUploadProtocol
(\ s a -> s{_dstipUploadProtocol = a})
dstipPp :: Lens' DataSetsTestIAMPermissions Bool
dstipPp = lens _dstipPp (\ s a -> s{_dstipPp = a})
dstipAccessToken :: Lens' DataSetsTestIAMPermissions (Maybe Text)
dstipAccessToken
= lens _dstipAccessToken
(\ s a -> s{_dstipAccessToken = a})
dstipUploadType :: Lens' DataSetsTestIAMPermissions (Maybe Text)
dstipUploadType
= lens _dstipUploadType
(\ s a -> s{_dstipUploadType = a})
dstipPayload :: Lens' DataSetsTestIAMPermissions TestIAMPermissionsRequest
dstipPayload
= lens _dstipPayload (\ s a -> s{_dstipPayload = a})
dstipBearerToken :: Lens' DataSetsTestIAMPermissions (Maybe Text)
dstipBearerToken
= lens _dstipBearerToken
(\ s a -> s{_dstipBearerToken = a})
dstipResource :: Lens' DataSetsTestIAMPermissions Text
dstipResource
= lens _dstipResource
(\ s a -> s{_dstipResource = a})
dstipCallback :: Lens' DataSetsTestIAMPermissions (Maybe Text)
dstipCallback
= lens _dstipCallback
(\ s a -> s{_dstipCallback = a})
instance GoogleRequest DataSetsTestIAMPermissions
where
type Rs DataSetsTestIAMPermissions =
TestIAMPermissionsResponse
type Scopes DataSetsTestIAMPermissions =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics"]
requestClient DataSetsTestIAMPermissions'{..}
= go _dstipResource _dstipXgafv _dstipUploadProtocol
(Just _dstipPp)
_dstipAccessToken
_dstipUploadType
_dstipBearerToken
_dstipCallback
(Just AltJSON)
_dstipPayload
genomicsService
where go
= buildClient
(Proxy :: Proxy DataSetsTestIAMPermissionsResource)
mempty