module Network.Google.Resource.Ml.Projects.GetConfig
(
ProjectsGetConfigResource
, projectsGetConfig
, ProjectsGetConfig
, pgcXgafv
, pgcUploadProtocol
, pgcPp
, pgcAccessToken
, pgcUploadType
, pgcBearerToken
, pgcName
, pgcCallback
) where
import Network.Google.MachineLearning.Types
import Network.Google.Prelude
type ProjectsGetConfigResource =
"v1beta1" :>
CaptureMode "name" "getConfig" Text :>
QueryParam "$.xgafv" Xgafv :>
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] GoogleCloudMlV1beta1__GetConfigResponse
data ProjectsGetConfig = ProjectsGetConfig'
{ _pgcXgafv :: !(Maybe Xgafv)
, _pgcUploadProtocol :: !(Maybe Text)
, _pgcPp :: !Bool
, _pgcAccessToken :: !(Maybe Text)
, _pgcUploadType :: !(Maybe Text)
, _pgcBearerToken :: !(Maybe Text)
, _pgcName :: !Text
, _pgcCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsGetConfig
:: Text
-> ProjectsGetConfig
projectsGetConfig pPgcName_ =
ProjectsGetConfig'
{ _pgcXgafv = Nothing
, _pgcUploadProtocol = Nothing
, _pgcPp = True
, _pgcAccessToken = Nothing
, _pgcUploadType = Nothing
, _pgcBearerToken = Nothing
, _pgcName = pPgcName_
, _pgcCallback = Nothing
}
pgcXgafv :: Lens' ProjectsGetConfig (Maybe Xgafv)
pgcXgafv = lens _pgcXgafv (\ s a -> s{_pgcXgafv = a})
pgcUploadProtocol :: Lens' ProjectsGetConfig (Maybe Text)
pgcUploadProtocol
= lens _pgcUploadProtocol
(\ s a -> s{_pgcUploadProtocol = a})
pgcPp :: Lens' ProjectsGetConfig Bool
pgcPp = lens _pgcPp (\ s a -> s{_pgcPp = a})
pgcAccessToken :: Lens' ProjectsGetConfig (Maybe Text)
pgcAccessToken
= lens _pgcAccessToken
(\ s a -> s{_pgcAccessToken = a})
pgcUploadType :: Lens' ProjectsGetConfig (Maybe Text)
pgcUploadType
= lens _pgcUploadType
(\ s a -> s{_pgcUploadType = a})
pgcBearerToken :: Lens' ProjectsGetConfig (Maybe Text)
pgcBearerToken
= lens _pgcBearerToken
(\ s a -> s{_pgcBearerToken = a})
pgcName :: Lens' ProjectsGetConfig Text
pgcName = lens _pgcName (\ s a -> s{_pgcName = a})
pgcCallback :: Lens' ProjectsGetConfig (Maybe Text)
pgcCallback
= lens _pgcCallback (\ s a -> s{_pgcCallback = a})
instance GoogleRequest ProjectsGetConfig where
type Rs ProjectsGetConfig =
GoogleCloudMlV1beta1__GetConfigResponse
type Scopes ProjectsGetConfig =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsGetConfig'{..}
= go _pgcName _pgcXgafv _pgcUploadProtocol
(Just _pgcPp)
_pgcAccessToken
_pgcUploadType
_pgcBearerToken
_pgcCallback
(Just AltJSON)
machineLearningService
where go
= buildClient
(Proxy :: Proxy ProjectsGetConfigResource)
mempty