module Network.Google.Resource.Genomics.ReadGroupSets.Get
(
ReadGroupSetsGetResource
, readGroupSetsGet
, ReadGroupSetsGet
, rgsgXgafv
, rgsgReadGroupSetId
, rgsgUploadProtocol
, rgsgPp
, rgsgAccessToken
, rgsgUploadType
, rgsgBearerToken
, rgsgCallback
) where
import Network.Google.Genomics.Types
import Network.Google.Prelude
type ReadGroupSetsGetResource =
"v1" :>
"readgroupsets" :>
Capture "readGroupSetId" 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] ReadGroupSet
data ReadGroupSetsGet = ReadGroupSetsGet
{ _rgsgXgafv :: !(Maybe Text)
, _rgsgReadGroupSetId :: !Text
, _rgsgUploadProtocol :: !(Maybe Text)
, _rgsgPp :: !Bool
, _rgsgAccessToken :: !(Maybe Text)
, _rgsgUploadType :: !(Maybe Text)
, _rgsgBearerToken :: !(Maybe Text)
, _rgsgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
readGroupSetsGet
:: Text
-> ReadGroupSetsGet
readGroupSetsGet pRgsgReadGroupSetId_ =
ReadGroupSetsGet
{ _rgsgXgafv = Nothing
, _rgsgReadGroupSetId = pRgsgReadGroupSetId_
, _rgsgUploadProtocol = Nothing
, _rgsgPp = True
, _rgsgAccessToken = Nothing
, _rgsgUploadType = Nothing
, _rgsgBearerToken = Nothing
, _rgsgCallback = Nothing
}
rgsgXgafv :: Lens' ReadGroupSetsGet (Maybe Text)
rgsgXgafv
= lens _rgsgXgafv (\ s a -> s{_rgsgXgafv = a})
rgsgReadGroupSetId :: Lens' ReadGroupSetsGet Text
rgsgReadGroupSetId
= lens _rgsgReadGroupSetId
(\ s a -> s{_rgsgReadGroupSetId = a})
rgsgUploadProtocol :: Lens' ReadGroupSetsGet (Maybe Text)
rgsgUploadProtocol
= lens _rgsgUploadProtocol
(\ s a -> s{_rgsgUploadProtocol = a})
rgsgPp :: Lens' ReadGroupSetsGet Bool
rgsgPp = lens _rgsgPp (\ s a -> s{_rgsgPp = a})
rgsgAccessToken :: Lens' ReadGroupSetsGet (Maybe Text)
rgsgAccessToken
= lens _rgsgAccessToken
(\ s a -> s{_rgsgAccessToken = a})
rgsgUploadType :: Lens' ReadGroupSetsGet (Maybe Text)
rgsgUploadType
= lens _rgsgUploadType
(\ s a -> s{_rgsgUploadType = a})
rgsgBearerToken :: Lens' ReadGroupSetsGet (Maybe Text)
rgsgBearerToken
= lens _rgsgBearerToken
(\ s a -> s{_rgsgBearerToken = a})
rgsgCallback :: Lens' ReadGroupSetsGet (Maybe Text)
rgsgCallback
= lens _rgsgCallback (\ s a -> s{_rgsgCallback = a})
instance GoogleRequest ReadGroupSetsGet where
type Rs ReadGroupSetsGet = ReadGroupSet
requestClient ReadGroupSetsGet{..}
= go _rgsgReadGroupSetId _rgsgXgafv
_rgsgUploadProtocol
(Just _rgsgPp)
_rgsgAccessToken
_rgsgUploadType
_rgsgBearerToken
_rgsgCallback
(Just AltJSON)
genomicsService
where go
= buildClient
(Proxy :: Proxy ReadGroupSetsGetResource)
mempty