module Network.Google.Resource.CloudTrace.GetDiscovery
(
GetDiscoveryResource
, getDiscovery
, GetDiscovery
, gdXgafv
, gdArgs
, gdUploadProtocol
, gdPp
, gdAccessToken
, gdFormat
, gdUploadType
, gdBearerToken
, gdVersion
, gdLabels
, gdCallback
) where
import Network.Google.CloudTrace.Types
import Network.Google.Prelude
type GetDiscoveryResource =
"v1" :>
"discovery" :>
QueryParam "$.xgafv" Text :>
QueryParams "args" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "format" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "version" Text :>
QueryParams "labels" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] ()
data GetDiscovery = GetDiscovery
{ _gdXgafv :: !(Maybe Text)
, _gdArgs :: !(Maybe [Text])
, _gdUploadProtocol :: !(Maybe Text)
, _gdPp :: !Bool
, _gdAccessToken :: !(Maybe Text)
, _gdFormat :: !(Maybe Text)
, _gdUploadType :: !(Maybe Text)
, _gdBearerToken :: !(Maybe Text)
, _gdVersion :: !(Maybe Text)
, _gdLabels :: !(Maybe [Text])
, _gdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
getDiscovery
:: GetDiscovery
getDiscovery =
GetDiscovery
{ _gdXgafv = Nothing
, _gdArgs = Nothing
, _gdUploadProtocol = Nothing
, _gdPp = True
, _gdAccessToken = Nothing
, _gdFormat = Nothing
, _gdUploadType = Nothing
, _gdBearerToken = Nothing
, _gdVersion = Nothing
, _gdLabels = Nothing
, _gdCallback = Nothing
}
gdXgafv :: Lens' GetDiscovery (Maybe Text)
gdXgafv = lens _gdXgafv (\ s a -> s{_gdXgafv = a})
gdArgs :: Lens' GetDiscovery [Text]
gdArgs
= lens _gdArgs (\ s a -> s{_gdArgs = a}) . _Default .
_Coerce
gdUploadProtocol :: Lens' GetDiscovery (Maybe Text)
gdUploadProtocol
= lens _gdUploadProtocol
(\ s a -> s{_gdUploadProtocol = a})
gdPp :: Lens' GetDiscovery Bool
gdPp = lens _gdPp (\ s a -> s{_gdPp = a})
gdAccessToken :: Lens' GetDiscovery (Maybe Text)
gdAccessToken
= lens _gdAccessToken
(\ s a -> s{_gdAccessToken = a})
gdFormat :: Lens' GetDiscovery (Maybe Text)
gdFormat = lens _gdFormat (\ s a -> s{_gdFormat = a})
gdUploadType :: Lens' GetDiscovery (Maybe Text)
gdUploadType
= lens _gdUploadType (\ s a -> s{_gdUploadType = a})
gdBearerToken :: Lens' GetDiscovery (Maybe Text)
gdBearerToken
= lens _gdBearerToken
(\ s a -> s{_gdBearerToken = a})
gdVersion :: Lens' GetDiscovery (Maybe Text)
gdVersion
= lens _gdVersion (\ s a -> s{_gdVersion = a})
gdLabels :: Lens' GetDiscovery [Text]
gdLabels
= lens _gdLabels (\ s a -> s{_gdLabels = a}) .
_Default
. _Coerce
gdCallback :: Lens' GetDiscovery (Maybe Text)
gdCallback
= lens _gdCallback (\ s a -> s{_gdCallback = a})
instance GoogleRequest GetDiscovery where
type Rs GetDiscovery = ()
requestClient GetDiscovery{..}
= go _gdXgafv (_gdArgs ^. _Default) _gdUploadProtocol
(Just _gdPp)
_gdAccessToken
_gdFormat
_gdUploadType
_gdBearerToken
_gdVersion
(_gdLabels ^. _Default)
_gdCallback
(Just AltJSON)
cloudTraceService
where go
= buildClient (Proxy :: Proxy GetDiscoveryResource)
mempty