module Network.Google.Resource.CloudResourceManager.Organizations.Search
(
OrganizationsSearchResource
, organizationsSearch
, OrganizationsSearch
, osXgafv
, osUploadProtocol
, osPp
, osAccessToken
, osUploadType
, osPayload
, osBearerToken
, osCallback
) where
import Network.Google.Prelude
import Network.Google.ResourceManager.Types
type OrganizationsSearchResource =
"v1" :>
"organizations:search" :>
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 :>
ReqBody '[JSON] SearchOrganizationsRequest :>
Post '[JSON] SearchOrganizationsResponse
data OrganizationsSearch = OrganizationsSearch'
{ _osXgafv :: !(Maybe Xgafv)
, _osUploadProtocol :: !(Maybe Text)
, _osPp :: !Bool
, _osAccessToken :: !(Maybe Text)
, _osUploadType :: !(Maybe Text)
, _osPayload :: !SearchOrganizationsRequest
, _osBearerToken :: !(Maybe Text)
, _osCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
organizationsSearch
:: SearchOrganizationsRequest
-> OrganizationsSearch
organizationsSearch pOsPayload_ =
OrganizationsSearch'
{ _osXgafv = Nothing
, _osUploadProtocol = Nothing
, _osPp = True
, _osAccessToken = Nothing
, _osUploadType = Nothing
, _osPayload = pOsPayload_
, _osBearerToken = Nothing
, _osCallback = Nothing
}
osXgafv :: Lens' OrganizationsSearch (Maybe Xgafv)
osXgafv = lens _osXgafv (\ s a -> s{_osXgafv = a})
osUploadProtocol :: Lens' OrganizationsSearch (Maybe Text)
osUploadProtocol
= lens _osUploadProtocol
(\ s a -> s{_osUploadProtocol = a})
osPp :: Lens' OrganizationsSearch Bool
osPp = lens _osPp (\ s a -> s{_osPp = a})
osAccessToken :: Lens' OrganizationsSearch (Maybe Text)
osAccessToken
= lens _osAccessToken
(\ s a -> s{_osAccessToken = a})
osUploadType :: Lens' OrganizationsSearch (Maybe Text)
osUploadType
= lens _osUploadType (\ s a -> s{_osUploadType = a})
osPayload :: Lens' OrganizationsSearch SearchOrganizationsRequest
osPayload
= lens _osPayload (\ s a -> s{_osPayload = a})
osBearerToken :: Lens' OrganizationsSearch (Maybe Text)
osBearerToken
= lens _osBearerToken
(\ s a -> s{_osBearerToken = a})
osCallback :: Lens' OrganizationsSearch (Maybe Text)
osCallback
= lens _osCallback (\ s a -> s{_osCallback = a})
instance GoogleRequest OrganizationsSearch where
type Rs OrganizationsSearch =
SearchOrganizationsResponse
type Scopes OrganizationsSearch =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/cloud-platform.read-only"]
requestClient OrganizationsSearch'{..}
= go _osXgafv _osUploadProtocol (Just _osPp)
_osAccessToken
_osUploadType
_osBearerToken
_osCallback
(Just AltJSON)
_osPayload
resourceManagerService
where go
= buildClient
(Proxy :: Proxy OrganizationsSearchResource)
mempty