module Network.Google.Resource.Genomics.DataSets.Get
(
DataSetsGetResource
, dataSetsGet
, DataSetsGet
, dsgXgafv
, dsgUploadProtocol
, dsgPp
, dsgAccessToken
, dsgUploadType
, dsgBearerToken
, dsgDataSetId
, dsgCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type DataSetsGetResource =
"v1" :>
"datasets" :>
Capture "datasetId" Text :>
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 :> Get '[JSON] DataSet
data DataSetsGet = DataSetsGet'
{ _dsgXgafv :: !(Maybe Xgafv)
, _dsgUploadProtocol :: !(Maybe Text)
, _dsgPp :: !Bool
, _dsgAccessToken :: !(Maybe Text)
, _dsgUploadType :: !(Maybe Text)
, _dsgBearerToken :: !(Maybe Text)
, _dsgDataSetId :: !Text
, _dsgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
dataSetsGet
:: Text
-> DataSetsGet
dataSetsGet pDsgDataSetId_ =
DataSetsGet'
{ _dsgXgafv = Nothing
, _dsgUploadProtocol = Nothing
, _dsgPp = True
, _dsgAccessToken = Nothing
, _dsgUploadType = Nothing
, _dsgBearerToken = Nothing
, _dsgDataSetId = pDsgDataSetId_
, _dsgCallback = Nothing
}
dsgXgafv :: Lens' DataSetsGet (Maybe Xgafv)
dsgXgafv = lens _dsgXgafv (\ s a -> s{_dsgXgafv = a})
dsgUploadProtocol :: Lens' DataSetsGet (Maybe Text)
dsgUploadProtocol
= lens _dsgUploadProtocol
(\ s a -> s{_dsgUploadProtocol = a})
dsgPp :: Lens' DataSetsGet Bool
dsgPp = lens _dsgPp (\ s a -> s{_dsgPp = a})
dsgAccessToken :: Lens' DataSetsGet (Maybe Text)
dsgAccessToken
= lens _dsgAccessToken
(\ s a -> s{_dsgAccessToken = a})
dsgUploadType :: Lens' DataSetsGet (Maybe Text)
dsgUploadType
= lens _dsgUploadType
(\ s a -> s{_dsgUploadType = a})
dsgBearerToken :: Lens' DataSetsGet (Maybe Text)
dsgBearerToken
= lens _dsgBearerToken
(\ s a -> s{_dsgBearerToken = a})
dsgDataSetId :: Lens' DataSetsGet Text
dsgDataSetId
= lens _dsgDataSetId (\ s a -> s{_dsgDataSetId = a})
dsgCallback :: Lens' DataSetsGet (Maybe Text)
dsgCallback
= lens _dsgCallback (\ s a -> s{_dsgCallback = a})
instance GoogleRequest DataSetsGet where
type Rs DataSetsGet = DataSet
type Scopes DataSetsGet =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics",
"https://www.googleapis.com/auth/genomics.readonly"]
requestClient DataSetsGet'{..}
= go _dsgDataSetId _dsgXgafv _dsgUploadProtocol
(Just _dsgPp)
_dsgAccessToken
_dsgUploadType
_dsgBearerToken
_dsgCallback
(Just AltJSON)
genomicsService
where go
= buildClient (Proxy :: Proxy DataSetsGetResource)
mempty