diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.3.0` +`0.5.0` ## Description diff --git a/gen/Network/Google/CloudIOT/Types.hs b/gen/Network/Google/CloudIOT/Types.hs --- a/gen/Network/Google/CloudIOT/Types.hs +++ b/gen/Network/Google/CloudIOT/Types.hs @@ -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 diff --git a/gen/Network/Google/CloudIOT/Types/Product.hs b/gen/Network/Google/CloudIOT/Types/Product.hs --- a/gen/Network/Google/CloudIOT/Types/Product.hs +++ b/gen/Network/Google/CloudIOT/Types/Product.hs @@ -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}) diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/BindDeviceToGateway.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/BindDeviceToGateway.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/BindDeviceToGateway.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/BindDeviceToGateway.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Create.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Create.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Create.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Create.hs @@ -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 = diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Delete.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Delete.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Delete.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Delete.hs @@ -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", diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/ConfigVersions/List.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/ConfigVersions/List.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/ConfigVersions/List.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/ConfigVersions/List.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Create.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Create.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Create.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Create.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Delete.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Delete.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Delete.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Delete.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Get.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Get.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Get.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Get.hs @@ -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 = diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/List.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/List.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/List.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/List.hs @@ -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 = diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/ModifyCloudToDeviceConfig.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/ModifyCloudToDeviceConfig.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/ModifyCloudToDeviceConfig.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/ModifyCloudToDeviceConfig.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Patch.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Patch.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Patch.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/Patch.hs @@ -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 = diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/SendCommandToDevice.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/SendCommandToDevice.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/SendCommandToDevice.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/SendCommandToDevice.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/States/List.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/States/List.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/States/List.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Devices/States/List.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Get.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Get.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Get.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Get.hs @@ -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) diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/GetIAMPolicy.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/GetIAMPolicy.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/GetIAMPolicy.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/GetIAMPolicy.hs @@ -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 = diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/BindDeviceToGateway.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/BindDeviceToGateway.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/BindDeviceToGateway.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/BindDeviceToGateway.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/ConfigVersions/List.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/ConfigVersions/List.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/ConfigVersions/List.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/ConfigVersions/List.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/Get.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/Get.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/Get.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/Get.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/List.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/List.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/List.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/List.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/ModifyCloudToDeviceConfig.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/ModifyCloudToDeviceConfig.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/ModifyCloudToDeviceConfig.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/ModifyCloudToDeviceConfig.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/Patch.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/Patch.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/Patch.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/Patch.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/SendCommandToDevice.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/SendCommandToDevice.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/SendCommandToDevice.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/SendCommandToDevice.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/States/List.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/States/List.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/States/List.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/Devices/States/List.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/GetIAMPolicy.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/GetIAMPolicy.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/GetIAMPolicy.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/GetIAMPolicy.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/SetIAMPolicy.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/SetIAMPolicy.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/SetIAMPolicy.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/SetIAMPolicy.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/TestIAMPermissions.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/TestIAMPermissions.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/TestIAMPermissions.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/TestIAMPermissions.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/UnbindDeviceFromGateway.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/UnbindDeviceFromGateway.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/UnbindDeviceFromGateway.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Groups/UnbindDeviceFromGateway.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/List.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/List.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/List.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/List.hs @@ -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 = diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Patch.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Patch.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Patch.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/Patch.hs @@ -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 = diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/SetIAMPolicy.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/SetIAMPolicy.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/SetIAMPolicy.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/SetIAMPolicy.hs @@ -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 = diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/TestIAMPermissions.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/TestIAMPermissions.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/TestIAMPermissions.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/TestIAMPermissions.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/UnbindDeviceFromGateway.hs b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/UnbindDeviceFromGateway.hs --- a/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/UnbindDeviceFromGateway.hs +++ b/gen/Network/Google/Resource/CloudIOT/Projects/Locations/Registries/UnbindDeviceFromGateway.hs @@ -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 diff --git a/gogol-cloudiot.cabal b/gogol-cloudiot.cabal --- a/gogol-cloudiot.cabal +++ b/gogol-cloudiot.cabal @@ -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