module Network.Google.Resource.Genomics.CallSets.Create
(
CallSetsCreateResource
, callSetsCreate
, CallSetsCreate
, cscXgafv
, cscUploadProtocol
, cscPp
, cscAccessToken
, cscUploadType
, cscPayload
, cscBearerToken
, cscCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type CallSetsCreateResource =
"v1" :>
"callsets" :>
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] CallSet :> Post '[JSON] CallSet
data CallSetsCreate = CallSetsCreate'
{ _cscXgafv :: !(Maybe Xgafv)
, _cscUploadProtocol :: !(Maybe Text)
, _cscPp :: !Bool
, _cscAccessToken :: !(Maybe Text)
, _cscUploadType :: !(Maybe Text)
, _cscPayload :: !CallSet
, _cscBearerToken :: !(Maybe Text)
, _cscCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
callSetsCreate
:: CallSet
-> CallSetsCreate
callSetsCreate pCscPayload_ =
CallSetsCreate'
{ _cscXgafv = Nothing
, _cscUploadProtocol = Nothing
, _cscPp = True
, _cscAccessToken = Nothing
, _cscUploadType = Nothing
, _cscPayload = pCscPayload_
, _cscBearerToken = Nothing
, _cscCallback = Nothing
}
cscXgafv :: Lens' CallSetsCreate (Maybe Xgafv)
cscXgafv = lens _cscXgafv (\ s a -> s{_cscXgafv = a})
cscUploadProtocol :: Lens' CallSetsCreate (Maybe Text)
cscUploadProtocol
= lens _cscUploadProtocol
(\ s a -> s{_cscUploadProtocol = a})
cscPp :: Lens' CallSetsCreate Bool
cscPp = lens _cscPp (\ s a -> s{_cscPp = a})
cscAccessToken :: Lens' CallSetsCreate (Maybe Text)
cscAccessToken
= lens _cscAccessToken
(\ s a -> s{_cscAccessToken = a})
cscUploadType :: Lens' CallSetsCreate (Maybe Text)
cscUploadType
= lens _cscUploadType
(\ s a -> s{_cscUploadType = a})
cscPayload :: Lens' CallSetsCreate CallSet
cscPayload
= lens _cscPayload (\ s a -> s{_cscPayload = a})
cscBearerToken :: Lens' CallSetsCreate (Maybe Text)
cscBearerToken
= lens _cscBearerToken
(\ s a -> s{_cscBearerToken = a})
cscCallback :: Lens' CallSetsCreate (Maybe Text)
cscCallback
= lens _cscCallback (\ s a -> s{_cscCallback = a})
instance GoogleRequest CallSetsCreate where
type Rs CallSetsCreate = CallSet
type Scopes CallSetsCreate =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics"]
requestClient CallSetsCreate'{..}
= go _cscXgafv _cscUploadProtocol (Just _cscPp)
_cscAccessToken
_cscUploadType
_cscBearerToken
_cscCallback
(Just AltJSON)
_cscPayload
genomicsService
where go
= buildClient (Proxy :: Proxy CallSetsCreateResource)
mempty