module Network.Google.Resource.Genomics.VariantSets.Get
(
VariantSetsGetResource
, variantSetsGet
, VariantSetsGet
, vsgXgafv
, vsgUploadProtocol
, vsgPp
, vsgVariantSetId
, vsgAccessToken
, vsgUploadType
, vsgBearerToken
, vsgCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type VariantSetsGetResource =
"v1" :>
"variantsets" :>
Capture "variantSetId" 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] VariantSet
data VariantSetsGet = VariantSetsGet
{ _vsgXgafv :: !(Maybe Text)
, _vsgUploadProtocol :: !(Maybe Text)
, _vsgPp :: !Bool
, _vsgVariantSetId :: !Text
, _vsgAccessToken :: !(Maybe Text)
, _vsgUploadType :: !(Maybe Text)
, _vsgBearerToken :: !(Maybe Text)
, _vsgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
variantSetsGet
:: Text
-> VariantSetsGet
variantSetsGet pVsgVariantSetId_ =
VariantSetsGet
{ _vsgXgafv = Nothing
, _vsgUploadProtocol = Nothing
, _vsgPp = True
, _vsgVariantSetId = pVsgVariantSetId_
, _vsgAccessToken = Nothing
, _vsgUploadType = Nothing
, _vsgBearerToken = Nothing
, _vsgCallback = Nothing
}
vsgXgafv :: Lens' VariantSetsGet (Maybe Text)
vsgXgafv = lens _vsgXgafv (\ s a -> s{_vsgXgafv = a})
vsgUploadProtocol :: Lens' VariantSetsGet (Maybe Text)
vsgUploadProtocol
= lens _vsgUploadProtocol
(\ s a -> s{_vsgUploadProtocol = a})
vsgPp :: Lens' VariantSetsGet Bool
vsgPp = lens _vsgPp (\ s a -> s{_vsgPp = a})
vsgVariantSetId :: Lens' VariantSetsGet Text
vsgVariantSetId
= lens _vsgVariantSetId
(\ s a -> s{_vsgVariantSetId = a})
vsgAccessToken :: Lens' VariantSetsGet (Maybe Text)
vsgAccessToken
= lens _vsgAccessToken
(\ s a -> s{_vsgAccessToken = a})
vsgUploadType :: Lens' VariantSetsGet (Maybe Text)
vsgUploadType
= lens _vsgUploadType
(\ s a -> s{_vsgUploadType = a})
vsgBearerToken :: Lens' VariantSetsGet (Maybe Text)
vsgBearerToken
= lens _vsgBearerToken
(\ s a -> s{_vsgBearerToken = a})
vsgCallback :: Lens' VariantSetsGet (Maybe Text)
vsgCallback
= lens _vsgCallback (\ s a -> s{_vsgCallback = a})
instance GoogleRequest VariantSetsGet where
type Rs VariantSetsGet = VariantSet
requestClient VariantSetsGet{..}
= go _vsgVariantSetId _vsgXgafv _vsgUploadProtocol
(Just _vsgPp)
_vsgAccessToken
_vsgUploadType
_vsgBearerToken
_vsgCallback
(Just AltJSON)
genomicsService
where go
= buildClient (Proxy :: Proxy VariantSetsGetResource)
mempty