module Network.Google.Resource.Genomics.DataSets.SetIAMPolicy
(
DataSetsSetIAMPolicyResource
, dataSetsSetIAMPolicy
, DataSetsSetIAMPolicy
, dssipXgafv
, dssipUploadProtocol
, dssipPp
, dssipAccessToken
, dssipUploadType
, dssipPayload
, dssipBearerToken
, dssipResource
, dssipCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type DataSetsSetIAMPolicyResource =
"v1" :>
CaptureMode "resource" "setIamPolicy" 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] SetIAMPolicyRequest :>
Post '[JSON] Policy
data DataSetsSetIAMPolicy = DataSetsSetIAMPolicy
{ _dssipXgafv :: !(Maybe Text)
, _dssipUploadProtocol :: !(Maybe Text)
, _dssipPp :: !Bool
, _dssipAccessToken :: !(Maybe Text)
, _dssipUploadType :: !(Maybe Text)
, _dssipPayload :: !SetIAMPolicyRequest
, _dssipBearerToken :: !(Maybe Text)
, _dssipResource :: !Text
, _dssipCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
dataSetsSetIAMPolicy
:: SetIAMPolicyRequest
-> Text
-> DataSetsSetIAMPolicy
dataSetsSetIAMPolicy pDssipPayload_ pDssipResource_ =
DataSetsSetIAMPolicy
{ _dssipXgafv = Nothing
, _dssipUploadProtocol = Nothing
, _dssipPp = True
, _dssipAccessToken = Nothing
, _dssipUploadType = Nothing
, _dssipPayload = pDssipPayload_
, _dssipBearerToken = Nothing
, _dssipResource = pDssipResource_
, _dssipCallback = Nothing
}
dssipXgafv :: Lens' DataSetsSetIAMPolicy (Maybe Text)
dssipXgafv
= lens _dssipXgafv (\ s a -> s{_dssipXgafv = a})
dssipUploadProtocol :: Lens' DataSetsSetIAMPolicy (Maybe Text)
dssipUploadProtocol
= lens _dssipUploadProtocol
(\ s a -> s{_dssipUploadProtocol = a})
dssipPp :: Lens' DataSetsSetIAMPolicy Bool
dssipPp = lens _dssipPp (\ s a -> s{_dssipPp = a})
dssipAccessToken :: Lens' DataSetsSetIAMPolicy (Maybe Text)
dssipAccessToken
= lens _dssipAccessToken
(\ s a -> s{_dssipAccessToken = a})
dssipUploadType :: Lens' DataSetsSetIAMPolicy (Maybe Text)
dssipUploadType
= lens _dssipUploadType
(\ s a -> s{_dssipUploadType = a})
dssipPayload :: Lens' DataSetsSetIAMPolicy SetIAMPolicyRequest
dssipPayload
= lens _dssipPayload (\ s a -> s{_dssipPayload = a})
dssipBearerToken :: Lens' DataSetsSetIAMPolicy (Maybe Text)
dssipBearerToken
= lens _dssipBearerToken
(\ s a -> s{_dssipBearerToken = a})
dssipResource :: Lens' DataSetsSetIAMPolicy Text
dssipResource
= lens _dssipResource
(\ s a -> s{_dssipResource = a})
dssipCallback :: Lens' DataSetsSetIAMPolicy (Maybe Text)
dssipCallback
= lens _dssipCallback
(\ s a -> s{_dssipCallback = a})
instance GoogleRequest DataSetsSetIAMPolicy where
type Rs DataSetsSetIAMPolicy = Policy
requestClient DataSetsSetIAMPolicy{..}
= go _dssipResource _dssipXgafv _dssipUploadProtocol
(Just _dssipPp)
_dssipAccessToken
_dssipUploadType
_dssipBearerToken
_dssipCallback
(Just AltJSON)
_dssipPayload
genomicsService
where go
= buildClient
(Proxy :: Proxy DataSetsSetIAMPolicyResource)
mempty