packages feed

gogol-cloudiot 0.4.0 → 0.5.0

raw patch · 35 files changed

+520/−313 lines, 35 filesdep ~gogol-core

Dependency ranges changed: gogol-core

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description
gen/Network/Google/CloudIOT/Types.hs view
@@ -293,8 +293,8 @@  -- | Register and manage devices in the Google Cloud IoT service cloudIOTScope :: Proxy '["https://www.googleapis.com/auth/cloudiot"]-cloudIOTScope = Proxy;+cloudIOTScope = Proxy  -- | View and manage your data across Google Cloud Platform services cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"]-cloudPlatformScope = Proxy;+cloudPlatformScope = Proxy
gen/Network/Google/CloudIOT/Types/Product.hs view
@@ -57,12 +57,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:@@ -74,13 +77,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]@@ -121,15 +120,17 @@ -- -- /See:/ 'unbindDeviceFromGatewayResponse' smart constructor. data UnbindDeviceFromGatewayResponse =-    UnbindDeviceFromGatewayResponse'-    deriving (Eq,Show,Data,Typeable,Generic)+  UnbindDeviceFromGatewayResponse'+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UnbindDeviceFromGatewayResponse' with the minimum fields required to make a request. -- unbindDeviceFromGatewayResponse     :: UnbindDeviceFromGatewayResponse unbindDeviceFromGatewayResponse = UnbindDeviceFromGatewayResponse' + instance FromJSON UnbindDeviceFromGatewayResponse          where         parseJSON@@ -142,11 +143,14 @@ -- | The device state, as reported by the device. -- -- /See:/ 'deviceState' smart constructor.-data DeviceState = DeviceState'+data DeviceState =+  DeviceState'     { _dsUpdateTime :: !(Maybe DateTime')     , _dsBinaryData :: !(Maybe Bytes)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeviceState' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -156,12 +160,9 @@ -- * 'dsBinaryData' deviceState     :: DeviceState-deviceState =-    DeviceState'-    { _dsUpdateTime = Nothing-    , _dsBinaryData = Nothing-    }+deviceState = DeviceState' {_dsUpdateTime = Nothing, _dsBinaryData = Nothing} + -- | [Output only] The time at which this state version was updated in Cloud -- IoT Core. dsUpdateTime :: Lens' DeviceState (Maybe UTCTime)@@ -194,13 +195,16 @@ -- expression: \"size(request.user) > 0\" -- -- /See:/ 'expr' smart constructor.-data Expr = Expr'+data Expr =+  Expr'     { _eLocation    :: !(Maybe Text)     , _eExpression  :: !(Maybe Text)     , _eTitle       :: !(Maybe Text)     , _eDescription :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Expr' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -215,13 +219,14 @@ expr     :: Expr expr =-    Expr'+  Expr'     { _eLocation = Nothing     , _eExpression = Nothing     , _eTitle = Nothing     , _eDescription = Nothing     } + -- | An optional string indicating the location of the expression for error -- reporting, e.g. a file name and a position in the file. eLocation :: Lens' Expr (Maybe Text)@@ -269,15 +274,17 @@ -- -- /See:/ 'getIAMPolicyRequest' smart constructor. data GetIAMPolicyRequest =-    GetIAMPolicyRequest'-    deriving (Eq,Show,Data,Typeable,Generic)+  GetIAMPolicyRequest'+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetIAMPolicyRequest' with the minimum fields required to make a request. -- getIAMPolicyRequest     :: GetIAMPolicyRequest getIAMPolicyRequest = GetIAMPolicyRequest' + instance FromJSON GetIAMPolicyRequest where         parseJSON           = withObject "GetIAMPolicyRequest"@@ -289,11 +296,14 @@ -- | Response for \`ListDeviceRegistries\`. -- -- /See:/ 'listDeviceRegistriesResponse' smart constructor.-data ListDeviceRegistriesResponse = ListDeviceRegistriesResponse'+data ListDeviceRegistriesResponse =+  ListDeviceRegistriesResponse'     { _ldrrNextPageToken    :: !(Maybe Text)     , _ldrrDeviceRegistries :: !(Maybe [DeviceRegistry])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDeviceRegistriesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -304,11 +314,10 @@ listDeviceRegistriesResponse     :: ListDeviceRegistriesResponse listDeviceRegistriesResponse =-    ListDeviceRegistriesResponse'-    { _ldrrNextPageToken = Nothing-    , _ldrrDeviceRegistries = Nothing-    }+  ListDeviceRegistriesResponse'+    {_ldrrNextPageToken = Nothing, _ldrrDeviceRegistries = Nothing} + -- | If not empty, indicates that there may be more registries that match the -- request; this value should be passed in a new -- \`ListDeviceRegistriesRequest\`.@@ -343,13 +352,16 @@ -- | The device configuration. Eventually delivered to devices. -- -- /See:/ 'deviceConfig' smart constructor.-data DeviceConfig = DeviceConfig'+data DeviceConfig =+  DeviceConfig'     { _dcDeviceAckTime   :: !(Maybe DateTime')     , _dcCloudUpdateTime :: !(Maybe DateTime')     , _dcBinaryData      :: !(Maybe Bytes)     , _dcVersion         :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeviceConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -364,13 +376,14 @@ deviceConfig     :: DeviceConfig deviceConfig =-    DeviceConfig'+  DeviceConfig'     { _dcDeviceAckTime = Nothing     , _dcCloudUpdateTime = Nothing     , _dcBinaryData = Nothing     , _dcVersion = Nothing     } + -- | [Output only] The time at which Cloud IoT Core received the -- acknowledgment from the device, indicating that the device has received -- this configuration version. If this field is not present, the device has@@ -431,10 +444,13 @@ -- | Response for \`ListDeviceConfigVersions\`. -- -- /See:/ 'listDeviceConfigVersionsResponse' smart constructor.-newtype ListDeviceConfigVersionsResponse = ListDeviceConfigVersionsResponse'+newtype ListDeviceConfigVersionsResponse =+  ListDeviceConfigVersionsResponse'     { _ldcvrDeviceConfigs :: Maybe [DeviceConfig]-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDeviceConfigVersionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -443,10 +459,9 @@ listDeviceConfigVersionsResponse     :: ListDeviceConfigVersionsResponse listDeviceConfigVersionsResponse =-    ListDeviceConfigVersionsResponse'-    { _ldcvrDeviceConfigs = Nothing-    }+  ListDeviceConfigVersionsResponse' {_ldcvrDeviceConfigs = Nothing} + -- | The device configuration for the last few versions. Versions are listed -- in decreasing order, starting from the most recent one. ldcvrDeviceConfigs :: Lens' ListDeviceConfigVersionsResponse [DeviceConfig]@@ -474,13 +489,16 @@ -- | Gateway-related configuration and state. -- -- /See:/ 'gatewayConfig' smart constructor.-data GatewayConfig = GatewayConfig'+data GatewayConfig =+  GatewayConfig'     { _gcLastAccessedGatewayId   :: !(Maybe Text)     , _gcGatewayAuthMethod       :: !(Maybe GatewayConfigGatewayAuthMethod)     , _gcLastAccessedGatewayTime :: !(Maybe DateTime')     , _gcGatewayType             :: !(Maybe GatewayConfigGatewayType)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GatewayConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -495,13 +513,14 @@ gatewayConfig     :: GatewayConfig gatewayConfig =-    GatewayConfig'+  GatewayConfig'     { _gcLastAccessedGatewayId = Nothing     , _gcGatewayAuthMethod = Nothing     , _gcLastAccessedGatewayTime = Nothing     , _gcGatewayType = Nothing     } + -- | [Output only] The ID of the gateway the device accessed most recently. gcLastAccessedGatewayId :: Lens' GatewayConfig (Maybe Text) gcLastAccessedGatewayId@@ -553,10 +572,13 @@ -- | Response for \`ListDeviceStates\`. -- -- /See:/ 'listDeviceStatesResponse' smart constructor.-newtype ListDeviceStatesResponse = ListDeviceStatesResponse'+newtype ListDeviceStatesResponse =+  ListDeviceStatesResponse'     { _ldsrDeviceStates :: Maybe [DeviceState]-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDeviceStatesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -565,10 +587,9 @@ listDeviceStatesResponse     :: ListDeviceStatesResponse listDeviceStatesResponse =-    ListDeviceStatesResponse'-    { _ldsrDeviceStates = Nothing-    }+  ListDeviceStatesResponse' {_ldsrDeviceStates = Nothing} + -- | The last few device states. States are listed in descending order of -- server update time, starting from the most recent one. ldsrDeviceStates :: Lens' ListDeviceStatesResponse [DeviceState]@@ -599,15 +620,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') @@ -618,10 +641,13 @@ -- device. -- -- /See:/ 'stateNotificationConfig' smart constructor.-newtype StateNotificationConfig = StateNotificationConfig'+newtype StateNotificationConfig =+  StateNotificationConfig'     { _sncPubsubTopicName :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StateNotificationConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -630,10 +656,9 @@ stateNotificationConfig     :: StateNotificationConfig stateNotificationConfig =-    StateNotificationConfig'-    { _sncPubsubTopicName = Nothing-    }+  StateNotificationConfig' {_sncPubsubTopicName = Nothing} + -- | A Cloud Pub\/Sub topic name. For example, -- \`projects\/myProject\/topics\/deviceEvents\`. sncPubsubTopicName :: Lens' StateNotificationConfig (Maybe Text)@@ -657,7 +682,8 @@ -- | The device resource. -- -- /See:/ 'device' smart constructor.-data Device = Device'+data Device =+  Device'     { _dState              :: !(Maybe DeviceState)     , _dLastHeartbeatTime  :: !(Maybe DateTime')     , _dGatewayConfig      :: !(Maybe GatewayConfig)@@ -675,8 +701,10 @@     , _dLastStateTime      :: !(Maybe DateTime')     , _dBlocked            :: !(Maybe Bool)     , _dLastEventTime      :: !(Maybe DateTime')-    } 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:@@ -717,7 +745,7 @@ device     :: Device device =-    Device'+  Device'     { _dState = Nothing     , _dLastHeartbeatTime = Nothing     , _dGatewayConfig = Nothing@@ -737,6 +765,7 @@     , _dLastEventTime = Nothing     } + -- | [Output only] The state most recently received from the device. If no -- state has been reported, this field is not present. dState :: Lens' Device (Maybe DeviceState)@@ -923,11 +952,14 @@ -- | A server-stored device credential used for authentication. -- -- /See:/ 'deviceCredential' smart constructor.-data DeviceCredential = DeviceCredential'+data DeviceCredential =+  DeviceCredential'     { _dcPublicKey      :: !(Maybe PublicKeyCredential)     , _dcExpirationTime :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeviceCredential' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -938,11 +970,9 @@ deviceCredential     :: DeviceCredential deviceCredential =-    DeviceCredential'-    { _dcPublicKey = Nothing-    , _dcExpirationTime = Nothing-    }+  DeviceCredential' {_dcPublicKey = Nothing, _dcExpirationTime = Nothing} + -- | A public key used to verify the signature of JSON Web Tokens (JWTs). -- When adding a new device credential, either via device creation or via -- modifications, this public key credential may be required to be signed@@ -984,11 +1014,14 @@ -- | The configuration for forwarding telemetry events. -- -- /See:/ 'eventNotificationConfig' smart constructor.-data EventNotificationConfig = EventNotificationConfig'+data EventNotificationConfig =+  EventNotificationConfig'     { _encPubsubTopicName  :: !(Maybe Text)     , _encSubfolderMatches :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventNotificationConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -999,11 +1032,10 @@ eventNotificationConfig     :: EventNotificationConfig eventNotificationConfig =-    EventNotificationConfig'-    { _encPubsubTopicName = Nothing-    , _encSubfolderMatches = Nothing-    }+  EventNotificationConfig'+    {_encPubsubTopicName = Nothing, _encSubfolderMatches = Nothing} + -- | A Cloud Pub\/Sub topic name. For example, -- \`projects\/myProject\/topics\/deviceEvents\`. encPubsubTopicName :: Lens' EventNotificationConfig (Maybe Text)@@ -1038,15 +1070,18 @@ -- | Details of an X.509 certificate. For informational purposes only. -- -- /See:/ 'x509CertificateDetails' smart constructor.-data X509CertificateDetails = X509CertificateDetails'+data X509CertificateDetails =+  X509CertificateDetails'     { _xcdSubject            :: !(Maybe Text)     , _xcdExpiryTime         :: !(Maybe DateTime')     , _xcdStartTime          :: !(Maybe DateTime')     , _xcdSignatureAlgorithm :: !(Maybe Text)     , _xcdIssuer             :: !(Maybe Text)     , _xcdPublicKeyType      :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'X509CertificateDetails' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1065,7 +1100,7 @@ x509CertificateDetails     :: X509CertificateDetails x509CertificateDetails =-    X509CertificateDetails'+  X509CertificateDetails'     { _xcdSubject = Nothing     , _xcdExpiryTime = Nothing     , _xcdStartTime = Nothing@@ -1074,6 +1109,7 @@     , _xcdPublicKeyType = Nothing     } + -- | The entity the certificate and public key belong to. xcdSubject :: Lens' X509CertificateDetails (Maybe Text) xcdSubject@@ -1134,12 +1170,15 @@ -- | A public key certificate format and data. -- -- /See:/ 'publicKeyCertificate' smart constructor.-data PublicKeyCertificate = PublicKeyCertificate'+data PublicKeyCertificate =+  PublicKeyCertificate'     { _pkcFormat      :: !(Maybe PublicKeyCertificateFormat)     , _pkcCertificate :: !(Maybe Text)     , _pkcX509Details :: !(Maybe X509CertificateDetails)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PublicKeyCertificate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1152,12 +1191,10 @@ publicKeyCertificate     :: PublicKeyCertificate publicKeyCertificate =-    PublicKeyCertificate'-    { _pkcFormat = Nothing-    , _pkcCertificate = Nothing-    , _pkcX509Details = Nothing-    }+  PublicKeyCertificate'+    {_pkcFormat = Nothing, _pkcCertificate = Nothing, _pkcX509Details = Nothing} + -- | The certificate format. pkcFormat :: Lens' PublicKeyCertificate (Maybe PublicKeyCertificateFormat) pkcFormat@@ -1193,10 +1230,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:@@ -1206,10 +1246,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@@ -1227,10 +1266,13 @@ -- | The configuration of MQTT for a device registry. -- -- /See:/ 'mqttConfig' smart constructor.-newtype MqttConfig = MqttConfig'+newtype MqttConfig =+  MqttConfig'     { _mcMqttEnabledState :: Maybe MqttConfigMqttEnabledState-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'MqttConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1238,11 +1280,9 @@ -- * 'mcMqttEnabledState' mqttConfig     :: MqttConfig-mqttConfig =-    MqttConfig'-    { _mcMqttEnabledState = Nothing-    }+mqttConfig = MqttConfig' {_mcMqttEnabledState = Nothing} + -- | If enabled, allows connections using the MQTT protocol. Otherwise, MQTT -- connections to this registry will fail. mcMqttEnabledState :: Lens' MqttConfig (Maybe MqttConfigMqttEnabledState)@@ -1264,10 +1304,13 @@ -- | Request message for \`SetIamPolicy\` method. -- -- /See:/ 'setIAMPolicyRequest' smart constructor.-newtype SetIAMPolicyRequest = SetIAMPolicyRequest'+newtype SetIAMPolicyRequest =+  SetIAMPolicyRequest'     { _siprPolicy :: Maybe Policy-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetIAMPolicyRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1275,11 +1318,9 @@ -- * 'siprPolicy' setIAMPolicyRequest     :: SetIAMPolicyRequest-setIAMPolicyRequest =-    SetIAMPolicyRequest'-    { _siprPolicy = Nothing-    }+setIAMPolicyRequest = SetIAMPolicyRequest' {_siprPolicy = Nothing} + -- | REQUIRED: The complete policy to be applied to the \`resource\`. The -- size of the policy is limited to a few 10s of KB. An empty policy is a -- valid policy but certain Cloud Platform services (such as Projects)@@ -1300,10 +1341,13 @@ -- | A server-stored registry credential used to validate device credentials. -- -- /See:/ 'registryCredential' smart constructor.-newtype RegistryCredential = RegistryCredential'+newtype RegistryCredential =+  RegistryCredential'     { _rcPublicKeyCertificate :: Maybe PublicKeyCertificate-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RegistryCredential' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1311,11 +1355,9 @@ -- * 'rcPublicKeyCertificate' registryCredential     :: RegistryCredential-registryCredential =-    RegistryCredential'-    { _rcPublicKeyCertificate = Nothing-    }+registryCredential = RegistryCredential' {_rcPublicKeyCertificate = Nothing} + -- | A public key certificate used to verify the device credentials. rcPublicKeyCertificate :: Lens' RegistryCredential (Maybe PublicKeyCertificate) rcPublicKeyCertificate@@ -1339,11 +1381,14 @@ -- | Request for \`SendCommandToDevice\`. -- -- /See:/ 'sendCommandToDeviceRequest' smart constructor.-data SendCommandToDeviceRequest = SendCommandToDeviceRequest'+data SendCommandToDeviceRequest =+  SendCommandToDeviceRequest'     { _sctdrBinaryData :: !(Maybe Bytes)     , _sctdrSubfolder  :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SendCommandToDeviceRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1354,11 +1399,10 @@ sendCommandToDeviceRequest     :: SendCommandToDeviceRequest sendCommandToDeviceRequest =-    SendCommandToDeviceRequest'-    { _sctdrBinaryData = Nothing-    , _sctdrSubfolder = Nothing-    }+  SendCommandToDeviceRequest'+    {_sctdrBinaryData = Nothing, _sctdrSubfolder = Nothing} + -- | The command data to send to the device. sctdrBinaryData :: Lens' SendCommandToDeviceRequest (Maybe ByteString) sctdrBinaryData@@ -1395,15 +1439,17 @@ -- -- /See:/ 'bindDeviceToGatewayResponse' smart constructor. data BindDeviceToGatewayResponse =-    BindDeviceToGatewayResponse'-    deriving (Eq,Show,Data,Typeable,Generic)+  BindDeviceToGatewayResponse'+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BindDeviceToGatewayResponse' with the minimum fields required to make a request. -- bindDeviceToGatewayResponse     :: BindDeviceToGatewayResponse bindDeviceToGatewayResponse = BindDeviceToGatewayResponse' + instance FromJSON BindDeviceToGatewayResponse where         parseJSON           = withObject "BindDeviceToGatewayResponse"@@ -1415,10 +1461,13 @@ -- | The configuration of the HTTP bridge for a device registry. -- -- /See:/ 'hTTPConfig' smart constructor.-newtype HTTPConfig = HTTPConfig'+newtype HTTPConfig =+  HTTPConfig'     { _httpcHTTPEnabledState :: Maybe HTTPConfigHTTPEnabledState-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'HTTPConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1426,11 +1475,9 @@ -- * 'httpcHTTPEnabledState' hTTPConfig     :: HTTPConfig-hTTPConfig =-    HTTPConfig'-    { _httpcHTTPEnabledState = Nothing-    }+hTTPConfig = HTTPConfig' {_httpcHTTPEnabledState = Nothing} + -- | If enabled, allows devices to use DeviceService via the HTTP protocol. -- Otherwise, any requests to DeviceService will fail for this registry. httpcHTTPEnabledState :: Lens' HTTPConfig (Maybe HTTPConfigHTTPEnabledState)@@ -1452,10 +1499,13 @@ -- | Request message for \`TestIamPermissions\` method. -- -- /See:/ 'testIAMPermissionsRequest' smart constructor.-newtype TestIAMPermissionsRequest = TestIAMPermissionsRequest'+newtype TestIAMPermissionsRequest =+  TestIAMPermissionsRequest'     { _tiprPermissions :: Maybe [Text]-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TestIAMPermissionsRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1464,10 +1514,9 @@ testIAMPermissionsRequest     :: TestIAMPermissionsRequest testIAMPermissionsRequest =-    TestIAMPermissionsRequest'-    { _tiprPermissions = Nothing-    }+  TestIAMPermissionsRequest' {_tiprPermissions = Nothing} + -- | The set of permissions to check for the \`resource\`. Permissions with -- wildcards (such as \'*\' or \'storage.*\') are not allowed. For more -- information see [IAM@@ -1494,11 +1543,14 @@ -- | Response for \`ListDevices\`. -- -- /See:/ 'listDevicesResponse' smart constructor.-data ListDevicesResponse = ListDevicesResponse'+data ListDevicesResponse =+  ListDevicesResponse'     { _ldrNextPageToken :: !(Maybe Text)     , _ldrDevices       :: !(Maybe [Device])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDevicesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1509,11 +1561,9 @@ listDevicesResponse     :: ListDevicesResponse listDevicesResponse =-    ListDevicesResponse'-    { _ldrNextPageToken = Nothing-    , _ldrDevices = Nothing-    }+  ListDevicesResponse' {_ldrNextPageToken = Nothing, _ldrDevices = Nothing} + -- | If not empty, indicates that there may be more devices that match the -- request; this value should be passed in a new \`ListDevicesRequest\`. ldrNextPageToken :: Lens' ListDevicesResponse (Maybe Text)@@ -1552,10 +1602,13 @@ -- and the maximum number of key-value pairs is 500. -- -- /See:/ 'deviceMetadata' smart constructor.-newtype DeviceMetadata = DeviceMetadata'+newtype DeviceMetadata =+  DeviceMetadata'     { _dmAddtional :: HashMap Text Text-    } 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:@@ -1565,10 +1618,9 @@     :: HashMap Text Text -- ^ 'dmAddtional'     -> DeviceMetadata deviceMetadata pDmAddtional_ =-    DeviceMetadata'-    { _dmAddtional = _Coerce # pDmAddtional_-    }+  DeviceMetadata' {_dmAddtional = _Coerce # pDmAddtional_} + dmAddtional :: Lens' DeviceMetadata (HashMap Text Text) dmAddtional   = lens _dmAddtional (\ s a -> s{_dmAddtional = a}) .@@ -1585,7 +1637,8 @@ -- | A container for a group of devices. -- -- /See:/ 'deviceRegistry' smart constructor.-data DeviceRegistry = DeviceRegistry'+data DeviceRegistry =+  DeviceRegistry'     { _drLogLevel                 :: !(Maybe DeviceRegistryLogLevel)     , _drCredentials              :: !(Maybe [RegistryCredential])     , _drStateNotificationConfig  :: !(Maybe StateNotificationConfig)@@ -1594,8 +1647,10 @@     , _drName                     :: !(Maybe Text)     , _drHTTPConfig               :: !(Maybe HTTPConfig)     , _drId                       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeviceRegistry' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1618,7 +1673,7 @@ deviceRegistry     :: DeviceRegistry deviceRegistry =-    DeviceRegistry'+  DeviceRegistry'     { _drLogLevel = Nothing     , _drCredentials = Nothing     , _drStateNotificationConfig = Nothing@@ -1629,6 +1684,7 @@     , _drId = Nothing     } + -- | **Beta Feature** The default logging verbosity for activity from devices -- in this registry. The verbosity level can be overridden by -- Device.log_level.@@ -1731,11 +1787,14 @@ -- | A public key format and data. -- -- /See:/ 'publicKeyCredential' smart constructor.-data PublicKeyCredential = PublicKeyCredential'+data PublicKeyCredential =+  PublicKeyCredential'     { _pFormat :: !(Maybe PublicKeyCredentialFormat)     , _pKey    :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PublicKeyCredential' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1745,12 +1804,9 @@ -- * 'pKey' publicKeyCredential     :: PublicKeyCredential-publicKeyCredential =-    PublicKeyCredential'-    { _pFormat = Nothing-    , _pKey = Nothing-    }+publicKeyCredential = PublicKeyCredential' {_pFormat = Nothing, _pKey = Nothing} + -- | The format of the key. pFormat :: Lens' PublicKeyCredential (Maybe PublicKeyCredentialFormat) pFormat = lens _pFormat (\ s a -> s{_pFormat = a})@@ -1775,11 +1831,14 @@ -- | Request for \`UnbindDeviceFromGateway\`. -- -- /See:/ 'unbindDeviceFromGatewayRequest' smart constructor.-data UnbindDeviceFromGatewayRequest = UnbindDeviceFromGatewayRequest'+data UnbindDeviceFromGatewayRequest =+  UnbindDeviceFromGatewayRequest'     { _udfgrDeviceId  :: !(Maybe Text)     , _udfgrGatewayId :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UnbindDeviceFromGatewayRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1790,11 +1849,10 @@ unbindDeviceFromGatewayRequest     :: UnbindDeviceFromGatewayRequest unbindDeviceFromGatewayRequest =-    UnbindDeviceFromGatewayRequest'-    { _udfgrDeviceId = Nothing-    , _udfgrGatewayId = Nothing-    }+  UnbindDeviceFromGatewayRequest'+    {_udfgrDeviceId = Nothing, _udfgrGatewayId = Nothing} + -- | The device to disassociate from the specified gateway. The value of -- \`device_id\` can be either the device numeric ID or the user-defined -- device identifier.@@ -1828,10 +1886,13 @@ -- | Response message for \`TestIamPermissions\` method. -- -- /See:/ 'testIAMPermissionsResponse' smart constructor.-newtype TestIAMPermissionsResponse = TestIAMPermissionsResponse'+newtype TestIAMPermissionsResponse =+  TestIAMPermissionsResponse'     { _tiamprPermissions :: Maybe [Text]-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TestIAMPermissionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1840,10 +1901,9 @@ testIAMPermissionsResponse     :: TestIAMPermissionsResponse testIAMPermissionsResponse =-    TestIAMPermissionsResponse'-    { _tiamprPermissions = Nothing-    }+  TestIAMPermissionsResponse' {_tiamprPermissions = Nothing} + -- | A subset of \`TestPermissionsRequest.permissions\` that the caller is -- allowed. tiamprPermissions :: Lens' TestIAMPermissionsResponse [Text]@@ -1885,12 +1945,15 @@ -- guide](https:\/\/cloud.google.com\/iam\/docs). -- -- /See:/ 'policy' smart constructor.-data Policy = Policy'+data Policy =+  Policy'     { _pEtag     :: !(Maybe Bytes)     , _pVersion  :: !(Maybe (Textual Int32))     , _pBindings :: !(Maybe [Binding])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Policy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1902,13 +1965,9 @@ -- * 'pBindings' policy     :: Policy-policy =-    Policy'-    { _pEtag = Nothing-    , _pVersion = Nothing-    , _pBindings = Nothing-    }+policy = Policy' {_pEtag = Nothing, _pVersion = Nothing, _pBindings = Nothing} + -- | \`etag\` is used for optimistic concurrency control as a way to help -- prevent simultaneous updates of a policy from overwriting each other. It -- is strongly suggested that systems make use of the \`etag\` in the@@ -1957,15 +2016,17 @@ -- -- /See:/ 'sendCommandToDeviceResponse' smart constructor. data SendCommandToDeviceResponse =-    SendCommandToDeviceResponse'-    deriving (Eq,Show,Data,Typeable,Generic)+  SendCommandToDeviceResponse'+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SendCommandToDeviceResponse' with the minimum fields required to make a request. -- sendCommandToDeviceResponse     :: SendCommandToDeviceResponse sendCommandToDeviceResponse = SendCommandToDeviceResponse' + instance FromJSON SendCommandToDeviceResponse where         parseJSON           = withObject "SendCommandToDeviceResponse"@@ -1977,11 +2038,14 @@ -- | Request for \`BindDeviceToGateway\`. -- -- /See:/ 'bindDeviceToGatewayRequest' smart constructor.-data BindDeviceToGatewayRequest = BindDeviceToGatewayRequest'+data BindDeviceToGatewayRequest =+  BindDeviceToGatewayRequest'     { _bdtgrDeviceId  :: !(Maybe Text)     , _bdtgrGatewayId :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BindDeviceToGatewayRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1992,11 +2056,10 @@ bindDeviceToGatewayRequest     :: BindDeviceToGatewayRequest bindDeviceToGatewayRequest =-    BindDeviceToGatewayRequest'-    { _bdtgrDeviceId = Nothing-    , _bdtgrGatewayId = Nothing-    }+  BindDeviceToGatewayRequest'+    {_bdtgrDeviceId = Nothing, _bdtgrGatewayId = Nothing} + -- | The device to associate with the specified gateway. The value of -- \`device_id\` can be either the device numeric ID or the user-defined -- device identifier.@@ -2029,11 +2092,14 @@ -- | Request for \`ModifyCloudToDeviceConfig\`. -- -- /See:/ 'modifyCloudToDeviceConfigRequest' smart constructor.-data ModifyCloudToDeviceConfigRequest = ModifyCloudToDeviceConfigRequest'+data ModifyCloudToDeviceConfigRequest =+  ModifyCloudToDeviceConfigRequest'     { _mctdcrVersionToUpdate :: !(Maybe (Textual Int64))     , _mctdcrBinaryData      :: !(Maybe Bytes)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyCloudToDeviceConfigRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2044,11 +2110,10 @@ modifyCloudToDeviceConfigRequest     :: ModifyCloudToDeviceConfigRequest modifyCloudToDeviceConfigRequest =-    ModifyCloudToDeviceConfigRequest'-    { _mctdcrVersionToUpdate = Nothing-    , _mctdcrBinaryData = Nothing-    }+  ModifyCloudToDeviceConfigRequest'+    {_mctdcrVersionToUpdate = Nothing, _mctdcrBinaryData = Nothing} + -- | The version number to update. If this value is zero, it will not check -- the version number of the server and will always update the current -- version; otherwise, this update will fail if the version number found on@@ -2086,12 +2151,15 @@ -- | Associates \`members\` with a \`role\`. -- -- /See:/ 'binding' smart constructor.-data Binding = Binding'+data Binding =+  Binding'     { _bMembers   :: !(Maybe [Text])     , _bRole      :: !(Maybe Text)     , _bCondition :: !(Maybe Expr)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Binding' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2104,12 +2172,9 @@ binding     :: Binding binding =-    Binding'-    { _bMembers = Nothing-    , _bRole = Nothing-    , _bCondition = Nothing-    }+  Binding' {_bMembers = Nothing, _bRole = Nothing, _bCondition = Nothing} + -- | Specifies the identities requesting access for a Cloud Platform -- resource. \`members\` can have the following values: * \`allUsers\`: A -- special identifier that represents anyone who is on the internet; with@@ -2121,8 +2186,8 @@ -- that represents a service account. For example, -- \`my-other-app\'appspot.gserviceaccount.com\`. * \`group:{emailid}\`: An -- email address that represents a Google group. For example,--- \`admins\'example.com\`. * \`domain:{domain}\`: A Google Apps domain--- name that represents all the users of that domain. For example,+-- \`admins\'example.com\`. * \`domain:{domain}\`: The G Suite domain+-- (primary) that represents all the users of that domain. For example, -- \`google.com\` or \`example.com\`. bMembers :: Lens' Binding [Text] bMembers@@ -2135,10 +2200,9 @@ bRole :: Lens' Binding (Maybe Text) bRole = lens _bRole (\ s a -> s{_bRole = a}) --- | Unimplemented. The condition that is associated with this binding. NOTE:--- an unsatisfied condition will not allow user access via current binding.--- Different bindings, including their conditions, are examined--- independently.+-- | The condition that is associated with this binding. NOTE: An unsatisfied+-- condition will not allow user access via current binding. Different+-- bindings, including their conditions, are examined independently. bCondition :: Lens' Binding (Maybe Expr) bCondition   = lens _bCondition (\ s a -> s{_bCondition = a})
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/BindDeviceToGateway.hs view
@@ -63,7 +63,8 @@ -- | Associates the device with the gateway. -- -- /See:/ 'projectsLocationsRegistriesBindDeviceToGateway' smart constructor.-data ProjectsLocationsRegistriesBindDeviceToGateway = ProjectsLocationsRegistriesBindDeviceToGateway'+data ProjectsLocationsRegistriesBindDeviceToGateway =+  ProjectsLocationsRegistriesBindDeviceToGateway'     { _plrbdtgParent         :: !Text     , _plrbdtgXgafv          :: !(Maybe Xgafv)     , _plrbdtgUploadProtocol :: !(Maybe Text)@@ -71,8 +72,10 @@     , _plrbdtgUploadType     :: !(Maybe Text)     , _plrbdtgPayload        :: !BindDeviceToGatewayRequest     , _plrbdtgCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesBindDeviceToGateway' 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 @@     -> BindDeviceToGatewayRequest -- ^ 'plrbdtgPayload'     -> ProjectsLocationsRegistriesBindDeviceToGateway projectsLocationsRegistriesBindDeviceToGateway pPlrbdtgParent_ pPlrbdtgPayload_ =-    ProjectsLocationsRegistriesBindDeviceToGateway'+  ProjectsLocationsRegistriesBindDeviceToGateway'     { _plrbdtgParent = pPlrbdtgParent_     , _plrbdtgXgafv = Nothing     , _plrbdtgUploadProtocol = Nothing@@ -105,6 +108,7 @@     , _plrbdtgCallback = Nothing     } + -- | The name of the registry. For example, -- \`projects\/example-project\/locations\/us-central1\/registries\/my-registry\`. plrbdtgParent :: Lens' ProjectsLocationsRegistriesBindDeviceToGateway Text@@ -148,7 +152,8 @@       (\ s a -> s{_plrbdtgCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesBindDeviceToGateway where+           ProjectsLocationsRegistriesBindDeviceToGateway+         where         type Rs                ProjectsLocationsRegistriesBindDeviceToGateway              = BindDeviceToGatewayResponse
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Create.hs view
@@ -63,7 +63,8 @@ -- | Creates a device registry that contains devices. -- -- /See:/ 'projectsLocationsRegistriesCreate' smart constructor.-data ProjectsLocationsRegistriesCreate = ProjectsLocationsRegistriesCreate'+data ProjectsLocationsRegistriesCreate =+  ProjectsLocationsRegistriesCreate'     { _plrcParent         :: !Text     , _plrcXgafv          :: !(Maybe Xgafv)     , _plrcUploadProtocol :: !(Maybe Text)@@ -71,8 +72,10 @@     , _plrcUploadType     :: !(Maybe Text)     , _plrcPayload        :: !DeviceRegistry     , _plrcCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesCreate' 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 @@     -> DeviceRegistry -- ^ 'plrcPayload'     -> ProjectsLocationsRegistriesCreate projectsLocationsRegistriesCreate pPlrcParent_ pPlrcPayload_ =-    ProjectsLocationsRegistriesCreate'+  ProjectsLocationsRegistriesCreate'     { _plrcParent = pPlrcParent_     , _plrcXgafv = Nothing     , _plrcUploadProtocol = Nothing@@ -105,6 +108,7 @@     , _plrcCallback = Nothing     } + -- | The project and cloud region where this device registry must be created. -- For example, \`projects\/example-project\/locations\/us-central1\`. plrcParent :: Lens' ProjectsLocationsRegistriesCreate Text@@ -145,7 +149,8 @@   = lens _plrcCallback (\ s a -> s{_plrcCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesCreate where+           ProjectsLocationsRegistriesCreate+         where         type Rs ProjectsLocationsRegistriesCreate =              DeviceRegistry         type Scopes ProjectsLocationsRegistriesCreate =
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Delete.hs view
@@ -59,15 +59,18 @@ -- | Deletes a device registry configuration. -- -- /See:/ 'projectsLocationsRegistriesDelete' smart constructor.-data ProjectsLocationsRegistriesDelete = ProjectsLocationsRegistriesDelete'+data ProjectsLocationsRegistriesDelete =+  ProjectsLocationsRegistriesDelete'     { _plrdXgafv          :: !(Maybe Xgafv)     , _plrdUploadProtocol :: !(Maybe Text)     , _plrdAccessToken    :: !(Maybe Text)     , _plrdUploadType     :: !(Maybe Text)     , _plrdName           :: !Text     , _plrdCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesDelete' 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 -- ^ 'plrdName'     -> ProjectsLocationsRegistriesDelete projectsLocationsRegistriesDelete pPlrdName_ =-    ProjectsLocationsRegistriesDelete'+  ProjectsLocationsRegistriesDelete'     { _plrdXgafv = Nothing     , _plrdUploadProtocol = Nothing     , _plrdAccessToken = Nothing@@ -96,6 +99,7 @@     , _plrdCallback = Nothing     } + -- | V1 error format. plrdXgafv :: Lens' ProjectsLocationsRegistriesDelete (Maybe Xgafv) plrdXgafv@@ -130,7 +134,8 @@   = lens _plrdCallback (\ s a -> s{_plrdCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesDelete where+           ProjectsLocationsRegistriesDelete+         where         type Rs ProjectsLocationsRegistriesDelete = Empty         type Scopes ProjectsLocationsRegistriesDelete =              '["https://www.googleapis.com/auth/cloud-platform",
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/ConfigVersions/List.hs view
@@ -66,7 +66,8 @@ -- order (i.e.: newest first). -- -- /See:/ 'projectsLocationsRegistriesDevicesConfigVersionsList' smart constructor.-data ProjectsLocationsRegistriesDevicesConfigVersionsList = ProjectsLocationsRegistriesDevicesConfigVersionsList'+data ProjectsLocationsRegistriesDevicesConfigVersionsList =+  ProjectsLocationsRegistriesDevicesConfigVersionsList'     { _plrdcvlXgafv          :: !(Maybe Xgafv)     , _plrdcvlUploadProtocol :: !(Maybe Text)     , _plrdcvlAccessToken    :: !(Maybe Text)@@ -74,8 +75,10 @@     , _plrdcvlNumVersions    :: !(Maybe (Textual Int32))     , _plrdcvlName           :: !Text     , _plrdcvlCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesDevicesConfigVersionsList' 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 @@     :: Text -- ^ 'plrdcvlName'     -> ProjectsLocationsRegistriesDevicesConfigVersionsList projectsLocationsRegistriesDevicesConfigVersionsList pPlrdcvlName_ =-    ProjectsLocationsRegistriesDevicesConfigVersionsList'+  ProjectsLocationsRegistriesDevicesConfigVersionsList'     { _plrdcvlXgafv = Nothing     , _plrdcvlUploadProtocol = Nothing     , _plrdcvlAccessToken = Nothing@@ -107,6 +110,7 @@     , _plrdcvlCallback = Nothing     } + -- | V1 error format. plrdcvlXgafv :: Lens' ProjectsLocationsRegistriesDevicesConfigVersionsList (Maybe Xgafv) plrdcvlXgafv@@ -154,7 +158,7 @@       (\ s a -> s{_plrdcvlCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesDevicesConfigVersionsList+           ProjectsLocationsRegistriesDevicesConfigVersionsList          where         type Rs                ProjectsLocationsRegistriesDevicesConfigVersionsList
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Create.hs view
@@ -63,7 +63,8 @@ -- | Creates a device in a device registry. -- -- /See:/ 'projectsLocationsRegistriesDevicesCreate' smart constructor.-data ProjectsLocationsRegistriesDevicesCreate = ProjectsLocationsRegistriesDevicesCreate'+data ProjectsLocationsRegistriesDevicesCreate =+  ProjectsLocationsRegistriesDevicesCreate'     { _plrdcParent         :: !Text     , _plrdcXgafv          :: !(Maybe Xgafv)     , _plrdcUploadProtocol :: !(Maybe Text)@@ -71,8 +72,10 @@     , _plrdcUploadType     :: !(Maybe Text)     , _plrdcPayload        :: !Device     , _plrdcCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesDevicesCreate' 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 @@     -> Device -- ^ 'plrdcPayload'     -> ProjectsLocationsRegistriesDevicesCreate projectsLocationsRegistriesDevicesCreate pPlrdcParent_ pPlrdcPayload_ =-    ProjectsLocationsRegistriesDevicesCreate'+  ProjectsLocationsRegistriesDevicesCreate'     { _plrdcParent = pPlrdcParent_     , _plrdcXgafv = Nothing     , _plrdcUploadProtocol = Nothing@@ -105,6 +108,7 @@     , _plrdcCallback = Nothing     } + -- | The name of the device registry where this device should be created. For -- example, -- \`projects\/example-project\/locations\/us-central1\/registries\/my-registry\`.@@ -147,7 +151,8 @@       (\ s a -> s{_plrdcCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesDevicesCreate where+           ProjectsLocationsRegistriesDevicesCreate+         where         type Rs ProjectsLocationsRegistriesDevicesCreate =              Device         type Scopes ProjectsLocationsRegistriesDevicesCreate
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Delete.hs view
@@ -60,15 +60,18 @@ -- | Deletes a device. -- -- /See:/ 'projectsLocationsRegistriesDevicesDelete' smart constructor.-data ProjectsLocationsRegistriesDevicesDelete = ProjectsLocationsRegistriesDevicesDelete'+data ProjectsLocationsRegistriesDevicesDelete =+  ProjectsLocationsRegistriesDevicesDelete'     { _plrddXgafv          :: !(Maybe Xgafv)     , _plrddUploadProtocol :: !(Maybe Text)     , _plrddAccessToken    :: !(Maybe Text)     , _plrddUploadType     :: !(Maybe Text)     , _plrddName           :: !Text     , _plrddCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesDevicesDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -88,7 +91,7 @@     :: Text -- ^ 'plrddName'     -> ProjectsLocationsRegistriesDevicesDelete projectsLocationsRegistriesDevicesDelete pPlrddName_ =-    ProjectsLocationsRegistriesDevicesDelete'+  ProjectsLocationsRegistriesDevicesDelete'     { _plrddXgafv = Nothing     , _plrddUploadProtocol = Nothing     , _plrddAccessToken = Nothing@@ -97,6 +100,7 @@     , _plrddCallback = Nothing     } + -- | V1 error format. plrddXgafv :: Lens' ProjectsLocationsRegistriesDevicesDelete (Maybe Xgafv) plrddXgafv@@ -135,7 +139,8 @@       (\ s a -> s{_plrddCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesDevicesDelete where+           ProjectsLocationsRegistriesDevicesDelete+         where         type Rs ProjectsLocationsRegistriesDevicesDelete =              Empty         type Scopes ProjectsLocationsRegistriesDevicesDelete
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Get.hs view
@@ -61,7 +61,8 @@ -- | Gets details about a device. -- -- /See:/ 'projectsLocationsRegistriesDevicesGet' smart constructor.-data ProjectsLocationsRegistriesDevicesGet = ProjectsLocationsRegistriesDevicesGet'+data ProjectsLocationsRegistriesDevicesGet =+  ProjectsLocationsRegistriesDevicesGet'     { _plrdgXgafv          :: !(Maybe Xgafv)     , _plrdgUploadProtocol :: !(Maybe Text)     , _plrdgAccessToken    :: !(Maybe Text)@@ -69,8 +70,10 @@     , _plrdgFieldMask      :: !(Maybe GFieldMask)     , _plrdgName           :: !Text     , _plrdgCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesDevicesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -92,7 +95,7 @@     :: Text -- ^ 'plrdgName'     -> ProjectsLocationsRegistriesDevicesGet projectsLocationsRegistriesDevicesGet pPlrdgName_ =-    ProjectsLocationsRegistriesDevicesGet'+  ProjectsLocationsRegistriesDevicesGet'     { _plrdgXgafv = Nothing     , _plrdgUploadProtocol = Nothing     , _plrdgAccessToken = Nothing@@ -102,6 +105,7 @@     , _plrdgCallback = Nothing     } + -- | V1 error format. plrdgXgafv :: Lens' ProjectsLocationsRegistriesDevicesGet (Maybe Xgafv) plrdgXgafv@@ -147,7 +151,8 @@       (\ s a -> s{_plrdgCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesDevicesGet where+           ProjectsLocationsRegistriesDevicesGet+         where         type Rs ProjectsLocationsRegistriesDevicesGet =              Device         type Scopes ProjectsLocationsRegistriesDevicesGet =
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/List.hs view
@@ -81,7 +81,8 @@ -- | List devices in a device registry. -- -- /See:/ 'projectsLocationsRegistriesDevicesList' smart constructor.-data ProjectsLocationsRegistriesDevicesList = ProjectsLocationsRegistriesDevicesList'+data ProjectsLocationsRegistriesDevicesList =+  ProjectsLocationsRegistriesDevicesList'     { _plrdlParent                                  :: !Text     , _plrdlXgafv                                   :: !(Maybe Xgafv)     , _plrdlUploadProtocol                          :: !(Maybe Text)@@ -96,8 +97,10 @@     , _plrdlPageToken                               :: !(Maybe Text)     , _plrdlPageSize                                :: !(Maybe (Textual Int32))     , _plrdlCallback                                :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesDevicesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -133,7 +136,7 @@     :: Text -- ^ 'plrdlParent'     -> ProjectsLocationsRegistriesDevicesList projectsLocationsRegistriesDevicesList pPlrdlParent_ =-    ProjectsLocationsRegistriesDevicesList'+  ProjectsLocationsRegistriesDevicesList'     { _plrdlParent = pPlrdlParent_     , _plrdlXgafv = Nothing     , _plrdlUploadProtocol = Nothing@@ -150,6 +153,7 @@     , _plrdlCallback = Nothing     } + -- | The device registry path. Required. For example, -- \`projects\/my-project\/locations\/us-central1\/registries\/my-registry\`. plrdlParent :: Lens' ProjectsLocationsRegistriesDevicesList Text@@ -259,7 +263,8 @@       (\ s a -> s{_plrdlCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesDevicesList where+           ProjectsLocationsRegistriesDevicesList+         where         type Rs ProjectsLocationsRegistriesDevicesList =              ListDevicesResponse         type Scopes ProjectsLocationsRegistriesDevicesList =
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/ModifyCloudToDeviceConfig.hs view
@@ -68,7 +68,8 @@ -- and its metadata. -- -- /See:/ 'projectsLocationsRegistriesDevicesModifyCloudToDeviceConfig' smart constructor.-data ProjectsLocationsRegistriesDevicesModifyCloudToDeviceConfig = ProjectsLocationsRegistriesDevicesModifyCloudToDeviceConfig'+data ProjectsLocationsRegistriesDevicesModifyCloudToDeviceConfig =+  ProjectsLocationsRegistriesDevicesModifyCloudToDeviceConfig'     { _plrdmctdcXgafv          :: !(Maybe Xgafv)     , _plrdmctdcUploadProtocol :: !(Maybe Text)     , _plrdmctdcAccessToken    :: !(Maybe Text)@@ -76,8 +77,10 @@     , _plrdmctdcPayload        :: !ModifyCloudToDeviceConfigRequest     , _plrdmctdcName           :: !Text     , _plrdmctdcCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesDevicesModifyCloudToDeviceConfig' 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 @@     -> Text -- ^ 'plrdmctdcName'     -> ProjectsLocationsRegistriesDevicesModifyCloudToDeviceConfig projectsLocationsRegistriesDevicesModifyCloudToDeviceConfig pPlrdmctdcPayload_ pPlrdmctdcName_ =-    ProjectsLocationsRegistriesDevicesModifyCloudToDeviceConfig'+  ProjectsLocationsRegistriesDevicesModifyCloudToDeviceConfig'     { _plrdmctdcXgafv = Nothing     , _plrdmctdcUploadProtocol = Nothing     , _plrdmctdcAccessToken = Nothing@@ -110,6 +113,7 @@     , _plrdmctdcCallback = Nothing     } + -- | V1 error format. plrdmctdcXgafv :: Lens' ProjectsLocationsRegistriesDevicesModifyCloudToDeviceConfig (Maybe Xgafv) plrdmctdcXgafv@@ -156,7 +160,7 @@       (\ s a -> s{_plrdmctdcCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesDevicesModifyCloudToDeviceConfig+           ProjectsLocationsRegistriesDevicesModifyCloudToDeviceConfig          where         type Rs                ProjectsLocationsRegistriesDevicesModifyCloudToDeviceConfig
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Patch.hs view
@@ -64,7 +64,8 @@ -- | Updates a device. -- -- /See:/ 'projectsLocationsRegistriesDevicesPatch' smart constructor.-data ProjectsLocationsRegistriesDevicesPatch = ProjectsLocationsRegistriesDevicesPatch'+data ProjectsLocationsRegistriesDevicesPatch =+  ProjectsLocationsRegistriesDevicesPatch'     { _plrdpXgafv          :: !(Maybe Xgafv)     , _plrdpUploadProtocol :: !(Maybe Text)     , _plrdpUpdateMask     :: !(Maybe GFieldMask)@@ -73,8 +74,10 @@     , _plrdpPayload        :: !Device     , _plrdpName           :: !Text     , _plrdpCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesDevicesPatch' 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 -- ^ 'plrdpName'     -> ProjectsLocationsRegistriesDevicesPatch projectsLocationsRegistriesDevicesPatch pPlrdpPayload_ pPlrdpName_ =-    ProjectsLocationsRegistriesDevicesPatch'+  ProjectsLocationsRegistriesDevicesPatch'     { _plrdpXgafv = Nothing     , _plrdpUploadProtocol = Nothing     , _plrdpUpdateMask = Nothing@@ -110,6 +113,7 @@     , _plrdpCallback = Nothing     } + -- | V1 error format. plrdpXgafv :: Lens' ProjectsLocationsRegistriesDevicesPatch (Maybe Xgafv) plrdpXgafv@@ -164,7 +168,8 @@       (\ s a -> s{_plrdpCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesDevicesPatch where+           ProjectsLocationsRegistriesDevicesPatch+         where         type Rs ProjectsLocationsRegistriesDevicesPatch =              Device         type Scopes ProjectsLocationsRegistriesDevicesPatch =
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/SendCommandToDevice.hs view
@@ -87,7 +87,8 @@ -- QoS 0, no acknowledgment will be expected from the device. -- -- /See:/ 'projectsLocationsRegistriesDevicesSendCommandToDevice' smart constructor.-data ProjectsLocationsRegistriesDevicesSendCommandToDevice = ProjectsLocationsRegistriesDevicesSendCommandToDevice'+data ProjectsLocationsRegistriesDevicesSendCommandToDevice =+  ProjectsLocationsRegistriesDevicesSendCommandToDevice'     { _plrdsctdXgafv          :: !(Maybe Xgafv)     , _plrdsctdUploadProtocol :: !(Maybe Text)     , _plrdsctdAccessToken    :: !(Maybe Text)@@ -95,8 +96,10 @@     , _plrdsctdPayload        :: !SendCommandToDeviceRequest     , _plrdsctdName           :: !Text     , _plrdsctdCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesDevicesSendCommandToDevice' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -119,7 +122,7 @@     -> Text -- ^ 'plrdsctdName'     -> ProjectsLocationsRegistriesDevicesSendCommandToDevice projectsLocationsRegistriesDevicesSendCommandToDevice pPlrdsctdPayload_ pPlrdsctdName_ =-    ProjectsLocationsRegistriesDevicesSendCommandToDevice'+  ProjectsLocationsRegistriesDevicesSendCommandToDevice'     { _plrdsctdXgafv = Nothing     , _plrdsctdUploadProtocol = Nothing     , _plrdsctdAccessToken = Nothing@@ -129,6 +132,7 @@     , _plrdsctdCallback = Nothing     } + -- | V1 error format. plrdsctdXgafv :: Lens' ProjectsLocationsRegistriesDevicesSendCommandToDevice (Maybe Xgafv) plrdsctdXgafv@@ -174,7 +178,7 @@       (\ s a -> s{_plrdsctdCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesDevicesSendCommandToDevice+           ProjectsLocationsRegistriesDevicesSendCommandToDevice          where         type Rs                ProjectsLocationsRegistriesDevicesSendCommandToDevice
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/States/List.hs view
@@ -66,7 +66,8 @@ -- (i.e.: newest first). -- -- /See:/ 'projectsLocationsRegistriesDevicesStatesList' smart constructor.-data ProjectsLocationsRegistriesDevicesStatesList = ProjectsLocationsRegistriesDevicesStatesList'+data ProjectsLocationsRegistriesDevicesStatesList =+  ProjectsLocationsRegistriesDevicesStatesList'     { _plrdslXgafv          :: !(Maybe Xgafv)     , _plrdslUploadProtocol :: !(Maybe Text)     , _plrdslAccessToken    :: !(Maybe Text)@@ -74,8 +75,10 @@     , _plrdslName           :: !Text     , _plrdslNumStates      :: !(Maybe (Textual Int32))     , _plrdslCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesDevicesStatesList' 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 @@     :: Text -- ^ 'plrdslName'     -> ProjectsLocationsRegistriesDevicesStatesList projectsLocationsRegistriesDevicesStatesList pPlrdslName_ =-    ProjectsLocationsRegistriesDevicesStatesList'+  ProjectsLocationsRegistriesDevicesStatesList'     { _plrdslXgafv = Nothing     , _plrdslUploadProtocol = Nothing     , _plrdslAccessToken = Nothing@@ -107,6 +110,7 @@     , _plrdslCallback = Nothing     } + -- | V1 error format. plrdslXgafv :: Lens' ProjectsLocationsRegistriesDevicesStatesList (Maybe Xgafv) plrdslXgafv@@ -154,7 +158,8 @@       (\ s a -> s{_plrdslCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesDevicesStatesList where+           ProjectsLocationsRegistriesDevicesStatesList+         where         type Rs ProjectsLocationsRegistriesDevicesStatesList              = ListDeviceStatesResponse         type Scopes
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Get.hs view
@@ -60,15 +60,18 @@ -- | Gets a device registry configuration. -- -- /See:/ 'projectsLocationsRegistriesGet' smart constructor.-data ProjectsLocationsRegistriesGet = ProjectsLocationsRegistriesGet'+data ProjectsLocationsRegistriesGet =+  ProjectsLocationsRegistriesGet'     { _plrgXgafv          :: !(Maybe Xgafv)     , _plrgUploadProtocol :: !(Maybe Text)     , _plrgAccessToken    :: !(Maybe Text)     , _plrgUploadType     :: !(Maybe Text)     , _plrgName           :: !Text     , _plrgCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -88,7 +91,7 @@     :: Text -- ^ 'plrgName'     -> ProjectsLocationsRegistriesGet projectsLocationsRegistriesGet pPlrgName_ =-    ProjectsLocationsRegistriesGet'+  ProjectsLocationsRegistriesGet'     { _plrgXgafv = Nothing     , _plrgUploadProtocol = Nothing     , _plrgAccessToken = Nothing@@ -96,6 +99,7 @@     , _plrgName = pPlrgName_     , _plrgCallback = Nothing     }+  -- | V1 error format. plrgXgafv :: Lens' ProjectsLocationsRegistriesGet (Maybe Xgafv)
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/GetIAMPolicy.hs view
@@ -65,7 +65,8 @@ -- if the resource exists and does not have a policy set. -- -- /See:/ 'projectsLocationsRegistriesGetIAMPolicy' smart constructor.-data ProjectsLocationsRegistriesGetIAMPolicy = ProjectsLocationsRegistriesGetIAMPolicy'+data ProjectsLocationsRegistriesGetIAMPolicy =+  ProjectsLocationsRegistriesGetIAMPolicy'     { _plrgipXgafv          :: !(Maybe Xgafv)     , _plrgipUploadProtocol :: !(Maybe Text)     , _plrgipAccessToken    :: !(Maybe Text)@@ -73,8 +74,10 @@     , _plrgipPayload        :: !GetIAMPolicyRequest     , _plrgipResource       :: !Text     , _plrgipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesGetIAMPolicy' 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 @@     -> Text -- ^ 'plrgipResource'     -> ProjectsLocationsRegistriesGetIAMPolicy projectsLocationsRegistriesGetIAMPolicy pPlrgipPayload_ pPlrgipResource_ =-    ProjectsLocationsRegistriesGetIAMPolicy'+  ProjectsLocationsRegistriesGetIAMPolicy'     { _plrgipXgafv = Nothing     , _plrgipUploadProtocol = Nothing     , _plrgipAccessToken = Nothing@@ -107,6 +110,7 @@     , _plrgipCallback = Nothing     } + -- | V1 error format. plrgipXgafv :: Lens' ProjectsLocationsRegistriesGetIAMPolicy (Maybe Xgafv) plrgipXgafv@@ -150,7 +154,8 @@       (\ s a -> s{_plrgipCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesGetIAMPolicy where+           ProjectsLocationsRegistriesGetIAMPolicy+         where         type Rs ProjectsLocationsRegistriesGetIAMPolicy =              Policy         type Scopes ProjectsLocationsRegistriesGetIAMPolicy =
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/BindDeviceToGateway.hs view
@@ -63,7 +63,8 @@ -- | Associates the device with the gateway. -- -- /See:/ 'projectsLocationsRegistriesGroupsBindDeviceToGateway' smart constructor.-data ProjectsLocationsRegistriesGroupsBindDeviceToGateway = ProjectsLocationsRegistriesGroupsBindDeviceToGateway'+data ProjectsLocationsRegistriesGroupsBindDeviceToGateway =+  ProjectsLocationsRegistriesGroupsBindDeviceToGateway'     { _plrgbdtgParent         :: !Text     , _plrgbdtgXgafv          :: !(Maybe Xgafv)     , _plrgbdtgUploadProtocol :: !(Maybe Text)@@ -71,8 +72,10 @@     , _plrgbdtgUploadType     :: !(Maybe Text)     , _plrgbdtgPayload        :: !BindDeviceToGatewayRequest     , _plrgbdtgCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesGroupsBindDeviceToGateway' 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 @@     -> BindDeviceToGatewayRequest -- ^ 'plrgbdtgPayload'     -> ProjectsLocationsRegistriesGroupsBindDeviceToGateway projectsLocationsRegistriesGroupsBindDeviceToGateway pPlrgbdtgParent_ pPlrgbdtgPayload_ =-    ProjectsLocationsRegistriesGroupsBindDeviceToGateway'+  ProjectsLocationsRegistriesGroupsBindDeviceToGateway'     { _plrgbdtgParent = pPlrgbdtgParent_     , _plrgbdtgXgafv = Nothing     , _plrgbdtgUploadProtocol = Nothing@@ -105,6 +108,7 @@     , _plrgbdtgCallback = Nothing     } + -- | The name of the registry. For example, -- \`projects\/example-project\/locations\/us-central1\/registries\/my-registry\`. plrgbdtgParent :: Lens' ProjectsLocationsRegistriesGroupsBindDeviceToGateway Text@@ -149,7 +153,7 @@       (\ s a -> s{_plrgbdtgCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesGroupsBindDeviceToGateway+           ProjectsLocationsRegistriesGroupsBindDeviceToGateway          where         type Rs                ProjectsLocationsRegistriesGroupsBindDeviceToGateway
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/ConfigVersions/List.hs view
@@ -66,7 +66,8 @@ -- order (i.e.: newest first). -- -- /See:/ 'projectsLocationsRegistriesGroupsDevicesConfigVersionsList' smart constructor.-data ProjectsLocationsRegistriesGroupsDevicesConfigVersionsList = ProjectsLocationsRegistriesGroupsDevicesConfigVersionsList'+data ProjectsLocationsRegistriesGroupsDevicesConfigVersionsList =+  ProjectsLocationsRegistriesGroupsDevicesConfigVersionsList'     { _plrgdcvlXgafv          :: !(Maybe Xgafv)     , _plrgdcvlUploadProtocol :: !(Maybe Text)     , _plrgdcvlAccessToken    :: !(Maybe Text)@@ -74,8 +75,10 @@     , _plrgdcvlNumVersions    :: !(Maybe (Textual Int32))     , _plrgdcvlName           :: !Text     , _plrgdcvlCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesGroupsDevicesConfigVersionsList' 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 @@     :: Text -- ^ 'plrgdcvlName'     -> ProjectsLocationsRegistriesGroupsDevicesConfigVersionsList projectsLocationsRegistriesGroupsDevicesConfigVersionsList pPlrgdcvlName_ =-    ProjectsLocationsRegistriesGroupsDevicesConfigVersionsList'+  ProjectsLocationsRegistriesGroupsDevicesConfigVersionsList'     { _plrgdcvlXgafv = Nothing     , _plrgdcvlUploadProtocol = Nothing     , _plrgdcvlAccessToken = Nothing@@ -107,6 +110,7 @@     , _plrgdcvlCallback = Nothing     } + -- | V1 error format. plrgdcvlXgafv :: Lens' ProjectsLocationsRegistriesGroupsDevicesConfigVersionsList (Maybe Xgafv) plrgdcvlXgafv@@ -155,7 +159,7 @@       (\ s a -> s{_plrgdcvlCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesGroupsDevicesConfigVersionsList+           ProjectsLocationsRegistriesGroupsDevicesConfigVersionsList          where         type Rs                ProjectsLocationsRegistriesGroupsDevicesConfigVersionsList
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/Get.hs view
@@ -62,7 +62,8 @@ -- | Gets details about a device. -- -- /See:/ 'projectsLocationsRegistriesGroupsDevicesGet' smart constructor.-data ProjectsLocationsRegistriesGroupsDevicesGet = ProjectsLocationsRegistriesGroupsDevicesGet'+data ProjectsLocationsRegistriesGroupsDevicesGet =+  ProjectsLocationsRegistriesGroupsDevicesGet'     { _plrgdgXgafv          :: !(Maybe Xgafv)     , _plrgdgUploadProtocol :: !(Maybe Text)     , _plrgdgAccessToken    :: !(Maybe Text)@@ -70,8 +71,10 @@     , _plrgdgFieldMask      :: !(Maybe GFieldMask)     , _plrgdgName           :: !Text     , _plrgdgCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesGroupsDevicesGet' 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 @@     :: Text -- ^ 'plrgdgName'     -> ProjectsLocationsRegistriesGroupsDevicesGet projectsLocationsRegistriesGroupsDevicesGet pPlrgdgName_ =-    ProjectsLocationsRegistriesGroupsDevicesGet'+  ProjectsLocationsRegistriesGroupsDevicesGet'     { _plrgdgXgafv = Nothing     , _plrgdgUploadProtocol = Nothing     , _plrgdgAccessToken = Nothing@@ -103,6 +106,7 @@     , _plrgdgCallback = Nothing     } + -- | V1 error format. plrgdgXgafv :: Lens' ProjectsLocationsRegistriesGroupsDevicesGet (Maybe Xgafv) plrgdgXgafv@@ -148,7 +152,8 @@       (\ s a -> s{_plrgdgCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesGroupsDevicesGet where+           ProjectsLocationsRegistriesGroupsDevicesGet+         where         type Rs ProjectsLocationsRegistriesGroupsDevicesGet =              Device         type Scopes
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/List.hs view
@@ -82,7 +82,8 @@ -- | List devices in a device registry. -- -- /See:/ 'projectsLocationsRegistriesGroupsDevicesList' smart constructor.-data ProjectsLocationsRegistriesGroupsDevicesList = ProjectsLocationsRegistriesGroupsDevicesList'+data ProjectsLocationsRegistriesGroupsDevicesList =+  ProjectsLocationsRegistriesGroupsDevicesList'     { _plrgdlParent                                  :: !Text     , _plrgdlXgafv                                   :: !(Maybe Xgafv)     , _plrgdlUploadProtocol                          :: !(Maybe Text)@@ -97,8 +98,10 @@     , _plrgdlPageToken                               :: !(Maybe Text)     , _plrgdlPageSize                                :: !(Maybe (Textual Int32))     , _plrgdlCallback                                :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesGroupsDevicesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -134,7 +137,7 @@     :: Text -- ^ 'plrgdlParent'     -> ProjectsLocationsRegistriesGroupsDevicesList projectsLocationsRegistriesGroupsDevicesList pPlrgdlParent_ =-    ProjectsLocationsRegistriesGroupsDevicesList'+  ProjectsLocationsRegistriesGroupsDevicesList'     { _plrgdlParent = pPlrgdlParent_     , _plrgdlXgafv = Nothing     , _plrgdlUploadProtocol = Nothing@@ -151,6 +154,7 @@     , _plrgdlCallback = Nothing     } + -- | The device registry path. Required. For example, -- \`projects\/my-project\/locations\/us-central1\/registries\/my-registry\`. plrgdlParent :: Lens' ProjectsLocationsRegistriesGroupsDevicesList Text@@ -262,7 +266,8 @@       (\ s a -> s{_plrgdlCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesGroupsDevicesList where+           ProjectsLocationsRegistriesGroupsDevicesList+         where         type Rs ProjectsLocationsRegistriesGroupsDevicesList              = ListDevicesResponse         type Scopes
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/ModifyCloudToDeviceConfig.hs view
@@ -68,7 +68,8 @@ -- and its metadata. -- -- /See:/ 'projectsLocationsRegistriesGroupsDevicesModifyCloudToDeviceConfig' smart constructor.-data ProjectsLocationsRegistriesGroupsDevicesModifyCloudToDeviceConfig = ProjectsLocationsRegistriesGroupsDevicesModifyCloudToDeviceConfig'+data ProjectsLocationsRegistriesGroupsDevicesModifyCloudToDeviceConfig =+  ProjectsLocationsRegistriesGroupsDevicesModifyCloudToDeviceConfig'     { _plrgdmctdcXgafv          :: !(Maybe Xgafv)     , _plrgdmctdcUploadProtocol :: !(Maybe Text)     , _plrgdmctdcAccessToken    :: !(Maybe Text)@@ -76,8 +77,10 @@     , _plrgdmctdcPayload        :: !ModifyCloudToDeviceConfigRequest     , _plrgdmctdcName           :: !Text     , _plrgdmctdcCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesGroupsDevicesModifyCloudToDeviceConfig' 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 @@     -> Text -- ^ 'plrgdmctdcName'     -> ProjectsLocationsRegistriesGroupsDevicesModifyCloudToDeviceConfig projectsLocationsRegistriesGroupsDevicesModifyCloudToDeviceConfig pPlrgdmctdcPayload_ pPlrgdmctdcName_ =-    ProjectsLocationsRegistriesGroupsDevicesModifyCloudToDeviceConfig'+  ProjectsLocationsRegistriesGroupsDevicesModifyCloudToDeviceConfig'     { _plrgdmctdcXgafv = Nothing     , _plrgdmctdcUploadProtocol = Nothing     , _plrgdmctdcAccessToken = Nothing@@ -110,6 +113,7 @@     , _plrgdmctdcCallback = Nothing     } + -- | V1 error format. plrgdmctdcXgafv :: Lens' ProjectsLocationsRegistriesGroupsDevicesModifyCloudToDeviceConfig (Maybe Xgafv) plrgdmctdcXgafv@@ -156,7 +160,7 @@       (\ s a -> s{_plrgdmctdcCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesGroupsDevicesModifyCloudToDeviceConfig+           ProjectsLocationsRegistriesGroupsDevicesModifyCloudToDeviceConfig          where         type Rs                ProjectsLocationsRegistriesGroupsDevicesModifyCloudToDeviceConfig
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/Patch.hs view
@@ -64,7 +64,8 @@ -- | Updates a device. -- -- /See:/ 'projectsLocationsRegistriesGroupsDevicesPatch' smart constructor.-data ProjectsLocationsRegistriesGroupsDevicesPatch = ProjectsLocationsRegistriesGroupsDevicesPatch'+data ProjectsLocationsRegistriesGroupsDevicesPatch =+  ProjectsLocationsRegistriesGroupsDevicesPatch'     { _plrgdpXgafv          :: !(Maybe Xgafv)     , _plrgdpUploadProtocol :: !(Maybe Text)     , _plrgdpUpdateMask     :: !(Maybe GFieldMask)@@ -73,8 +74,10 @@     , _plrgdpPayload        :: !Device     , _plrgdpName           :: !Text     , _plrgdpCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesGroupsDevicesPatch' 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 -- ^ 'plrgdpName'     -> ProjectsLocationsRegistriesGroupsDevicesPatch projectsLocationsRegistriesGroupsDevicesPatch pPlrgdpPayload_ pPlrgdpName_ =-    ProjectsLocationsRegistriesGroupsDevicesPatch'+  ProjectsLocationsRegistriesGroupsDevicesPatch'     { _plrgdpXgafv = Nothing     , _plrgdpUploadProtocol = Nothing     , _plrgdpUpdateMask = Nothing@@ -110,6 +113,7 @@     , _plrgdpCallback = Nothing     } + -- | V1 error format. plrgdpXgafv :: Lens' ProjectsLocationsRegistriesGroupsDevicesPatch (Maybe Xgafv) plrgdpXgafv@@ -165,7 +169,8 @@       (\ s a -> s{_plrgdpCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesGroupsDevicesPatch where+           ProjectsLocationsRegistriesGroupsDevicesPatch+         where         type Rs ProjectsLocationsRegistriesGroupsDevicesPatch              = Device         type Scopes
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/SendCommandToDevice.hs view
@@ -87,7 +87,8 @@ -- QoS 0, no acknowledgment will be expected from the device. -- -- /See:/ 'projectsLocationsRegistriesGroupsDevicesSendCommandToDevice' smart constructor.-data ProjectsLocationsRegistriesGroupsDevicesSendCommandToDevice = ProjectsLocationsRegistriesGroupsDevicesSendCommandToDevice'+data ProjectsLocationsRegistriesGroupsDevicesSendCommandToDevice =+  ProjectsLocationsRegistriesGroupsDevicesSendCommandToDevice'     { _plrgdsctdXgafv          :: !(Maybe Xgafv)     , _plrgdsctdUploadProtocol :: !(Maybe Text)     , _plrgdsctdAccessToken    :: !(Maybe Text)@@ -95,8 +96,10 @@     , _plrgdsctdPayload        :: !SendCommandToDeviceRequest     , _plrgdsctdName           :: !Text     , _plrgdsctdCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesGroupsDevicesSendCommandToDevice' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -119,7 +122,7 @@     -> Text -- ^ 'plrgdsctdName'     -> ProjectsLocationsRegistriesGroupsDevicesSendCommandToDevice projectsLocationsRegistriesGroupsDevicesSendCommandToDevice pPlrgdsctdPayload_ pPlrgdsctdName_ =-    ProjectsLocationsRegistriesGroupsDevicesSendCommandToDevice'+  ProjectsLocationsRegistriesGroupsDevicesSendCommandToDevice'     { _plrgdsctdXgafv = Nothing     , _plrgdsctdUploadProtocol = Nothing     , _plrgdsctdAccessToken = Nothing@@ -129,6 +132,7 @@     , _plrgdsctdCallback = Nothing     } + -- | V1 error format. plrgdsctdXgafv :: Lens' ProjectsLocationsRegistriesGroupsDevicesSendCommandToDevice (Maybe Xgafv) plrgdsctdXgafv@@ -175,7 +179,7 @@       (\ s a -> s{_plrgdsctdCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesGroupsDevicesSendCommandToDevice+           ProjectsLocationsRegistriesGroupsDevicesSendCommandToDevice          where         type Rs                ProjectsLocationsRegistriesGroupsDevicesSendCommandToDevice
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/States/List.hs view
@@ -66,7 +66,8 @@ -- (i.e.: newest first). -- -- /See:/ 'projectsLocationsRegistriesGroupsDevicesStatesList' smart constructor.-data ProjectsLocationsRegistriesGroupsDevicesStatesList = ProjectsLocationsRegistriesGroupsDevicesStatesList'+data ProjectsLocationsRegistriesGroupsDevicesStatesList =+  ProjectsLocationsRegistriesGroupsDevicesStatesList'     { _plrgdslXgafv          :: !(Maybe Xgafv)     , _plrgdslUploadProtocol :: !(Maybe Text)     , _plrgdslAccessToken    :: !(Maybe Text)@@ -74,8 +75,10 @@     , _plrgdslName           :: !Text     , _plrgdslNumStates      :: !(Maybe (Textual Int32))     , _plrgdslCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesGroupsDevicesStatesList' 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 @@     :: Text -- ^ 'plrgdslName'     -> ProjectsLocationsRegistriesGroupsDevicesStatesList projectsLocationsRegistriesGroupsDevicesStatesList pPlrgdslName_ =-    ProjectsLocationsRegistriesGroupsDevicesStatesList'+  ProjectsLocationsRegistriesGroupsDevicesStatesList'     { _plrgdslXgafv = Nothing     , _plrgdslUploadProtocol = Nothing     , _plrgdslAccessToken = Nothing@@ -107,6 +110,7 @@     , _plrgdslCallback = Nothing     } + -- | V1 error format. plrgdslXgafv :: Lens' ProjectsLocationsRegistriesGroupsDevicesStatesList (Maybe Xgafv) plrgdslXgafv@@ -154,7 +158,7 @@       (\ s a -> s{_plrgdslCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesGroupsDevicesStatesList+           ProjectsLocationsRegistriesGroupsDevicesStatesList          where         type Rs                ProjectsLocationsRegistriesGroupsDevicesStatesList
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/GetIAMPolicy.hs view
@@ -65,7 +65,8 @@ -- if the resource exists and does not have a policy set. -- -- /See:/ 'projectsLocationsRegistriesGroupsGetIAMPolicy' smart constructor.-data ProjectsLocationsRegistriesGroupsGetIAMPolicy = ProjectsLocationsRegistriesGroupsGetIAMPolicy'+data ProjectsLocationsRegistriesGroupsGetIAMPolicy =+  ProjectsLocationsRegistriesGroupsGetIAMPolicy'     { _plrggipXgafv          :: !(Maybe Xgafv)     , _plrggipUploadProtocol :: !(Maybe Text)     , _plrggipAccessToken    :: !(Maybe Text)@@ -73,8 +74,10 @@     , _plrggipPayload        :: !GetIAMPolicyRequest     , _plrggipResource       :: !Text     , _plrggipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesGroupsGetIAMPolicy' 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 @@     -> Text -- ^ 'plrggipResource'     -> ProjectsLocationsRegistriesGroupsGetIAMPolicy projectsLocationsRegistriesGroupsGetIAMPolicy pPlrggipPayload_ pPlrggipResource_ =-    ProjectsLocationsRegistriesGroupsGetIAMPolicy'+  ProjectsLocationsRegistriesGroupsGetIAMPolicy'     { _plrggipXgafv = Nothing     , _plrggipUploadProtocol = Nothing     , _plrggipAccessToken = Nothing@@ -107,6 +110,7 @@     , _plrggipCallback = Nothing     } + -- | V1 error format. plrggipXgafv :: Lens' ProjectsLocationsRegistriesGroupsGetIAMPolicy (Maybe Xgafv) plrggipXgafv@@ -150,7 +154,8 @@       (\ s a -> s{_plrggipCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesGroupsGetIAMPolicy where+           ProjectsLocationsRegistriesGroupsGetIAMPolicy+         where         type Rs ProjectsLocationsRegistriesGroupsGetIAMPolicy              = Policy         type Scopes
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/SetIAMPolicy.hs view
@@ -65,7 +65,8 @@ -- existing policy. -- -- /See:/ 'projectsLocationsRegistriesGroupsSetIAMPolicy' smart constructor.-data ProjectsLocationsRegistriesGroupsSetIAMPolicy = ProjectsLocationsRegistriesGroupsSetIAMPolicy'+data ProjectsLocationsRegistriesGroupsSetIAMPolicy =+  ProjectsLocationsRegistriesGroupsSetIAMPolicy'     { _plrgsipXgafv          :: !(Maybe Xgafv)     , _plrgsipUploadProtocol :: !(Maybe Text)     , _plrgsipAccessToken    :: !(Maybe Text)@@ -73,8 +74,10 @@     , _plrgsipPayload        :: !SetIAMPolicyRequest     , _plrgsipResource       :: !Text     , _plrgsipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesGroupsSetIAMPolicy' 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 @@     -> Text -- ^ 'plrgsipResource'     -> ProjectsLocationsRegistriesGroupsSetIAMPolicy projectsLocationsRegistriesGroupsSetIAMPolicy pPlrgsipPayload_ pPlrgsipResource_ =-    ProjectsLocationsRegistriesGroupsSetIAMPolicy'+  ProjectsLocationsRegistriesGroupsSetIAMPolicy'     { _plrgsipXgafv = Nothing     , _plrgsipUploadProtocol = Nothing     , _plrgsipAccessToken = Nothing@@ -107,6 +110,7 @@     , _plrgsipCallback = Nothing     } + -- | V1 error format. plrgsipXgafv :: Lens' ProjectsLocationsRegistriesGroupsSetIAMPolicy (Maybe Xgafv) plrgsipXgafv@@ -150,7 +154,8 @@       (\ s a -> s{_plrgsipCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesGroupsSetIAMPolicy where+           ProjectsLocationsRegistriesGroupsSetIAMPolicy+         where         type Rs ProjectsLocationsRegistriesGroupsSetIAMPolicy              = Policy         type Scopes
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/TestIAMPermissions.hs view
@@ -67,7 +67,8 @@ -- not a NOT_FOUND error. -- -- /See:/ 'projectsLocationsRegistriesGroupsTestIAMPermissions' smart constructor.-data ProjectsLocationsRegistriesGroupsTestIAMPermissions = ProjectsLocationsRegistriesGroupsTestIAMPermissions'+data ProjectsLocationsRegistriesGroupsTestIAMPermissions =+  ProjectsLocationsRegistriesGroupsTestIAMPermissions'     { _plrgtipXgafv          :: !(Maybe Xgafv)     , _plrgtipUploadProtocol :: !(Maybe Text)     , _plrgtipAccessToken    :: !(Maybe Text)@@ -75,8 +76,10 @@     , _plrgtipPayload        :: !TestIAMPermissionsRequest     , _plrgtipResource       :: !Text     , _plrgtipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesGroupsTestIAMPermissions' 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 -- ^ 'plrgtipResource'     -> ProjectsLocationsRegistriesGroupsTestIAMPermissions projectsLocationsRegistriesGroupsTestIAMPermissions pPlrgtipPayload_ pPlrgtipResource_ =-    ProjectsLocationsRegistriesGroupsTestIAMPermissions'+  ProjectsLocationsRegistriesGroupsTestIAMPermissions'     { _plrgtipXgafv = Nothing     , _plrgtipUploadProtocol = Nothing     , _plrgtipAccessToken = Nothing@@ -109,6 +112,7 @@     , _plrgtipCallback = Nothing     } + -- | V1 error format. plrgtipXgafv :: Lens' ProjectsLocationsRegistriesGroupsTestIAMPermissions (Maybe Xgafv) plrgtipXgafv@@ -153,7 +157,7 @@       (\ s a -> s{_plrgtipCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesGroupsTestIAMPermissions+           ProjectsLocationsRegistriesGroupsTestIAMPermissions          where         type Rs                ProjectsLocationsRegistriesGroupsTestIAMPermissions
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/UnbindDeviceFromGateway.hs view
@@ -64,7 +64,8 @@ -- | Deletes the association between the device and the gateway. -- -- /See:/ 'projectsLocationsRegistriesGroupsUnbindDeviceFromGateway' smart constructor.-data ProjectsLocationsRegistriesGroupsUnbindDeviceFromGateway = ProjectsLocationsRegistriesGroupsUnbindDeviceFromGateway'+data ProjectsLocationsRegistriesGroupsUnbindDeviceFromGateway =+  ProjectsLocationsRegistriesGroupsUnbindDeviceFromGateway'     { _plrgudfgParent         :: !Text     , _plrgudfgXgafv          :: !(Maybe Xgafv)     , _plrgudfgUploadProtocol :: !(Maybe Text)@@ -72,8 +73,10 @@     , _plrgudfgUploadType     :: !(Maybe Text)     , _plrgudfgPayload        :: !UnbindDeviceFromGatewayRequest     , _plrgudfgCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesGroupsUnbindDeviceFromGateway' 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 @@     -> UnbindDeviceFromGatewayRequest -- ^ 'plrgudfgPayload'     -> ProjectsLocationsRegistriesGroupsUnbindDeviceFromGateway projectsLocationsRegistriesGroupsUnbindDeviceFromGateway pPlrgudfgParent_ pPlrgudfgPayload_ =-    ProjectsLocationsRegistriesGroupsUnbindDeviceFromGateway'+  ProjectsLocationsRegistriesGroupsUnbindDeviceFromGateway'     { _plrgudfgParent = pPlrgudfgParent_     , _plrgudfgXgafv = Nothing     , _plrgudfgUploadProtocol = Nothing@@ -106,6 +109,7 @@     , _plrgudfgCallback = Nothing     } + -- | The name of the registry. For example, -- \`projects\/example-project\/locations\/us-central1\/registries\/my-registry\`. plrgudfgParent :: Lens' ProjectsLocationsRegistriesGroupsUnbindDeviceFromGateway Text@@ -150,7 +154,7 @@       (\ s a -> s{_plrgudfgCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesGroupsUnbindDeviceFromGateway+           ProjectsLocationsRegistriesGroupsUnbindDeviceFromGateway          where         type Rs                ProjectsLocationsRegistriesGroupsUnbindDeviceFromGateway
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/List.hs view
@@ -65,7 +65,8 @@ -- | Lists device registries. -- -- /See:/ 'projectsLocationsRegistriesList' smart constructor.-data ProjectsLocationsRegistriesList = ProjectsLocationsRegistriesList'+data ProjectsLocationsRegistriesList =+  ProjectsLocationsRegistriesList'     { _plrlParent         :: !Text     , _plrlXgafv          :: !(Maybe Xgafv)     , _plrlUploadProtocol :: !(Maybe Text)@@ -74,8 +75,10 @@     , _plrlPageToken      :: !(Maybe Text)     , _plrlPageSize       :: !(Maybe (Textual Int32))     , _plrlCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesList' 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 -- ^ 'plrlParent'     -> ProjectsLocationsRegistriesList projectsLocationsRegistriesList pPlrlParent_ =-    ProjectsLocationsRegistriesList'+  ProjectsLocationsRegistriesList'     { _plrlParent = pPlrlParent_     , _plrlXgafv = Nothing     , _plrlUploadProtocol = Nothing@@ -110,6 +113,7 @@     , _plrlCallback = Nothing     } + -- | The project and cloud region path. For example, -- \`projects\/example-project\/locations\/us-central1\`. plrlParent :: Lens' ProjectsLocationsRegistriesList Text@@ -163,7 +167,8 @@   = lens _plrlCallback (\ s a -> s{_plrlCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesList where+           ProjectsLocationsRegistriesList+         where         type Rs ProjectsLocationsRegistriesList =              ListDeviceRegistriesResponse         type Scopes ProjectsLocationsRegistriesList =
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Patch.hs view
@@ -64,7 +64,8 @@ -- | Updates a device registry configuration. -- -- /See:/ 'projectsLocationsRegistriesPatch' smart constructor.-data ProjectsLocationsRegistriesPatch = ProjectsLocationsRegistriesPatch'+data ProjectsLocationsRegistriesPatch =+  ProjectsLocationsRegistriesPatch'     { _plrpXgafv          :: !(Maybe Xgafv)     , _plrpUploadProtocol :: !(Maybe Text)     , _plrpUpdateMask     :: !(Maybe GFieldMask)@@ -73,8 +74,10 @@     , _plrpPayload        :: !DeviceRegistry     , _plrpName           :: !Text     , _plrpCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesPatch' 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 -- ^ 'plrpName'     -> ProjectsLocationsRegistriesPatch projectsLocationsRegistriesPatch pPlrpPayload_ pPlrpName_ =-    ProjectsLocationsRegistriesPatch'+  ProjectsLocationsRegistriesPatch'     { _plrpXgafv = Nothing     , _plrpUploadProtocol = Nothing     , _plrpUpdateMask = Nothing@@ -110,6 +113,7 @@     , _plrpCallback = Nothing     } + -- | V1 error format. plrpXgafv :: Lens' ProjectsLocationsRegistriesPatch (Maybe Xgafv) plrpXgafv@@ -159,7 +163,8 @@   = lens _plrpCallback (\ s a -> s{_plrpCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesPatch where+           ProjectsLocationsRegistriesPatch+         where         type Rs ProjectsLocationsRegistriesPatch =              DeviceRegistry         type Scopes ProjectsLocationsRegistriesPatch =
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/SetIAMPolicy.hs view
@@ -65,7 +65,8 @@ -- existing policy. -- -- /See:/ 'projectsLocationsRegistriesSetIAMPolicy' smart constructor.-data ProjectsLocationsRegistriesSetIAMPolicy = ProjectsLocationsRegistriesSetIAMPolicy'+data ProjectsLocationsRegistriesSetIAMPolicy =+  ProjectsLocationsRegistriesSetIAMPolicy'     { _plrsipXgafv          :: !(Maybe Xgafv)     , _plrsipUploadProtocol :: !(Maybe Text)     , _plrsipAccessToken    :: !(Maybe Text)@@ -73,8 +74,10 @@     , _plrsipPayload        :: !SetIAMPolicyRequest     , _plrsipResource       :: !Text     , _plrsipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesSetIAMPolicy' 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 @@     -> Text -- ^ 'plrsipResource'     -> ProjectsLocationsRegistriesSetIAMPolicy projectsLocationsRegistriesSetIAMPolicy pPlrsipPayload_ pPlrsipResource_ =-    ProjectsLocationsRegistriesSetIAMPolicy'+  ProjectsLocationsRegistriesSetIAMPolicy'     { _plrsipXgafv = Nothing     , _plrsipUploadProtocol = Nothing     , _plrsipAccessToken = Nothing@@ -107,6 +110,7 @@     , _plrsipCallback = Nothing     } + -- | V1 error format. plrsipXgafv :: Lens' ProjectsLocationsRegistriesSetIAMPolicy (Maybe Xgafv) plrsipXgafv@@ -150,7 +154,8 @@       (\ s a -> s{_plrsipCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesSetIAMPolicy where+           ProjectsLocationsRegistriesSetIAMPolicy+         where         type Rs ProjectsLocationsRegistriesSetIAMPolicy =              Policy         type Scopes ProjectsLocationsRegistriesSetIAMPolicy =
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/TestIAMPermissions.hs view
@@ -67,7 +67,8 @@ -- not a NOT_FOUND error. -- -- /See:/ 'projectsLocationsRegistriesTestIAMPermissions' smart constructor.-data ProjectsLocationsRegistriesTestIAMPermissions = ProjectsLocationsRegistriesTestIAMPermissions'+data ProjectsLocationsRegistriesTestIAMPermissions =+  ProjectsLocationsRegistriesTestIAMPermissions'     { _plrtipXgafv          :: !(Maybe Xgafv)     , _plrtipUploadProtocol :: !(Maybe Text)     , _plrtipAccessToken    :: !(Maybe Text)@@ -75,8 +76,10 @@     , _plrtipPayload        :: !TestIAMPermissionsRequest     , _plrtipResource       :: !Text     , _plrtipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesTestIAMPermissions' 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 -- ^ 'plrtipResource'     -> ProjectsLocationsRegistriesTestIAMPermissions projectsLocationsRegistriesTestIAMPermissions pPlrtipPayload_ pPlrtipResource_ =-    ProjectsLocationsRegistriesTestIAMPermissions'+  ProjectsLocationsRegistriesTestIAMPermissions'     { _plrtipXgafv = Nothing     , _plrtipUploadProtocol = Nothing     , _plrtipAccessToken = Nothing@@ -109,6 +112,7 @@     , _plrtipCallback = Nothing     } + -- | V1 error format. plrtipXgafv :: Lens' ProjectsLocationsRegistriesTestIAMPermissions (Maybe Xgafv) plrtipXgafv@@ -153,7 +157,8 @@       (\ s a -> s{_plrtipCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesTestIAMPermissions where+           ProjectsLocationsRegistriesTestIAMPermissions+         where         type Rs ProjectsLocationsRegistriesTestIAMPermissions              = TestIAMPermissionsResponse         type Scopes
gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/UnbindDeviceFromGateway.hs view
@@ -64,7 +64,8 @@ -- | Deletes the association between the device and the gateway. -- -- /See:/ 'projectsLocationsRegistriesUnbindDeviceFromGateway' smart constructor.-data ProjectsLocationsRegistriesUnbindDeviceFromGateway = ProjectsLocationsRegistriesUnbindDeviceFromGateway'+data ProjectsLocationsRegistriesUnbindDeviceFromGateway =+  ProjectsLocationsRegistriesUnbindDeviceFromGateway'     { _plrudfgParent         :: !Text     , _plrudfgXgafv          :: !(Maybe Xgafv)     , _plrudfgUploadProtocol :: !(Maybe Text)@@ -72,8 +73,10 @@     , _plrudfgUploadType     :: !(Maybe Text)     , _plrudfgPayload        :: !UnbindDeviceFromGatewayRequest     , _plrudfgCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsRegistriesUnbindDeviceFromGateway' 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 @@     -> UnbindDeviceFromGatewayRequest -- ^ 'plrudfgPayload'     -> ProjectsLocationsRegistriesUnbindDeviceFromGateway projectsLocationsRegistriesUnbindDeviceFromGateway pPlrudfgParent_ pPlrudfgPayload_ =-    ProjectsLocationsRegistriesUnbindDeviceFromGateway'+  ProjectsLocationsRegistriesUnbindDeviceFromGateway'     { _plrudfgParent = pPlrudfgParent_     , _plrudfgXgafv = Nothing     , _plrudfgUploadProtocol = Nothing@@ -106,6 +109,7 @@     , _plrudfgCallback = Nothing     } + -- | The name of the registry. For example, -- \`projects\/example-project\/locations\/us-central1\/registries\/my-registry\`. plrudfgParent :: Lens' ProjectsLocationsRegistriesUnbindDeviceFromGateway Text@@ -149,7 +153,7 @@       (\ s a -> s{_plrudfgCallback = a})  instance GoogleRequest-         ProjectsLocationsRegistriesUnbindDeviceFromGateway+           ProjectsLocationsRegistriesUnbindDeviceFromGateway          where         type Rs                ProjectsLocationsRegistriesUnbindDeviceFromGateway
gogol-cloudiot.cabal view
@@ -1,5 +1,5 @@ name:                  gogol-cloudiot-version:               0.4.0+version:               0.5.0 synopsis:              Google Cloud IoT SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -73,5 +73,5 @@         , Network.Google.CloudIOT.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5