module Network.Google.Resource.CloudResourceManager.Projects.Get
(
ProjectsGetResource
, projectsGet
, ProjectsGet
, pgXgafv
, pgUploadProtocol
, pgPp
, pgAccessToken
, pgUploadType
, pgBearerToken
, pgProjectId
, pgCallback
) where
import Network.Google.Prelude
import Network.Google.ResourceManager.Types
type ProjectsGetResource =
"v1beta1" :>
"projects" :>
Capture "projectId" 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] Project
data ProjectsGet = ProjectsGet
{ _pgXgafv :: !(Maybe Text)
, _pgUploadProtocol :: !(Maybe Text)
, _pgPp :: !Bool
, _pgAccessToken :: !(Maybe Text)
, _pgUploadType :: !(Maybe Text)
, _pgBearerToken :: !(Maybe Text)
, _pgProjectId :: !Text
, _pgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsGet
:: Text
-> ProjectsGet
projectsGet pPgProjectId_ =
ProjectsGet
{ _pgXgafv = Nothing
, _pgUploadProtocol = Nothing
, _pgPp = True
, _pgAccessToken = Nothing
, _pgUploadType = Nothing
, _pgBearerToken = Nothing
, _pgProjectId = pPgProjectId_
, _pgCallback = Nothing
}
pgXgafv :: Lens' ProjectsGet (Maybe Text)
pgXgafv = lens _pgXgafv (\ s a -> s{_pgXgafv = a})
pgUploadProtocol :: Lens' ProjectsGet (Maybe Text)
pgUploadProtocol
= lens _pgUploadProtocol
(\ s a -> s{_pgUploadProtocol = a})
pgPp :: Lens' ProjectsGet Bool
pgPp = lens _pgPp (\ s a -> s{_pgPp = a})
pgAccessToken :: Lens' ProjectsGet (Maybe Text)
pgAccessToken
= lens _pgAccessToken
(\ s a -> s{_pgAccessToken = a})
pgUploadType :: Lens' ProjectsGet (Maybe Text)
pgUploadType
= lens _pgUploadType (\ s a -> s{_pgUploadType = a})
pgBearerToken :: Lens' ProjectsGet (Maybe Text)
pgBearerToken
= lens _pgBearerToken
(\ s a -> s{_pgBearerToken = a})
pgProjectId :: Lens' ProjectsGet Text
pgProjectId
= lens _pgProjectId (\ s a -> s{_pgProjectId = a})
pgCallback :: Lens' ProjectsGet (Maybe Text)
pgCallback
= lens _pgCallback (\ s a -> s{_pgCallback = a})
instance GoogleRequest ProjectsGet where
type Rs ProjectsGet = Project
requestClient ProjectsGet{..}
= go _pgProjectId _pgXgafv _pgUploadProtocol
(Just _pgPp)
_pgAccessToken
_pgUploadType
_pgBearerToken
_pgCallback
(Just AltJSON)
resourceManagerService
where go
= buildClient (Proxy :: Proxy ProjectsGetResource)
mempty