diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.1.0` +`0.1.1` ## Description diff --git a/gen/Network/Google/Directory.hs b/gen/Network/Google/Directory.hs --- a/gen/Network/Google/Directory.hs +++ b/gen/Network/Google/Directory.hs @@ -69,6 +69,9 @@ -- ** directory.asps.list , module Network.Google.Resource.Directory.Asps.List + -- ** directory.chromeosdevices.action + , module Network.Google.Resource.Directory.ChromeosDevices.Action + -- ** directory.chromeosdevices.get , module Network.Google.Resource.Directory.ChromeosDevices.Get @@ -754,6 +757,12 @@ -- ** MobileDevicesListProjection , MobileDevicesListProjection (..) + -- ** ChromeOSDeviceAction + , ChromeOSDeviceAction + , chromeOSDeviceAction + , codaAction + , codaDeprovisionReason + -- ** Role , Role , role' @@ -897,14 +906,19 @@ , mobileDevice , mobEmail , mobStatus + , mobPrivilege , mobEtag , mobResourceId + , mobManufacturer , mobBuildNumber , mobManagedAccountIsOnOwnerProFile , mobLastSync , mobOtherAccountsInfo , mobKind , mobAdbStatus + , mobReleaseVersion + , mobBrand + , mobSecurityPatchLevel , mobNetworkOperator , mobKernelVersion , mobOS @@ -913,16 +927,20 @@ , mobDeveloperOptionsStatus , mobUnknownSourcesStatus , mobMeid + , mobBootLoaderVersion , mobDeviceId , mobFirstSync , mobUserAgent , mobImei , mobType , mobWifiMACAddress + , mobEncryptionStatus , mobSerialNumber + , mobDevicePasswordStatus , mobHardwareId , mobBasebandVersion , mobSupportsWorkProFile + , mobHardware , mobDeviceCompromisedStatus , mobApplications , mobDefaultLanguage @@ -931,6 +949,7 @@ , Member , member , memEmail + , memStatus , memEtag , memKind , memRole @@ -1051,6 +1070,7 @@ import Network.Google.Resource.Directory.Asps.Delete import Network.Google.Resource.Directory.Asps.Get import Network.Google.Resource.Directory.Asps.List +import Network.Google.Resource.Directory.ChromeosDevices.Action import Network.Google.Resource.Directory.ChromeosDevices.Get import Network.Google.Resource.Directory.ChromeosDevices.List import Network.Google.Resource.Directory.ChromeosDevices.Patch @@ -1240,6 +1260,7 @@ :<|> ChromeosDevicesListResource :<|> ChromeosDevicesPatchResource :<|> ChromeosDevicesGetResource + :<|> ChromeosDevicesActionResource :<|> ChromeosDevicesUpdateResource :<|> AspsListResource :<|> AspsGetResource diff --git a/gen/Network/Google/Directory/Types.hs b/gen/Network/Google/Directory/Types.hs --- a/gen/Network/Google/Directory/Types.hs +++ b/gen/Network/Google/Directory/Types.hs @@ -458,6 +458,12 @@ -- * MobileDevicesListProjection , MobileDevicesListProjection (..) + -- * ChromeOSDeviceAction + , ChromeOSDeviceAction + , chromeOSDeviceAction + , codaAction + , codaDeprovisionReason + -- * Role , Role , role' @@ -601,14 +607,19 @@ , mobileDevice , mobEmail , mobStatus + , mobPrivilege , mobEtag , mobResourceId + , mobManufacturer , mobBuildNumber , mobManagedAccountIsOnOwnerProFile , mobLastSync , mobOtherAccountsInfo , mobKind , mobAdbStatus + , mobReleaseVersion + , mobBrand + , mobSecurityPatchLevel , mobNetworkOperator , mobKernelVersion , mobOS @@ -617,16 +628,20 @@ , mobDeveloperOptionsStatus , mobUnknownSourcesStatus , mobMeid + , mobBootLoaderVersion , mobDeviceId , mobFirstSync , mobUserAgent , mobImei , mobType , mobWifiMACAddress + , mobEncryptionStatus , mobSerialNumber + , mobDevicePasswordStatus , mobHardwareId , mobBasebandVersion , mobSupportsWorkProFile + , mobHardware , mobDeviceCompromisedStatus , mobApplications , mobDefaultLanguage @@ -635,6 +650,7 @@ , Member , member , memEmail + , memStatus , memEtag , memKind , memRole diff --git a/gen/Network/Google/Directory/Types/Product.hs b/gen/Network/Google/Directory/Types/Product.hs --- a/gen/Network/Google/Directory/Types/Product.hs +++ b/gen/Network/Google/Directory/Types/Product.hs @@ -3508,6 +3508,54 @@ ("customSchemas" .=) <$> _useCustomSchemas, ("suspensionReason" .=) <$> _useSuspensionReason]) +-- | JSON request template for firing actions on ChromeOs Device in Directory +-- Devices API. +-- +-- /See:/ 'chromeOSDeviceAction' smart constructor. +data ChromeOSDeviceAction = ChromeOSDeviceAction' + { _codaAction :: !(Maybe Text) + , _codaDeprovisionReason :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ChromeOSDeviceAction' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'codaAction' +-- +-- * 'codaDeprovisionReason' +chromeOSDeviceAction + :: ChromeOSDeviceAction +chromeOSDeviceAction = + ChromeOSDeviceAction' + { _codaAction = Nothing + , _codaDeprovisionReason = Nothing + } + +-- | Action to be taken on the ChromeOs Device +codaAction :: Lens' ChromeOSDeviceAction (Maybe Text) +codaAction + = lens _codaAction (\ s a -> s{_codaAction = a}) + +codaDeprovisionReason :: Lens' ChromeOSDeviceAction (Maybe Text) +codaDeprovisionReason + = lens _codaDeprovisionReason + (\ s a -> s{_codaDeprovisionReason = a}) + +instance FromJSON ChromeOSDeviceAction where + parseJSON + = withObject "ChromeOSDeviceAction" + (\ o -> + ChromeOSDeviceAction' <$> + (o .:? "action") <*> (o .:? "deprovisionReason")) + +instance ToJSON ChromeOSDeviceAction where + toJSON ChromeOSDeviceAction'{..} + = object + (catMaybes + [("action" .=) <$> _codaAction, + ("deprovisionReason" .=) <$> _codaDeprovisionReason]) + -- | JSON template for role resource in Directory API. -- -- /See:/ 'role'' smart constructor. @@ -4581,14 +4629,19 @@ data MobileDevice = MobileDevice' { _mobEmail :: !(Maybe [Text]) , _mobStatus :: !(Maybe Text) + , _mobPrivilege :: !(Maybe Text) , _mobEtag :: !(Maybe Text) , _mobResourceId :: !(Maybe Text) + , _mobManufacturer :: !(Maybe Text) , _mobBuildNumber :: !(Maybe Text) , _mobManagedAccountIsOnOwnerProFile :: !(Maybe Bool) , _mobLastSync :: !(Maybe DateTime') , _mobOtherAccountsInfo :: !(Maybe [Text]) , _mobKind :: !Text , _mobAdbStatus :: !(Maybe Bool) + , _mobReleaseVersion :: !(Maybe Text) + , _mobBrand :: !(Maybe Text) + , _mobSecurityPatchLevel :: !(Maybe (Textual Int64)) , _mobNetworkOperator :: !(Maybe Text) , _mobKernelVersion :: !(Maybe Text) , _mobOS :: !(Maybe Text) @@ -4597,16 +4650,20 @@ , _mobDeveloperOptionsStatus :: !(Maybe Bool) , _mobUnknownSourcesStatus :: !(Maybe Bool) , _mobMeid :: !(Maybe Text) + , _mobBootLoaderVersion :: !(Maybe Text) , _mobDeviceId :: !(Maybe Text) , _mobFirstSync :: !(Maybe DateTime') , _mobUserAgent :: !(Maybe Text) , _mobImei :: !(Maybe Text) , _mobType :: !(Maybe Text) , _mobWifiMACAddress :: !(Maybe Text) + , _mobEncryptionStatus :: !(Maybe Text) , _mobSerialNumber :: !(Maybe Text) + , _mobDevicePasswordStatus :: !(Maybe Text) , _mobHardwareId :: !(Maybe Text) , _mobBasebandVersion :: !(Maybe Text) , _mobSupportsWorkProFile :: !(Maybe Bool) + , _mobHardware :: !(Maybe Text) , _mobDeviceCompromisedStatus :: !(Maybe Text) , _mobApplications :: !(Maybe [MobileDeviceApplicationsItem]) , _mobDefaultLanguage :: !(Maybe Text) @@ -4620,10 +4677,14 @@ -- -- * 'mobStatus' -- +-- * 'mobPrivilege' +-- -- * 'mobEtag' -- -- * 'mobResourceId' -- +-- * 'mobManufacturer' +-- -- * 'mobBuildNumber' -- -- * 'mobManagedAccountIsOnOwnerProFile' @@ -4636,6 +4697,12 @@ -- -- * 'mobAdbStatus' -- +-- * 'mobReleaseVersion' +-- +-- * 'mobBrand' +-- +-- * 'mobSecurityPatchLevel' +-- -- * 'mobNetworkOperator' -- -- * 'mobKernelVersion' @@ -4652,6 +4719,8 @@ -- -- * 'mobMeid' -- +-- * 'mobBootLoaderVersion' +-- -- * 'mobDeviceId' -- -- * 'mobFirstSync' @@ -4664,14 +4733,20 @@ -- -- * 'mobWifiMACAddress' -- +-- * 'mobEncryptionStatus' +-- -- * 'mobSerialNumber' -- +-- * 'mobDevicePasswordStatus' +-- -- * 'mobHardwareId' -- -- * 'mobBasebandVersion' -- -- * 'mobSupportsWorkProFile' -- +-- * 'mobHardware' +-- -- * 'mobDeviceCompromisedStatus' -- -- * 'mobApplications' @@ -4683,14 +4758,19 @@ MobileDevice' { _mobEmail = Nothing , _mobStatus = Nothing + , _mobPrivilege = Nothing , _mobEtag = Nothing , _mobResourceId = Nothing + , _mobManufacturer = Nothing , _mobBuildNumber = Nothing , _mobManagedAccountIsOnOwnerProFile = Nothing , _mobLastSync = Nothing , _mobOtherAccountsInfo = Nothing , _mobKind = "admin#directory#mobiledevice" , _mobAdbStatus = Nothing + , _mobReleaseVersion = Nothing + , _mobBrand = Nothing + , _mobSecurityPatchLevel = Nothing , _mobNetworkOperator = Nothing , _mobKernelVersion = Nothing , _mobOS = Nothing @@ -4699,16 +4779,20 @@ , _mobDeveloperOptionsStatus = Nothing , _mobUnknownSourcesStatus = Nothing , _mobMeid = Nothing + , _mobBootLoaderVersion = Nothing , _mobDeviceId = Nothing , _mobFirstSync = Nothing , _mobUserAgent = Nothing , _mobImei = Nothing , _mobType = Nothing , _mobWifiMACAddress = Nothing + , _mobEncryptionStatus = Nothing , _mobSerialNumber = Nothing + , _mobDevicePasswordStatus = Nothing , _mobHardwareId = Nothing , _mobBasebandVersion = Nothing , _mobSupportsWorkProFile = Nothing + , _mobHardware = Nothing , _mobDeviceCompromisedStatus = Nothing , _mobApplications = Nothing , _mobDefaultLanguage = Nothing @@ -4726,6 +4810,11 @@ mobStatus = lens _mobStatus (\ s a -> s{_mobStatus = a}) +-- | DMAgentPermission (Read-only) +mobPrivilege :: Lens' MobileDevice (Maybe Text) +mobPrivilege + = lens _mobPrivilege (\ s a -> s{_mobPrivilege = a}) + -- | ETag of the resource. mobEtag :: Lens' MobileDevice (Maybe Text) mobEtag = lens _mobEtag (\ s a -> s{_mobEtag = a}) @@ -4736,6 +4825,12 @@ = lens _mobResourceId (\ s a -> s{_mobResourceId = a}) +-- | Mobile Device manufacturer (Read-only) +mobManufacturer :: Lens' MobileDevice (Maybe Text) +mobManufacturer + = lens _mobManufacturer + (\ s a -> s{_mobManufacturer = a}) + -- | Mobile Device Build number (Read-only) mobBuildNumber :: Lens' MobileDevice (Maybe Text) mobBuildNumber @@ -4773,6 +4868,23 @@ mobAdbStatus = lens _mobAdbStatus (\ s a -> s{_mobAdbStatus = a}) +-- | Mobile Device release version version (Read-only) +mobReleaseVersion :: Lens' MobileDevice (Maybe Text) +mobReleaseVersion + = lens _mobReleaseVersion + (\ s a -> s{_mobReleaseVersion = a}) + +-- | Mobile Device Brand (Read-only) +mobBrand :: Lens' MobileDevice (Maybe Text) +mobBrand = lens _mobBrand (\ s a -> s{_mobBrand = a}) + +-- | Mobile Device Security patch level (Read-only) +mobSecurityPatchLevel :: Lens' MobileDevice (Maybe Int64) +mobSecurityPatchLevel + = lens _mobSecurityPatchLevel + (\ s a -> s{_mobSecurityPatchLevel = a}) + . mapping _Coerce + -- | Mobile Device mobile or network operator (if available) (Read-only) mobNetworkOperator :: Lens' MobileDevice (Maybe Text) mobNetworkOperator @@ -4815,6 +4927,12 @@ mobMeid :: Lens' MobileDevice (Maybe Text) mobMeid = lens _mobMeid (\ s a -> s{_mobMeid = a}) +-- | Mobile Device Bootloader version (Read-only) +mobBootLoaderVersion :: Lens' MobileDevice (Maybe Text) +mobBootLoaderVersion + = lens _mobBootLoaderVersion + (\ s a -> s{_mobBootLoaderVersion = a}) + -- | Mobile Device serial number (Read-only) mobDeviceId :: Lens' MobileDevice (Maybe Text) mobDeviceId @@ -4846,12 +4964,24 @@ = lens _mobWifiMACAddress (\ s a -> s{_mobWifiMACAddress = a}) +-- | Mobile Device Encryption Status (Read-only) +mobEncryptionStatus :: Lens' MobileDevice (Maybe Text) +mobEncryptionStatus + = lens _mobEncryptionStatus + (\ s a -> s{_mobEncryptionStatus = a}) + -- | Mobile Device SSN or Serial Number (Read-only) mobSerialNumber :: Lens' MobileDevice (Maybe Text) mobSerialNumber = lens _mobSerialNumber (\ s a -> s{_mobSerialNumber = a}) +-- | DevicePasswordStatus (Read-only) +mobDevicePasswordStatus :: Lens' MobileDevice (Maybe Text) +mobDevicePasswordStatus + = lens _mobDevicePasswordStatus + (\ s a -> s{_mobDevicePasswordStatus = a}) + -- | Mobile Device Hardware Id (Read-only) mobHardwareId :: Lens' MobileDevice (Maybe Text) mobHardwareId @@ -4870,6 +5000,11 @@ = lens _mobSupportsWorkProFile (\ s a -> s{_mobSupportsWorkProFile = a}) +-- | Mobile Device Hardware (Read-only) +mobHardware :: Lens' MobileDevice (Maybe Text) +mobHardware + = lens _mobHardware (\ s a -> s{_mobHardware = a}) + -- | Mobile Device compromised status (Read-only) mobDeviceCompromisedStatus :: Lens' MobileDevice (Maybe Text) mobDeviceCompromisedStatus @@ -4896,14 +5031,19 @@ (\ o -> MobileDevice' <$> (o .:? "email" .!= mempty) <*> (o .:? "status") <*> - (o .:? "etag") + (o .:? "privilege") + <*> (o .:? "etag") <*> (o .:? "resourceId") + <*> (o .:? "manufacturer") <*> (o .:? "buildNumber") <*> (o .:? "managedAccountIsOnOwnerProfile") <*> (o .:? "lastSync") <*> (o .:? "otherAccountsInfo" .!= mempty) <*> (o .:? "kind" .!= "admin#directory#mobiledevice") <*> (o .:? "adbStatus") + <*> (o .:? "releaseVersion") + <*> (o .:? "brand") + <*> (o .:? "securityPatchLevel") <*> (o .:? "networkOperator") <*> (o .:? "kernelVersion") <*> (o .:? "os") @@ -4912,16 +5052,20 @@ <*> (o .:? "developerOptionsStatus") <*> (o .:? "unknownSourcesStatus") <*> (o .:? "meid") + <*> (o .:? "bootloaderVersion") <*> (o .:? "deviceId") <*> (o .:? "firstSync") <*> (o .:? "userAgent") <*> (o .:? "imei") <*> (o .:? "type") <*> (o .:? "wifiMacAddress") + <*> (o .:? "encryptionStatus") <*> (o .:? "serialNumber") + <*> (o .:? "devicePasswordStatus") <*> (o .:? "hardwareId") <*> (o .:? "basebandVersion") <*> (o .:? "supportsWorkProfile") + <*> (o .:? "hardware") <*> (o .:? "deviceCompromisedStatus") <*> (o .:? "applications" .!= mempty) <*> (o .:? "defaultLanguage")) @@ -4932,8 +5076,10 @@ (catMaybes [("email" .=) <$> _mobEmail, ("status" .=) <$> _mobStatus, + ("privilege" .=) <$> _mobPrivilege, ("etag" .=) <$> _mobEtag, ("resourceId" .=) <$> _mobResourceId, + ("manufacturer" .=) <$> _mobManufacturer, ("buildNumber" .=) <$> _mobBuildNumber, ("managedAccountIsOnOwnerProfile" .=) <$> _mobManagedAccountIsOnOwnerProFile, @@ -4941,6 +5087,9 @@ ("otherAccountsInfo" .=) <$> _mobOtherAccountsInfo, Just ("kind" .= _mobKind), ("adbStatus" .=) <$> _mobAdbStatus, + ("releaseVersion" .=) <$> _mobReleaseVersion, + ("brand" .=) <$> _mobBrand, + ("securityPatchLevel" .=) <$> _mobSecurityPatchLevel, ("networkOperator" .=) <$> _mobNetworkOperator, ("kernelVersion" .=) <$> _mobKernelVersion, ("os" .=) <$> _mobOS, ("name" .=) <$> _mobName, @@ -4950,16 +5099,21 @@ ("unknownSourcesStatus" .=) <$> _mobUnknownSourcesStatus, ("meid" .=) <$> _mobMeid, + ("bootloaderVersion" .=) <$> _mobBootLoaderVersion, ("deviceId" .=) <$> _mobDeviceId, ("firstSync" .=) <$> _mobFirstSync, ("userAgent" .=) <$> _mobUserAgent, ("imei" .=) <$> _mobImei, ("type" .=) <$> _mobType, ("wifiMacAddress" .=) <$> _mobWifiMACAddress, + ("encryptionStatus" .=) <$> _mobEncryptionStatus, ("serialNumber" .=) <$> _mobSerialNumber, + ("devicePasswordStatus" .=) <$> + _mobDevicePasswordStatus, ("hardwareId" .=) <$> _mobHardwareId, ("basebandVersion" .=) <$> _mobBasebandVersion, ("supportsWorkProfile" .=) <$> _mobSupportsWorkProFile, + ("hardware" .=) <$> _mobHardware, ("deviceCompromisedStatus" .=) <$> _mobDeviceCompromisedStatus, ("applications" .=) <$> _mobApplications, @@ -4969,12 +5123,13 @@ -- -- /See:/ 'member' smart constructor. data Member = Member' - { _memEmail :: !(Maybe Text) - , _memEtag :: !(Maybe Text) - , _memKind :: !Text - , _memRole :: !(Maybe Text) - , _memId :: !(Maybe Text) - , _memType :: !(Maybe Text) + { _memEmail :: !(Maybe Text) + , _memStatus :: !(Maybe Text) + , _memEtag :: !(Maybe Text) + , _memKind :: !Text + , _memRole :: !(Maybe Text) + , _memId :: !(Maybe Text) + , _memType :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'Member' with the minimum fields required to make a request. @@ -4983,6 +5138,8 @@ -- -- * 'memEmail' -- +-- * 'memStatus' +-- -- * 'memEtag' -- -- * 'memKind' @@ -4997,6 +5154,7 @@ member = Member' { _memEmail = Nothing + , _memStatus = Nothing , _memEtag = Nothing , _memKind = "admin#directory#member" , _memRole = Nothing @@ -5008,6 +5166,11 @@ memEmail :: Lens' Member (Maybe Text) memEmail = lens _memEmail (\ s a -> s{_memEmail = a}) +-- | Status of member (Immutable) +memStatus :: Lens' Member (Maybe Text) +memStatus + = lens _memStatus (\ s a -> s{_memStatus = a}) + -- | ETag of the resource. memEtag :: Lens' Member (Maybe Text) memEtag = lens _memEtag (\ s a -> s{_memEtag = a}) @@ -5034,8 +5197,9 @@ = withObject "Member" (\ o -> Member' <$> - (o .:? "email") <*> (o .:? "etag") <*> - (o .:? "kind" .!= "admin#directory#member") + (o .:? "email") <*> (o .:? "status") <*> + (o .:? "etag") + <*> (o .:? "kind" .!= "admin#directory#member") <*> (o .:? "role") <*> (o .:? "id") <*> (o .:? "type")) @@ -5045,6 +5209,7 @@ = object (catMaybes [("email" .=) <$> _memEmail, + ("status" .=) <$> _memStatus, ("etag" .=) <$> _memEtag, Just ("kind" .= _memKind), ("role" .=) <$> _memRole, ("id" .=) <$> _memId, ("type" .=) <$> _memType]) diff --git a/gen/Network/Google/Resource/Directory/ChromeosDevices/Action.hs b/gen/Network/Google/Resource/Directory/ChromeosDevices/Action.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/Directory/ChromeosDevices/Action.hs @@ -0,0 +1,118 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.Directory.ChromeosDevices.Action +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Take action on Chrome OS Device +-- +-- /See:/ for @directory.chromeosdevices.action@. +module Network.Google.Resource.Directory.ChromeosDevices.Action + ( + -- * REST Resource + ChromeosDevicesActionResource + + -- * Creating a Request + , chromeosDevicesAction + , ChromeosDevicesAction + + -- * Request Lenses + , cdaResourceId + , cdaPayload + , cdaCustomerId + ) where + +import Network.Google.Directory.Types +import Network.Google.Prelude + +-- | A resource alias for @directory.chromeosdevices.action@ method which the +-- 'ChromeosDevicesAction' request conforms to. +type ChromeosDevicesActionResource = + "admin" :> + "directory" :> + "v1" :> + "customer" :> + Capture "customerId" Text :> + "devices" :> + "chromeos" :> + Capture "resourceId" Text :> + "action" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] ChromeOSDeviceAction :> + Post '[JSON] () + +-- | Take action on Chrome OS Device +-- +-- /See:/ 'chromeosDevicesAction' smart constructor. +data ChromeosDevicesAction = ChromeosDevicesAction' + { _cdaResourceId :: !Text + , _cdaPayload :: !ChromeOSDeviceAction + , _cdaCustomerId :: !Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ChromeosDevicesAction' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cdaResourceId' +-- +-- * 'cdaPayload' +-- +-- * 'cdaCustomerId' +chromeosDevicesAction + :: Text -- ^ 'cdaResourceId' + -> ChromeOSDeviceAction -- ^ 'cdaPayload' + -> Text -- ^ 'cdaCustomerId' + -> ChromeosDevicesAction +chromeosDevicesAction pCdaResourceId_ pCdaPayload_ pCdaCustomerId_ = + ChromeosDevicesAction' + { _cdaResourceId = pCdaResourceId_ + , _cdaPayload = pCdaPayload_ + , _cdaCustomerId = pCdaCustomerId_ + } + +-- | Immutable id of Chrome OS Device +cdaResourceId :: Lens' ChromeosDevicesAction Text +cdaResourceId + = lens _cdaResourceId + (\ s a -> s{_cdaResourceId = a}) + +-- | Multipart request metadata. +cdaPayload :: Lens' ChromeosDevicesAction ChromeOSDeviceAction +cdaPayload + = lens _cdaPayload (\ s a -> s{_cdaPayload = a}) + +-- | Immutable id of the Google Apps account +cdaCustomerId :: Lens' ChromeosDevicesAction Text +cdaCustomerId + = lens _cdaCustomerId + (\ s a -> s{_cdaCustomerId = a}) + +instance GoogleRequest ChromeosDevicesAction where + type Rs ChromeosDevicesAction = () + type Scopes ChromeosDevicesAction = + '["https://www.googleapis.com/auth/admin.directory.device.chromeos"] + requestClient ChromeosDevicesAction'{..} + = go _cdaCustomerId _cdaResourceId (Just AltJSON) + _cdaPayload + directoryService + where go + = buildClient + (Proxy :: Proxy ChromeosDevicesActionResource) + mempty diff --git a/gen/Network/Google/Resource/Directory/Customers/Get.hs b/gen/Network/Google/Resource/Directory/Customers/Get.hs --- a/gen/Network/Google/Resource/Directory/Customers/Get.hs +++ b/gen/Network/Google/Resource/Directory/Customers/Get.hs @@ -20,7 +20,7 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Retrives a customer. +-- Retrieves a customer. -- -- /See:/ for @directory.customers.get@. module Network.Google.Resource.Directory.Customers.Get @@ -49,7 +49,7 @@ Capture "customerKey" Text :> QueryParam "alt" AltJSON :> Get '[JSON] Customer --- | Retrives a customer. +-- | Retrieves a customer. -- -- /See:/ 'customersGet' smart constructor. newtype CustomersGet = CustomersGet' diff --git a/gen/Network/Google/Resource/Directory/Domains/Get.hs b/gen/Network/Google/Resource/Directory/Domains/Get.hs --- a/gen/Network/Google/Resource/Directory/Domains/Get.hs +++ b/gen/Network/Google/Resource/Directory/Domains/Get.hs @@ -20,7 +20,7 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Retrives a domain of the customer. +-- Retrieves a domain of the customer. -- -- /See:/ for @directory.domains.get@. module Network.Google.Resource.Directory.Domains.Get @@ -52,7 +52,7 @@ Capture "domainName" Text :> QueryParam "alt" AltJSON :> Get '[JSON] Domains --- | Retrives a domain of the customer. +-- | Retrieves a domain of the customer. -- -- /See:/ 'domainsGet' smart constructor. data DomainsGet = DomainsGet' diff --git a/gogol-admin-directory.cabal b/gogol-admin-directory.cabal --- a/gogol-admin-directory.cabal +++ b/gogol-admin-directory.cabal @@ -1,5 +1,5 @@ name: gogol-admin-directory -version: 0.1.0 +version: 0.1.1 synopsis: Google Admin Directory SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -11,7 +11,7 @@ category: Network, Google, Cloud build-type: Simple cabal-version: >= 1.10 -extra-source-files: README.md +extra-source-files: README.md src/.gitkeep description: The Admin SDK Directory API lets you view and manage enterprise @@ -41,6 +41,7 @@ , Network.Google.Resource.Directory.Asps.Delete , Network.Google.Resource.Directory.Asps.Get , Network.Google.Resource.Directory.Asps.List + , Network.Google.Resource.Directory.ChromeosDevices.Action , Network.Google.Resource.Directory.ChromeosDevices.Get , Network.Google.Resource.Directory.ChromeosDevices.List , Network.Google.Resource.Directory.ChromeosDevices.Patch @@ -138,5 +139,5 @@ , Network.Google.Directory.Types.Sum build-depends: - gogol-core == 0.1.0.* + gogol-core == 0.1.1.* , base >= 4.7 && < 5 diff --git a/src/.gitkeep b/src/.gitkeep new file mode 100644 --- /dev/null +++ b/src/.gitkeep