module Network.Google.Resource.Genomics.DataSets.Patch
(
DataSetsPatchResource
, dataSetsPatch
, DataSetsPatch
, dspXgafv
, dspUploadProtocol
, dspUpdateMask
, dspPp
, dspAccessToken
, dspUploadType
, dspPayload
, dspBearerToken
, dspDataSetId
, dspCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type DataSetsPatchResource =
"v1" :>
"datasets" :>
Capture "datasetId" Text :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "updateMask" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] DataSet :> Patch '[JSON] DataSet
data DataSetsPatch = DataSetsPatch
{ _dspXgafv :: !(Maybe Text)
, _dspUploadProtocol :: !(Maybe Text)
, _dspUpdateMask :: !(Maybe Text)
, _dspPp :: !Bool
, _dspAccessToken :: !(Maybe Text)
, _dspUploadType :: !(Maybe Text)
, _dspPayload :: !DataSet
, _dspBearerToken :: !(Maybe Text)
, _dspDataSetId :: !Text
, _dspCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
dataSetsPatch
:: DataSet
-> Text
-> DataSetsPatch
dataSetsPatch pDspPayload_ pDspDataSetId_ =
DataSetsPatch
{ _dspXgafv = Nothing
, _dspUploadProtocol = Nothing
, _dspUpdateMask = Nothing
, _dspPp = True
, _dspAccessToken = Nothing
, _dspUploadType = Nothing
, _dspPayload = pDspPayload_
, _dspBearerToken = Nothing
, _dspDataSetId = pDspDataSetId_
, _dspCallback = Nothing
}
dspXgafv :: Lens' DataSetsPatch (Maybe Text)
dspXgafv = lens _dspXgafv (\ s a -> s{_dspXgafv = a})
dspUploadProtocol :: Lens' DataSetsPatch (Maybe Text)
dspUploadProtocol
= lens _dspUploadProtocol
(\ s a -> s{_dspUploadProtocol = a})
dspUpdateMask :: Lens' DataSetsPatch (Maybe Text)
dspUpdateMask
= lens _dspUpdateMask
(\ s a -> s{_dspUpdateMask = a})
dspPp :: Lens' DataSetsPatch Bool
dspPp = lens _dspPp (\ s a -> s{_dspPp = a})
dspAccessToken :: Lens' DataSetsPatch (Maybe Text)
dspAccessToken
= lens _dspAccessToken
(\ s a -> s{_dspAccessToken = a})
dspUploadType :: Lens' DataSetsPatch (Maybe Text)
dspUploadType
= lens _dspUploadType
(\ s a -> s{_dspUploadType = a})
dspPayload :: Lens' DataSetsPatch DataSet
dspPayload
= lens _dspPayload (\ s a -> s{_dspPayload = a})
dspBearerToken :: Lens' DataSetsPatch (Maybe Text)
dspBearerToken
= lens _dspBearerToken
(\ s a -> s{_dspBearerToken = a})
dspDataSetId :: Lens' DataSetsPatch Text
dspDataSetId
= lens _dspDataSetId (\ s a -> s{_dspDataSetId = a})
dspCallback :: Lens' DataSetsPatch (Maybe Text)
dspCallback
= lens _dspCallback (\ s a -> s{_dspCallback = a})
instance GoogleRequest DataSetsPatch where
type Rs DataSetsPatch = DataSet
requestClient DataSetsPatch{..}
= go _dspDataSetId _dspXgafv _dspUploadProtocol
_dspUpdateMask
(Just _dspPp)
_dspAccessToken
_dspUploadType
_dspBearerToken
_dspCallback
(Just AltJSON)
_dspPayload
genomicsService
where go
= buildClient (Proxy :: Proxy DataSetsPatchResource)
mempty