module Network.Google.Resource.Genomics.Referencesets.Get
(
ReferencesetsGetResource
, referencesetsGet
, ReferencesetsGet
, rgReferenceSetId
, rgXgafv
, rgUploadProtocol
, rgPp
, rgAccessToken
, rgUploadType
, rgBearerToken
, rgCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type ReferencesetsGetResource =
"v1" :>
"referencesets" :>
Capture "referenceSetId" 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] ReferenceSet
data ReferencesetsGet = ReferencesetsGet'
{ _rgReferenceSetId :: !Text
, _rgXgafv :: !(Maybe Xgafv)
, _rgUploadProtocol :: !(Maybe Text)
, _rgPp :: !Bool
, _rgAccessToken :: !(Maybe Text)
, _rgUploadType :: !(Maybe Text)
, _rgBearerToken :: !(Maybe Text)
, _rgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
referencesetsGet
:: Text
-> ReferencesetsGet
referencesetsGet pRgReferenceSetId_ =
ReferencesetsGet'
{ _rgReferenceSetId = pRgReferenceSetId_
, _rgXgafv = Nothing
, _rgUploadProtocol = Nothing
, _rgPp = True
, _rgAccessToken = Nothing
, _rgUploadType = Nothing
, _rgBearerToken = Nothing
, _rgCallback = Nothing
}
rgReferenceSetId :: Lens' ReferencesetsGet Text
rgReferenceSetId
= lens _rgReferenceSetId
(\ s a -> s{_rgReferenceSetId = a})
rgXgafv :: Lens' ReferencesetsGet (Maybe Xgafv)
rgXgafv = lens _rgXgafv (\ s a -> s{_rgXgafv = a})
rgUploadProtocol :: Lens' ReferencesetsGet (Maybe Text)
rgUploadProtocol
= lens _rgUploadProtocol
(\ s a -> s{_rgUploadProtocol = a})
rgPp :: Lens' ReferencesetsGet Bool
rgPp = lens _rgPp (\ s a -> s{_rgPp = a})
rgAccessToken :: Lens' ReferencesetsGet (Maybe Text)
rgAccessToken
= lens _rgAccessToken
(\ s a -> s{_rgAccessToken = a})
rgUploadType :: Lens' ReferencesetsGet (Maybe Text)
rgUploadType
= lens _rgUploadType (\ s a -> s{_rgUploadType = a})
rgBearerToken :: Lens' ReferencesetsGet (Maybe Text)
rgBearerToken
= lens _rgBearerToken
(\ s a -> s{_rgBearerToken = a})
rgCallback :: Lens' ReferencesetsGet (Maybe Text)
rgCallback
= lens _rgCallback (\ s a -> s{_rgCallback = a})
instance GoogleRequest ReferencesetsGet where
type Rs ReferencesetsGet = ReferenceSet
type Scopes ReferencesetsGet =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics",
"https://www.googleapis.com/auth/genomics.readonly"]
requestClient ReferencesetsGet'{..}
= go _rgReferenceSetId _rgXgafv _rgUploadProtocol
(Just _rgPp)
_rgAccessToken
_rgUploadType
_rgBearerToken
_rgCallback
(Just AltJSON)
genomicsService
where go
= buildClient
(Proxy :: Proxy ReferencesetsGetResource)
mempty