module Network.Google.Resource.Genomics.CallSets.Get
(
CallSetsGetResource
, callSetsGet
, CallSetsGet
, csgXgafv
, csgUploadProtocol
, csgPp
, csgAccessToken
, csgUploadType
, csgBearerToken
, csgCallSetId
, csgCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type CallSetsGetResource =
"v1" :>
"callsets" :>
Capture "callSetId" 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] CallSet
data CallSetsGet = CallSetsGet
{ _csgXgafv :: !(Maybe Text)
, _csgUploadProtocol :: !(Maybe Text)
, _csgPp :: !Bool
, _csgAccessToken :: !(Maybe Text)
, _csgUploadType :: !(Maybe Text)
, _csgBearerToken :: !(Maybe Text)
, _csgCallSetId :: !Text
, _csgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
callSetsGet
:: Text
-> CallSetsGet
callSetsGet pCsgCallSetId_ =
CallSetsGet
{ _csgXgafv = Nothing
, _csgUploadProtocol = Nothing
, _csgPp = True
, _csgAccessToken = Nothing
, _csgUploadType = Nothing
, _csgBearerToken = Nothing
, _csgCallSetId = pCsgCallSetId_
, _csgCallback = Nothing
}
csgXgafv :: Lens' CallSetsGet (Maybe Text)
csgXgafv = lens _csgXgafv (\ s a -> s{_csgXgafv = a})
csgUploadProtocol :: Lens' CallSetsGet (Maybe Text)
csgUploadProtocol
= lens _csgUploadProtocol
(\ s a -> s{_csgUploadProtocol = a})
csgPp :: Lens' CallSetsGet Bool
csgPp = lens _csgPp (\ s a -> s{_csgPp = a})
csgAccessToken :: Lens' CallSetsGet (Maybe Text)
csgAccessToken
= lens _csgAccessToken
(\ s a -> s{_csgAccessToken = a})
csgUploadType :: Lens' CallSetsGet (Maybe Text)
csgUploadType
= lens _csgUploadType
(\ s a -> s{_csgUploadType = a})
csgBearerToken :: Lens' CallSetsGet (Maybe Text)
csgBearerToken
= lens _csgBearerToken
(\ s a -> s{_csgBearerToken = a})
csgCallSetId :: Lens' CallSetsGet Text
csgCallSetId
= lens _csgCallSetId (\ s a -> s{_csgCallSetId = a})
csgCallback :: Lens' CallSetsGet (Maybe Text)
csgCallback
= lens _csgCallback (\ s a -> s{_csgCallback = a})
instance GoogleRequest CallSetsGet where
type Rs CallSetsGet = CallSet
requestClient CallSetsGet{..}
= go _csgCallSetId _csgXgafv _csgUploadProtocol
(Just _csgPp)
_csgAccessToken
_csgUploadType
_csgBearerToken
_csgCallback
(Just AltJSON)
genomicsService
where go
= buildClient (Proxy :: Proxy CallSetsGetResource)
mempty