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" 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 :> Get '[JSON] Reference
data ReferencesGet = ReferencesGet
{ _rXgafv :: !(Maybe Text)
, _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 Text)
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
requestClient ReferencesGet{..}
= go _rReferenceId _rXgafv _rUploadProtocol
(Just _rPp)
_rAccessToken
_rUploadType
_rBearerToken
_rCallback
(Just AltJSON)
genomicsService
where go
= buildClient (Proxy :: Proxy ReferencesGetResource)
mempty