gogol-androiddeviceprovisioning 0.4.0 → 0.5.0

raw patch · 31 files changed

+615/−289 lines, 31 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

+ Network.Google.AndroidDeviceProvisioning: dcVacationModeExpireTime :: Lens' DeviceClaim (Maybe UTCTime)

+ Network.Google.AndroidDeviceProvisioning: dcVacationModeStartTime :: Lens' DeviceClaim (Maybe UTCTime)

+ Network.Google.AndroidDeviceProvisioning: puVacationModeDays :: Lens' PartnerUnclaim (Maybe Int32)

+ Network.Google.AndroidDeviceProvisioning: puVacationModeExpireTime :: Lens' PartnerUnclaim (Maybe UTCTime)

+ Network.Google.AndroidDeviceProvisioning: udrVacationModeDays :: Lens' UnclaimDeviceRequest (Maybe Int32)

+ Network.Google.AndroidDeviceProvisioning: udrVacationModeExpireTime :: Lens' UnclaimDeviceRequest (Maybe UTCTime)

+ Network.Google.AndroidDeviceProvisioning.Types: dcVacationModeExpireTime :: Lens' DeviceClaim (Maybe UTCTime)

+ Network.Google.AndroidDeviceProvisioning.Types: dcVacationModeStartTime :: Lens' DeviceClaim (Maybe UTCTime)

+ Network.Google.AndroidDeviceProvisioning.Types: puVacationModeDays :: Lens' PartnerUnclaim (Maybe Int32)

+ Network.Google.AndroidDeviceProvisioning.Types: puVacationModeExpireTime :: Lens' PartnerUnclaim (Maybe UTCTime)

+ Network.Google.AndroidDeviceProvisioning.Types: udrVacationModeDays :: Lens' UnclaimDeviceRequest (Maybe Int32)

+ Network.Google.AndroidDeviceProvisioning.Types: udrVacationModeExpireTime :: Lens' UnclaimDeviceRequest (Maybe UTCTime)

Files

README.md +1/−1
gen/Network/Google/AndroidDeviceProvisioning.hs +6/−0
gen/Network/Google/AndroidDeviceProvisioning/Types.hs +6/−0
gen/Network/Google/AndroidDeviceProvisioning/Types/Product.hs +410/−204
gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Create.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Delete.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Get.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/List.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Patch.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/ApplyConfiguration.hs +9/−4
gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/Get.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/List.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/RemoveConfiguration.hs +9/−4
gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/Unclaim.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Dpcs/List.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/List.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Operations/Get.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Customers/Create.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Customers/List.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Claim.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/ClaimAsync.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/FindByIdentifier.hs +9/−4
gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/FindByOwner.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Get.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Metadata.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Unclaim.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/UnclaimAsync.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/UpdateMetadataAsync.hs +9/−4
gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Vendors/Customers/List.hs +7/−3
gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Vendors/List.hs +7/−3
gogol-androiddeviceprovisioning.cabal +2/−2

README.md view

@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description

gen/Network/Google/AndroidDeviceProvisioning.hs view

@@ -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

gen/Network/Google/AndroidDeviceProvisioning/Types.hs view

@@ -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

gen/Network/Google/AndroidDeviceProvisioning/Types/Product.hs view

@@ -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

gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Create.hs view

@@ -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]\`.

gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Delete.hs view

@@ -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)

gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Get.hs view

@@ -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)

gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/List.hs view

@@ -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]\`.

gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Configurations/Patch.hs view

@@ -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)

gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/ApplyConfiguration.hs view

@@ -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'{..}

gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/Get.hs view

@@ -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)

gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/List.hs view

@@ -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]\`.

gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/RemoveConfiguration.hs view

@@ -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

gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Devices/Unclaim.hs view

@@ -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]\`.

gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/Dpcs/List.hs view

@@ -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]\`.

gen/Network/Google/Resource/AndroidDeviceProvisioning/Customers/List.hs view

@@ -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)

gen/Network/Google/Resource/AndroidDeviceProvisioning/Operations/Get.hs view

@@ -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)

gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Customers/Create.hs view

@@ -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.

gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Customers/List.hs view

@@ -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)

gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Claim.hs view

@@ -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)

gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/ClaimAsync.hs view

@@ -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)

gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/FindByIdentifier.hs view

@@ -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 = '[]

gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/FindByOwner.hs view

@@ -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)

gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Get.hs view

@@ -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)

gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Metadata.hs view

@@ -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)

gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/Unclaim.hs view

@@ -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)

gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/UnclaimAsync.hs view

@@ -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)

gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Devices/UpdateMetadataAsync.hs view

@@ -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 = '[]

gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Vendors/Customers/List.hs view

@@ -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]\`.

gen/Network/Google/Resource/AndroidDeviceProvisioning/Partners/Vendors/List.hs view

@@ -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

gogol-androiddeviceprovisioning.cabal view

@@ -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