diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.3.0` +`0.5.0` ## Description diff --git a/gen/Network/Google/AndroidDeviceProvisioning.hs b/gen/Network/Google/AndroidDeviceProvisioning.hs --- a/gen/Network/Google/AndroidDeviceProvisioning.hs +++ b/gen/Network/Google/AndroidDeviceProvisioning.hs @@ -164,6 +164,8 @@ , partnerUnclaim , puDeviceIdentifier , puSectionType + , puVacationModeExpireTime + , puVacationModeDays , puDeviceId -- ** Dpc @@ -312,6 +314,8 @@ , DeviceClaim , deviceClaim , dcSectionType + , dcVacationModeExpireTime + , dcVacationModeStartTime , dcOwnerCompanyId , dcResellerId @@ -345,6 +349,8 @@ , unclaimDeviceRequest , udrDeviceIdentifier , udrSectionType + , udrVacationModeExpireTime + , udrVacationModeDays , udrDeviceId -- ** DevicesLongRunningOperationResponse diff --git a/gen/Network/Google/AndroidDeviceProvisioning/Types.hs b/gen/Network/Google/AndroidDeviceProvisioning/Types.hs --- a/gen/Network/Google/AndroidDeviceProvisioning/Types.hs +++ b/gen/Network/Google/AndroidDeviceProvisioning/Types.hs @@ -76,6 +76,8 @@ , partnerUnclaim , puDeviceIdentifier , puSectionType + , puVacationModeExpireTime + , puVacationModeDays , puDeviceId -- * Dpc @@ -224,6 +226,8 @@ , DeviceClaim , deviceClaim , dcSectionType + , dcVacationModeExpireTime + , dcVacationModeStartTime , dcOwnerCompanyId , dcResellerId @@ -257,6 +261,8 @@ , unclaimDeviceRequest , udrDeviceIdentifier , udrSectionType + , udrVacationModeExpireTime + , udrVacationModeDays , udrDeviceId -- * DevicesLongRunningOperationResponse diff --git a/gen/Network/Google/AndroidDeviceProvisioning/Types/Product.hs b/gen/Network/Google/AndroidDeviceProvisioning/Types/Product.hs --- a/gen/Network/Google/AndroidDeviceProvisioning/Types/Product.hs +++ b/gen/Network/Google/AndroidDeviceProvisioning/Types/Product.hs @@ -23,12 +23,15 @@ -- | Identifies metdata updates to one device. -- -- /See:/ 'updateMetadataArguments' smart constructor. -data UpdateMetadataArguments = UpdateMetadataArguments' +data UpdateMetadataArguments = + UpdateMetadataArguments' { _umaDeviceIdentifier :: !(Maybe DeviceIdentifier) , _umaDeviceId :: !(Maybe (Textual Int64)) , _umaDeviceMetadata :: !(Maybe DeviceMetadata) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateMetadataArguments' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -41,12 +44,13 @@ updateMetadataArguments :: UpdateMetadataArguments updateMetadataArguments = - UpdateMetadataArguments' + UpdateMetadataArguments' { _umaDeviceIdentifier = Nothing , _umaDeviceId = Nothing , _umaDeviceMetadata = Nothing } + -- | Device identifier. umaDeviceIdentifier :: Lens' UpdateMetadataArguments (Maybe DeviceIdentifier) umaDeviceIdentifier @@ -118,12 +122,15 @@ -- security\/privacy reasons. -- -- /See:/ 'status' smart constructor. -data Status = Status' +data Status = + Status' { _sDetails :: !(Maybe [StatusDetailsItem]) , _sCode :: !(Maybe (Textual Int32)) , _sMessage :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Status' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -135,13 +142,9 @@ -- * 'sMessage' status :: Status -status = - Status' - { _sDetails = Nothing - , _sCode = Nothing - , _sMessage = Nothing - } +status = Status' {_sDetails = Nothing, _sCode = Nothing, _sMessage = Nothing} + -- | A list of messages that carry the error details. There is a common set -- of message types for APIs to use. sDetails :: Lens' Status [StatusDetailsItem] @@ -181,13 +184,16 @@ -- | Identifies one claim request. -- -- /See:/ 'partnerClaim' smart constructor. -data PartnerClaim = PartnerClaim' +data PartnerClaim = + PartnerClaim' { _pcDeviceIdentifier :: !(Maybe DeviceIdentifier) , _pcSectionType :: !(Maybe PartnerClaimSectionType) , _pcCustomerId :: !(Maybe (Textual Int64)) , _pcDeviceMetadata :: !(Maybe DeviceMetadata) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PartnerClaim' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -202,13 +208,14 @@ partnerClaim :: PartnerClaim partnerClaim = - PartnerClaim' + PartnerClaim' { _pcDeviceIdentifier = Nothing , _pcSectionType = Nothing , _pcCustomerId = Nothing , _pcDeviceMetadata = Nothing } + -- | Required. Device identifier of the device. pcDeviceIdentifier :: Lens' PartnerClaim (Maybe DeviceIdentifier) pcDeviceIdentifier @@ -254,10 +261,13 @@ -- | Request message for customer to unclaim a device. -- -- /See:/ 'customerUnclaimDeviceRequest' smart constructor. -newtype CustomerUnclaimDeviceRequest = CustomerUnclaimDeviceRequest' +newtype CustomerUnclaimDeviceRequest = + CustomerUnclaimDeviceRequest' { _cudrDevice :: Maybe DeviceReference - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomerUnclaimDeviceRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -266,10 +276,9 @@ customerUnclaimDeviceRequest :: CustomerUnclaimDeviceRequest customerUnclaimDeviceRequest = - CustomerUnclaimDeviceRequest' - { _cudrDevice = Nothing - } + CustomerUnclaimDeviceRequest' {_cudrDevice = Nothing} + -- | Required. The device to unclaim. cudrDevice :: Lens' CustomerUnclaimDeviceRequest (Maybe DeviceReference) cudrDevice @@ -288,12 +297,15 @@ -- | Request to find devices. -- -- /See:/ 'findDevicesByDeviceIdentifierRequest' smart constructor. -data FindDevicesByDeviceIdentifierRequest = FindDevicesByDeviceIdentifierRequest' +data FindDevicesByDeviceIdentifierRequest = + FindDevicesByDeviceIdentifierRequest' { _fdbdirDeviceIdentifier :: !(Maybe DeviceIdentifier) , _fdbdirLimit :: !(Maybe (Textual Int64)) , _fdbdirPageToken :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'FindDevicesByDeviceIdentifierRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -306,12 +318,13 @@ findDevicesByDeviceIdentifierRequest :: FindDevicesByDeviceIdentifierRequest findDevicesByDeviceIdentifierRequest = - FindDevicesByDeviceIdentifierRequest' + FindDevicesByDeviceIdentifierRequest' { _fdbdirDeviceIdentifier = Nothing , _fdbdirLimit = Nothing , _fdbdirPageToken = Nothing } + -- | Required. The device identifier to search for. fdbdirDeviceIdentifier :: Lens' FindDevicesByDeviceIdentifierRequest (Maybe DeviceIdentifier) fdbdirDeviceIdentifier @@ -332,7 +345,8 @@ (\ s a -> s{_fdbdirPageToken = a}) instance FromJSON - FindDevicesByDeviceIdentifierRequest where + FindDevicesByDeviceIdentifierRequest + where parseJSON = withObject "FindDevicesByDeviceIdentifierRequest" (\ o -> @@ -352,12 +366,15 @@ -- | Response containing found devices. -- -- /See:/ 'findDevicesByOwnerResponse' smart constructor. -data FindDevicesByOwnerResponse = FindDevicesByOwnerResponse' +data FindDevicesByOwnerResponse = + FindDevicesByOwnerResponse' { _fdborNextPageToken :: !(Maybe Text) , _fdborTotalSize :: !(Maybe (Textual Int32)) , _fdborDevices :: !(Maybe [Device]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'FindDevicesByOwnerResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -370,12 +387,13 @@ findDevicesByOwnerResponse :: FindDevicesByOwnerResponse findDevicesByOwnerResponse = - FindDevicesByOwnerResponse' + FindDevicesByOwnerResponse' { _fdborNextPageToken = Nothing , _fdborTotalSize = Nothing , _fdborDevices = Nothing } + -- | A token used to access the next page of results. Omitted if no further -- results are available. fdborNextPageToken :: Lens' FindDevicesByOwnerResponse (Maybe Text) @@ -416,10 +434,13 @@ -- | Metadata entries recorded as key-value pairs. -- -- /See:/ 'deviceMetadataEntries' smart constructor. -newtype DeviceMetadataEntries = DeviceMetadataEntries' +newtype DeviceMetadataEntries = + DeviceMetadataEntries' { _dmeAddtional :: HashMap Text Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeviceMetadataEntries' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -429,10 +450,9 @@ :: HashMap Text Text -- ^ 'dmeAddtional' -> DeviceMetadataEntries deviceMetadataEntries pDmeAddtional_ = - DeviceMetadataEntries' - { _dmeAddtional = _Coerce # pDmeAddtional_ - } + DeviceMetadataEntries' {_dmeAddtional = _Coerce # pDmeAddtional_} + dmeAddtional :: Lens' DeviceMetadataEntries (HashMap Text Text) dmeAddtional = lens _dmeAddtional (\ s a -> s{_dmeAddtional = a}) @@ -450,12 +470,17 @@ -- | Identifies one unclaim request. -- -- /See:/ 'partnerUnclaim' smart constructor. -data PartnerUnclaim = PartnerUnclaim' - { _puDeviceIdentifier :: !(Maybe DeviceIdentifier) - , _puSectionType :: !(Maybe PartnerUnclaimSectionType) - , _puDeviceId :: !(Maybe (Textual Int64)) - } deriving (Eq,Show,Data,Typeable,Generic) +data PartnerUnclaim = + PartnerUnclaim' + { _puDeviceIdentifier :: !(Maybe DeviceIdentifier) + , _puSectionType :: !(Maybe PartnerUnclaimSectionType) + , _puVacationModeExpireTime :: !(Maybe DateTime') + , _puVacationModeDays :: !(Maybe (Textual Int32)) + , _puDeviceId :: !(Maybe (Textual Int64)) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PartnerUnclaim' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -464,16 +489,23 @@ -- -- * 'puSectionType' -- +-- * 'puVacationModeExpireTime' +-- +-- * 'puVacationModeDays' +-- -- * 'puDeviceId' partnerUnclaim :: PartnerUnclaim partnerUnclaim = - PartnerUnclaim' + PartnerUnclaim' { _puDeviceIdentifier = Nothing , _puSectionType = Nothing + , _puVacationModeExpireTime = Nothing + , _puVacationModeDays = Nothing , _puDeviceId = Nothing } + -- | Device identifier of the device. puDeviceIdentifier :: Lens' PartnerUnclaim (Maybe DeviceIdentifier) puDeviceIdentifier @@ -486,6 +518,21 @@ = lens _puSectionType (\ s a -> s{_puSectionType = a}) +-- | The expiration time of the vacation unlock. +puVacationModeExpireTime :: Lens' PartnerUnclaim (Maybe UTCTime) +puVacationModeExpireTime + = lens _puVacationModeExpireTime + (\ s a -> s{_puVacationModeExpireTime = a}) + . mapping _DateTime + +-- | The duration of the vacation unlock starting from when the request is +-- processed. (1 day is treated as 24 hours) +puVacationModeDays :: Lens' PartnerUnclaim (Maybe Int32) +puVacationModeDays + = lens _puVacationModeDays + (\ s a -> s{_puVacationModeDays = a}) + . mapping _Coerce + -- | Device ID of the device. puDeviceId :: Lens' PartnerUnclaim (Maybe Int64) puDeviceId @@ -498,6 +545,8 @@ (\ o -> PartnerUnclaim' <$> (o .:? "deviceIdentifier") <*> (o .:? "sectionType") + <*> (o .:? "vacationModeExpireTime") + <*> (o .:? "vacationModeDays") <*> (o .:? "deviceId")) instance ToJSON PartnerUnclaim where @@ -506,6 +555,9 @@ (catMaybes [("deviceIdentifier" .=) <$> _puDeviceIdentifier, ("sectionType" .=) <$> _puSectionType, + ("vacationModeExpireTime" .=) <$> + _puVacationModeExpireTime, + ("vacationModeDays" .=) <$> _puVacationModeDays, ("deviceId" .=) <$> _puDeviceId]) -- | An EMM\'s DPC ([device policy @@ -516,12 +568,15 @@ -- Google Play. -- -- /See:/ 'dpc' smart constructor. -data Dpc = Dpc' +data Dpc = + Dpc' { _dPackageName :: !(Maybe Text) , _dName :: !(Maybe Text) , _dDpcName :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Dpc' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -533,13 +588,9 @@ -- * 'dDpcName' dpc :: Dpc -dpc = - Dpc' - { _dPackageName = Nothing - , _dName = Nothing - , _dDpcName = Nothing - } +dpc = Dpc' {_dPackageName = Nothing, _dName = Nothing, _dDpcName = Nothing} + -- | Output only. The DPC\'s Android application ID that looks like a Java -- package name. Zero-touch enrollment installs the DPC app onto a device -- using this identifier. @@ -578,12 +629,15 @@ -- | Response message to list customers of the vendor. -- -- /See:/ 'listVendorCustomersResponse' smart constructor. -data ListVendorCustomersResponse = ListVendorCustomersResponse' +data ListVendorCustomersResponse = + ListVendorCustomersResponse' { _lvcrCustomers :: !(Maybe [Company]) , _lvcrNextPageToken :: !(Maybe Text) , _lvcrTotalSize :: !(Maybe (Textual Int32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListVendorCustomersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -596,12 +650,13 @@ listVendorCustomersResponse :: ListVendorCustomersResponse listVendorCustomersResponse = - ListVendorCustomersResponse' + ListVendorCustomersResponse' { _lvcrCustomers = Nothing , _lvcrNextPageToken = Nothing , _lvcrTotalSize = Nothing } + -- | List of customers of the vendor. lvcrCustomers :: Lens' ListVendorCustomersResponse [Company] lvcrCustomers @@ -645,13 +700,16 @@ -- change in the request. -- -- /See:/ 'operationPerDevice' smart constructor. -data OperationPerDevice = OperationPerDevice' +data OperationPerDevice = + OperationPerDevice' { _opdUpdateMetadata :: !(Maybe UpdateMetadataArguments) , _opdResult :: !(Maybe PerDeviceStatusInBatch) , _opdClaim :: !(Maybe PartnerClaim) , _opdUnclaim :: !(Maybe PartnerUnclaim) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationPerDevice' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -666,13 +724,14 @@ operationPerDevice :: OperationPerDevice operationPerDevice = - OperationPerDevice' + OperationPerDevice' { _opdUpdateMetadata = Nothing , _opdResult = Nothing , _opdClaim = Nothing , _opdUnclaim = Nothing } + -- | A copy of the original metadata-update request received by the server. opdUpdateMetadata :: Lens' OperationPerDevice (Maybe UpdateMetadataArguments) opdUpdateMetadata @@ -715,14 +774,17 @@ -- a network API call. -- -- /See:/ 'operation' smart constructor. -data Operation = Operation' +data Operation = + Operation' { _oDone :: !(Maybe Bool) , _oError :: !(Maybe Status) , _oResponse :: !(Maybe OperationResponse) , _oName :: !(Maybe Text) , _oMetadata :: !(Maybe OperationMetadata) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Operation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -739,7 +801,7 @@ operation :: Operation operation = - Operation' + Operation' { _oDone = Nothing , _oError = Nothing , _oResponse = Nothing @@ -747,6 +809,7 @@ , _oMetadata = Nothing } + -- | If the value is \`false\`, it means the operation is still in progress. -- If \`true\`, the operation is completed, and either \`error\` or -- \`response\` is available. @@ -807,15 +870,17 @@ -- -- /See:/ 'empty' smart constructor. data Empty = - Empty' - deriving (Eq,Show,Data,Typeable,Generic) + Empty' + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Empty' with the minimum fields required to make a request. -- empty :: Empty empty = Empty' + instance FromJSON Empty where parseJSON = withObject "Empty" (\ o -> pure Empty') @@ -825,13 +890,16 @@ -- | Captures the processing status for each device in the operation. -- -- /See:/ 'perDeviceStatusInBatch' smart constructor. -data PerDeviceStatusInBatch = PerDeviceStatusInBatch' +data PerDeviceStatusInBatch = + PerDeviceStatusInBatch' { _pdsibStatus :: !(Maybe PerDeviceStatusInBatchStatus) , _pdsibErrorIdentifier :: !(Maybe Text) , _pdsibDeviceId :: !(Maybe (Textual Int64)) , _pdsibErrorMessage :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PerDeviceStatusInBatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -846,13 +914,14 @@ perDeviceStatusInBatch :: PerDeviceStatusInBatch perDeviceStatusInBatch = - PerDeviceStatusInBatch' + PerDeviceStatusInBatch' { _pdsibStatus = Nothing , _pdsibErrorIdentifier = Nothing , _pdsibDeviceId = Nothing , _pdsibErrorMessage = Nothing } + -- | The result status of the device after processing. pdsibStatus :: Lens' PerDeviceStatusInBatch (Maybe PerDeviceStatusInBatchStatus) pdsibStatus @@ -900,10 +969,13 @@ -- customer\'s view of the portal. -- -- /See:/ 'claimDevicesRequest' smart constructor. -newtype ClaimDevicesRequest = ClaimDevicesRequest' +newtype ClaimDevicesRequest = + ClaimDevicesRequest' { _cdrClaims :: Maybe [PartnerClaim] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ClaimDevicesRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -911,11 +983,9 @@ -- * 'cdrClaims' claimDevicesRequest :: ClaimDevicesRequest -claimDevicesRequest = - ClaimDevicesRequest' - { _cdrClaims = Nothing - } +claimDevicesRequest = ClaimDevicesRequest' {_cdrClaims = Nothing} + -- | Required. A list of device claims. cdrClaims :: Lens' ClaimDevicesRequest [PartnerClaim] cdrClaims @@ -936,15 +1006,18 @@ -- | An Android device registered for zero-touch enrollment. -- -- /See:/ 'device' smart constructor. -data Device = Device' +data Device = + Device' { _devDeviceIdentifier :: !(Maybe DeviceIdentifier) , _devClaims :: !(Maybe [DeviceClaim]) , _devName :: !(Maybe Text) , _devDeviceId :: !(Maybe (Textual Int64)) , _devDeviceMetadata :: !(Maybe DeviceMetadata) , _devConfiguration :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Device' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -963,7 +1036,7 @@ device :: Device device = - Device' + Device' { _devDeviceIdentifier = Nothing , _devClaims = Nothing , _devName = Nothing @@ -972,6 +1045,7 @@ , _devConfiguration = Nothing } + -- | The hardware IDs that identify a manufactured device. To learn more, -- read [Identifiers](\/zero-touch\/guides\/identifiers). devDeviceIdentifier :: Lens' Device (Maybe DeviceIdentifier) @@ -1041,13 +1115,16 @@ -- | Request message to claim a device on behalf of a customer. -- -- /See:/ 'claimDeviceRequest' smart constructor. -data ClaimDeviceRequest = ClaimDeviceRequest' +data ClaimDeviceRequest = + ClaimDeviceRequest' { _cdrDeviceIdentifier :: !(Maybe DeviceIdentifier) , _cdrSectionType :: !(Maybe ClaimDeviceRequestSectionType) , _cdrCustomerId :: !(Maybe (Textual Int64)) , _cdrDeviceMetadata :: !(Maybe DeviceMetadata) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ClaimDeviceRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1062,13 +1139,14 @@ claimDeviceRequest :: ClaimDeviceRequest claimDeviceRequest = - ClaimDeviceRequest' + ClaimDeviceRequest' { _cdrDeviceIdentifier = Nothing , _cdrSectionType = Nothing , _cdrCustomerId = Nothing , _cdrDeviceMetadata = Nothing } + -- | Required. The device identifier of the device to claim. cdrDeviceIdentifier :: Lens' ClaimDeviceRequest (Maybe DeviceIdentifier) cdrDeviceIdentifier @@ -1121,11 +1199,14 @@ -- read [Identifiers](\/zero-touch\/guides\/identifiers). -- -- /See:/ 'deviceReference' smart constructor. -data DeviceReference = DeviceReference' +data DeviceReference = + DeviceReference' { _drDeviceIdentifier :: !(Maybe DeviceIdentifier) , _drDeviceId :: !(Maybe (Textual Int64)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeviceReference' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1136,11 +1217,9 @@ deviceReference :: DeviceReference deviceReference = - DeviceReference' - { _drDeviceIdentifier = Nothing - , _drDeviceId = Nothing - } + DeviceReference' {_drDeviceIdentifier = Nothing, _drDeviceId = Nothing} + -- | The hardware IDs of the device. drDeviceIdentifier :: Lens' DeviceReference (Maybe DeviceIdentifier) drDeviceIdentifier @@ -1170,10 +1249,13 @@ -- | Request message for customer to remove the configuration from device. -- -- /See:/ 'customerRemoveConfigurationRequest' smart constructor. -newtype CustomerRemoveConfigurationRequest = CustomerRemoveConfigurationRequest' +newtype CustomerRemoveConfigurationRequest = + CustomerRemoveConfigurationRequest' { _crcrDevice :: Maybe DeviceReference - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomerRemoveConfigurationRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1182,10 +1264,9 @@ customerRemoveConfigurationRequest :: CustomerRemoveConfigurationRequest customerRemoveConfigurationRequest = - CustomerRemoveConfigurationRequest' - { _crcrDevice = Nothing - } + CustomerRemoveConfigurationRequest' {_crcrDevice = Nothing} + -- | Required. The device to remove the configuration from. crcrDevice :: Lens' CustomerRemoveConfigurationRequest (Maybe DeviceReference) crcrDevice @@ -1209,14 +1290,17 @@ -- [Identifiers](\/zero-touch\/guides\/identifiers). -- -- /See:/ 'deviceIdentifier' smart constructor. -data DeviceIdentifier = DeviceIdentifier' +data DeviceIdentifier = + DeviceIdentifier' { _diManufacturer :: !(Maybe Text) , _diModel :: !(Maybe Text) , _diMeid :: !(Maybe Text) , _diImei :: !(Maybe Text) , _diSerialNumber :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeviceIdentifier' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1233,7 +1317,7 @@ deviceIdentifier :: DeviceIdentifier deviceIdentifier = - DeviceIdentifier' + DeviceIdentifier' { _diManufacturer = Nothing , _diModel = Nothing , _diMeid = Nothing @@ -1241,6 +1325,7 @@ , _diSerialNumber = Nothing } + -- | The device manufacturer’s name. Matches the device\'s built-in value -- returned from \`android.os.Build.MANUFACTURER\`. Allowed values are -- listed in @@ -1293,10 +1378,13 @@ -- | Request to unclaim devices asynchronously in batch. -- -- /See:/ 'unclaimDevicesRequest' smart constructor. -newtype UnclaimDevicesRequest = UnclaimDevicesRequest' +newtype UnclaimDevicesRequest = + UnclaimDevicesRequest' { _udrUnclaims :: Maybe [PartnerUnclaim] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UnclaimDevicesRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1304,11 +1392,9 @@ -- * 'udrUnclaims' unclaimDevicesRequest :: UnclaimDevicesRequest -unclaimDevicesRequest = - UnclaimDevicesRequest' - { _udrUnclaims = Nothing - } +unclaimDevicesRequest = UnclaimDevicesRequest' {_udrUnclaims = Nothing} + -- | Required. The list of devices to unclaim. udrUnclaims :: Lens' UnclaimDevicesRequest [PartnerUnclaim] udrUnclaims @@ -1330,10 +1416,13 @@ -- -- /See:/ 'statusDetailsItem' smart constructor. -newtype StatusDetailsItem = StatusDetailsItem' +newtype StatusDetailsItem = + StatusDetailsItem' { _sdiAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StatusDetailsItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1343,10 +1432,9 @@ :: HashMap Text JSONValue -- ^ 'sdiAddtional' -> StatusDetailsItem statusDetailsItem pSdiAddtional_ = - StatusDetailsItem' - { _sdiAddtional = _Coerce # pSdiAddtional_ - } + StatusDetailsItem' {_sdiAddtional = _Coerce # pSdiAddtional_} + -- | Properties of the object. Contains field \'type with type URL. sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue) sdiAddtional @@ -1364,12 +1452,15 @@ -- | Response message to list vendors of the partner. -- -- /See:/ 'listVendorsResponse' smart constructor. -data ListVendorsResponse = ListVendorsResponse' +data ListVendorsResponse = + ListVendorsResponse' { _lvrNextPageToken :: !(Maybe Text) , _lvrTotalSize :: !(Maybe (Textual Int32)) , _lvrVendors :: !(Maybe [Company]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListVendorsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1382,12 +1473,13 @@ listVendorsResponse :: ListVendorsResponse listVendorsResponse = - ListVendorsResponse' + ListVendorsResponse' { _lvrNextPageToken = Nothing , _lvrTotalSize = Nothing , _lvrVendors = Nothing } + -- | A token to retrieve the next page of results. Omitted if no further -- results are available. lvrNextPageToken :: Lens' ListVendorsResponse (Maybe Text) @@ -1428,10 +1520,13 @@ -- | Response message of customer\'s listing configuration. -- -- /See:/ 'customerListConfigurationsResponse' smart constructor. -newtype CustomerListConfigurationsResponse = CustomerListConfigurationsResponse' +newtype CustomerListConfigurationsResponse = + CustomerListConfigurationsResponse' { _clcrConfigurations :: Maybe [Configuration] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomerListConfigurationsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1440,10 +1535,9 @@ customerListConfigurationsResponse :: CustomerListConfigurationsResponse customerListConfigurationsResponse = - CustomerListConfigurationsResponse' - { _clcrConfigurations = Nothing - } + CustomerListConfigurationsResponse' {_clcrConfigurations = Nothing} + -- | The configurations. clcrConfigurations :: Lens' CustomerListConfigurationsResponse [Configuration] clcrConfigurations @@ -1470,11 +1564,14 @@ -- | Request message for customer to assign a configuration to device. -- -- /See:/ 'customerApplyConfigurationRequest' smart constructor. -data CustomerApplyConfigurationRequest = CustomerApplyConfigurationRequest' +data CustomerApplyConfigurationRequest = + CustomerApplyConfigurationRequest' { _cacrDevice :: !(Maybe DeviceReference) , _cacrConfiguration :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomerApplyConfigurationRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1485,11 +1582,10 @@ customerApplyConfigurationRequest :: CustomerApplyConfigurationRequest customerApplyConfigurationRequest = - CustomerApplyConfigurationRequest' - { _cacrDevice = Nothing - , _cacrConfiguration = Nothing - } + CustomerApplyConfigurationRequest' + {_cacrDevice = Nothing, _cacrConfiguration = Nothing} + -- | Required. The device the configuration is applied to. cacrDevice :: Lens' CustomerApplyConfigurationRequest (Maybe DeviceReference) cacrDevice @@ -1522,15 +1618,18 @@ -- APIs. -- -- /See:/ 'company' smart constructor. -data Company = Company' +data Company = + Company' { _cCompanyId :: !(Maybe (Textual Int64)) , _cCompanyName :: !(Maybe Text) , _cOwnerEmails :: !(Maybe [Text]) , _cTermsStatus :: !(Maybe CompanyTermsStatus) , _cName :: !(Maybe Text) , _cAdminEmails :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Company' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1549,7 +1648,7 @@ company :: Company company = - Company' + Company' { _cCompanyId = Nothing , _cCompanyName = Nothing , _cOwnerEmails = Nothing @@ -1558,6 +1657,7 @@ , _cAdminEmails = Nothing } + -- | Output only. The ID of the company. Assigned by the server. cCompanyId :: Lens' Company (Maybe Int64) cCompanyId @@ -1628,11 +1728,14 @@ -- | Response message for listing my customers. -- -- /See:/ 'customerListCustomersResponse' smart constructor. -data CustomerListCustomersResponse = CustomerListCustomersResponse' +data CustomerListCustomersResponse = + CustomerListCustomersResponse' { _clcrCustomers :: !(Maybe [Company]) , _clcrNextPageToken :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomerListCustomersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1643,11 +1746,10 @@ customerListCustomersResponse :: CustomerListCustomersResponse customerListCustomersResponse = - CustomerListCustomersResponse' - { _clcrCustomers = Nothing - , _clcrNextPageToken = Nothing - } + CustomerListCustomersResponse' + {_clcrCustomers = Nothing, _clcrNextPageToken = Nothing} + -- | The customer accounts the calling user is a member of. clcrCustomers :: Lens' CustomerListCustomersResponse [Company] clcrCustomers @@ -1684,36 +1786,64 @@ -- customers](\/zero-touch\/guides\/how-it-works#claim). -- -- /See:/ 'deviceClaim' smart constructor. -data DeviceClaim = DeviceClaim' - { _dcSectionType :: !(Maybe DeviceClaimSectionType) - , _dcOwnerCompanyId :: !(Maybe (Textual Int64)) - , _dcResellerId :: !(Maybe (Textual Int64)) - } deriving (Eq,Show,Data,Typeable,Generic) +data DeviceClaim = + DeviceClaim' + { _dcSectionType :: !(Maybe DeviceClaimSectionType) + , _dcVacationModeExpireTime :: !(Maybe DateTime') + , _dcVacationModeStartTime :: !(Maybe DateTime') + , _dcOwnerCompanyId :: !(Maybe (Textual Int64)) + , _dcResellerId :: !(Maybe (Textual Int64)) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeviceClaim' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dcSectionType' -- +-- * 'dcVacationModeExpireTime' +-- +-- * 'dcVacationModeStartTime' +-- -- * 'dcOwnerCompanyId' -- -- * 'dcResellerId' deviceClaim :: DeviceClaim deviceClaim = - DeviceClaim' + DeviceClaim' { _dcSectionType = Nothing + , _dcVacationModeExpireTime = Nothing + , _dcVacationModeStartTime = Nothing , _dcOwnerCompanyId = Nothing , _dcResellerId = Nothing } + -- | Output only. The type of claim made on the device. dcSectionType :: Lens' DeviceClaim (Maybe DeviceClaimSectionType) dcSectionType = lens _dcSectionType (\ s a -> s{_dcSectionType = a}) +-- | The timestamp when the device will exit ‘vacation mode’. This value is +-- present iff the device is in \'vacation mode\'. +dcVacationModeExpireTime :: Lens' DeviceClaim (Maybe UTCTime) +dcVacationModeExpireTime + = lens _dcVacationModeExpireTime + (\ s a -> s{_dcVacationModeExpireTime = a}) + . mapping _DateTime + +-- | The timestamp when the device was put into ‘vacation mode’. This value +-- is present iff the device is in \'vacation mode\'. +dcVacationModeStartTime :: Lens' DeviceClaim (Maybe UTCTime) +dcVacationModeStartTime + = lens _dcVacationModeStartTime + (\ s a -> s{_dcVacationModeStartTime = a}) + . mapping _DateTime + -- | The ID of the Customer that purchased the device. dcOwnerCompanyId :: Lens' DeviceClaim (Maybe Int64) dcOwnerCompanyId @@ -1732,7 +1862,10 @@ = withObject "DeviceClaim" (\ o -> DeviceClaim' <$> - (o .:? "sectionType") <*> (o .:? "ownerCompanyId") + (o .:? "sectionType") <*> + (o .:? "vacationModeExpireTime") + <*> (o .:? "vacationModeStartTime") + <*> (o .:? "ownerCompanyId") <*> (o .:? "resellerId")) instance ToJSON DeviceClaim where @@ -1740,16 +1873,23 @@ = object (catMaybes [("sectionType" .=) <$> _dcSectionType, + ("vacationModeExpireTime" .=) <$> + _dcVacationModeExpireTime, + ("vacationModeStartTime" .=) <$> + _dcVacationModeStartTime, ("ownerCompanyId" .=) <$> _dcOwnerCompanyId, ("resellerId" .=) <$> _dcResellerId]) -- | Request to set metadata for a device. -- -- /See:/ 'updateDeviceMetadataRequest' smart constructor. -newtype UpdateDeviceMetadataRequest = UpdateDeviceMetadataRequest' +newtype UpdateDeviceMetadataRequest = + UpdateDeviceMetadataRequest' { _udmrDeviceMetadata :: Maybe DeviceMetadata - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateDeviceMetadataRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1758,10 +1898,9 @@ updateDeviceMetadataRequest :: UpdateDeviceMetadataRequest updateDeviceMetadataRequest = - UpdateDeviceMetadataRequest' - { _udmrDeviceMetadata = Nothing - } + UpdateDeviceMetadataRequest' {_udmrDeviceMetadata = Nothing} + -- | Required. The metdata to attach to the device. udmrDeviceMetadata :: Lens' UpdateDeviceMetadataRequest (Maybe DeviceMetadata) udmrDeviceMetadata @@ -1785,10 +1924,13 @@ -- read [Device metadata](\/zero-touch\/guides\/metadata). -- -- /See:/ 'deviceMetadata' smart constructor. -newtype DeviceMetadata = DeviceMetadata' +newtype DeviceMetadata = + DeviceMetadata' { _dmEntries :: Maybe DeviceMetadataEntries - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeviceMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1796,11 +1938,9 @@ -- * 'dmEntries' deviceMetadata :: DeviceMetadata -deviceMetadata = - DeviceMetadata' - { _dmEntries = Nothing - } +deviceMetadata = DeviceMetadata' {_dmEntries = Nothing} + -- | Metadata entries recorded as key-value pairs. dmEntries :: Lens' DeviceMetadata (Maybe DeviceMetadataEntries) dmEntries @@ -1818,13 +1958,16 @@ -- | Request to find devices by customers. -- -- /See:/ 'findDevicesByOwnerRequest' smart constructor. -data FindDevicesByOwnerRequest = FindDevicesByOwnerRequest' +data FindDevicesByOwnerRequest = + FindDevicesByOwnerRequest' { _fdborSectionType :: !(Maybe FindDevicesByOwnerRequestSectionType) , _fdborCustomerId :: !(Maybe [Textual Int64]) , _fdborLimit :: !(Maybe (Textual Int64)) , _fdborPageToken :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'FindDevicesByOwnerRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1839,13 +1982,14 @@ findDevicesByOwnerRequest :: FindDevicesByOwnerRequest findDevicesByOwnerRequest = - FindDevicesByOwnerRequest' + FindDevicesByOwnerRequest' { _fdborSectionType = Nothing , _fdborCustomerId = Nothing , _fdborLimit = Nothing , _fdborPageToken = Nothing } + -- | Required. The section type of the device\'s provisioning record. fdborSectionType :: Lens' FindDevicesByOwnerRequest (Maybe FindDevicesByOwnerRequestSectionType) fdborSectionType @@ -1895,12 +2039,15 @@ -- | Response containing found devices. -- -- /See:/ 'findDevicesByDeviceIdentifierResponse' smart constructor. -data FindDevicesByDeviceIdentifierResponse = FindDevicesByDeviceIdentifierResponse' +data FindDevicesByDeviceIdentifierResponse = + FindDevicesByDeviceIdentifierResponse' { _fdbdirNextPageToken :: !(Maybe Text) , _fdbdirTotalSize :: !(Maybe (Textual Int32)) , _fdbdirDevices :: !(Maybe [Device]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'FindDevicesByDeviceIdentifierResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1913,12 +2060,13 @@ findDevicesByDeviceIdentifierResponse :: FindDevicesByDeviceIdentifierResponse findDevicesByDeviceIdentifierResponse = - FindDevicesByDeviceIdentifierResponse' + FindDevicesByDeviceIdentifierResponse' { _fdbdirNextPageToken = Nothing , _fdbdirTotalSize = Nothing , _fdbdirDevices = Nothing } + -- | A token used to access the next page of results. Omitted if no further -- results are available. fdbdirNextPageToken :: Lens' FindDevicesByDeviceIdentifierResponse (Maybe Text) @@ -1942,7 +2090,8 @@ . _Coerce instance FromJSON - FindDevicesByDeviceIdentifierResponse where + FindDevicesByDeviceIdentifierResponse + where parseJSON = withObject "FindDevicesByDeviceIdentifierResponse" (\ o -> @@ -1962,12 +2111,17 @@ -- | Request message to unclaim a device. -- -- /See:/ 'unclaimDeviceRequest' smart constructor. -data UnclaimDeviceRequest = UnclaimDeviceRequest' - { _udrDeviceIdentifier :: !(Maybe DeviceIdentifier) - , _udrSectionType :: !(Maybe UnclaimDeviceRequestSectionType) - , _udrDeviceId :: !(Maybe (Textual Int64)) - } deriving (Eq,Show,Data,Typeable,Generic) +data UnclaimDeviceRequest = + UnclaimDeviceRequest' + { _udrDeviceIdentifier :: !(Maybe DeviceIdentifier) + , _udrSectionType :: !(Maybe UnclaimDeviceRequestSectionType) + , _udrVacationModeExpireTime :: !(Maybe DateTime') + , _udrVacationModeDays :: !(Maybe (Textual Int32)) + , _udrDeviceId :: !(Maybe (Textual Int64)) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UnclaimDeviceRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1976,16 +2130,23 @@ -- -- * 'udrSectionType' -- +-- * 'udrVacationModeExpireTime' +-- +-- * 'udrVacationModeDays' +-- -- * 'udrDeviceId' unclaimDeviceRequest :: UnclaimDeviceRequest unclaimDeviceRequest = - UnclaimDeviceRequest' + UnclaimDeviceRequest' { _udrDeviceIdentifier = Nothing , _udrSectionType = Nothing + , _udrVacationModeExpireTime = Nothing + , _udrVacationModeDays = Nothing , _udrDeviceId = Nothing } + -- | The device identifier you used when you claimed this device. udrDeviceIdentifier :: Lens' UnclaimDeviceRequest (Maybe DeviceIdentifier) udrDeviceIdentifier @@ -1998,6 +2159,21 @@ = lens _udrSectionType (\ s a -> s{_udrSectionType = a}) +-- | The expiration time of the vacation unlock. +udrVacationModeExpireTime :: Lens' UnclaimDeviceRequest (Maybe UTCTime) +udrVacationModeExpireTime + = lens _udrVacationModeExpireTime + (\ s a -> s{_udrVacationModeExpireTime = a}) + . mapping _DateTime + +-- | The duration of the vacation unlock starting from when the request is +-- processed. (1 day is treated as 24 hours) +udrVacationModeDays :: Lens' UnclaimDeviceRequest (Maybe Int32) +udrVacationModeDays + = lens _udrVacationModeDays + (\ s a -> s{_udrVacationModeDays = a}) + . mapping _Coerce + -- | The device ID returned by \`ClaimDevice\`. udrDeviceId :: Lens' UnclaimDeviceRequest (Maybe Int64) udrDeviceId @@ -2010,6 +2186,8 @@ (\ o -> UnclaimDeviceRequest' <$> (o .:? "deviceIdentifier") <*> (o .:? "sectionType") + <*> (o .:? "vacationModeExpireTime") + <*> (o .:? "vacationModeDays") <*> (o .:? "deviceId")) instance ToJSON UnclaimDeviceRequest where @@ -2018,6 +2196,9 @@ (catMaybes [("deviceIdentifier" .=) <$> _udrDeviceIdentifier, ("sectionType" .=) <$> _udrSectionType, + ("vacationModeExpireTime" .=) <$> + _udrVacationModeExpireTime, + ("vacationModeDays" .=) <$> _udrVacationModeDays, ("deviceId" .=) <$> _udrDeviceId]) -- | Tracks the status of a long-running operation to claim, unclaim, or @@ -2025,11 +2206,14 @@ -- operations](\/zero-touch\/guides\/how-it-works#operations). -- -- /See:/ 'devicesLongRunningOperationResponse' smart constructor. -data DevicesLongRunningOperationResponse = DevicesLongRunningOperationResponse' +data DevicesLongRunningOperationResponse = + DevicesLongRunningOperationResponse' { _dlrorSuccessCount :: !(Maybe (Textual Int32)) , _dlrorPerDeviceStatus :: !(Maybe [OperationPerDevice]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DevicesLongRunningOperationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2040,11 +2224,10 @@ devicesLongRunningOperationResponse :: DevicesLongRunningOperationResponse devicesLongRunningOperationResponse = - DevicesLongRunningOperationResponse' - { _dlrorSuccessCount = Nothing - , _dlrorPerDeviceStatus = Nothing - } + DevicesLongRunningOperationResponse' + {_dlrorSuccessCount = Nothing, _dlrorPerDeviceStatus = Nothing} + -- | A summary of how many items in the operation the server processed -- successfully. Updated as the operation progresses. dlrorSuccessCount :: Lens' DevicesLongRunningOperationResponse (Maybe Int32) @@ -2090,7 +2273,8 @@ -- purchases. -- -- /See:/ 'configuration' smart constructor. -data Configuration = Configuration' +data Configuration = + Configuration' { _conContactPhone :: !(Maybe Text) , _conContactEmail :: !(Maybe Text) , _conConfigurationName :: !(Maybe Text) @@ -2101,8 +2285,10 @@ , _conName :: !(Maybe Text) , _conDpcResourcePath :: !(Maybe Text) , _conIsDefault :: !(Maybe Bool) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Configuration' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2129,7 +2315,7 @@ configuration :: Configuration configuration = - Configuration' + Configuration' { _conContactPhone = Nothing , _conContactEmail = Nothing , _conConfigurationName = Nothing @@ -2142,6 +2328,7 @@ , _conIsDefault = Nothing } + -- | Required. The telephone number that device users can call, using another -- device, to get help. Zero-touch enrollment shows this number to device -- users before device provisioning. Accepts numerals, spaces, the plus @@ -2253,10 +2440,13 @@ -- \`updateMetadataAsync\`. -- -- /See:/ 'operationMetadata' smart constructor. -newtype OperationMetadata = OperationMetadata' +newtype OperationMetadata = + OperationMetadata' { _omAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2266,10 +2456,9 @@ :: HashMap Text JSONValue -- ^ 'omAddtional' -> OperationMetadata operationMetadata pOmAddtional_ = - OperationMetadata' - { _omAddtional = _Coerce # pOmAddtional_ - } + OperationMetadata' {_omAddtional = _Coerce # pOmAddtional_} + -- | Properties of the object. Contains field \'type with type URL. omAddtional :: Lens' OperationMetadata (HashMap Text JSONValue) omAddtional @@ -2287,12 +2476,15 @@ -- | Response message of all customers related to this partner. -- -- /See:/ 'listCustomersResponse' smart constructor. -data ListCustomersResponse = ListCustomersResponse' +data ListCustomersResponse = + ListCustomersResponse' { _lcrCustomers :: !(Maybe [Company]) , _lcrNextPageToken :: !(Maybe Text) , _lcrTotalSize :: !(Maybe (Textual Int32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListCustomersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2305,12 +2497,13 @@ listCustomersResponse :: ListCustomersResponse listCustomersResponse = - ListCustomersResponse' + ListCustomersResponse' { _lcrCustomers = Nothing , _lcrNextPageToken = Nothing , _lcrTotalSize = Nothing } + -- | List of customers related to this reseller partner. lcrCustomers :: Lens' ListCustomersResponse [Company] lcrCustomers @@ -2354,12 +2547,15 @@ -- operations](\/zero-touch\/guides\/how-it-works#operations). -- -- /See:/ 'devicesLongRunningOperationMetadata' smart constructor. -data DevicesLongRunningOperationMetadata = DevicesLongRunningOperationMetadata' +data DevicesLongRunningOperationMetadata = + DevicesLongRunningOperationMetadata' { _dlromProgress :: !(Maybe (Textual Int32)) , _dlromDevicesCount :: !(Maybe (Textual Int32)) , _dlromProcessingStatus :: !(Maybe DevicesLongRunningOperationMetadataProcessingStatus) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DevicesLongRunningOperationMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2372,12 +2568,13 @@ devicesLongRunningOperationMetadata :: DevicesLongRunningOperationMetadata devicesLongRunningOperationMetadata = - DevicesLongRunningOperationMetadata' + DevicesLongRunningOperationMetadata' { _dlromProgress = Nothing , _dlromDevicesCount = Nothing , _dlromProcessingStatus = Nothing } + -- | The processing progress of the operation. Measured as a number from 0 to -- 100. A value of 10O doesnt always mean the operation completed—check for -- the inclusion of a \`done\` field. @@ -2425,10 +2622,13 @@ -- \`updateMetadataAsync\`. -- -- /See:/ 'operationResponse' smart constructor. -newtype OperationResponse = OperationResponse' +newtype OperationResponse = + OperationResponse' { _orAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2438,10 +2638,9 @@ :: HashMap Text JSONValue -- ^ 'orAddtional' -> OperationResponse operationResponse pOrAddtional_ = - OperationResponse' - { _orAddtional = _Coerce # pOrAddtional_ - } + OperationResponse' {_orAddtional = _Coerce # pOrAddtional_} + -- | Properties of the object. Contains field \'type with type URL. orAddtional :: Lens' OperationResponse (HashMap Text JSONValue) orAddtional @@ -2459,11 +2658,14 @@ -- | Response message of customer\'s liting devices. -- -- /See:/ 'customerListDevicesResponse' smart constructor. -data CustomerListDevicesResponse = CustomerListDevicesResponse' +data CustomerListDevicesResponse = + CustomerListDevicesResponse' { _cldrNextPageToken :: !(Maybe Text) , _cldrDevices :: !(Maybe [Device]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomerListDevicesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2474,11 +2676,10 @@ customerListDevicesResponse :: CustomerListDevicesResponse customerListDevicesResponse = - CustomerListDevicesResponse' - { _cldrNextPageToken = Nothing - , _cldrDevices = Nothing - } + CustomerListDevicesResponse' + {_cldrNextPageToken = Nothing, _cldrDevices = Nothing} + -- | A token used to access the next page of results. Omitted if no further -- results are available. cldrNextPageToken :: Lens' CustomerListDevicesResponse (Maybe Text) @@ -2511,10 +2712,13 @@ -- | Request to update device metadata in batch. -- -- /See:/ 'updateDeviceMetadataInBatchRequest' smart constructor. -newtype UpdateDeviceMetadataInBatchRequest = UpdateDeviceMetadataInBatchRequest' +newtype UpdateDeviceMetadataInBatchRequest = + UpdateDeviceMetadataInBatchRequest' { _udmibrUpdates :: Maybe [UpdateMetadataArguments] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateDeviceMetadataInBatchRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2523,10 +2727,9 @@ updateDeviceMetadataInBatchRequest :: UpdateDeviceMetadataInBatchRequest updateDeviceMetadataInBatchRequest = - UpdateDeviceMetadataInBatchRequest' - { _udmibrUpdates = Nothing - } + UpdateDeviceMetadataInBatchRequest' {_udmibrUpdates = Nothing} + -- | Required. The list of metadata updates. udmibrUpdates :: Lens' UpdateDeviceMetadataInBatchRequest [UpdateMetadataArguments] udmibrUpdates @@ -2552,10 +2755,13 @@ -- | Response message of customer\'s listing DPCs. -- -- /See:/ 'customerListDpcsResponse' smart constructor. -newtype CustomerListDpcsResponse = CustomerListDpcsResponse' +newtype CustomerListDpcsResponse = + CustomerListDpcsResponse' { _cldrDpcs :: Maybe [Dpc] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomerListDpcsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2563,11 +2769,9 @@ -- * 'cldrDpcs' customerListDpcsResponse :: CustomerListDpcsResponse -customerListDpcsResponse = - CustomerListDpcsResponse' - { _cldrDpcs = Nothing - } +customerListDpcsResponse = CustomerListDpcsResponse' {_cldrDpcs = Nothing} + -- | The list of DPCs available to the customer that support zero-touch -- enrollment. cldrDpcs :: Lens' CustomerListDpcsResponse [Dpc] @@ -2590,11 +2794,14 @@ -- | Response message containing device id of the claim. -- -- /See:/ 'claimDeviceResponse' smart constructor. -data ClaimDeviceResponse = ClaimDeviceResponse' +data ClaimDeviceResponse = + ClaimDeviceResponse' { _cdrDeviceName :: !(Maybe Text) , _cdrDeviceId :: !(Maybe (Textual Int64)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ClaimDeviceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2605,11 +2812,9 @@ claimDeviceResponse :: ClaimDeviceResponse claimDeviceResponse = - ClaimDeviceResponse' - { _cdrDeviceName = Nothing - , _cdrDeviceId = Nothing - } + ClaimDeviceResponse' {_cdrDeviceName = Nothing, _cdrDeviceId = Nothing} + -- | The resource name of the device in the format -- \`partners\/[PARTNER_ID]\/devices\/[DEVICE_ID]\`. cdrDeviceName :: Lens' ClaimDeviceResponse (Maybe Text) @@ -2640,10 +2845,13 @@ -- | Request message to create a customer. -- -- /See:/ 'createCustomerRequest' smart constructor. -newtype CreateCustomerRequest = CreateCustomerRequest' +newtype CreateCustomerRequest = + CreateCustomerRequest' { _ccrCustomer :: Maybe Company - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateCustomerRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2651,10 +2859,8 @@ -- * 'ccrCustomer' createCustomerRequest :: CreateCustomerRequest -createCustomerRequest = - CreateCustomerRequest' - { _ccrCustomer = Nothing - } +createCustomerRequest = CreateCustomerRequest' {_ccrCustomer = Nothing} + -- | Required. The company data to populate the new customer. Must contain a -- value for \`companyName\` and at least one \`owner_email\` that\'s diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Create.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Create.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Create.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Create.hs @@ -65,7 +65,8 @@ -- configuration to devices. -- -- /See:/ 'customersConfigurationsCreate' smart constructor. -data CustomersConfigurationsCreate = CustomersConfigurationsCreate' +data CustomersConfigurationsCreate = + CustomersConfigurationsCreate' { _cccParent :: !Text , _cccXgafv :: !(Maybe Xgafv) , _cccUploadProtocol :: !(Maybe Text) @@ -73,8 +74,10 @@ , _cccUploadType :: !(Maybe Text) , _cccPayload :: !Configuration , _cccCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomersConfigurationsCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -97,7 +100,7 @@ -> Configuration -- ^ 'cccPayload' -> CustomersConfigurationsCreate customersConfigurationsCreate pCccParent_ pCccPayload_ = - CustomersConfigurationsCreate' + CustomersConfigurationsCreate' { _cccParent = pCccParent_ , _cccXgafv = Nothing , _cccUploadProtocol = Nothing @@ -106,6 +109,7 @@ , _cccPayload = pCccPayload_ , _cccCallback = Nothing } + -- | Required. The customer that manages the configuration. An API resource -- name in the format \`customers\/[CUSTOMER_ID]\`. diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Delete.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Delete.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Delete.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Delete.hs @@ -61,15 +61,18 @@ -- devices with the configuration applied. -- -- /See:/ 'customersConfigurationsDelete' smart constructor. -data CustomersConfigurationsDelete = CustomersConfigurationsDelete' +data CustomersConfigurationsDelete = + CustomersConfigurationsDelete' { _ccdXgafv :: !(Maybe Xgafv) , _ccdUploadProtocol :: !(Maybe Text) , _ccdAccessToken :: !(Maybe Text) , _ccdUploadType :: !(Maybe Text) , _ccdName :: !Text , _ccdCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomersConfigurationsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -89,7 +92,7 @@ :: Text -- ^ 'ccdName' -> CustomersConfigurationsDelete customersConfigurationsDelete pCcdName_ = - CustomersConfigurationsDelete' + CustomersConfigurationsDelete' { _ccdXgafv = Nothing , _ccdUploadProtocol = Nothing , _ccdAccessToken = Nothing @@ -97,6 +100,7 @@ , _ccdName = pCcdName_ , _ccdCallback = Nothing } + -- | V1 error format. ccdXgafv :: Lens' CustomersConfigurationsDelete (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Get.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Get.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Get.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Get.hs @@ -59,15 +59,18 @@ -- | Gets the details of a configuration. -- -- /See:/ 'customersConfigurationsGet' smart constructor. -data CustomersConfigurationsGet = CustomersConfigurationsGet' +data CustomersConfigurationsGet = + CustomersConfigurationsGet' { _ccgXgafv :: !(Maybe Xgafv) , _ccgUploadProtocol :: !(Maybe Text) , _ccgAccessToken :: !(Maybe Text) , _ccgUploadType :: !(Maybe Text) , _ccgName :: !Text , _ccgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomersConfigurationsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -87,7 +90,7 @@ :: Text -- ^ 'ccgName' -> CustomersConfigurationsGet customersConfigurationsGet pCcgName_ = - CustomersConfigurationsGet' + CustomersConfigurationsGet' { _ccgXgafv = Nothing , _ccgUploadProtocol = Nothing , _ccgAccessToken = Nothing @@ -95,6 +98,7 @@ , _ccgName = pCcgName_ , _ccgCallback = Nothing } + -- | V1 error format. ccgXgafv :: Lens' CustomersConfigurationsGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/List.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/List.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/List.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/List.hs @@ -61,15 +61,18 @@ -- | Lists a customer\'s configurations. -- -- /See:/ 'customersConfigurationsList' smart constructor. -data CustomersConfigurationsList = CustomersConfigurationsList' +data CustomersConfigurationsList = + CustomersConfigurationsList' { _cclParent :: !Text , _cclXgafv :: !(Maybe Xgafv) , _cclUploadProtocol :: !(Maybe Text) , _cclAccessToken :: !(Maybe Text) , _cclUploadType :: !(Maybe Text) , _cclCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomersConfigurationsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -89,7 +92,7 @@ :: Text -- ^ 'cclParent' -> CustomersConfigurationsList customersConfigurationsList pCclParent_ = - CustomersConfigurationsList' + CustomersConfigurationsList' { _cclParent = pCclParent_ , _cclXgafv = Nothing , _cclUploadProtocol = Nothing @@ -97,6 +100,7 @@ , _cclUploadType = Nothing , _cclCallback = Nothing } + -- | Required. The customer that manages the listed configurations. An API -- resource name in the format \`customers\/[CUSTOMER_ID]\`. diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Patch.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Patch.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Patch.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Patch.hs @@ -64,7 +64,8 @@ -- | Updates a configuration\'s field values. -- -- /See:/ 'customersConfigurationsPatch' smart constructor. -data CustomersConfigurationsPatch = CustomersConfigurationsPatch' +data CustomersConfigurationsPatch = + CustomersConfigurationsPatch' { _ccpXgafv :: !(Maybe Xgafv) , _ccpUploadProtocol :: !(Maybe Text) , _ccpUpdateMask :: !(Maybe GFieldMask) @@ -73,8 +74,10 @@ , _ccpPayload :: !Configuration , _ccpName :: !Text , _ccpCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomersConfigurationsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -99,7 +102,7 @@ -> Text -- ^ 'ccpName' -> CustomersConfigurationsPatch customersConfigurationsPatch pCcpPayload_ pCcpName_ = - CustomersConfigurationsPatch' + CustomersConfigurationsPatch' { _ccpXgafv = Nothing , _ccpUploadProtocol = Nothing , _ccpUpdateMask = Nothing @@ -109,6 +112,7 @@ , _ccpName = pCcpName_ , _ccpCallback = Nothing } + -- | V1 error format. ccpXgafv :: Lens' CustomersConfigurationsPatch (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/ApplyConfiguration.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/ApplyConfiguration.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/ApplyConfiguration.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/ApplyConfiguration.hs @@ -69,7 +69,8 @@ -- reset. -- -- /See:/ 'customersDevicesApplyConfiguration' smart constructor. -data CustomersDevicesApplyConfiguration = CustomersDevicesApplyConfiguration' +data CustomersDevicesApplyConfiguration = + CustomersDevicesApplyConfiguration' { _cdacParent :: !Text , _cdacXgafv :: !(Maybe Xgafv) , _cdacUploadProtocol :: !(Maybe Text) @@ -77,8 +78,10 @@ , _cdacUploadType :: !(Maybe Text) , _cdacPayload :: !CustomerApplyConfigurationRequest , _cdacCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomersDevicesApplyConfiguration' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -101,7 +104,7 @@ -> CustomerApplyConfigurationRequest -- ^ 'cdacPayload' -> CustomersDevicesApplyConfiguration customersDevicesApplyConfiguration pCdacParent_ pCdacPayload_ = - CustomersDevicesApplyConfiguration' + CustomersDevicesApplyConfiguration' { _cdacParent = pCdacParent_ , _cdacXgafv = Nothing , _cdacUploadProtocol = Nothing @@ -111,6 +114,7 @@ , _cdacCallback = Nothing } + -- | Required. The customer managing the device. An API resource name in the -- format \`customers\/[CUSTOMER_ID]\`. cdacParent :: Lens' CustomersDevicesApplyConfiguration Text @@ -151,7 +155,8 @@ = lens _cdacCallback (\ s a -> s{_cdacCallback = a}) instance GoogleRequest - CustomersDevicesApplyConfiguration where + CustomersDevicesApplyConfiguration + where type Rs CustomersDevicesApplyConfiguration = Empty type Scopes CustomersDevicesApplyConfiguration = '[] requestClient CustomersDevicesApplyConfiguration'{..} diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/Get.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/Get.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/Get.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/Get.hs @@ -59,15 +59,18 @@ -- | Gets the details of a device. -- -- /See:/ 'customersDevicesGet' smart constructor. -data CustomersDevicesGet = CustomersDevicesGet' +data CustomersDevicesGet = + CustomersDevicesGet' { _cdgXgafv :: !(Maybe Xgafv) , _cdgUploadProtocol :: !(Maybe Text) , _cdgAccessToken :: !(Maybe Text) , _cdgUploadType :: !(Maybe Text) , _cdgName :: !Text , _cdgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomersDevicesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -87,7 +90,7 @@ :: Text -- ^ 'cdgName' -> CustomersDevicesGet customersDevicesGet pCdgName_ = - CustomersDevicesGet' + CustomersDevicesGet' { _cdgXgafv = Nothing , _cdgUploadProtocol = Nothing , _cdgAccessToken = Nothing @@ -95,6 +98,7 @@ , _cdgName = pCdgName_ , _cdgCallback = Nothing } + -- | V1 error format. cdgXgafv :: Lens' CustomersDevicesGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/List.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/List.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/List.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/List.hs @@ -65,7 +65,8 @@ -- | Lists a customer\'s devices. -- -- /See:/ 'customersDevicesList' smart constructor. -data CustomersDevicesList = CustomersDevicesList' +data CustomersDevicesList = + CustomersDevicesList' { _cParent :: !Text , _cXgafv :: !(Maybe Xgafv) , _cUploadProtocol :: !(Maybe Text) @@ -74,8 +75,10 @@ , _cPageToken :: !(Maybe Text) , _cPageSize :: !(Maybe (Textual Int64)) , _cCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomersDevicesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -99,7 +102,7 @@ :: Text -- ^ 'cParent' -> CustomersDevicesList customersDevicesList pCParent_ = - CustomersDevicesList' + CustomersDevicesList' { _cParent = pCParent_ , _cXgafv = Nothing , _cUploadProtocol = Nothing @@ -109,6 +112,7 @@ , _cPageSize = Nothing , _cCallback = Nothing } + -- | Required. The customer managing the devices. An API resource name in the -- format \`customers\/[CUSTOMER_ID]\`. diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/RemoveConfiguration.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/RemoveConfiguration.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/RemoveConfiguration.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/RemoveConfiguration.hs @@ -63,7 +63,8 @@ -- | Removes a configuration from device. -- -- /See:/ 'customersDevicesRemoveConfiguration' smart constructor. -data CustomersDevicesRemoveConfiguration = CustomersDevicesRemoveConfiguration' +data CustomersDevicesRemoveConfiguration = + CustomersDevicesRemoveConfiguration' { _cdrcParent :: !Text , _cdrcXgafv :: !(Maybe Xgafv) , _cdrcUploadProtocol :: !(Maybe Text) @@ -71,8 +72,10 @@ , _cdrcUploadType :: !(Maybe Text) , _cdrcPayload :: !CustomerRemoveConfigurationRequest , _cdrcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomersDevicesRemoveConfiguration' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -95,7 +98,7 @@ -> CustomerRemoveConfigurationRequest -- ^ 'cdrcPayload' -> CustomersDevicesRemoveConfiguration customersDevicesRemoveConfiguration pCdrcParent_ pCdrcPayload_ = - CustomersDevicesRemoveConfiguration' + CustomersDevicesRemoveConfiguration' { _cdrcParent = pCdrcParent_ , _cdrcXgafv = Nothing , _cdrcUploadProtocol = Nothing @@ -105,6 +108,7 @@ , _cdrcCallback = Nothing } + -- | Required. The customer managing the device in the format -- \`customers\/[CUSTOMER_ID]\`. cdrcParent :: Lens' CustomersDevicesRemoveConfiguration Text @@ -145,7 +149,8 @@ = lens _cdrcCallback (\ s a -> s{_cdrcCallback = a}) instance GoogleRequest - CustomersDevicesRemoveConfiguration where + CustomersDevicesRemoveConfiguration + where type Rs CustomersDevicesRemoveConfiguration = Empty type Scopes CustomersDevicesRemoveConfiguration = '[] requestClient diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/Unclaim.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/Unclaim.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/Unclaim.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/Unclaim.hs @@ -67,7 +67,8 @@ -- reseller to register the device into zero-touch enrollment again. -- -- /See:/ 'customersDevicesUnclaim' smart constructor. -data CustomersDevicesUnclaim = CustomersDevicesUnclaim' +data CustomersDevicesUnclaim = + CustomersDevicesUnclaim' { _cduParent :: !Text , _cduXgafv :: !(Maybe Xgafv) , _cduUploadProtocol :: !(Maybe Text) @@ -75,8 +76,10 @@ , _cduUploadType :: !(Maybe Text) , _cduPayload :: !CustomerUnclaimDeviceRequest , _cduCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomersDevicesUnclaim' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -99,7 +102,7 @@ -> CustomerUnclaimDeviceRequest -- ^ 'cduPayload' -> CustomersDevicesUnclaim customersDevicesUnclaim pCduParent_ pCduPayload_ = - CustomersDevicesUnclaim' + CustomersDevicesUnclaim' { _cduParent = pCduParent_ , _cduXgafv = Nothing , _cduUploadProtocol = Nothing @@ -108,6 +111,7 @@ , _cduPayload = pCduPayload_ , _cduCallback = Nothing } + -- | Required. The customer managing the device. An API resource name in the -- format \`customers\/[CUSTOMER_ID]\`. diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Dpcs/List.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Dpcs/List.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Dpcs/List.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Dpcs/List.hs @@ -63,15 +63,18 @@ -- enrollment. -- -- /See:/ 'customersDpcsList' smart constructor. -data CustomersDpcsList = CustomersDpcsList' +data CustomersDpcsList = + CustomersDpcsList' { _cdlParent :: !Text , _cdlXgafv :: !(Maybe Xgafv) , _cdlUploadProtocol :: !(Maybe Text) , _cdlAccessToken :: !(Maybe Text) , _cdlUploadType :: !(Maybe Text) , _cdlCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomersDpcsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -91,7 +94,7 @@ :: Text -- ^ 'cdlParent' -> CustomersDpcsList customersDpcsList pCdlParent_ = - CustomersDpcsList' + CustomersDpcsList' { _cdlParent = pCdlParent_ , _cdlXgafv = Nothing , _cdlUploadProtocol = Nothing @@ -99,6 +102,7 @@ , _cdlUploadType = Nothing , _cdlCallback = Nothing } + -- | Required. The customer that can use the DPCs in configurations. An API -- resource name in the format \`customers\/[CUSTOMER_ID]\`. diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/List.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/List.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/List.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/List.hs @@ -63,7 +63,8 @@ -- | Lists the user\'s customer accounts. -- -- /See:/ 'customersList' smart constructor. -data CustomersList = CustomersList' +data CustomersList = + CustomersList' { _clXgafv :: !(Maybe Xgafv) , _clUploadProtocol :: !(Maybe Text) , _clAccessToken :: !(Maybe Text) @@ -71,8 +72,10 @@ , _clPageToken :: !(Maybe Text) , _clPageSize :: !(Maybe (Textual Int32)) , _clCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomersList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -93,7 +96,7 @@ customersList :: CustomersList customersList = - CustomersList' + CustomersList' { _clXgafv = Nothing , _clUploadProtocol = Nothing , _clAccessToken = Nothing @@ -102,6 +105,7 @@ , _clPageSize = Nothing , _clCallback = Nothing } + -- | V1 error format. clXgafv :: Lens' CustomersList (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Operations/Get.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Operations/Get.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Operations/Get.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Operations/Get.hs @@ -63,15 +63,18 @@ -- API service. -- -- /See:/ 'operationsGet' smart constructor. -data OperationsGet = OperationsGet' +data OperationsGet = + OperationsGet' { _ogXgafv :: !(Maybe Xgafv) , _ogUploadProtocol :: !(Maybe Text) , _ogAccessToken :: !(Maybe Text) , _ogUploadType :: !(Maybe Text) , _ogName :: !Text , _ogCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -91,7 +94,7 @@ :: Text -- ^ 'ogName' -> OperationsGet operationsGet pOgName_ = - OperationsGet' + OperationsGet' { _ogXgafv = Nothing , _ogUploadProtocol = Nothing , _ogAccessToken = Nothing @@ -99,6 +102,7 @@ , _ogName = pOgName_ , _ogCallback = Nothing } + -- | V1 error format. ogXgafv :: Lens' OperationsGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Customers/Create.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Customers/Create.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Customers/Create.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Customers/Create.hs @@ -71,7 +71,8 @@ -- and explains how to sign into the portal. -- -- /See:/ 'partnersCustomersCreate' smart constructor. -data PartnersCustomersCreate = PartnersCustomersCreate' +data PartnersCustomersCreate = + PartnersCustomersCreate' { _pccParent :: !Text , _pccXgafv :: !(Maybe Xgafv) , _pccUploadProtocol :: !(Maybe Text) @@ -79,8 +80,10 @@ , _pccUploadType :: !(Maybe Text) , _pccPayload :: !CreateCustomerRequest , _pccCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PartnersCustomersCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -103,7 +106,7 @@ -> CreateCustomerRequest -- ^ 'pccPayload' -> PartnersCustomersCreate partnersCustomersCreate pPccParent_ pPccPayload_ = - PartnersCustomersCreate' + PartnersCustomersCreate' { _pccParent = pPccParent_ , _pccXgafv = Nothing , _pccUploadProtocol = Nothing @@ -112,6 +115,7 @@ , _pccPayload = pPccPayload_ , _pccCallback = Nothing } + -- | Required. The parent resource ID in the format -- \`partners\/[PARTNER_ID]\` that identifies the reseller. diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Customers/List.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Customers/List.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Customers/List.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Customers/List.hs @@ -70,7 +70,8 @@ -- created and customers that enrolled themselves using the portal. -- -- /See:/ 'partnersCustomersList' smart constructor. -data PartnersCustomersList = PartnersCustomersList' +data PartnersCustomersList = + PartnersCustomersList' { _pclXgafv :: !(Maybe Xgafv) , _pclUploadProtocol :: !(Maybe Text) , _pclAccessToken :: !(Maybe Text) @@ -79,8 +80,10 @@ , _pclPageToken :: !(Maybe Text) , _pclPageSize :: !(Maybe (Textual Int32)) , _pclCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PartnersCustomersList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -104,7 +107,7 @@ :: Int64 -- ^ 'pclPartnerId' -> PartnersCustomersList partnersCustomersList pPclPartnerId_ = - PartnersCustomersList' + PartnersCustomersList' { _pclXgafv = Nothing , _pclUploadProtocol = Nothing , _pclAccessToken = Nothing @@ -114,6 +117,7 @@ , _pclPageSize = Nothing , _pclCallback = Nothing } + -- | V1 error format. pclXgafv :: Lens' PartnersCustomersList (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Claim.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Claim.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Claim.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Claim.hs @@ -68,7 +68,8 @@ -- error. -- -- /See:/ 'partnersDevicesClaim' smart constructor. -data PartnersDevicesClaim = PartnersDevicesClaim' +data PartnersDevicesClaim = + PartnersDevicesClaim' { _pdcXgafv :: !(Maybe Xgafv) , _pdcUploadProtocol :: !(Maybe Text) , _pdcAccessToken :: !(Maybe Text) @@ -76,8 +77,10 @@ , _pdcUploadType :: !(Maybe Text) , _pdcPayload :: !ClaimDeviceRequest , _pdcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PartnersDevicesClaim' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -100,7 +103,7 @@ -> ClaimDeviceRequest -- ^ 'pdcPayload' -> PartnersDevicesClaim partnersDevicesClaim pPdcPartnerId_ pPdcPayload_ = - PartnersDevicesClaim' + PartnersDevicesClaim' { _pdcXgafv = Nothing , _pdcUploadProtocol = Nothing , _pdcAccessToken = Nothing @@ -109,6 +112,7 @@ , _pdcPayload = pPdcPayload_ , _pdcCallback = Nothing } + -- | V1 error format. pdcXgafv :: Lens' PartnersDevicesClaim (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/ClaimAsync.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/ClaimAsync.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/ClaimAsync.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/ClaimAsync.hs @@ -68,7 +68,8 @@ -- batch operations](\/zero-touch\/guides\/how-it-works#operations). -- -- /See:/ 'partnersDevicesClaimAsync' smart constructor. -data PartnersDevicesClaimAsync = PartnersDevicesClaimAsync' +data PartnersDevicesClaimAsync = + PartnersDevicesClaimAsync' { _pdcaXgafv :: !(Maybe Xgafv) , _pdcaUploadProtocol :: !(Maybe Text) , _pdcaAccessToken :: !(Maybe Text) @@ -76,8 +77,10 @@ , _pdcaUploadType :: !(Maybe Text) , _pdcaPayload :: !ClaimDevicesRequest , _pdcaCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PartnersDevicesClaimAsync' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -100,7 +103,7 @@ -> ClaimDevicesRequest -- ^ 'pdcaPayload' -> PartnersDevicesClaimAsync partnersDevicesClaimAsync pPdcaPartnerId_ pPdcaPayload_ = - PartnersDevicesClaimAsync' + PartnersDevicesClaimAsync' { _pdcaXgafv = Nothing , _pdcaUploadProtocol = Nothing , _pdcaAccessToken = Nothing @@ -109,6 +112,7 @@ , _pdcaPayload = pPdcaPayload_ , _pdcaCallback = Nothing } + -- | V1 error format. pdcaXgafv :: Lens' PartnersDevicesClaimAsync (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/FindByIdentifier.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/FindByIdentifier.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/FindByIdentifier.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/FindByIdentifier.hs @@ -64,7 +64,8 @@ -- | Finds devices by hardware identifiers, such as IMEI. -- -- /See:/ 'partnersDevicesFindByIdentifier' smart constructor. -data PartnersDevicesFindByIdentifier = PartnersDevicesFindByIdentifier' +data PartnersDevicesFindByIdentifier = + PartnersDevicesFindByIdentifier' { _pdfbiXgafv :: !(Maybe Xgafv) , _pdfbiUploadProtocol :: !(Maybe Text) , _pdfbiAccessToken :: !(Maybe Text) @@ -72,8 +73,10 @@ , _pdfbiUploadType :: !(Maybe Text) , _pdfbiPayload :: !FindDevicesByDeviceIdentifierRequest , _pdfbiCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PartnersDevicesFindByIdentifier' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -96,7 +99,7 @@ -> FindDevicesByDeviceIdentifierRequest -- ^ 'pdfbiPayload' -> PartnersDevicesFindByIdentifier partnersDevicesFindByIdentifier pPdfbiPartnerId_ pPdfbiPayload_ = - PartnersDevicesFindByIdentifier' + PartnersDevicesFindByIdentifier' { _pdfbiXgafv = Nothing , _pdfbiUploadProtocol = Nothing , _pdfbiAccessToken = Nothing @@ -106,6 +109,7 @@ , _pdfbiCallback = Nothing } + -- | V1 error format. pdfbiXgafv :: Lens' PartnersDevicesFindByIdentifier (Maybe Xgafv) pdfbiXgafv @@ -148,7 +152,8 @@ (\ s a -> s{_pdfbiCallback = a}) instance GoogleRequest - PartnersDevicesFindByIdentifier where + PartnersDevicesFindByIdentifier + where type Rs PartnersDevicesFindByIdentifier = FindDevicesByDeviceIdentifierResponse type Scopes PartnersDevicesFindByIdentifier = '[] diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/FindByOwner.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/FindByOwner.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/FindByOwner.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/FindByOwner.hs @@ -70,7 +70,8 @@ -- appear in the results. -- -- /See:/ 'partnersDevicesFindByOwner' smart constructor. -data PartnersDevicesFindByOwner = PartnersDevicesFindByOwner' +data PartnersDevicesFindByOwner = + PartnersDevicesFindByOwner' { _pdfboXgafv :: !(Maybe Xgafv) , _pdfboUploadProtocol :: !(Maybe Text) , _pdfboAccessToken :: !(Maybe Text) @@ -78,8 +79,10 @@ , _pdfboUploadType :: !(Maybe Text) , _pdfboPayload :: !FindDevicesByOwnerRequest , _pdfboCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PartnersDevicesFindByOwner' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -102,7 +105,7 @@ -> FindDevicesByOwnerRequest -- ^ 'pdfboPayload' -> PartnersDevicesFindByOwner partnersDevicesFindByOwner pPdfboPartnerId_ pPdfboPayload_ = - PartnersDevicesFindByOwner' + PartnersDevicesFindByOwner' { _pdfboXgafv = Nothing , _pdfboUploadProtocol = Nothing , _pdfboAccessToken = Nothing @@ -111,6 +114,7 @@ , _pdfboPayload = pPdfboPayload_ , _pdfboCallback = Nothing } + -- | V1 error format. pdfboXgafv :: Lens' PartnersDevicesFindByOwner (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Get.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Get.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Get.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Get.hs @@ -59,15 +59,18 @@ -- | Gets a device. -- -- /See:/ 'partnersDevicesGet' smart constructor. -data PartnersDevicesGet = PartnersDevicesGet' +data PartnersDevicesGet = + PartnersDevicesGet' { _pdgXgafv :: !(Maybe Xgafv) , _pdgUploadProtocol :: !(Maybe Text) , _pdgAccessToken :: !(Maybe Text) , _pdgUploadType :: !(Maybe Text) , _pdgName :: !Text , _pdgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PartnersDevicesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -87,7 +90,7 @@ :: Text -- ^ 'pdgName' -> PartnersDevicesGet partnersDevicesGet pPdgName_ = - PartnersDevicesGet' + PartnersDevicesGet' { _pdgXgafv = Nothing , _pdgUploadProtocol = Nothing , _pdgAccessToken = Nothing @@ -95,6 +98,7 @@ , _pdgName = pPdgName_ , _pdgCallback = Nothing } + -- | V1 error format. pdgXgafv :: Lens' PartnersDevicesGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Metadata.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Metadata.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Metadata.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Metadata.hs @@ -67,7 +67,8 @@ -- | Updates reseller metadata associated with the device. -- -- /See:/ 'partnersDevicesMetadata' smart constructor. -data PartnersDevicesMetadata = PartnersDevicesMetadata' +data PartnersDevicesMetadata = + PartnersDevicesMetadata' { _pdmXgafv :: !(Maybe Xgafv) , _pdmUploadProtocol :: !(Maybe Text) , _pdmAccessToken :: !(Maybe Text) @@ -76,8 +77,10 @@ , _pdmDeviceId :: !(Textual Int64) , _pdmCallback :: !(Maybe Text) , _pdmMetadataOwnerId :: !(Textual Int64) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PartnersDevicesMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -103,7 +106,7 @@ -> Int64 -- ^ 'pdmMetadataOwnerId' -> PartnersDevicesMetadata partnersDevicesMetadata pPdmPayload_ pPdmDeviceId_ pPdmMetadataOwnerId_ = - PartnersDevicesMetadata' + PartnersDevicesMetadata' { _pdmXgafv = Nothing , _pdmUploadProtocol = Nothing , _pdmAccessToken = Nothing @@ -113,6 +116,7 @@ , _pdmCallback = Nothing , _pdmMetadataOwnerId = _Coerce # pPdmMetadataOwnerId_ } + -- | V1 error format. pdmXgafv :: Lens' PartnersDevicesMetadata (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Unclaim.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Unclaim.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Unclaim.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Unclaim.hs @@ -66,7 +66,8 @@ -- enrollment. -- -- /See:/ 'partnersDevicesUnclaim' smart constructor. -data PartnersDevicesUnclaim = PartnersDevicesUnclaim' +data PartnersDevicesUnclaim = + PartnersDevicesUnclaim' { _pduXgafv :: !(Maybe Xgafv) , _pduUploadProtocol :: !(Maybe Text) , _pduAccessToken :: !(Maybe Text) @@ -74,8 +75,10 @@ , _pduUploadType :: !(Maybe Text) , _pduPayload :: !UnclaimDeviceRequest , _pduCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PartnersDevicesUnclaim' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -98,7 +101,7 @@ -> UnclaimDeviceRequest -- ^ 'pduPayload' -> PartnersDevicesUnclaim partnersDevicesUnclaim pPduPartnerId_ pPduPayload_ = - PartnersDevicesUnclaim' + PartnersDevicesUnclaim' { _pduXgafv = Nothing , _pduUploadProtocol = Nothing , _pduAccessToken = Nothing @@ -107,6 +110,7 @@ , _pduPayload = pPduPayload_ , _pduCallback = Nothing } + -- | V1 error format. pduXgafv :: Lens' PartnersDevicesUnclaim (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/UnclaimAsync.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/UnclaimAsync.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/UnclaimAsync.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/UnclaimAsync.hs @@ -68,7 +68,8 @@ -- batch operations](\/zero-touch\/guides\/how-it-works#operations). -- -- /See:/ 'partnersDevicesUnclaimAsync' smart constructor. -data PartnersDevicesUnclaimAsync = PartnersDevicesUnclaimAsync' +data PartnersDevicesUnclaimAsync = + PartnersDevicesUnclaimAsync' { _pduaXgafv :: !(Maybe Xgafv) , _pduaUploadProtocol :: !(Maybe Text) , _pduaAccessToken :: !(Maybe Text) @@ -76,8 +77,10 @@ , _pduaUploadType :: !(Maybe Text) , _pduaPayload :: !UnclaimDevicesRequest , _pduaCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PartnersDevicesUnclaimAsync' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -100,7 +103,7 @@ -> UnclaimDevicesRequest -- ^ 'pduaPayload' -> PartnersDevicesUnclaimAsync partnersDevicesUnclaimAsync pPduaPartnerId_ pPduaPayload_ = - PartnersDevicesUnclaimAsync' + PartnersDevicesUnclaimAsync' { _pduaXgafv = Nothing , _pduaUploadProtocol = Nothing , _pduaAccessToken = Nothing @@ -109,6 +112,7 @@ , _pduaPayload = pPduaPayload_ , _pduaCallback = Nothing } + -- | V1 error format. pduaXgafv :: Lens' PartnersDevicesUnclaimAsync (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/UpdateMetadataAsync.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/UpdateMetadataAsync.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/UpdateMetadataAsync.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/UpdateMetadataAsync.hs @@ -70,7 +70,8 @@ -- operations](\/zero-touch\/guides\/how-it-works#operations). -- -- /See:/ 'partnersDevicesUpdateMetadataAsync' smart constructor. -data PartnersDevicesUpdateMetadataAsync = PartnersDevicesUpdateMetadataAsync' +data PartnersDevicesUpdateMetadataAsync = + PartnersDevicesUpdateMetadataAsync' { _pdumaXgafv :: !(Maybe Xgafv) , _pdumaUploadProtocol :: !(Maybe Text) , _pdumaAccessToken :: !(Maybe Text) @@ -78,8 +79,10 @@ , _pdumaUploadType :: !(Maybe Text) , _pdumaPayload :: !UpdateDeviceMetadataInBatchRequest , _pdumaCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PartnersDevicesUpdateMetadataAsync' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -102,7 +105,7 @@ -> UpdateDeviceMetadataInBatchRequest -- ^ 'pdumaPayload' -> PartnersDevicesUpdateMetadataAsync partnersDevicesUpdateMetadataAsync pPdumaPartnerId_ pPdumaPayload_ = - PartnersDevicesUpdateMetadataAsync' + PartnersDevicesUpdateMetadataAsync' { _pdumaXgafv = Nothing , _pdumaUploadProtocol = Nothing , _pdumaAccessToken = Nothing @@ -112,6 +115,7 @@ , _pdumaCallback = Nothing } + -- | V1 error format. pdumaXgafv :: Lens' PartnersDevicesUpdateMetadataAsync (Maybe Xgafv) pdumaXgafv @@ -154,7 +158,8 @@ (\ s a -> s{_pdumaCallback = a}) instance GoogleRequest - PartnersDevicesUpdateMetadataAsync where + PartnersDevicesUpdateMetadataAsync + where type Rs PartnersDevicesUpdateMetadataAsync = Operation type Scopes PartnersDevicesUpdateMetadataAsync = '[] diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Vendors/Customers/List.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Vendors/Customers/List.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Vendors/Customers/List.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Vendors/Customers/List.hs @@ -65,7 +65,8 @@ -- | Lists the customers of the vendor. -- -- /See:/ 'partnersVendorsCustomersList' smart constructor. -data PartnersVendorsCustomersList = PartnersVendorsCustomersList' +data PartnersVendorsCustomersList = + PartnersVendorsCustomersList' { _pvclParent :: !Text , _pvclXgafv :: !(Maybe Xgafv) , _pvclUploadProtocol :: !(Maybe Text) @@ -74,8 +75,10 @@ , _pvclPageToken :: !(Maybe Text) , _pvclPageSize :: !(Maybe (Textual Int32)) , _pvclCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PartnersVendorsCustomersList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -99,7 +102,7 @@ :: Text -- ^ 'pvclParent' -> PartnersVendorsCustomersList partnersVendorsCustomersList pPvclParent_ = - PartnersVendorsCustomersList' + PartnersVendorsCustomersList' { _pvclParent = pPvclParent_ , _pvclXgafv = Nothing , _pvclUploadProtocol = Nothing @@ -109,6 +112,7 @@ , _pvclPageSize = Nothing , _pvclCallback = Nothing } + -- | Required. The resource name in the format -- \`partners\/[PARTNER_ID]\/vendors\/[VENDOR_ID]\`. diff --git a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Vendors/List.hs b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Vendors/List.hs --- a/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Vendors/List.hs +++ b/gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Vendors/List.hs @@ -65,7 +65,8 @@ -- | Lists the vendors of the partner. -- -- /See:/ 'partnersVendorsList' smart constructor. -data PartnersVendorsList = PartnersVendorsList' +data PartnersVendorsList = + PartnersVendorsList' { _pvlParent :: !Text , _pvlXgafv :: !(Maybe Xgafv) , _pvlUploadProtocol :: !(Maybe Text) @@ -74,8 +75,10 @@ , _pvlPageToken :: !(Maybe Text) , _pvlPageSize :: !(Maybe (Textual Int32)) , _pvlCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PartnersVendorsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -99,7 +102,7 @@ :: Text -- ^ 'pvlParent' -> PartnersVendorsList partnersVendorsList pPvlParent_ = - PartnersVendorsList' + PartnersVendorsList' { _pvlParent = pPvlParent_ , _pvlXgafv = Nothing , _pvlUploadProtocol = Nothing @@ -109,6 +112,7 @@ , _pvlPageSize = Nothing , _pvlCallback = Nothing } + -- | Required. The resource name in the format \`partners\/[PARTNER_ID]\`. pvlParent :: Lens' PartnersVendorsList Text diff --git a/gogol-androiddeviceprovisioning.cabal b/gogol-androiddeviceprovisioning.cabal --- a/gogol-androiddeviceprovisioning.cabal +++ b/gogol-androiddeviceprovisioning.cabal @@ -1,5 +1,5 @@ name: gogol-androiddeviceprovisioning -version: 0.4.0 +version: 0.5.0 synopsis: Google Android Device Provisioning Partner SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -68,5 +68,5 @@ , Network.Google.AndroidDeviceProvisioning.Types.Sum build-depends: - gogol-core == 0.4.0.* + gogol-core == 0.5.0.* , base >= 4.7 && < 5