module Network.Google.Resource.Genomics.DataSets.Create
(
DataSetsCreateResource
, dataSetsCreate
, DataSetsCreate
, dscXgafv
, dscUploadProtocol
, dscPp
, dscAccessToken
, dscUploadType
, dscPayload
, dscBearerToken
, dscCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type DataSetsCreateResource =
"v1" :>
"datasets" :>
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] DataSet :> Post '[JSON] DataSet
data DataSetsCreate = DataSetsCreate'
{ _dscXgafv :: !(Maybe Xgafv)
, _dscUploadProtocol :: !(Maybe Text)
, _dscPp :: !Bool
, _dscAccessToken :: !(Maybe Text)
, _dscUploadType :: !(Maybe Text)
, _dscPayload :: !DataSet
, _dscBearerToken :: !(Maybe Text)
, _dscCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
dataSetsCreate
:: DataSet
-> DataSetsCreate
dataSetsCreate pDscPayload_ =
DataSetsCreate'
{ _dscXgafv = Nothing
, _dscUploadProtocol = Nothing
, _dscPp = True
, _dscAccessToken = Nothing
, _dscUploadType = Nothing
, _dscPayload = pDscPayload_
, _dscBearerToken = Nothing
, _dscCallback = Nothing
}
dscXgafv :: Lens' DataSetsCreate (Maybe Xgafv)
dscXgafv = lens _dscXgafv (\ s a -> s{_dscXgafv = a})
dscUploadProtocol :: Lens' DataSetsCreate (Maybe Text)
dscUploadProtocol
= lens _dscUploadProtocol
(\ s a -> s{_dscUploadProtocol = a})
dscPp :: Lens' DataSetsCreate Bool
dscPp = lens _dscPp (\ s a -> s{_dscPp = a})
dscAccessToken :: Lens' DataSetsCreate (Maybe Text)
dscAccessToken
= lens _dscAccessToken
(\ s a -> s{_dscAccessToken = a})
dscUploadType :: Lens' DataSetsCreate (Maybe Text)
dscUploadType
= lens _dscUploadType
(\ s a -> s{_dscUploadType = a})
dscPayload :: Lens' DataSetsCreate DataSet
dscPayload
= lens _dscPayload (\ s a -> s{_dscPayload = a})
dscBearerToken :: Lens' DataSetsCreate (Maybe Text)
dscBearerToken
= lens _dscBearerToken
(\ s a -> s{_dscBearerToken = a})
dscCallback :: Lens' DataSetsCreate (Maybe Text)
dscCallback
= lens _dscCallback (\ s a -> s{_dscCallback = a})
instance GoogleRequest DataSetsCreate where
type Rs DataSetsCreate = DataSet
type Scopes DataSetsCreate =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics"]
requestClient DataSetsCreate'{..}
= go _dscXgafv _dscUploadProtocol (Just _dscPp)
_dscAccessToken
_dscUploadType
_dscBearerToken
_dscCallback
(Just AltJSON)
_dscPayload
genomicsService
where go
= buildClient (Proxy :: Proxy DataSetsCreateResource)
mempty