module Network.Google.Resource.Genomics.ReadGroupSets.Patch
(
ReadGroupSetsPatchResource
, readGroupSetsPatch
, ReadGroupSetsPatch
, rgspXgafv
, rgspReadGroupSetId
, rgspUploadProtocol
, rgspUpdateMask
, rgspPp
, rgspAccessToken
, rgspUploadType
, rgspPayload
, rgspBearerToken
, rgspCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type ReadGroupSetsPatchResource =
"v1" :>
"readgroupsets" :>
Capture "readGroupSetId" 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] ReadGroupSet :>
Patch '[JSON] ReadGroupSet
data ReadGroupSetsPatch = ReadGroupSetsPatch
{ _rgspXgafv :: !(Maybe Text)
, _rgspReadGroupSetId :: !Text
, _rgspUploadProtocol :: !(Maybe Text)
, _rgspUpdateMask :: !(Maybe Text)
, _rgspPp :: !Bool
, _rgspAccessToken :: !(Maybe Text)
, _rgspUploadType :: !(Maybe Text)
, _rgspPayload :: !ReadGroupSet
, _rgspBearerToken :: !(Maybe Text)
, _rgspCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
readGroupSetsPatch
:: Text
-> ReadGroupSet
-> ReadGroupSetsPatch
readGroupSetsPatch pRgspReadGroupSetId_ pRgspPayload_ =
ReadGroupSetsPatch
{ _rgspXgafv = Nothing
, _rgspReadGroupSetId = pRgspReadGroupSetId_
, _rgspUploadProtocol = Nothing
, _rgspUpdateMask = Nothing
, _rgspPp = True
, _rgspAccessToken = Nothing
, _rgspUploadType = Nothing
, _rgspPayload = pRgspPayload_
, _rgspBearerToken = Nothing
, _rgspCallback = Nothing
}
rgspXgafv :: Lens' ReadGroupSetsPatch (Maybe Text)
rgspXgafv
= lens _rgspXgafv (\ s a -> s{_rgspXgafv = a})
rgspReadGroupSetId :: Lens' ReadGroupSetsPatch Text
rgspReadGroupSetId
= lens _rgspReadGroupSetId
(\ s a -> s{_rgspReadGroupSetId = a})
rgspUploadProtocol :: Lens' ReadGroupSetsPatch (Maybe Text)
rgspUploadProtocol
= lens _rgspUploadProtocol
(\ s a -> s{_rgspUploadProtocol = a})
rgspUpdateMask :: Lens' ReadGroupSetsPatch (Maybe Text)
rgspUpdateMask
= lens _rgspUpdateMask
(\ s a -> s{_rgspUpdateMask = a})
rgspPp :: Lens' ReadGroupSetsPatch Bool
rgspPp = lens _rgspPp (\ s a -> s{_rgspPp = a})
rgspAccessToken :: Lens' ReadGroupSetsPatch (Maybe Text)
rgspAccessToken
= lens _rgspAccessToken
(\ s a -> s{_rgspAccessToken = a})
rgspUploadType :: Lens' ReadGroupSetsPatch (Maybe Text)
rgspUploadType
= lens _rgspUploadType
(\ s a -> s{_rgspUploadType = a})
rgspPayload :: Lens' ReadGroupSetsPatch ReadGroupSet
rgspPayload
= lens _rgspPayload (\ s a -> s{_rgspPayload = a})
rgspBearerToken :: Lens' ReadGroupSetsPatch (Maybe Text)
rgspBearerToken
= lens _rgspBearerToken
(\ s a -> s{_rgspBearerToken = a})
rgspCallback :: Lens' ReadGroupSetsPatch (Maybe Text)
rgspCallback
= lens _rgspCallback (\ s a -> s{_rgspCallback = a})
instance GoogleRequest ReadGroupSetsPatch where
type Rs ReadGroupSetsPatch = ReadGroupSet
requestClient ReadGroupSetsPatch{..}
= go _rgspReadGroupSetId _rgspXgafv
_rgspUploadProtocol
_rgspUpdateMask
(Just _rgspPp)
_rgspAccessToken
_rgspUploadType
_rgspBearerToken
_rgspCallback
(Just AltJSON)
_rgspPayload
genomicsService
where go
= buildClient
(Proxy :: Proxy ReadGroupSetsPatchResource)
mempty