module Network.Google.Resource.Genomics.DataSets.Undelete
(
DataSetsUndeleteResource
, dataSetsUndelete
, DataSetsUndelete
, dsuXgafv
, dsuUploadProtocol
, dsuPp
, dsuAccessToken
, dsuUploadType
, dsuPayload
, dsuBearerToken
, dsuDataSetId
, dsuCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type DataSetsUndeleteResource =
"v1" :>
"datasets" :>
CaptureMode "datasetId" "undelete" Text :>
QueryParam "$.xgafv" Text :>
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] UndeleteDataSetRequest :>
Post '[JSON] DataSet
data DataSetsUndelete = DataSetsUndelete
{ _dsuXgafv :: !(Maybe Text)
, _dsuUploadProtocol :: !(Maybe Text)
, _dsuPp :: !Bool
, _dsuAccessToken :: !(Maybe Text)
, _dsuUploadType :: !(Maybe Text)
, _dsuPayload :: !UndeleteDataSetRequest
, _dsuBearerToken :: !(Maybe Text)
, _dsuDataSetId :: !Text
, _dsuCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
dataSetsUndelete
:: UndeleteDataSetRequest
-> Text
-> DataSetsUndelete
dataSetsUndelete pDsuPayload_ pDsuDataSetId_ =
DataSetsUndelete
{ _dsuXgafv = Nothing
, _dsuUploadProtocol = Nothing
, _dsuPp = True
, _dsuAccessToken = Nothing
, _dsuUploadType = Nothing
, _dsuPayload = pDsuPayload_
, _dsuBearerToken = Nothing
, _dsuDataSetId = pDsuDataSetId_
, _dsuCallback = Nothing
}
dsuXgafv :: Lens' DataSetsUndelete (Maybe Text)
dsuXgafv = lens _dsuXgafv (\ s a -> s{_dsuXgafv = a})
dsuUploadProtocol :: Lens' DataSetsUndelete (Maybe Text)
dsuUploadProtocol
= lens _dsuUploadProtocol
(\ s a -> s{_dsuUploadProtocol = a})
dsuPp :: Lens' DataSetsUndelete Bool
dsuPp = lens _dsuPp (\ s a -> s{_dsuPp = a})
dsuAccessToken :: Lens' DataSetsUndelete (Maybe Text)
dsuAccessToken
= lens _dsuAccessToken
(\ s a -> s{_dsuAccessToken = a})
dsuUploadType :: Lens' DataSetsUndelete (Maybe Text)
dsuUploadType
= lens _dsuUploadType
(\ s a -> s{_dsuUploadType = a})
dsuPayload :: Lens' DataSetsUndelete UndeleteDataSetRequest
dsuPayload
= lens _dsuPayload (\ s a -> s{_dsuPayload = a})
dsuBearerToken :: Lens' DataSetsUndelete (Maybe Text)
dsuBearerToken
= lens _dsuBearerToken
(\ s a -> s{_dsuBearerToken = a})
dsuDataSetId :: Lens' DataSetsUndelete Text
dsuDataSetId
= lens _dsuDataSetId (\ s a -> s{_dsuDataSetId = a})
dsuCallback :: Lens' DataSetsUndelete (Maybe Text)
dsuCallback
= lens _dsuCallback (\ s a -> s{_dsuCallback = a})
instance GoogleRequest DataSetsUndelete where
type Rs DataSetsUndelete = DataSet
requestClient DataSetsUndelete{..}
= go _dsuDataSetId _dsuXgafv _dsuUploadProtocol
(Just _dsuPp)
_dsuAccessToken
_dsuUploadType
_dsuBearerToken
_dsuCallback
(Just AltJSON)
_dsuPayload
genomicsService
where go
= buildClient
(Proxy :: Proxy DataSetsUndeleteResource)
mempty