module Network.Google.Resource.Genomics.CallSets.Patch
(
CallSetsPatchResource
, callSetsPatch
, CallSetsPatch
, cspXgafv
, cspUploadProtocol
, cspUpdateMask
, cspPp
, cspAccessToken
, cspUploadType
, cspPayload
, cspBearerToken
, cspCallSetId
, cspCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type CallSetsPatchResource =
"v1" :>
"callsets" :>
Capture "callSetId" 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] CallSet :> Patch '[JSON] CallSet
data CallSetsPatch = CallSetsPatch
{ _cspXgafv :: !(Maybe Text)
, _cspUploadProtocol :: !(Maybe Text)
, _cspUpdateMask :: !(Maybe Text)
, _cspPp :: !Bool
, _cspAccessToken :: !(Maybe Text)
, _cspUploadType :: !(Maybe Text)
, _cspPayload :: !CallSet
, _cspBearerToken :: !(Maybe Text)
, _cspCallSetId :: !Text
, _cspCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
callSetsPatch
:: CallSet
-> Text
-> CallSetsPatch
callSetsPatch pCspPayload_ pCspCallSetId_ =
CallSetsPatch
{ _cspXgafv = Nothing
, _cspUploadProtocol = Nothing
, _cspUpdateMask = Nothing
, _cspPp = True
, _cspAccessToken = Nothing
, _cspUploadType = Nothing
, _cspPayload = pCspPayload_
, _cspBearerToken = Nothing
, _cspCallSetId = pCspCallSetId_
, _cspCallback = Nothing
}
cspXgafv :: Lens' CallSetsPatch (Maybe Text)
cspXgafv = lens _cspXgafv (\ s a -> s{_cspXgafv = a})
cspUploadProtocol :: Lens' CallSetsPatch (Maybe Text)
cspUploadProtocol
= lens _cspUploadProtocol
(\ s a -> s{_cspUploadProtocol = a})
cspUpdateMask :: Lens' CallSetsPatch (Maybe Text)
cspUpdateMask
= lens _cspUpdateMask
(\ s a -> s{_cspUpdateMask = a})
cspPp :: Lens' CallSetsPatch Bool
cspPp = lens _cspPp (\ s a -> s{_cspPp = a})
cspAccessToken :: Lens' CallSetsPatch (Maybe Text)
cspAccessToken
= lens _cspAccessToken
(\ s a -> s{_cspAccessToken = a})
cspUploadType :: Lens' CallSetsPatch (Maybe Text)
cspUploadType
= lens _cspUploadType
(\ s a -> s{_cspUploadType = a})
cspPayload :: Lens' CallSetsPatch CallSet
cspPayload
= lens _cspPayload (\ s a -> s{_cspPayload = a})
cspBearerToken :: Lens' CallSetsPatch (Maybe Text)
cspBearerToken
= lens _cspBearerToken
(\ s a -> s{_cspBearerToken = a})
cspCallSetId :: Lens' CallSetsPatch Text
cspCallSetId
= lens _cspCallSetId (\ s a -> s{_cspCallSetId = a})
cspCallback :: Lens' CallSetsPatch (Maybe Text)
cspCallback
= lens _cspCallback (\ s a -> s{_cspCallback = a})
instance GoogleRequest CallSetsPatch where
type Rs CallSetsPatch = CallSet
requestClient CallSetsPatch{..}
= go _cspCallSetId _cspXgafv _cspUploadProtocol
_cspUpdateMask
(Just _cspPp)
_cspAccessToken
_cspUploadType
_cspBearerToken
_cspCallback
(Just AltJSON)
_cspPayload
genomicsService
where go
= buildClient (Proxy :: Proxy CallSetsPatchResource)
mempty