module Network.Google.Resource.Genomics.References.Get
(
ReferencesGetResource
, referencesGet
, ReferencesGet
, rXgafv
, rUploadProtocol
, rPp
, rAccessToken
, rUploadType
, rReferenceId
, rBearerToken
, rCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type ReferencesGetResource =
"v1" :>
"references" :>
Capture "referenceId" 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] Reference
data ReferencesGet = ReferencesGet'
{ _rXgafv :: !(Maybe Xgafv)
, _rUploadProtocol :: !(Maybe Text)
, _rPp :: !Bool
, _rAccessToken :: !(Maybe Text)
, _rUploadType :: !(Maybe Text)
, _rReferenceId :: !Text
, _rBearerToken :: !(Maybe Text)
, _rCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
referencesGet
:: Text
-> ReferencesGet
referencesGet pRReferenceId_ =
ReferencesGet'
{ _rXgafv = Nothing
, _rUploadProtocol = Nothing
, _rPp = True
, _rAccessToken = Nothing
, _rUploadType = Nothing
, _rReferenceId = pRReferenceId_
, _rBearerToken = Nothing
, _rCallback = Nothing
}
rXgafv :: Lens' ReferencesGet (Maybe Xgafv)
rXgafv = lens _rXgafv (\ s a -> s{_rXgafv = a})
rUploadProtocol :: Lens' ReferencesGet (Maybe Text)
rUploadProtocol
= lens _rUploadProtocol
(\ s a -> s{_rUploadProtocol = a})
rPp :: Lens' ReferencesGet Bool
rPp = lens _rPp (\ s a -> s{_rPp = a})
rAccessToken :: Lens' ReferencesGet (Maybe Text)
rAccessToken
= lens _rAccessToken (\ s a -> s{_rAccessToken = a})
rUploadType :: Lens' ReferencesGet (Maybe Text)
rUploadType
= lens _rUploadType (\ s a -> s{_rUploadType = a})
rReferenceId :: Lens' ReferencesGet Text
rReferenceId
= lens _rReferenceId (\ s a -> s{_rReferenceId = a})
rBearerToken :: Lens' ReferencesGet (Maybe Text)
rBearerToken
= lens _rBearerToken (\ s a -> s{_rBearerToken = a})
rCallback :: Lens' ReferencesGet (Maybe Text)
rCallback
= lens _rCallback (\ s a -> s{_rCallback = a})
instance GoogleRequest ReferencesGet where
type Rs ReferencesGet = Reference
type Scopes ReferencesGet =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/genomics",
"https://www.googleapis.com/auth/genomics.readonly"]
requestClient ReferencesGet'{..}
= go _rReferenceId _rXgafv _rUploadProtocol
(Just _rPp)
_rAccessToken
_rUploadType
_rBearerToken
_rCallback
(Just AltJSON)
genomicsService
where go
= buildClient (Proxy :: Proxy ReferencesGetResource)
mempty