packages feed

amazonka-greengrass 1.5.0 → 1.6.0

raw patch · 103 files changed

+5543/−2787 lines, 103 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

+ Network.AWS.Greengrass: AARCH64 :: UpdateTargetsArchitecture
+ Network.AWS.Greengrass: AmazonLinux :: UpdateTargetsOperatingSystem
+ Network.AWS.Greengrass: Armv7l :: UpdateTargetsArchitecture
+ Network.AWS.Greengrass: Binary :: EncodingType
+ Network.AWS.Greengrass: Core :: SoftwareToUpdate
+ Network.AWS.Greengrass: JSON :: EncodingType
+ Network.AWS.Greengrass: OtaAgent :: SoftwareToUpdate
+ Network.AWS.Greengrass: RO :: Permission
+ Network.AWS.Greengrass: RW :: Permission
+ Network.AWS.Greengrass: Raspbian :: UpdateTargetsOperatingSystem
+ Network.AWS.Greengrass: UALLDebug :: UpdateAgentLogLevel
+ Network.AWS.Greengrass: UALLError' :: UpdateAgentLogLevel
+ Network.AWS.Greengrass: UALLFatal :: UpdateAgentLogLevel
+ Network.AWS.Greengrass: UALLInfo :: UpdateAgentLogLevel
+ Network.AWS.Greengrass: UALLNone :: UpdateAgentLogLevel
+ Network.AWS.Greengrass: UALLTrace :: UpdateAgentLogLevel
+ Network.AWS.Greengrass: UALLVerbose :: UpdateAgentLogLevel
+ Network.AWS.Greengrass: UALLWarn :: UpdateAgentLogLevel
+ Network.AWS.Greengrass: Ubuntu :: UpdateTargetsOperatingSystem
+ Network.AWS.Greengrass: X86_64 :: UpdateTargetsArchitecture
+ Network.AWS.Greengrass: data EncodingType
+ Network.AWS.Greengrass: data GroupOwnerSetting
+ Network.AWS.Greengrass: data LocalDeviceResourceData
+ Network.AWS.Greengrass: data LocalVolumeResourceData
+ Network.AWS.Greengrass: data Permission
+ Network.AWS.Greengrass: data Resource
+ Network.AWS.Greengrass: data ResourceAccessPolicy
+ Network.AWS.Greengrass: data ResourceDataContainer
+ Network.AWS.Greengrass: data ResourceDefinitionVersion
+ Network.AWS.Greengrass: data S3MachineLearningModelResourceData
+ Network.AWS.Greengrass: data SageMakerMachineLearningModelResourceData
+ Network.AWS.Greengrass: data SoftwareToUpdate
+ Network.AWS.Greengrass: data UpdateAgentLogLevel
+ Network.AWS.Greengrass: data UpdateTargetsArchitecture
+ Network.AWS.Greengrass: data UpdateTargetsOperatingSystem
+ Network.AWS.Greengrass: fcEncodingType :: Lens' FunctionConfiguration (Maybe EncodingType)
+ Network.AWS.Greengrass: fceAccessSysfs :: Lens' FunctionConfigurationEnvironment (Maybe Bool)
+ Network.AWS.Greengrass: fceResourceAccessPolicies :: Lens' FunctionConfigurationEnvironment [ResourceAccessPolicy]
+ Network.AWS.Greengrass: gosAutoAddGroupOwner :: Lens' GroupOwnerSetting (Maybe Bool)
+ Network.AWS.Greengrass: gosGroupOwner :: Lens' GroupOwnerSetting (Maybe Text)
+ Network.AWS.Greengrass: groupOwnerSetting :: GroupOwnerSetting
+ Network.AWS.Greengrass: gvResourceDefinitionVersionARN :: Lens' GroupVersion (Maybe Text)
+ Network.AWS.Greengrass: ldrdGroupOwnerSetting :: Lens' LocalDeviceResourceData (Maybe GroupOwnerSetting)
+ Network.AWS.Greengrass: ldrdSourcePath :: Lens' LocalDeviceResourceData (Maybe Text)
+ Network.AWS.Greengrass: localDeviceResourceData :: LocalDeviceResourceData
+ Network.AWS.Greengrass: localVolumeResourceData :: LocalVolumeResourceData
+ Network.AWS.Greengrass: lvrdDestinationPath :: Lens' LocalVolumeResourceData (Maybe Text)
+ Network.AWS.Greengrass: lvrdGroupOwnerSetting :: Lens' LocalVolumeResourceData (Maybe GroupOwnerSetting)
+ Network.AWS.Greengrass: lvrdSourcePath :: Lens' LocalVolumeResourceData (Maybe Text)
+ Network.AWS.Greengrass: rId :: Lens' Resource (Maybe Text)
+ Network.AWS.Greengrass: rName :: Lens' Resource (Maybe Text)
+ Network.AWS.Greengrass: rResourceDataContainer :: Lens' Resource (Maybe ResourceDataContainer)
+ Network.AWS.Greengrass: rapPermission :: Lens' ResourceAccessPolicy (Maybe Permission)
+ Network.AWS.Greengrass: rapResourceId :: Lens' ResourceAccessPolicy (Maybe Text)
+ Network.AWS.Greengrass: rdcLocalDeviceResourceData :: Lens' ResourceDataContainer (Maybe LocalDeviceResourceData)
+ Network.AWS.Greengrass: rdcLocalVolumeResourceData :: Lens' ResourceDataContainer (Maybe LocalVolumeResourceData)
+ Network.AWS.Greengrass: rdcS3MachineLearningModelResourceData :: Lens' ResourceDataContainer (Maybe S3MachineLearningModelResourceData)
+ Network.AWS.Greengrass: rdcSageMakerMachineLearningModelResourceData :: Lens' ResourceDataContainer (Maybe SageMakerMachineLearningModelResourceData)
+ Network.AWS.Greengrass: rdvResources :: Lens' ResourceDefinitionVersion [Resource]
+ Network.AWS.Greengrass: resource :: Resource
+ Network.AWS.Greengrass: resourceAccessPolicy :: ResourceAccessPolicy
+ Network.AWS.Greengrass: resourceDataContainer :: ResourceDataContainer
+ Network.AWS.Greengrass: resourceDefinitionVersion :: ResourceDefinitionVersion
+ Network.AWS.Greengrass: s3MachineLearningModelResourceData :: S3MachineLearningModelResourceData
+ Network.AWS.Greengrass: sageMakerMachineLearningModelResourceData :: SageMakerMachineLearningModelResourceData
+ Network.AWS.Greengrass: smlmrdDestinationPath :: Lens' S3MachineLearningModelResourceData (Maybe Text)
+ Network.AWS.Greengrass: smlmrdS3URI :: Lens' S3MachineLearningModelResourceData (Maybe Text)
+ Network.AWS.Greengrass: smmlmrdDestinationPath :: Lens' SageMakerMachineLearningModelResourceData (Maybe Text)
+ Network.AWS.Greengrass: smmlmrdSageMakerJobARN :: Lens' SageMakerMachineLearningModelResourceData (Maybe Text)
+ Network.AWS.Greengrass.CreateGroupVersion: cgvResourceDefinitionVersionARN :: Lens' CreateGroupVersion (Maybe Text)
+ Network.AWS.Greengrass.CreateResourceDefinition: crdAmznClientToken :: Lens' CreateResourceDefinition (Maybe Text)
+ Network.AWS.Greengrass.CreateResourceDefinition: crdInitialVersion :: Lens' CreateResourceDefinition (Maybe ResourceDefinitionVersion)
+ Network.AWS.Greengrass.CreateResourceDefinition: crdName :: Lens' CreateResourceDefinition (Maybe Text)
+ Network.AWS.Greengrass.CreateResourceDefinition: crdrsARN :: Lens' CreateResourceDefinitionResponse (Maybe Text)
+ Network.AWS.Greengrass.CreateResourceDefinition: crdrsCreationTimestamp :: Lens' CreateResourceDefinitionResponse (Maybe Text)
+ Network.AWS.Greengrass.CreateResourceDefinition: crdrsId :: Lens' CreateResourceDefinitionResponse (Maybe Text)
+ Network.AWS.Greengrass.CreateResourceDefinition: crdrsLastUpdatedTimestamp :: Lens' CreateResourceDefinitionResponse (Maybe Text)
+ Network.AWS.Greengrass.CreateResourceDefinition: crdrsLatestVersion :: Lens' CreateResourceDefinitionResponse (Maybe Text)
+ Network.AWS.Greengrass.CreateResourceDefinition: crdrsLatestVersionARN :: Lens' CreateResourceDefinitionResponse (Maybe Text)
+ Network.AWS.Greengrass.CreateResourceDefinition: crdrsName :: Lens' CreateResourceDefinitionResponse (Maybe Text)
+ Network.AWS.Greengrass.CreateResourceDefinition: crdrsResponseStatus :: Lens' CreateResourceDefinitionResponse Int
+ Network.AWS.Greengrass.CreateResourceDefinition: createResourceDefinition :: CreateResourceDefinition
+ Network.AWS.Greengrass.CreateResourceDefinition: createResourceDefinitionResponse :: Int -> CreateResourceDefinitionResponse
+ Network.AWS.Greengrass.CreateResourceDefinition: data CreateResourceDefinition
+ Network.AWS.Greengrass.CreateResourceDefinition: data CreateResourceDefinitionResponse
+ Network.AWS.Greengrass.CreateResourceDefinition: instance Control.DeepSeq.NFData Network.AWS.Greengrass.CreateResourceDefinition.CreateResourceDefinition
+ Network.AWS.Greengrass.CreateResourceDefinition: instance Control.DeepSeq.NFData Network.AWS.Greengrass.CreateResourceDefinition.CreateResourceDefinitionResponse
+ Network.AWS.Greengrass.CreateResourceDefinition: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.Greengrass.CreateResourceDefinition.CreateResourceDefinition
+ Network.AWS.Greengrass.CreateResourceDefinition: instance Data.Data.Data Network.AWS.Greengrass.CreateResourceDefinition.CreateResourceDefinition
+ Network.AWS.Greengrass.CreateResourceDefinition: instance Data.Data.Data Network.AWS.Greengrass.CreateResourceDefinition.CreateResourceDefinitionResponse
+ Network.AWS.Greengrass.CreateResourceDefinition: instance Data.Hashable.Class.Hashable Network.AWS.Greengrass.CreateResourceDefinition.CreateResourceDefinition
+ Network.AWS.Greengrass.CreateResourceDefinition: instance GHC.Classes.Eq Network.AWS.Greengrass.CreateResourceDefinition.CreateResourceDefinition
+ Network.AWS.Greengrass.CreateResourceDefinition: instance GHC.Classes.Eq Network.AWS.Greengrass.CreateResourceDefinition.CreateResourceDefinitionResponse
+ Network.AWS.Greengrass.CreateResourceDefinition: instance GHC.Generics.Generic Network.AWS.Greengrass.CreateResourceDefinition.CreateResourceDefinition
+ Network.AWS.Greengrass.CreateResourceDefinition: instance GHC.Generics.Generic Network.AWS.Greengrass.CreateResourceDefinition.CreateResourceDefinitionResponse
+ Network.AWS.Greengrass.CreateResourceDefinition: instance GHC.Read.Read Network.AWS.Greengrass.CreateResourceDefinition.CreateResourceDefinition
+ Network.AWS.Greengrass.CreateResourceDefinition: instance GHC.Read.Read Network.AWS.Greengrass.CreateResourceDefinition.CreateResourceDefinitionResponse
+ Network.AWS.Greengrass.CreateResourceDefinition: instance GHC.Show.Show Network.AWS.Greengrass.CreateResourceDefinition.CreateResourceDefinition
+ Network.AWS.Greengrass.CreateResourceDefinition: instance GHC.Show.Show Network.AWS.Greengrass.CreateResourceDefinition.CreateResourceDefinitionResponse
+ Network.AWS.Greengrass.CreateResourceDefinition: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Greengrass.CreateResourceDefinition.CreateResourceDefinition
+ Network.AWS.Greengrass.CreateResourceDefinition: instance Network.AWS.Data.Path.ToPath Network.AWS.Greengrass.CreateResourceDefinition.CreateResourceDefinition
+ Network.AWS.Greengrass.CreateResourceDefinition: instance Network.AWS.Data.Query.ToQuery Network.AWS.Greengrass.CreateResourceDefinition.CreateResourceDefinition
+ Network.AWS.Greengrass.CreateResourceDefinition: instance Network.AWS.Types.AWSRequest Network.AWS.Greengrass.CreateResourceDefinition.CreateResourceDefinition
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: crdvAmznClientToken :: Lens' CreateResourceDefinitionVersion (Maybe Text)
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: crdvResourceDefinitionId :: Lens' CreateResourceDefinitionVersion Text
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: crdvResources :: Lens' CreateResourceDefinitionVersion [Resource]
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: crdvrsARN :: Lens' CreateResourceDefinitionVersionResponse (Maybe Text)
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: crdvrsCreationTimestamp :: Lens' CreateResourceDefinitionVersionResponse (Maybe Text)
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: crdvrsId :: Lens' CreateResourceDefinitionVersionResponse (Maybe Text)
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: crdvrsResponseStatus :: Lens' CreateResourceDefinitionVersionResponse Int
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: crdvrsVersion :: Lens' CreateResourceDefinitionVersionResponse (Maybe Text)
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: createResourceDefinitionVersion :: Text -> CreateResourceDefinitionVersion
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: createResourceDefinitionVersionResponse :: Int -> CreateResourceDefinitionVersionResponse
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: data CreateResourceDefinitionVersion
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: data CreateResourceDefinitionVersionResponse
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: instance Control.DeepSeq.NFData Network.AWS.Greengrass.CreateResourceDefinitionVersion.CreateResourceDefinitionVersion
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: instance Control.DeepSeq.NFData Network.AWS.Greengrass.CreateResourceDefinitionVersion.CreateResourceDefinitionVersionResponse
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.Greengrass.CreateResourceDefinitionVersion.CreateResourceDefinitionVersion
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: instance Data.Data.Data Network.AWS.Greengrass.CreateResourceDefinitionVersion.CreateResourceDefinitionVersion
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: instance Data.Data.Data Network.AWS.Greengrass.CreateResourceDefinitionVersion.CreateResourceDefinitionVersionResponse
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: instance Data.Hashable.Class.Hashable Network.AWS.Greengrass.CreateResourceDefinitionVersion.CreateResourceDefinitionVersion
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: instance GHC.Classes.Eq Network.AWS.Greengrass.CreateResourceDefinitionVersion.CreateResourceDefinitionVersion
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: instance GHC.Classes.Eq Network.AWS.Greengrass.CreateResourceDefinitionVersion.CreateResourceDefinitionVersionResponse
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: instance GHC.Generics.Generic Network.AWS.Greengrass.CreateResourceDefinitionVersion.CreateResourceDefinitionVersion
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: instance GHC.Generics.Generic Network.AWS.Greengrass.CreateResourceDefinitionVersion.CreateResourceDefinitionVersionResponse
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: instance GHC.Read.Read Network.AWS.Greengrass.CreateResourceDefinitionVersion.CreateResourceDefinitionVersion
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: instance GHC.Read.Read Network.AWS.Greengrass.CreateResourceDefinitionVersion.CreateResourceDefinitionVersionResponse
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: instance GHC.Show.Show Network.AWS.Greengrass.CreateResourceDefinitionVersion.CreateResourceDefinitionVersion
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: instance GHC.Show.Show Network.AWS.Greengrass.CreateResourceDefinitionVersion.CreateResourceDefinitionVersionResponse
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Greengrass.CreateResourceDefinitionVersion.CreateResourceDefinitionVersion
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: instance Network.AWS.Data.Path.ToPath Network.AWS.Greengrass.CreateResourceDefinitionVersion.CreateResourceDefinitionVersion
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: instance Network.AWS.Data.Query.ToQuery Network.AWS.Greengrass.CreateResourceDefinitionVersion.CreateResourceDefinitionVersion
+ Network.AWS.Greengrass.CreateResourceDefinitionVersion: instance Network.AWS.Types.AWSRequest Network.AWS.Greengrass.CreateResourceDefinitionVersion.CreateResourceDefinitionVersion
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: createSoftwareUpdateJob :: CreateSoftwareUpdateJob
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: createSoftwareUpdateJobResponse :: Int -> CreateSoftwareUpdateJobResponse
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: csujAmznClientToken :: Lens' CreateSoftwareUpdateJob (Maybe Text)
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: csujS3URLSignerRole :: Lens' CreateSoftwareUpdateJob (Maybe Text)
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: csujSoftwareToUpdate :: Lens' CreateSoftwareUpdateJob (Maybe SoftwareToUpdate)
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: csujUpdateAgentLogLevel :: Lens' CreateSoftwareUpdateJob (Maybe UpdateAgentLogLevel)
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: csujUpdateTargets :: Lens' CreateSoftwareUpdateJob [Text]
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: csujUpdateTargetsArchitecture :: Lens' CreateSoftwareUpdateJob (Maybe UpdateTargetsArchitecture)
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: csujUpdateTargetsOperatingSystem :: Lens' CreateSoftwareUpdateJob (Maybe UpdateTargetsOperatingSystem)
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: csujrsIotJobARN :: Lens' CreateSoftwareUpdateJobResponse (Maybe Text)
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: csujrsIotJobId :: Lens' CreateSoftwareUpdateJobResponse (Maybe Text)
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: csujrsResponseStatus :: Lens' CreateSoftwareUpdateJobResponse Int
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: data CreateSoftwareUpdateJob
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: data CreateSoftwareUpdateJobResponse
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: instance Control.DeepSeq.NFData Network.AWS.Greengrass.CreateSoftwareUpdateJob.CreateSoftwareUpdateJob
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: instance Control.DeepSeq.NFData Network.AWS.Greengrass.CreateSoftwareUpdateJob.CreateSoftwareUpdateJobResponse
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.Greengrass.CreateSoftwareUpdateJob.CreateSoftwareUpdateJob
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: instance Data.Data.Data Network.AWS.Greengrass.CreateSoftwareUpdateJob.CreateSoftwareUpdateJob
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: instance Data.Data.Data Network.AWS.Greengrass.CreateSoftwareUpdateJob.CreateSoftwareUpdateJobResponse
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: instance Data.Hashable.Class.Hashable Network.AWS.Greengrass.CreateSoftwareUpdateJob.CreateSoftwareUpdateJob
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: instance GHC.Classes.Eq Network.AWS.Greengrass.CreateSoftwareUpdateJob.CreateSoftwareUpdateJob
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: instance GHC.Classes.Eq Network.AWS.Greengrass.CreateSoftwareUpdateJob.CreateSoftwareUpdateJobResponse
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: instance GHC.Generics.Generic Network.AWS.Greengrass.CreateSoftwareUpdateJob.CreateSoftwareUpdateJob
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: instance GHC.Generics.Generic Network.AWS.Greengrass.CreateSoftwareUpdateJob.CreateSoftwareUpdateJobResponse
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: instance GHC.Read.Read Network.AWS.Greengrass.CreateSoftwareUpdateJob.CreateSoftwareUpdateJob
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: instance GHC.Read.Read Network.AWS.Greengrass.CreateSoftwareUpdateJob.CreateSoftwareUpdateJobResponse
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: instance GHC.Show.Show Network.AWS.Greengrass.CreateSoftwareUpdateJob.CreateSoftwareUpdateJob
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: instance GHC.Show.Show Network.AWS.Greengrass.CreateSoftwareUpdateJob.CreateSoftwareUpdateJobResponse
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Greengrass.CreateSoftwareUpdateJob.CreateSoftwareUpdateJob
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: instance Network.AWS.Data.Path.ToPath Network.AWS.Greengrass.CreateSoftwareUpdateJob.CreateSoftwareUpdateJob
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: instance Network.AWS.Data.Query.ToQuery Network.AWS.Greengrass.CreateSoftwareUpdateJob.CreateSoftwareUpdateJob
+ Network.AWS.Greengrass.CreateSoftwareUpdateJob: instance Network.AWS.Types.AWSRequest Network.AWS.Greengrass.CreateSoftwareUpdateJob.CreateSoftwareUpdateJob
+ Network.AWS.Greengrass.DeleteResourceDefinition: data DeleteResourceDefinition
+ Network.AWS.Greengrass.DeleteResourceDefinition: data DeleteResourceDefinitionResponse
+ Network.AWS.Greengrass.DeleteResourceDefinition: deleteResourceDefinition :: Text -> DeleteResourceDefinition
+ Network.AWS.Greengrass.DeleteResourceDefinition: deleteResourceDefinitionResponse :: Int -> DeleteResourceDefinitionResponse
+ Network.AWS.Greengrass.DeleteResourceDefinition: drdResourceDefinitionId :: Lens' DeleteResourceDefinition Text
+ Network.AWS.Greengrass.DeleteResourceDefinition: drdrsResponseStatus :: Lens' DeleteResourceDefinitionResponse Int
+ Network.AWS.Greengrass.DeleteResourceDefinition: instance Control.DeepSeq.NFData Network.AWS.Greengrass.DeleteResourceDefinition.DeleteResourceDefinition
+ Network.AWS.Greengrass.DeleteResourceDefinition: instance Control.DeepSeq.NFData Network.AWS.Greengrass.DeleteResourceDefinition.DeleteResourceDefinitionResponse
+ Network.AWS.Greengrass.DeleteResourceDefinition: instance Data.Data.Data Network.AWS.Greengrass.DeleteResourceDefinition.DeleteResourceDefinition
+ Network.AWS.Greengrass.DeleteResourceDefinition: instance Data.Data.Data Network.AWS.Greengrass.DeleteResourceDefinition.DeleteResourceDefinitionResponse
+ Network.AWS.Greengrass.DeleteResourceDefinition: instance Data.Hashable.Class.Hashable Network.AWS.Greengrass.DeleteResourceDefinition.DeleteResourceDefinition
+ Network.AWS.Greengrass.DeleteResourceDefinition: instance GHC.Classes.Eq Network.AWS.Greengrass.DeleteResourceDefinition.DeleteResourceDefinition
+ Network.AWS.Greengrass.DeleteResourceDefinition: instance GHC.Classes.Eq Network.AWS.Greengrass.DeleteResourceDefinition.DeleteResourceDefinitionResponse
+ Network.AWS.Greengrass.DeleteResourceDefinition: instance GHC.Generics.Generic Network.AWS.Greengrass.DeleteResourceDefinition.DeleteResourceDefinition
+ Network.AWS.Greengrass.DeleteResourceDefinition: instance GHC.Generics.Generic Network.AWS.Greengrass.DeleteResourceDefinition.DeleteResourceDefinitionResponse
+ Network.AWS.Greengrass.DeleteResourceDefinition: instance GHC.Read.Read Network.AWS.Greengrass.DeleteResourceDefinition.DeleteResourceDefinition
+ Network.AWS.Greengrass.DeleteResourceDefinition: instance GHC.Read.Read Network.AWS.Greengrass.DeleteResourceDefinition.DeleteResourceDefinitionResponse
+ Network.AWS.Greengrass.DeleteResourceDefinition: instance GHC.Show.Show Network.AWS.Greengrass.DeleteResourceDefinition.DeleteResourceDefinition
+ Network.AWS.Greengrass.DeleteResourceDefinition: instance GHC.Show.Show Network.AWS.Greengrass.DeleteResourceDefinition.DeleteResourceDefinitionResponse
+ Network.AWS.Greengrass.DeleteResourceDefinition: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Greengrass.DeleteResourceDefinition.DeleteResourceDefinition
+ Network.AWS.Greengrass.DeleteResourceDefinition: instance Network.AWS.Data.Path.ToPath Network.AWS.Greengrass.DeleteResourceDefinition.DeleteResourceDefinition
+ Network.AWS.Greengrass.DeleteResourceDefinition: instance Network.AWS.Data.Query.ToQuery Network.AWS.Greengrass.DeleteResourceDefinition.DeleteResourceDefinition
+ Network.AWS.Greengrass.DeleteResourceDefinition: instance Network.AWS.Types.AWSRequest Network.AWS.Greengrass.DeleteResourceDefinition.DeleteResourceDefinition
+ Network.AWS.Greengrass.GetResourceDefinition: data GetResourceDefinition
+ Network.AWS.Greengrass.GetResourceDefinition: data GetResourceDefinitionResponse
+ Network.AWS.Greengrass.GetResourceDefinition: getResourceDefinition :: Text -> GetResourceDefinition
+ Network.AWS.Greengrass.GetResourceDefinition: getResourceDefinitionResponse :: Int -> GetResourceDefinitionResponse
+ Network.AWS.Greengrass.GetResourceDefinition: grdResourceDefinitionId :: Lens' GetResourceDefinition Text
+ Network.AWS.Greengrass.GetResourceDefinition: grdrsARN :: Lens' GetResourceDefinitionResponse (Maybe Text)
+ Network.AWS.Greengrass.GetResourceDefinition: grdrsCreationTimestamp :: Lens' GetResourceDefinitionResponse (Maybe Text)
+ Network.AWS.Greengrass.GetResourceDefinition: grdrsId :: Lens' GetResourceDefinitionResponse (Maybe Text)
+ Network.AWS.Greengrass.GetResourceDefinition: grdrsLastUpdatedTimestamp :: Lens' GetResourceDefinitionResponse (Maybe Text)
+ Network.AWS.Greengrass.GetResourceDefinition: grdrsLatestVersion :: Lens' GetResourceDefinitionResponse (Maybe Text)
+ Network.AWS.Greengrass.GetResourceDefinition: grdrsLatestVersionARN :: Lens' GetResourceDefinitionResponse (Maybe Text)
+ Network.AWS.Greengrass.GetResourceDefinition: grdrsName :: Lens' GetResourceDefinitionResponse (Maybe Text)
+ Network.AWS.Greengrass.GetResourceDefinition: grdrsResponseStatus :: Lens' GetResourceDefinitionResponse Int
+ Network.AWS.Greengrass.GetResourceDefinition: instance Control.DeepSeq.NFData Network.AWS.Greengrass.GetResourceDefinition.GetResourceDefinition
+ Network.AWS.Greengrass.GetResourceDefinition: instance Control.DeepSeq.NFData Network.AWS.Greengrass.GetResourceDefinition.GetResourceDefinitionResponse
+ Network.AWS.Greengrass.GetResourceDefinition: instance Data.Data.Data Network.AWS.Greengrass.GetResourceDefinition.GetResourceDefinition
+ Network.AWS.Greengrass.GetResourceDefinition: instance Data.Data.Data Network.AWS.Greengrass.GetResourceDefinition.GetResourceDefinitionResponse
+ Network.AWS.Greengrass.GetResourceDefinition: instance Data.Hashable.Class.Hashable Network.AWS.Greengrass.GetResourceDefinition.GetResourceDefinition
+ Network.AWS.Greengrass.GetResourceDefinition: instance GHC.Classes.Eq Network.AWS.Greengrass.GetResourceDefinition.GetResourceDefinition
+ Network.AWS.Greengrass.GetResourceDefinition: instance GHC.Classes.Eq Network.AWS.Greengrass.GetResourceDefinition.GetResourceDefinitionResponse
+ Network.AWS.Greengrass.GetResourceDefinition: instance GHC.Generics.Generic Network.AWS.Greengrass.GetResourceDefinition.GetResourceDefinition
+ Network.AWS.Greengrass.GetResourceDefinition: instance GHC.Generics.Generic Network.AWS.Greengrass.GetResourceDefinition.GetResourceDefinitionResponse
+ Network.AWS.Greengrass.GetResourceDefinition: instance GHC.Read.Read Network.AWS.Greengrass.GetResourceDefinition.GetResourceDefinition
+ Network.AWS.Greengrass.GetResourceDefinition: instance GHC.Read.Read Network.AWS.Greengrass.GetResourceDefinition.GetResourceDefinitionResponse
+ Network.AWS.Greengrass.GetResourceDefinition: instance GHC.Show.Show Network.AWS.Greengrass.GetResourceDefinition.GetResourceDefinition
+ Network.AWS.Greengrass.GetResourceDefinition: instance GHC.Show.Show Network.AWS.Greengrass.GetResourceDefinition.GetResourceDefinitionResponse
+ Network.AWS.Greengrass.GetResourceDefinition: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Greengrass.GetResourceDefinition.GetResourceDefinition
+ Network.AWS.Greengrass.GetResourceDefinition: instance Network.AWS.Data.Path.ToPath Network.AWS.Greengrass.GetResourceDefinition.GetResourceDefinition
+ Network.AWS.Greengrass.GetResourceDefinition: instance Network.AWS.Data.Query.ToQuery Network.AWS.Greengrass.GetResourceDefinition.GetResourceDefinition
+ Network.AWS.Greengrass.GetResourceDefinition: instance Network.AWS.Types.AWSRequest Network.AWS.Greengrass.GetResourceDefinition.GetResourceDefinition
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: data GetResourceDefinitionVersion
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: data GetResourceDefinitionVersionResponse
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: getResourceDefinitionVersion :: Text -> Text -> GetResourceDefinitionVersion
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: getResourceDefinitionVersionResponse :: Int -> GetResourceDefinitionVersionResponse
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: grdvResourceDefinitionId :: Lens' GetResourceDefinitionVersion Text
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: grdvResourceDefinitionVersionId :: Lens' GetResourceDefinitionVersion Text
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: grdvrsARN :: Lens' GetResourceDefinitionVersionResponse (Maybe Text)
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: grdvrsCreationTimestamp :: Lens' GetResourceDefinitionVersionResponse (Maybe Text)
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: grdvrsDefinition :: Lens' GetResourceDefinitionVersionResponse (Maybe ResourceDefinitionVersion)
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: grdvrsId :: Lens' GetResourceDefinitionVersionResponse (Maybe Text)
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: grdvrsResponseStatus :: Lens' GetResourceDefinitionVersionResponse Int
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: grdvrsVersion :: Lens' GetResourceDefinitionVersionResponse (Maybe Text)
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: instance Control.DeepSeq.NFData Network.AWS.Greengrass.GetResourceDefinitionVersion.GetResourceDefinitionVersion
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: instance Control.DeepSeq.NFData Network.AWS.Greengrass.GetResourceDefinitionVersion.GetResourceDefinitionVersionResponse
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: instance Data.Data.Data Network.AWS.Greengrass.GetResourceDefinitionVersion.GetResourceDefinitionVersion
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: instance Data.Data.Data Network.AWS.Greengrass.GetResourceDefinitionVersion.GetResourceDefinitionVersionResponse
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: instance Data.Hashable.Class.Hashable Network.AWS.Greengrass.GetResourceDefinitionVersion.GetResourceDefinitionVersion
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: instance GHC.Classes.Eq Network.AWS.Greengrass.GetResourceDefinitionVersion.GetResourceDefinitionVersion
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: instance GHC.Classes.Eq Network.AWS.Greengrass.GetResourceDefinitionVersion.GetResourceDefinitionVersionResponse
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: instance GHC.Generics.Generic Network.AWS.Greengrass.GetResourceDefinitionVersion.GetResourceDefinitionVersion
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: instance GHC.Generics.Generic Network.AWS.Greengrass.GetResourceDefinitionVersion.GetResourceDefinitionVersionResponse
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: instance GHC.Read.Read Network.AWS.Greengrass.GetResourceDefinitionVersion.GetResourceDefinitionVersion
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: instance GHC.Read.Read Network.AWS.Greengrass.GetResourceDefinitionVersion.GetResourceDefinitionVersionResponse
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: instance GHC.Show.Show Network.AWS.Greengrass.GetResourceDefinitionVersion.GetResourceDefinitionVersion
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: instance GHC.Show.Show Network.AWS.Greengrass.GetResourceDefinitionVersion.GetResourceDefinitionVersionResponse
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Greengrass.GetResourceDefinitionVersion.GetResourceDefinitionVersion
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: instance Network.AWS.Data.Path.ToPath Network.AWS.Greengrass.GetResourceDefinitionVersion.GetResourceDefinitionVersion
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: instance Network.AWS.Data.Query.ToQuery Network.AWS.Greengrass.GetResourceDefinitionVersion.GetResourceDefinitionVersion
+ Network.AWS.Greengrass.GetResourceDefinitionVersion: instance Network.AWS.Types.AWSRequest Network.AWS.Greengrass.GetResourceDefinitionVersion.GetResourceDefinitionVersion
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: data ListResourceDefinitionVersions
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: data ListResourceDefinitionVersionsResponse
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: instance Control.DeepSeq.NFData Network.AWS.Greengrass.ListResourceDefinitionVersions.ListResourceDefinitionVersions
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: instance Control.DeepSeq.NFData Network.AWS.Greengrass.ListResourceDefinitionVersions.ListResourceDefinitionVersionsResponse
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: instance Data.Data.Data Network.AWS.Greengrass.ListResourceDefinitionVersions.ListResourceDefinitionVersions
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: instance Data.Data.Data Network.AWS.Greengrass.ListResourceDefinitionVersions.ListResourceDefinitionVersionsResponse
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: instance Data.Hashable.Class.Hashable Network.AWS.Greengrass.ListResourceDefinitionVersions.ListResourceDefinitionVersions
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: instance GHC.Classes.Eq Network.AWS.Greengrass.ListResourceDefinitionVersions.ListResourceDefinitionVersions
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: instance GHC.Classes.Eq Network.AWS.Greengrass.ListResourceDefinitionVersions.ListResourceDefinitionVersionsResponse
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: instance GHC.Generics.Generic Network.AWS.Greengrass.ListResourceDefinitionVersions.ListResourceDefinitionVersions
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: instance GHC.Generics.Generic Network.AWS.Greengrass.ListResourceDefinitionVersions.ListResourceDefinitionVersionsResponse
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: instance GHC.Read.Read Network.AWS.Greengrass.ListResourceDefinitionVersions.ListResourceDefinitionVersions
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: instance GHC.Read.Read Network.AWS.Greengrass.ListResourceDefinitionVersions.ListResourceDefinitionVersionsResponse
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: instance GHC.Show.Show Network.AWS.Greengrass.ListResourceDefinitionVersions.ListResourceDefinitionVersions
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: instance GHC.Show.Show Network.AWS.Greengrass.ListResourceDefinitionVersions.ListResourceDefinitionVersionsResponse
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Greengrass.ListResourceDefinitionVersions.ListResourceDefinitionVersions
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: instance Network.AWS.Data.Path.ToPath Network.AWS.Greengrass.ListResourceDefinitionVersions.ListResourceDefinitionVersions
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: instance Network.AWS.Data.Query.ToQuery Network.AWS.Greengrass.ListResourceDefinitionVersions.ListResourceDefinitionVersions
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: instance Network.AWS.Types.AWSRequest Network.AWS.Greengrass.ListResourceDefinitionVersions.ListResourceDefinitionVersions
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: listResourceDefinitionVersions :: Text -> ListResourceDefinitionVersions
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: listResourceDefinitionVersionsResponse :: Int -> ListResourceDefinitionVersionsResponse
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: lrdvMaxResults :: Lens' ListResourceDefinitionVersions (Maybe Text)
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: lrdvNextToken :: Lens' ListResourceDefinitionVersions (Maybe Text)
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: lrdvResourceDefinitionId :: Lens' ListResourceDefinitionVersions Text
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: lrdvrsNextToken :: Lens' ListResourceDefinitionVersionsResponse (Maybe Text)
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: lrdvrsResponseStatus :: Lens' ListResourceDefinitionVersionsResponse Int
+ Network.AWS.Greengrass.ListResourceDefinitionVersions: lrdvrsVersions :: Lens' ListResourceDefinitionVersionsResponse [VersionInformation]
+ Network.AWS.Greengrass.ListResourceDefinitions: data ListResourceDefinitions
+ Network.AWS.Greengrass.ListResourceDefinitions: data ListResourceDefinitionsResponse
+ Network.AWS.Greengrass.ListResourceDefinitions: instance Control.DeepSeq.NFData Network.AWS.Greengrass.ListResourceDefinitions.ListResourceDefinitions
+ Network.AWS.Greengrass.ListResourceDefinitions: instance Control.DeepSeq.NFData Network.AWS.Greengrass.ListResourceDefinitions.ListResourceDefinitionsResponse
+ Network.AWS.Greengrass.ListResourceDefinitions: instance Data.Data.Data Network.AWS.Greengrass.ListResourceDefinitions.ListResourceDefinitions
+ Network.AWS.Greengrass.ListResourceDefinitions: instance Data.Data.Data Network.AWS.Greengrass.ListResourceDefinitions.ListResourceDefinitionsResponse
+ Network.AWS.Greengrass.ListResourceDefinitions: instance Data.Hashable.Class.Hashable Network.AWS.Greengrass.ListResourceDefinitions.ListResourceDefinitions
+ Network.AWS.Greengrass.ListResourceDefinitions: instance GHC.Classes.Eq Network.AWS.Greengrass.ListResourceDefinitions.ListResourceDefinitions
+ Network.AWS.Greengrass.ListResourceDefinitions: instance GHC.Classes.Eq Network.AWS.Greengrass.ListResourceDefinitions.ListResourceDefinitionsResponse
+ Network.AWS.Greengrass.ListResourceDefinitions: instance GHC.Generics.Generic Network.AWS.Greengrass.ListResourceDefinitions.ListResourceDefinitions
+ Network.AWS.Greengrass.ListResourceDefinitions: instance GHC.Generics.Generic Network.AWS.Greengrass.ListResourceDefinitions.ListResourceDefinitionsResponse
+ Network.AWS.Greengrass.ListResourceDefinitions: instance GHC.Read.Read Network.AWS.Greengrass.ListResourceDefinitions.ListResourceDefinitions
+ Network.AWS.Greengrass.ListResourceDefinitions: instance GHC.Read.Read Network.AWS.Greengrass.ListResourceDefinitions.ListResourceDefinitionsResponse
+ Network.AWS.Greengrass.ListResourceDefinitions: instance GHC.Show.Show Network.AWS.Greengrass.ListResourceDefinitions.ListResourceDefinitions
+ Network.AWS.Greengrass.ListResourceDefinitions: instance GHC.Show.Show Network.AWS.Greengrass.ListResourceDefinitions.ListResourceDefinitionsResponse
+ Network.AWS.Greengrass.ListResourceDefinitions: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Greengrass.ListResourceDefinitions.ListResourceDefinitions
+ Network.AWS.Greengrass.ListResourceDefinitions: instance Network.AWS.Data.Path.ToPath Network.AWS.Greengrass.ListResourceDefinitions.ListResourceDefinitions
+ Network.AWS.Greengrass.ListResourceDefinitions: instance Network.AWS.Data.Query.ToQuery Network.AWS.Greengrass.ListResourceDefinitions.ListResourceDefinitions
+ Network.AWS.Greengrass.ListResourceDefinitions: instance Network.AWS.Types.AWSRequest Network.AWS.Greengrass.ListResourceDefinitions.ListResourceDefinitions
+ Network.AWS.Greengrass.ListResourceDefinitions: listResourceDefinitions :: ListResourceDefinitions
+ Network.AWS.Greengrass.ListResourceDefinitions: listResourceDefinitionsResponse :: Int -> ListResourceDefinitionsResponse
+ Network.AWS.Greengrass.ListResourceDefinitions: lrdMaxResults :: Lens' ListResourceDefinitions (Maybe Text)
+ Network.AWS.Greengrass.ListResourceDefinitions: lrdNextToken :: Lens' ListResourceDefinitions (Maybe Text)
+ Network.AWS.Greengrass.ListResourceDefinitions: lrdrsDefinitions :: Lens' ListResourceDefinitionsResponse [DefinitionInformation]
+ Network.AWS.Greengrass.ListResourceDefinitions: lrdrsNextToken :: Lens' ListResourceDefinitionsResponse (Maybe Text)
+ Network.AWS.Greengrass.ListResourceDefinitions: lrdrsResponseStatus :: Lens' ListResourceDefinitionsResponse Int
+ Network.AWS.Greengrass.Types: AARCH64 :: UpdateTargetsArchitecture
+ Network.AWS.Greengrass.Types: AmazonLinux :: UpdateTargetsOperatingSystem
+ Network.AWS.Greengrass.Types: Armv7l :: UpdateTargetsArchitecture
+ Network.AWS.Greengrass.Types: Binary :: EncodingType
+ Network.AWS.Greengrass.Types: Core :: SoftwareToUpdate
+ Network.AWS.Greengrass.Types: JSON :: EncodingType
+ Network.AWS.Greengrass.Types: OtaAgent :: SoftwareToUpdate
+ Network.AWS.Greengrass.Types: RO :: Permission
+ Network.AWS.Greengrass.Types: RW :: Permission
+ Network.AWS.Greengrass.Types: Raspbian :: UpdateTargetsOperatingSystem
+ Network.AWS.Greengrass.Types: UALLDebug :: UpdateAgentLogLevel
+ Network.AWS.Greengrass.Types: UALLError' :: UpdateAgentLogLevel
+ Network.AWS.Greengrass.Types: UALLFatal :: UpdateAgentLogLevel
+ Network.AWS.Greengrass.Types: UALLInfo :: UpdateAgentLogLevel
+ Network.AWS.Greengrass.Types: UALLNone :: UpdateAgentLogLevel
+ Network.AWS.Greengrass.Types: UALLTrace :: UpdateAgentLogLevel
+ Network.AWS.Greengrass.Types: UALLVerbose :: UpdateAgentLogLevel
+ Network.AWS.Greengrass.Types: UALLWarn :: UpdateAgentLogLevel
+ Network.AWS.Greengrass.Types: Ubuntu :: UpdateTargetsOperatingSystem
+ Network.AWS.Greengrass.Types: X86_64 :: UpdateTargetsArchitecture
+ Network.AWS.Greengrass.Types: data EncodingType
+ Network.AWS.Greengrass.Types: data GroupOwnerSetting
+ Network.AWS.Greengrass.Types: data LocalDeviceResourceData
+ Network.AWS.Greengrass.Types: data LocalVolumeResourceData
+ Network.AWS.Greengrass.Types: data Permission
+ Network.AWS.Greengrass.Types: data Resource
+ Network.AWS.Greengrass.Types: data ResourceAccessPolicy
+ Network.AWS.Greengrass.Types: data ResourceDataContainer
+ Network.AWS.Greengrass.Types: data ResourceDefinitionVersion
+ Network.AWS.Greengrass.Types: data S3MachineLearningModelResourceData
+ Network.AWS.Greengrass.Types: data SageMakerMachineLearningModelResourceData
+ Network.AWS.Greengrass.Types: data SoftwareToUpdate
+ Network.AWS.Greengrass.Types: data UpdateAgentLogLevel
+ Network.AWS.Greengrass.Types: data UpdateTargetsArchitecture
+ Network.AWS.Greengrass.Types: data UpdateTargetsOperatingSystem
+ Network.AWS.Greengrass.Types: fcEncodingType :: Lens' FunctionConfiguration (Maybe EncodingType)
+ Network.AWS.Greengrass.Types: fceAccessSysfs :: Lens' FunctionConfigurationEnvironment (Maybe Bool)
+ Network.AWS.Greengrass.Types: fceResourceAccessPolicies :: Lens' FunctionConfigurationEnvironment [ResourceAccessPolicy]
+ Network.AWS.Greengrass.Types: gosAutoAddGroupOwner :: Lens' GroupOwnerSetting (Maybe Bool)
+ Network.AWS.Greengrass.Types: gosGroupOwner :: Lens' GroupOwnerSetting (Maybe Text)
+ Network.AWS.Greengrass.Types: groupOwnerSetting :: GroupOwnerSetting
+ Network.AWS.Greengrass.Types: gvResourceDefinitionVersionARN :: Lens' GroupVersion (Maybe Text)
+ Network.AWS.Greengrass.Types: ldrdGroupOwnerSetting :: Lens' LocalDeviceResourceData (Maybe GroupOwnerSetting)
+ Network.AWS.Greengrass.Types: ldrdSourcePath :: Lens' LocalDeviceResourceData (Maybe Text)
+ Network.AWS.Greengrass.Types: localDeviceResourceData :: LocalDeviceResourceData
+ Network.AWS.Greengrass.Types: localVolumeResourceData :: LocalVolumeResourceData
+ Network.AWS.Greengrass.Types: lvrdDestinationPath :: Lens' LocalVolumeResourceData (Maybe Text)
+ Network.AWS.Greengrass.Types: lvrdGroupOwnerSetting :: Lens' LocalVolumeResourceData (Maybe GroupOwnerSetting)
+ Network.AWS.Greengrass.Types: lvrdSourcePath :: Lens' LocalVolumeResourceData (Maybe Text)
+ Network.AWS.Greengrass.Types: rId :: Lens' Resource (Maybe Text)
+ Network.AWS.Greengrass.Types: rName :: Lens' Resource (Maybe Text)
+ Network.AWS.Greengrass.Types: rResourceDataContainer :: Lens' Resource (Maybe ResourceDataContainer)
+ Network.AWS.Greengrass.Types: rapPermission :: Lens' ResourceAccessPolicy (Maybe Permission)
+ Network.AWS.Greengrass.Types: rapResourceId :: Lens' ResourceAccessPolicy (Maybe Text)
+ Network.AWS.Greengrass.Types: rdcLocalDeviceResourceData :: Lens' ResourceDataContainer (Maybe LocalDeviceResourceData)
+ Network.AWS.Greengrass.Types: rdcLocalVolumeResourceData :: Lens' ResourceDataContainer (Maybe LocalVolumeResourceData)
+ Network.AWS.Greengrass.Types: rdcS3MachineLearningModelResourceData :: Lens' ResourceDataContainer (Maybe S3MachineLearningModelResourceData)
+ Network.AWS.Greengrass.Types: rdcSageMakerMachineLearningModelResourceData :: Lens' ResourceDataContainer (Maybe SageMakerMachineLearningModelResourceData)
+ Network.AWS.Greengrass.Types: rdvResources :: Lens' ResourceDefinitionVersion [Resource]
+ Network.AWS.Greengrass.Types: resource :: Resource
+ Network.AWS.Greengrass.Types: resourceAccessPolicy :: ResourceAccessPolicy
+ Network.AWS.Greengrass.Types: resourceDataContainer :: ResourceDataContainer
+ Network.AWS.Greengrass.Types: resourceDefinitionVersion :: ResourceDefinitionVersion
+ Network.AWS.Greengrass.Types: s3MachineLearningModelResourceData :: S3MachineLearningModelResourceData
+ Network.AWS.Greengrass.Types: sageMakerMachineLearningModelResourceData :: SageMakerMachineLearningModelResourceData
+ Network.AWS.Greengrass.Types: smlmrdDestinationPath :: Lens' S3MachineLearningModelResourceData (Maybe Text)
+ Network.AWS.Greengrass.Types: smlmrdS3URI :: Lens' S3MachineLearningModelResourceData (Maybe Text)
+ Network.AWS.Greengrass.Types: smmlmrdDestinationPath :: Lens' SageMakerMachineLearningModelResourceData (Maybe Text)
+ Network.AWS.Greengrass.Types: smmlmrdSageMakerJobARN :: Lens' SageMakerMachineLearningModelResourceData (Maybe Text)
+ Network.AWS.Greengrass.UpdateResourceDefinition: data UpdateResourceDefinition
+ Network.AWS.Greengrass.UpdateResourceDefinition: data UpdateResourceDefinitionResponse
+ Network.AWS.Greengrass.UpdateResourceDefinition: instance Control.DeepSeq.NFData Network.AWS.Greengrass.UpdateResourceDefinition.UpdateResourceDefinition
+ Network.AWS.Greengrass.UpdateResourceDefinition: instance Control.DeepSeq.NFData Network.AWS.Greengrass.UpdateResourceDefinition.UpdateResourceDefinitionResponse
+ Network.AWS.Greengrass.UpdateResourceDefinition: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.Greengrass.UpdateResourceDefinition.UpdateResourceDefinition
+ Network.AWS.Greengrass.UpdateResourceDefinition: instance Data.Data.Data Network.AWS.Greengrass.UpdateResourceDefinition.UpdateResourceDefinition
+ Network.AWS.Greengrass.UpdateResourceDefinition: instance Data.Data.Data Network.AWS.Greengrass.UpdateResourceDefinition.UpdateResourceDefinitionResponse
+ Network.AWS.Greengrass.UpdateResourceDefinition: instance Data.Hashable.Class.Hashable Network.AWS.Greengrass.UpdateResourceDefinition.UpdateResourceDefinition
+ Network.AWS.Greengrass.UpdateResourceDefinition: instance GHC.Classes.Eq Network.AWS.Greengrass.UpdateResourceDefinition.UpdateResourceDefinition
+ Network.AWS.Greengrass.UpdateResourceDefinition: instance GHC.Classes.Eq Network.AWS.Greengrass.UpdateResourceDefinition.UpdateResourceDefinitionResponse
+ Network.AWS.Greengrass.UpdateResourceDefinition: instance GHC.Generics.Generic Network.AWS.Greengrass.UpdateResourceDefinition.UpdateResourceDefinition
+ Network.AWS.Greengrass.UpdateResourceDefinition: instance GHC.Generics.Generic Network.AWS.Greengrass.UpdateResourceDefinition.UpdateResourceDefinitionResponse
+ Network.AWS.Greengrass.UpdateResourceDefinition: instance GHC.Read.Read Network.AWS.Greengrass.UpdateResourceDefinition.UpdateResourceDefinition
+ Network.AWS.Greengrass.UpdateResourceDefinition: instance GHC.Read.Read Network.AWS.Greengrass.UpdateResourceDefinition.UpdateResourceDefinitionResponse
+ Network.AWS.Greengrass.UpdateResourceDefinition: instance GHC.Show.Show Network.AWS.Greengrass.UpdateResourceDefinition.UpdateResourceDefinition
+ Network.AWS.Greengrass.UpdateResourceDefinition: instance GHC.Show.Show Network.AWS.Greengrass.UpdateResourceDefinition.UpdateResourceDefinitionResponse
+ Network.AWS.Greengrass.UpdateResourceDefinition: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.Greengrass.UpdateResourceDefinition.UpdateResourceDefinition
+ Network.AWS.Greengrass.UpdateResourceDefinition: instance Network.AWS.Data.Path.ToPath Network.AWS.Greengrass.UpdateResourceDefinition.UpdateResourceDefinition
+ Network.AWS.Greengrass.UpdateResourceDefinition: instance Network.AWS.Data.Query.ToQuery Network.AWS.Greengrass.UpdateResourceDefinition.UpdateResourceDefinition
+ Network.AWS.Greengrass.UpdateResourceDefinition: instance Network.AWS.Types.AWSRequest Network.AWS.Greengrass.UpdateResourceDefinition.UpdateResourceDefinition
+ Network.AWS.Greengrass.UpdateResourceDefinition: updateResourceDefinition :: Text -> UpdateResourceDefinition
+ Network.AWS.Greengrass.UpdateResourceDefinition: updateResourceDefinitionResponse :: Int -> UpdateResourceDefinitionResponse
+ Network.AWS.Greengrass.UpdateResourceDefinition: urdName :: Lens' UpdateResourceDefinition (Maybe Text)
+ Network.AWS.Greengrass.UpdateResourceDefinition: urdResourceDefinitionId :: Lens' UpdateResourceDefinition Text
+ Network.AWS.Greengrass.UpdateResourceDefinition: urdrsResponseStatus :: Lens' UpdateResourceDefinitionResponse Int

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description
amazonka-greengrass.cabal view
@@ -1,5 +1,5 @@ name:                  amazonka-greengrass-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Greengrass SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -59,6 +59,9 @@         , Network.AWS.Greengrass.CreateGroupVersion         , Network.AWS.Greengrass.CreateLoggerDefinition         , Network.AWS.Greengrass.CreateLoggerDefinitionVersion+        , Network.AWS.Greengrass.CreateResourceDefinition+        , Network.AWS.Greengrass.CreateResourceDefinitionVersion+        , Network.AWS.Greengrass.CreateSoftwareUpdateJob         , Network.AWS.Greengrass.CreateSubscriptionDefinition         , Network.AWS.Greengrass.CreateSubscriptionDefinitionVersion         , Network.AWS.Greengrass.DeleteCoreDefinition@@ -66,6 +69,7 @@         , Network.AWS.Greengrass.DeleteFunctionDefinition         , Network.AWS.Greengrass.DeleteGroup         , Network.AWS.Greengrass.DeleteLoggerDefinition+        , Network.AWS.Greengrass.DeleteResourceDefinition         , Network.AWS.Greengrass.DeleteSubscriptionDefinition         , Network.AWS.Greengrass.DisassociateRoleFromGroup         , Network.AWS.Greengrass.DisassociateServiceRoleFromAccount@@ -84,6 +88,8 @@         , Network.AWS.Greengrass.GetGroupVersion         , Network.AWS.Greengrass.GetLoggerDefinition         , Network.AWS.Greengrass.GetLoggerDefinitionVersion+        , Network.AWS.Greengrass.GetResourceDefinition+        , Network.AWS.Greengrass.GetResourceDefinitionVersion         , Network.AWS.Greengrass.GetServiceRoleForAccount         , Network.AWS.Greengrass.GetSubscriptionDefinition         , Network.AWS.Greengrass.GetSubscriptionDefinitionVersion@@ -99,6 +105,8 @@         , Network.AWS.Greengrass.ListGroups         , Network.AWS.Greengrass.ListLoggerDefinitionVersions         , Network.AWS.Greengrass.ListLoggerDefinitions+        , Network.AWS.Greengrass.ListResourceDefinitionVersions+        , Network.AWS.Greengrass.ListResourceDefinitions         , Network.AWS.Greengrass.ListSubscriptionDefinitionVersions         , Network.AWS.Greengrass.ListSubscriptionDefinitions         , Network.AWS.Greengrass.ResetDeployments@@ -110,6 +118,7 @@         , Network.AWS.Greengrass.UpdateGroup         , Network.AWS.Greengrass.UpdateGroupCertificateConfiguration         , Network.AWS.Greengrass.UpdateLoggerDefinition+        , Network.AWS.Greengrass.UpdateResourceDefinition         , Network.AWS.Greengrass.UpdateSubscriptionDefinition         , Network.AWS.Greengrass.Waiters @@ -118,7 +127,7 @@         , Network.AWS.Greengrass.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-greengrass-test@@ -138,8 +147,8 @@         , Test.AWS.Greengrass.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-greengrass         , base         , bytestring
+ fixture/CreateResourceDefinition.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/greengrass/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  greengrass.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateResourceDefinitionResponse.proto view
+ fixture/CreateResourceDefinitionVersion.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/greengrass/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  greengrass.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateResourceDefinitionVersionResponse.proto view
+ fixture/CreateSoftwareUpdateJob.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/greengrass/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  greengrass.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/CreateSoftwareUpdateJobResponse.proto view
+ fixture/DeleteResourceDefinition.yaml view
@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/greengrass/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  greengrass.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DeleteResourceDefinitionResponse.proto view
+ fixture/GetResourceDefinition.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/greengrass/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  greengrass.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/GetResourceDefinitionResponse.proto view
+ fixture/GetResourceDefinitionVersion.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/greengrass/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  greengrass.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/GetResourceDefinitionVersionResponse.proto view
+ fixture/ListResourceDefinitionVersions.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/greengrass/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  greengrass.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListResourceDefinitionVersionsResponse.proto view
+ fixture/ListResourceDefinitions.yaml view
@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/greengrass/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  greengrass.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ListResourceDefinitionsResponse.proto view
+ fixture/UpdateResourceDefinition.yaml view
@@ -0,0 +1,10 @@+---+method: PUT+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/greengrass/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  greengrass.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/UpdateResourceDefinitionResponse.proto view
gen/Network/AWS/Greengrass.hs view
@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.Greengrass--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -98,6 +98,9 @@     -- ** GetServiceRoleForAccount     , module Network.AWS.Greengrass.GetServiceRoleForAccount +    -- ** CreateSoftwareUpdateJob+    , module Network.AWS.Greengrass.CreateSoftwareUpdateJob+     -- ** CreateLoggerDefinition     , module Network.AWS.Greengrass.CreateLoggerDefinition @@ -122,12 +125,30 @@     -- ** GetDeploymentStatus     , module Network.AWS.Greengrass.GetDeploymentStatus +    -- ** CreateResourceDefinition+    , module Network.AWS.Greengrass.CreateResourceDefinition++    -- ** GetResourceDefinitionVersion+    , module Network.AWS.Greengrass.GetResourceDefinitionVersion+     -- ** UpdateFunctionDefinition     , module Network.AWS.Greengrass.UpdateFunctionDefinition      -- ** DeleteFunctionDefinition     , module Network.AWS.Greengrass.DeleteFunctionDefinition +    -- ** ListResourceDefinitions+    , module Network.AWS.Greengrass.ListResourceDefinitions++    -- ** CreateResourceDefinitionVersion+    , module Network.AWS.Greengrass.CreateResourceDefinitionVersion++    -- ** GetResourceDefinition+    , module Network.AWS.Greengrass.GetResourceDefinition++    -- ** ListResourceDefinitionVersions+    , module Network.AWS.Greengrass.ListResourceDefinitionVersions+     -- ** DisassociateServiceRoleFromAccount     , module Network.AWS.Greengrass.DisassociateServiceRoleFromAccount @@ -203,6 +224,12 @@     -- ** ListGroups     , module Network.AWS.Greengrass.ListGroups +    -- ** DeleteResourceDefinition+    , module Network.AWS.Greengrass.DeleteResourceDefinition++    -- ** UpdateResourceDefinition+    , module Network.AWS.Greengrass.UpdateResourceDefinition+     -- ** ListDeviceDefinitionVersions     , module Network.AWS.Greengrass.ListDeviceDefinitionVersions @@ -232,6 +259,9 @@     -- ** DeploymentType     , DeploymentType (..) +    -- ** EncodingType+    , EncodingType (..)+     -- ** LoggerComponent     , LoggerComponent (..) @@ -241,6 +271,21 @@     -- ** LoggerType     , LoggerType (..) +    -- ** Permission+    , Permission (..)++    -- ** SoftwareToUpdate+    , SoftwareToUpdate (..)++    -- ** UpdateAgentLogLevel+    , UpdateAgentLogLevel (..)++    -- ** UpdateTargetsArchitecture+    , UpdateTargetsArchitecture (..)++    -- ** UpdateTargetsOperatingSystem+    , UpdateTargetsOperatingSystem (..)+     -- ** ConnectivityInfo     , ConnectivityInfo     , connectivityInfo@@ -316,12 +361,15 @@     , fcEnvironment     , fcExecutable     , fcPinned+    , fcEncodingType     , fcTimeout      -- ** FunctionConfigurationEnvironment     , FunctionConfigurationEnvironment     , functionConfigurationEnvironment     , fceVariables+    , fceResourceAccessPolicies+    , fceAccessSysfs      -- ** FunctionDefinitionVersion     , FunctionDefinitionVersion@@ -354,20 +402,78 @@     , giLatestVersion     , giLastUpdatedTimestamp +    -- ** GroupOwnerSetting+    , GroupOwnerSetting+    , groupOwnerSetting+    , gosAutoAddGroupOwner+    , gosGroupOwner+     -- ** GroupVersion     , GroupVersion     , groupVersion+    , gvResourceDefinitionVersionARN     , gvSubscriptionDefinitionVersionARN     , gvCoreDefinitionVersionARN     , gvDeviceDefinitionVersionARN     , gvFunctionDefinitionVersionARN     , gvLoggerDefinitionVersionARN +    -- ** LocalDeviceResourceData+    , LocalDeviceResourceData+    , localDeviceResourceData+    , ldrdGroupOwnerSetting+    , ldrdSourcePath++    -- ** LocalVolumeResourceData+    , LocalVolumeResourceData+    , localVolumeResourceData+    , lvrdGroupOwnerSetting+    , lvrdDestinationPath+    , lvrdSourcePath+     -- ** LoggerDefinitionVersion     , LoggerDefinitionVersion     , loggerDefinitionVersion     , ldvLoggers +    -- ** Resource+    , Resource+    , resource+    , rResourceDataContainer+    , rName+    , rId++    -- ** ResourceAccessPolicy+    , ResourceAccessPolicy+    , resourceAccessPolicy+    , rapResourceId+    , rapPermission++    -- ** ResourceDataContainer+    , ResourceDataContainer+    , resourceDataContainer+    , rdcS3MachineLearningModelResourceData+    , rdcSageMakerMachineLearningModelResourceData+    , rdcLocalVolumeResourceData+    , rdcLocalDeviceResourceData++    -- ** ResourceDefinitionVersion+    , ResourceDefinitionVersion+    , resourceDefinitionVersion+    , rdvResources++    -- ** S3MachineLearningModelResourceData+    , S3MachineLearningModelResourceData+    , s3MachineLearningModelResourceData+    , smlmrdDestinationPath+    , smlmrdS3URI++    -- ** SageMakerMachineLearningModelResourceData+    , SageMakerMachineLearningModelResourceData+    , sageMakerMachineLearningModelResourceData+    , smmlmrdSageMakerJobARN+    , smmlmrdDestinationPath+     -- ** Subscription     , Subscription     , subscription@@ -404,6 +510,9 @@ import Network.AWS.Greengrass.CreateGroupVersion import Network.AWS.Greengrass.CreateLoggerDefinition import Network.AWS.Greengrass.CreateLoggerDefinitionVersion+import Network.AWS.Greengrass.CreateResourceDefinition+import Network.AWS.Greengrass.CreateResourceDefinitionVersion+import Network.AWS.Greengrass.CreateSoftwareUpdateJob import Network.AWS.Greengrass.CreateSubscriptionDefinition import Network.AWS.Greengrass.CreateSubscriptionDefinitionVersion import Network.AWS.Greengrass.DeleteCoreDefinition@@ -411,6 +520,7 @@ import Network.AWS.Greengrass.DeleteFunctionDefinition import Network.AWS.Greengrass.DeleteGroup import Network.AWS.Greengrass.DeleteLoggerDefinition+import Network.AWS.Greengrass.DeleteResourceDefinition import Network.AWS.Greengrass.DeleteSubscriptionDefinition import Network.AWS.Greengrass.DisassociateRoleFromGroup import Network.AWS.Greengrass.DisassociateServiceRoleFromAccount@@ -429,6 +539,8 @@ import Network.AWS.Greengrass.GetGroupVersion import Network.AWS.Greengrass.GetLoggerDefinition import Network.AWS.Greengrass.GetLoggerDefinitionVersion+import Network.AWS.Greengrass.GetResourceDefinition+import Network.AWS.Greengrass.GetResourceDefinitionVersion import Network.AWS.Greengrass.GetServiceRoleForAccount import Network.AWS.Greengrass.GetSubscriptionDefinition import Network.AWS.Greengrass.GetSubscriptionDefinitionVersion@@ -444,6 +556,8 @@ import Network.AWS.Greengrass.ListGroupVersions import Network.AWS.Greengrass.ListLoggerDefinitions import Network.AWS.Greengrass.ListLoggerDefinitionVersions+import Network.AWS.Greengrass.ListResourceDefinitions+import Network.AWS.Greengrass.ListResourceDefinitionVersions import Network.AWS.Greengrass.ListSubscriptionDefinitions import Network.AWS.Greengrass.ListSubscriptionDefinitionVersions import Network.AWS.Greengrass.ResetDeployments@@ -455,6 +569,7 @@ import Network.AWS.Greengrass.UpdateGroup import Network.AWS.Greengrass.UpdateGroupCertificateConfiguration import Network.AWS.Greengrass.UpdateLoggerDefinition+import Network.AWS.Greengrass.UpdateResourceDefinition import Network.AWS.Greengrass.UpdateSubscriptionDefinition import Network.AWS.Greengrass.Waiters 
gen/Network/AWS/Greengrass/AssociateRoleToGroup.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.AssociateRoleToGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Associates a role with a group. The role will be used by the AWS Greengrass core in order to access AWS cloud services. The role's permissions will allow Greengrass core Lambda functions to perform actions against the cloud.+-- Associates a role with a group. Your AWS Greengrass core will use the role to access AWS cloud services. The role's permissions should allow Greengrass core Lambda functions to perform actions against the cloud. module Network.AWS.Greengrass.AssociateRoleToGroup     (     -- * Creating a Request@@ -54,9 +54,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'artgRoleARN' - Role arn you wish to associate with this group.+-- * 'artgRoleARN' - The ARN of the role you wish to associate with this group. ----- * 'artgGroupId' - The unique Id of the AWS Greengrass Group+-- * 'artgGroupId' - The ID of the AWS Greengrass group. associateRoleToGroup     :: Text -- ^ 'artgGroupId'     -> AssociateRoleToGroup@@ -64,13 +64,13 @@   AssociateRoleToGroup' {_artgRoleARN = Nothing, _artgGroupId = pGroupId_}  --- | Role arn you wish to associate with this group.+-- | The ARN of the role you wish to associate with this group. artgRoleARN :: Lens' AssociateRoleToGroup (Maybe Text)-artgRoleARN = lens _artgRoleARN (\ s a -> s{_artgRoleARN = a});+artgRoleARN = lens _artgRoleARN (\ s a -> s{_artgRoleARN = a}) --- | The unique Id of the AWS Greengrass Group+-- | The ID of the AWS Greengrass group. artgGroupId :: Lens' AssociateRoleToGroup Text-artgGroupId = lens _artgGroupId (\ s a -> s{_artgGroupId = a});+artgGroupId = lens _artgGroupId (\ s a -> s{_artgGroupId = a})  instance AWSRequest AssociateRoleToGroup where         type Rs AssociateRoleToGroup =@@ -117,7 +117,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'artgrsAssociatedAt' - Time the role arn was associated to your group.+-- * 'artgrsAssociatedAt' - The time, in milliseconds since the epoch, when the role ARN was associated with the group. -- -- * 'artgrsResponseStatus' - -- | The response status code. associateRoleToGroupResponse@@ -125,15 +125,15 @@     -> AssociateRoleToGroupResponse associateRoleToGroupResponse pResponseStatus_ =   AssociateRoleToGroupResponse'-  {_artgrsAssociatedAt = Nothing, _artgrsResponseStatus = pResponseStatus_}+    {_artgrsAssociatedAt = Nothing, _artgrsResponseStatus = pResponseStatus_}  --- | Time the role arn was associated to your group.+-- | The time, in milliseconds since the epoch, when the role ARN was associated with the group. artgrsAssociatedAt :: Lens' AssociateRoleToGroupResponse (Maybe Text)-artgrsAssociatedAt = lens _artgrsAssociatedAt (\ s a -> s{_artgrsAssociatedAt = a});+artgrsAssociatedAt = lens _artgrsAssociatedAt (\ s a -> s{_artgrsAssociatedAt = a})  -- | -- | The response status code. artgrsResponseStatus :: Lens' AssociateRoleToGroupResponse Int-artgrsResponseStatus = lens _artgrsResponseStatus (\ s a -> s{_artgrsResponseStatus = a});+artgrsResponseStatus = lens _artgrsResponseStatus (\ s a -> s{_artgrsResponseStatus = a})  instance NFData AssociateRoleToGroupResponse where
gen/Network/AWS/Greengrass/AssociateServiceRoleToAccount.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.AssociateServiceRoleToAccount--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Associates a role which is used by AWS Greengrass. AWS Greengrass uses the role to access your Lambda functions and AWS IoT resources. This is necessary for deployments to succeed. It needs to have minimum permissions in policy ``AWSGreengrassResourceAccessRolePolicy``+-- Associates a role with your account. AWS Greengrass will use the role to access your Lambda functions and AWS IoT resources. This is necessary for deployments to succeed. The role must have at least minimum permissions in the policy ''AWSGreengrassResourceAccessRolePolicy''. module Network.AWS.Greengrass.AssociateServiceRoleToAccount     (     -- * Creating a Request@@ -52,16 +52,16 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'asrtaRoleARN' - Role arn you wish to associate with this account.+-- * 'asrtaRoleARN' - The ARN of the service role you wish to associate with your account. associateServiceRoleToAccount     :: AssociateServiceRoleToAccount associateServiceRoleToAccount =   AssociateServiceRoleToAccount' {_asrtaRoleARN = Nothing}  --- | Role arn you wish to associate with this account.+-- | The ARN of the service role you wish to associate with your account. asrtaRoleARN :: Lens' AssociateServiceRoleToAccount (Maybe Text)-asrtaRoleARN = lens _asrtaRoleARN (\ s a -> s{_asrtaRoleARN = a});+asrtaRoleARN = lens _asrtaRoleARN (\ s a -> s{_asrtaRoleARN = a})  instance AWSRequest AssociateServiceRoleToAccount          where@@ -108,7 +108,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'asrtarsAssociatedAt' - Time when the service role was associated to the account.+-- * 'asrtarsAssociatedAt' - The time when the service role was associated with the account. -- -- * 'asrtarsResponseStatus' - -- | The response status code. associateServiceRoleToAccountResponse@@ -116,16 +116,16 @@     -> AssociateServiceRoleToAccountResponse associateServiceRoleToAccountResponse pResponseStatus_ =   AssociateServiceRoleToAccountResponse'-  {_asrtarsAssociatedAt = Nothing, _asrtarsResponseStatus = pResponseStatus_}+    {_asrtarsAssociatedAt = Nothing, _asrtarsResponseStatus = pResponseStatus_}  --- | Time when the service role was associated to the account.+-- | The time when the service role was associated with the account. asrtarsAssociatedAt :: Lens' AssociateServiceRoleToAccountResponse (Maybe Text)-asrtarsAssociatedAt = lens _asrtarsAssociatedAt (\ s a -> s{_asrtarsAssociatedAt = a});+asrtarsAssociatedAt = lens _asrtarsAssociatedAt (\ s a -> s{_asrtarsAssociatedAt = a})  -- | -- | The response status code. asrtarsResponseStatus :: Lens' AssociateServiceRoleToAccountResponse Int-asrtarsResponseStatus = lens _asrtarsResponseStatus (\ s a -> s{_asrtarsResponseStatus = a});+asrtarsResponseStatus = lens _asrtarsResponseStatus (\ s a -> s{_asrtarsResponseStatus = a})  instance NFData AssociateServiceRoleToAccountResponse          where
gen/Network/AWS/Greengrass/CreateCoreDefinition.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.CreateCoreDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a core definition. You may optionally provide the initial version of the core definition or use ''CreateCoreDefinitionVersion'' at a later time. AWS Greengrass Groups must each contain exactly 1 AWS Greengrass Core.+-- Creates a core definition. You may provide the initial version of the core definition now or use ''CreateCoreDefinitionVersion'' at a later time. AWS Greengrass groups must each contain exactly one AWS Greengrass core. module Network.AWS.Greengrass.CreateCoreDefinition     (     -- * Creating a Request@@ -50,7 +50,7 @@ import Network.AWS.Request import Network.AWS.Response --- | Information on the core definition request+-- | Information needed to create a core definition. -- -- /See:/ 'createCoreDefinition' smart constructor. data CreateCoreDefinition = CreateCoreDefinition'@@ -64,32 +64,32 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ccdAmznClientToken' - The client token used to request idempotent operations.+-- * 'ccdAmznClientToken' - A client token used to correlate requests and responses. ----- * 'ccdInitialVersion' - Information on the initial version+-- * 'ccdInitialVersion' - Information about the initial version of the core definition. ----- * 'ccdName' - name of the core definition+-- * 'ccdName' - The name of the core definition. createCoreDefinition     :: CreateCoreDefinition createCoreDefinition =   CreateCoreDefinition'-  { _ccdAmznClientToken = Nothing-  , _ccdInitialVersion = Nothing-  , _ccdName = Nothing-  }+    { _ccdAmznClientToken = Nothing+    , _ccdInitialVersion = Nothing+    , _ccdName = Nothing+    }  --- | The client token used to request idempotent operations.+-- | A client token used to correlate requests and responses. ccdAmznClientToken :: Lens' CreateCoreDefinition (Maybe Text)-ccdAmznClientToken = lens _ccdAmznClientToken (\ s a -> s{_ccdAmznClientToken = a});+ccdAmznClientToken = lens _ccdAmznClientToken (\ s a -> s{_ccdAmznClientToken = a}) --- | Information on the initial version+-- | Information about the initial version of the core definition. ccdInitialVersion :: Lens' CreateCoreDefinition (Maybe CoreDefinitionVersion)-ccdInitialVersion = lens _ccdInitialVersion (\ s a -> s{_ccdInitialVersion = a});+ccdInitialVersion = lens _ccdInitialVersion (\ s a -> s{_ccdInitialVersion = a}) --- | name of the core definition+-- | The name of the core definition. ccdName :: Lens' CreateCoreDefinition (Maybe Text)-ccdName = lens _ccdName (\ s a -> s{_ccdName = a});+ccdName = lens _ccdName (\ s a -> s{_ccdName = a})  instance AWSRequest CreateCoreDefinition where         type Rs CreateCoreDefinition =@@ -148,19 +148,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ccdrsLatestVersionARN' - Latest version arn of the definition.+-- * 'ccdrsLatestVersionARN' - The ARN of the latest version of the definition. ----- * 'ccdrsARN' - Arn of the definition.+-- * 'ccdrsARN' - The ARN of the definition. ----- * 'ccdrsName' - Name of the definition.+-- * 'ccdrsName' - The name of the definition. ----- * 'ccdrsCreationTimestamp' - Timestamp of when the definition was created.+-- * 'ccdrsCreationTimestamp' - The time, in milliseconds since the epoch, when the definition was created. ----- * 'ccdrsId' - Id of the definition.+-- * 'ccdrsId' - The ID of the definition. ----- * 'ccdrsLatestVersion' - Last version of the definition.+-- * 'ccdrsLatestVersion' - The latest version of the definition. ----- * 'ccdrsLastUpdatedTimestamp' - Last updated timestamp of the definition.+-- * 'ccdrsLastUpdatedTimestamp' - The time, in milliseconds since the epoch, when the definition was last updated. -- -- * 'ccdrsResponseStatus' - -- | The response status code. createCoreDefinitionResponse@@ -168,47 +168,47 @@     -> CreateCoreDefinitionResponse createCoreDefinitionResponse pResponseStatus_ =   CreateCoreDefinitionResponse'-  { _ccdrsLatestVersionARN = Nothing-  , _ccdrsARN = Nothing-  , _ccdrsName = Nothing-  , _ccdrsCreationTimestamp = Nothing-  , _ccdrsId = Nothing-  , _ccdrsLatestVersion = Nothing-  , _ccdrsLastUpdatedTimestamp = Nothing-  , _ccdrsResponseStatus = pResponseStatus_-  }+    { _ccdrsLatestVersionARN = Nothing+    , _ccdrsARN = Nothing+    , _ccdrsName = Nothing+    , _ccdrsCreationTimestamp = Nothing+    , _ccdrsId = Nothing+    , _ccdrsLatestVersion = Nothing+    , _ccdrsLastUpdatedTimestamp = Nothing+    , _ccdrsResponseStatus = pResponseStatus_+    }  --- | Latest version arn of the definition.+-- | The ARN of the latest version of the definition. ccdrsLatestVersionARN :: Lens' CreateCoreDefinitionResponse (Maybe Text)-ccdrsLatestVersionARN = lens _ccdrsLatestVersionARN (\ s a -> s{_ccdrsLatestVersionARN = a});+ccdrsLatestVersionARN = lens _ccdrsLatestVersionARN (\ s a -> s{_ccdrsLatestVersionARN = a}) --- | Arn of the definition.+-- | The ARN of the definition. ccdrsARN :: Lens' CreateCoreDefinitionResponse (Maybe Text)-ccdrsARN = lens _ccdrsARN (\ s a -> s{_ccdrsARN = a});+ccdrsARN = lens _ccdrsARN (\ s a -> s{_ccdrsARN = a}) --- | Name of the definition.+-- | The name of the definition. ccdrsName :: Lens' CreateCoreDefinitionResponse (Maybe Text)-ccdrsName = lens _ccdrsName (\ s a -> s{_ccdrsName = a});+ccdrsName = lens _ccdrsName (\ s a -> s{_ccdrsName = a}) --- | Timestamp of when the definition was created.+-- | The time, in milliseconds since the epoch, when the definition was created. ccdrsCreationTimestamp :: Lens' CreateCoreDefinitionResponse (Maybe Text)-ccdrsCreationTimestamp = lens _ccdrsCreationTimestamp (\ s a -> s{_ccdrsCreationTimestamp = a});+ccdrsCreationTimestamp = lens _ccdrsCreationTimestamp (\ s a -> s{_ccdrsCreationTimestamp = a}) --- | Id of the definition.+-- | The ID of the definition. ccdrsId :: Lens' CreateCoreDefinitionResponse (Maybe Text)-ccdrsId = lens _ccdrsId (\ s a -> s{_ccdrsId = a});+ccdrsId = lens _ccdrsId (\ s a -> s{_ccdrsId = a}) --- | Last version of the definition.+-- | The latest version of the definition. ccdrsLatestVersion :: Lens' CreateCoreDefinitionResponse (Maybe Text)-ccdrsLatestVersion = lens _ccdrsLatestVersion (\ s a -> s{_ccdrsLatestVersion = a});+ccdrsLatestVersion = lens _ccdrsLatestVersion (\ s a -> s{_ccdrsLatestVersion = a}) --- | Last updated timestamp of the definition.+-- | The time, in milliseconds since the epoch, when the definition was last updated. ccdrsLastUpdatedTimestamp :: Lens' CreateCoreDefinitionResponse (Maybe Text)-ccdrsLastUpdatedTimestamp = lens _ccdrsLastUpdatedTimestamp (\ s a -> s{_ccdrsLastUpdatedTimestamp = a});+ccdrsLastUpdatedTimestamp = lens _ccdrsLastUpdatedTimestamp (\ s a -> s{_ccdrsLastUpdatedTimestamp = a})  -- | -- | The response status code. ccdrsResponseStatus :: Lens' CreateCoreDefinitionResponse Int-ccdrsResponseStatus = lens _ccdrsResponseStatus (\ s a -> s{_ccdrsResponseStatus = a});+ccdrsResponseStatus = lens _ccdrsResponseStatus (\ s a -> s{_ccdrsResponseStatus = a})  instance NFData CreateCoreDefinitionResponse where
gen/Network/AWS/Greengrass/CreateCoreDefinitionVersion.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.CreateCoreDefinitionVersion--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a version of a core definition that has already been defined. AWS Greengrass Groups must each contain exactly 1 AWS Greengrass Core.+-- Creates a version of a core definition that has already been defined. AWS Greengrass groups must each contain exactly one AWS Greengrass core. module Network.AWS.Greengrass.CreateCoreDefinitionVersion     (     -- * Creating a Request@@ -59,33 +59,33 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ccdvAmznClientToken' - The client token used to request idempotent operations.+-- * 'ccdvAmznClientToken' - A client token used to correlate requests and responses. ----- * 'ccdvCores' - Cores in the definition version.+-- * 'ccdvCores' - A list of cores in the core definition version. ----- * 'ccdvCoreDefinitionId' - core definition Id+-- * 'ccdvCoreDefinitionId' - The ID of the core definition. createCoreDefinitionVersion     :: Text -- ^ 'ccdvCoreDefinitionId'     -> CreateCoreDefinitionVersion createCoreDefinitionVersion pCoreDefinitionId_ =   CreateCoreDefinitionVersion'-  { _ccdvAmznClientToken = Nothing-  , _ccdvCores = Nothing-  , _ccdvCoreDefinitionId = pCoreDefinitionId_-  }+    { _ccdvAmznClientToken = Nothing+    , _ccdvCores = Nothing+    , _ccdvCoreDefinitionId = pCoreDefinitionId_+    }  --- | The client token used to request idempotent operations.+-- | A client token used to correlate requests and responses. ccdvAmznClientToken :: Lens' CreateCoreDefinitionVersion (Maybe Text)-ccdvAmznClientToken = lens _ccdvAmznClientToken (\ s a -> s{_ccdvAmznClientToken = a});+ccdvAmznClientToken = lens _ccdvAmznClientToken (\ s a -> s{_ccdvAmznClientToken = a}) --- | Cores in the definition version.+-- | A list of cores in the core definition version. ccdvCores :: Lens' CreateCoreDefinitionVersion [Core]-ccdvCores = lens _ccdvCores (\ s a -> s{_ccdvCores = a}) . _Default . _Coerce;+ccdvCores = lens _ccdvCores (\ s a -> s{_ccdvCores = a}) . _Default . _Coerce --- | core definition Id+-- | The ID of the core definition. ccdvCoreDefinitionId :: Lens' CreateCoreDefinitionVersion Text-ccdvCoreDefinitionId = lens _ccdvCoreDefinitionId (\ s a -> s{_ccdvCoreDefinitionId = a});+ccdvCoreDefinitionId = lens _ccdvCoreDefinitionId (\ s a -> s{_ccdvCoreDefinitionId = a})  instance AWSRequest CreateCoreDefinitionVersion where         type Rs CreateCoreDefinitionVersion =@@ -138,13 +138,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ccdvrsARN' - Arn of the version.+-- * 'ccdvrsARN' - The ARN of the version. ----- * 'ccdvrsCreationTimestamp' - Timestamp of when the version was created.+-- * 'ccdvrsCreationTimestamp' - The time, in milliseconds since the epoch, when the version was created. ----- * 'ccdvrsVersion' - Unique Id of a version.+-- * 'ccdvrsVersion' - The unique ID of the version. ----- * 'ccdvrsId' - Id of the resource container.+-- * 'ccdvrsId' - The ID of the version. -- -- * 'ccdvrsResponseStatus' - -- | The response status code. createCoreDefinitionVersionResponse@@ -152,33 +152,33 @@     -> CreateCoreDefinitionVersionResponse createCoreDefinitionVersionResponse pResponseStatus_ =   CreateCoreDefinitionVersionResponse'-  { _ccdvrsARN = Nothing-  , _ccdvrsCreationTimestamp = Nothing-  , _ccdvrsVersion = Nothing-  , _ccdvrsId = Nothing-  , _ccdvrsResponseStatus = pResponseStatus_-  }+    { _ccdvrsARN = Nothing+    , _ccdvrsCreationTimestamp = Nothing+    , _ccdvrsVersion = Nothing+    , _ccdvrsId = Nothing+    , _ccdvrsResponseStatus = pResponseStatus_+    }  --- | Arn of the version.+-- | The ARN of the version. ccdvrsARN :: Lens' CreateCoreDefinitionVersionResponse (Maybe Text)-ccdvrsARN = lens _ccdvrsARN (\ s a -> s{_ccdvrsARN = a});+ccdvrsARN = lens _ccdvrsARN (\ s a -> s{_ccdvrsARN = a}) --- | Timestamp of when the version was created.+-- | The time, in milliseconds since the epoch, when the version was created. ccdvrsCreationTimestamp :: Lens' CreateCoreDefinitionVersionResponse (Maybe Text)-ccdvrsCreationTimestamp = lens _ccdvrsCreationTimestamp (\ s a -> s{_ccdvrsCreationTimestamp = a});+ccdvrsCreationTimestamp = lens _ccdvrsCreationTimestamp (\ s a -> s{_ccdvrsCreationTimestamp = a}) --- | Unique Id of a version.+-- | The unique ID of the version. ccdvrsVersion :: Lens' CreateCoreDefinitionVersionResponse (Maybe Text)-ccdvrsVersion = lens _ccdvrsVersion (\ s a -> s{_ccdvrsVersion = a});+ccdvrsVersion = lens _ccdvrsVersion (\ s a -> s{_ccdvrsVersion = a}) --- | Id of the resource container.+-- | The ID of the version. ccdvrsId :: Lens' CreateCoreDefinitionVersionResponse (Maybe Text)-ccdvrsId = lens _ccdvrsId (\ s a -> s{_ccdvrsId = a});+ccdvrsId = lens _ccdvrsId (\ s a -> s{_ccdvrsId = a})  -- | -- | The response status code. ccdvrsResponseStatus :: Lens' CreateCoreDefinitionVersionResponse Int-ccdvrsResponseStatus = lens _ccdvrsResponseStatus (\ s a -> s{_ccdvrsResponseStatus = a});+ccdvrsResponseStatus = lens _ccdvrsResponseStatus (\ s a -> s{_ccdvrsResponseStatus = a})  instance NFData CreateCoreDefinitionVersionResponse          where
gen/Network/AWS/Greengrass/CreateDeployment.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.CreateDeployment--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -61,47 +61,47 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cdDeploymentId' - Id of the deployment if you wish to redeploy a previous deployment.+-- * 'cdDeploymentId' - The ID of the deployment if you wish to redeploy a previous deployment. ----- * 'cdAmznClientToken' - The client token used to request idempotent operations.+-- * 'cdAmznClientToken' - A client token used to correlate requests and responses. ----- * 'cdDeploymentType' - Type of deployment. When used in CreateDeployment, only NewDeployment and Redeployment are valid.+-- * 'cdDeploymentType' - The type of deployment. When used in ''CreateDeployment'', only ''NewDeployment'' and ''Redeployment'' are valid. ----- * 'cdGroupVersionId' - Group Version you wish to deploy.+-- * 'cdGroupVersionId' - The ID of the group version to be deployed. ----- * 'cdGroupId' - The unique Id of the AWS Greengrass Group+-- * 'cdGroupId' - The ID of the AWS Greengrass group. createDeployment     :: Text -- ^ 'cdGroupId'     -> CreateDeployment createDeployment pGroupId_ =   CreateDeployment'-  { _cdDeploymentId = Nothing-  , _cdAmznClientToken = Nothing-  , _cdDeploymentType = Nothing-  , _cdGroupVersionId = Nothing-  , _cdGroupId = pGroupId_-  }+    { _cdDeploymentId = Nothing+    , _cdAmznClientToken = Nothing+    , _cdDeploymentType = Nothing+    , _cdGroupVersionId = Nothing+    , _cdGroupId = pGroupId_+    }  --- | Id of the deployment if you wish to redeploy a previous deployment.+-- | The ID of the deployment if you wish to redeploy a previous deployment. cdDeploymentId :: Lens' CreateDeployment (Maybe Text)-cdDeploymentId = lens _cdDeploymentId (\ s a -> s{_cdDeploymentId = a});+cdDeploymentId = lens _cdDeploymentId (\ s a -> s{_cdDeploymentId = a}) --- | The client token used to request idempotent operations.+-- | A client token used to correlate requests and responses. cdAmznClientToken :: Lens' CreateDeployment (Maybe Text)-cdAmznClientToken = lens _cdAmznClientToken (\ s a -> s{_cdAmznClientToken = a});+cdAmznClientToken = lens _cdAmznClientToken (\ s a -> s{_cdAmznClientToken = a}) --- | Type of deployment. When used in CreateDeployment, only NewDeployment and Redeployment are valid.+-- | The type of deployment. When used in ''CreateDeployment'', only ''NewDeployment'' and ''Redeployment'' are valid. cdDeploymentType :: Lens' CreateDeployment (Maybe DeploymentType)-cdDeploymentType = lens _cdDeploymentType (\ s a -> s{_cdDeploymentType = a});+cdDeploymentType = lens _cdDeploymentType (\ s a -> s{_cdDeploymentType = a}) --- | Group Version you wish to deploy.+-- | The ID of the group version to be deployed. cdGroupVersionId :: Lens' CreateDeployment (Maybe Text)-cdGroupVersionId = lens _cdGroupVersionId (\ s a -> s{_cdGroupVersionId = a});+cdGroupVersionId = lens _cdGroupVersionId (\ s a -> s{_cdGroupVersionId = a}) --- | The unique Id of the AWS Greengrass Group+-- | The ID of the AWS Greengrass group. cdGroupId :: Lens' CreateDeployment Text-cdGroupId = lens _cdGroupId (\ s a -> s{_cdGroupId = a});+cdGroupId = lens _cdGroupId (\ s a -> s{_cdGroupId = a})  instance AWSRequest CreateDeployment where         type Rs CreateDeployment = CreateDeploymentResponse@@ -153,9 +153,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cdrsDeploymentId' - The id of the deployment.+-- * 'cdrsDeploymentId' - The ID of the deployment. ----- * 'cdrsDeploymentARN' - The arn of the deployment.+-- * 'cdrsDeploymentARN' - The ARN of the deployment. -- -- * 'cdrsResponseStatus' - -- | The response status code. createDeploymentResponse@@ -163,22 +163,22 @@     -> CreateDeploymentResponse createDeploymentResponse pResponseStatus_ =   CreateDeploymentResponse'-  { _cdrsDeploymentId = Nothing-  , _cdrsDeploymentARN = Nothing-  , _cdrsResponseStatus = pResponseStatus_-  }+    { _cdrsDeploymentId = Nothing+    , _cdrsDeploymentARN = Nothing+    , _cdrsResponseStatus = pResponseStatus_+    }  --- | The id of the deployment.+-- | The ID of the deployment. cdrsDeploymentId :: Lens' CreateDeploymentResponse (Maybe Text)-cdrsDeploymentId = lens _cdrsDeploymentId (\ s a -> s{_cdrsDeploymentId = a});+cdrsDeploymentId = lens _cdrsDeploymentId (\ s a -> s{_cdrsDeploymentId = a}) --- | The arn of the deployment.+-- | The ARN of the deployment. cdrsDeploymentARN :: Lens' CreateDeploymentResponse (Maybe Text)-cdrsDeploymentARN = lens _cdrsDeploymentARN (\ s a -> s{_cdrsDeploymentARN = a});+cdrsDeploymentARN = lens _cdrsDeploymentARN (\ s a -> s{_cdrsDeploymentARN = a})  -- | -- | The response status code. cdrsResponseStatus :: Lens' CreateDeploymentResponse Int-cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a});+cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a})  instance NFData CreateDeploymentResponse where
gen/Network/AWS/Greengrass/CreateDeviceDefinition.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.CreateDeviceDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a device definition. You may optinally provide the initial version of the device definition or use ``CreateDeviceDefinitionVersion`` at a later time.+-- Creates a device definition. You may provide the initial version of the device definition now or use ''CreateDeviceDefinitionVersion'' at a later time. module Network.AWS.Greengrass.CreateDeviceDefinition     (     -- * Creating a Request@@ -62,32 +62,32 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cddAmznClientToken' - The client token used to request idempotent operations.+-- * 'cddAmznClientToken' - A client token used to correlate requests and responses. ----- * 'cddInitialVersion' - Information on the initial version+-- * 'cddInitialVersion' - Information about the initial version of the device definition. ----- * 'cddName' - name of the device definition+-- * 'cddName' - The name of the device definition. createDeviceDefinition     :: CreateDeviceDefinition createDeviceDefinition =   CreateDeviceDefinition'-  { _cddAmznClientToken = Nothing-  , _cddInitialVersion = Nothing-  , _cddName = Nothing-  }+    { _cddAmznClientToken = Nothing+    , _cddInitialVersion = Nothing+    , _cddName = Nothing+    }  --- | The client token used to request idempotent operations.+-- | A client token used to correlate requests and responses. cddAmznClientToken :: Lens' CreateDeviceDefinition (Maybe Text)-cddAmznClientToken = lens _cddAmznClientToken (\ s a -> s{_cddAmznClientToken = a});+cddAmznClientToken = lens _cddAmznClientToken (\ s a -> s{_cddAmznClientToken = a}) --- | Information on the initial version+-- | Information about the initial version of the device definition. cddInitialVersion :: Lens' CreateDeviceDefinition (Maybe DeviceDefinitionVersion)-cddInitialVersion = lens _cddInitialVersion (\ s a -> s{_cddInitialVersion = a});+cddInitialVersion = lens _cddInitialVersion (\ s a -> s{_cddInitialVersion = a}) --- | name of the device definition+-- | The name of the device definition. cddName :: Lens' CreateDeviceDefinition (Maybe Text)-cddName = lens _cddName (\ s a -> s{_cddName = a});+cddName = lens _cddName (\ s a -> s{_cddName = a})  instance AWSRequest CreateDeviceDefinition where         type Rs CreateDeviceDefinition =@@ -146,19 +146,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cddrsLatestVersionARN' - Latest version arn of the definition.+-- * 'cddrsLatestVersionARN' - The ARN of the latest version of the definition. ----- * 'cddrsARN' - Arn of the definition.+-- * 'cddrsARN' - The ARN of the definition. ----- * 'cddrsName' - Name of the definition.+-- * 'cddrsName' - The name of the definition. ----- * 'cddrsCreationTimestamp' - Timestamp of when the definition was created.+-- * 'cddrsCreationTimestamp' - The time, in milliseconds since the epoch, when the definition was created. ----- * 'cddrsId' - Id of the definition.+-- * 'cddrsId' - The ID of the definition. ----- * 'cddrsLatestVersion' - Last version of the definition.+-- * 'cddrsLatestVersion' - The latest version of the definition. ----- * 'cddrsLastUpdatedTimestamp' - Last updated timestamp of the definition.+-- * 'cddrsLastUpdatedTimestamp' - The time, in milliseconds since the epoch, when the definition was last updated. -- -- * 'cddrsResponseStatus' - -- | The response status code. createDeviceDefinitionResponse@@ -166,47 +166,47 @@     -> CreateDeviceDefinitionResponse createDeviceDefinitionResponse pResponseStatus_ =   CreateDeviceDefinitionResponse'-  { _cddrsLatestVersionARN = Nothing-  , _cddrsARN = Nothing-  , _cddrsName = Nothing-  , _cddrsCreationTimestamp = Nothing-  , _cddrsId = Nothing-  , _cddrsLatestVersion = Nothing-  , _cddrsLastUpdatedTimestamp = Nothing-  , _cddrsResponseStatus = pResponseStatus_-  }+    { _cddrsLatestVersionARN = Nothing+    , _cddrsARN = Nothing+    , _cddrsName = Nothing+    , _cddrsCreationTimestamp = Nothing+    , _cddrsId = Nothing+    , _cddrsLatestVersion = Nothing+    , _cddrsLastUpdatedTimestamp = Nothing+    , _cddrsResponseStatus = pResponseStatus_+    }  --- | Latest version arn of the definition.+-- | The ARN of the latest version of the definition. cddrsLatestVersionARN :: Lens' CreateDeviceDefinitionResponse (Maybe Text)-cddrsLatestVersionARN = lens _cddrsLatestVersionARN (\ s a -> s{_cddrsLatestVersionARN = a});+cddrsLatestVersionARN = lens _cddrsLatestVersionARN (\ s a -> s{_cddrsLatestVersionARN = a}) --- | Arn of the definition.+-- | The ARN of the definition. cddrsARN :: Lens' CreateDeviceDefinitionResponse (Maybe Text)-cddrsARN = lens _cddrsARN (\ s a -> s{_cddrsARN = a});+cddrsARN = lens _cddrsARN (\ s a -> s{_cddrsARN = a}) --- | Name of the definition.+-- | The name of the definition. cddrsName :: Lens' CreateDeviceDefinitionResponse (Maybe Text)-cddrsName = lens _cddrsName (\ s a -> s{_cddrsName = a});+cddrsName = lens _cddrsName (\ s a -> s{_cddrsName = a}) --- | Timestamp of when the definition was created.+-- | The time, in milliseconds since the epoch, when the definition was created. cddrsCreationTimestamp :: Lens' CreateDeviceDefinitionResponse (Maybe Text)-cddrsCreationTimestamp = lens _cddrsCreationTimestamp (\ s a -> s{_cddrsCreationTimestamp = a});+cddrsCreationTimestamp = lens _cddrsCreationTimestamp (\ s a -> s{_cddrsCreationTimestamp = a}) --- | Id of the definition.+-- | The ID of the definition. cddrsId :: Lens' CreateDeviceDefinitionResponse (Maybe Text)-cddrsId = lens _cddrsId (\ s a -> s{_cddrsId = a});+cddrsId = lens _cddrsId (\ s a -> s{_cddrsId = a}) --- | Last version of the definition.+-- | The latest version of the definition. cddrsLatestVersion :: Lens' CreateDeviceDefinitionResponse (Maybe Text)-cddrsLatestVersion = lens _cddrsLatestVersion (\ s a -> s{_cddrsLatestVersion = a});+cddrsLatestVersion = lens _cddrsLatestVersion (\ s a -> s{_cddrsLatestVersion = a}) --- | Last updated timestamp of the definition.+-- | The time, in milliseconds since the epoch, when the definition was last updated. cddrsLastUpdatedTimestamp :: Lens' CreateDeviceDefinitionResponse (Maybe Text)-cddrsLastUpdatedTimestamp = lens _cddrsLastUpdatedTimestamp (\ s a -> s{_cddrsLastUpdatedTimestamp = a});+cddrsLastUpdatedTimestamp = lens _cddrsLastUpdatedTimestamp (\ s a -> s{_cddrsLastUpdatedTimestamp = a})  -- | -- | The response status code. cddrsResponseStatus :: Lens' CreateDeviceDefinitionResponse Int-cddrsResponseStatus = lens _cddrsResponseStatus (\ s a -> s{_cddrsResponseStatus = a});+cddrsResponseStatus = lens _cddrsResponseStatus (\ s a -> s{_cddrsResponseStatus = a})  instance NFData CreateDeviceDefinitionResponse where
gen/Network/AWS/Greengrass/CreateDeviceDefinitionVersion.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.CreateDeviceDefinitionVersion--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -59,33 +59,33 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cddvAmznClientToken' - The client token used to request idempotent operations.+-- * 'cddvAmznClientToken' - A client token used to correlate requests and responses. ----- * 'cddvDevices' - Devices in the definition version.+-- * 'cddvDevices' - A list of devices in the definition version. ----- * 'cddvDeviceDefinitionId' - device definition Id+-- * 'cddvDeviceDefinitionId' - The ID of the device definition. createDeviceDefinitionVersion     :: Text -- ^ 'cddvDeviceDefinitionId'     -> CreateDeviceDefinitionVersion createDeviceDefinitionVersion pDeviceDefinitionId_ =   CreateDeviceDefinitionVersion'-  { _cddvAmznClientToken = Nothing-  , _cddvDevices = Nothing-  , _cddvDeviceDefinitionId = pDeviceDefinitionId_-  }+    { _cddvAmznClientToken = Nothing+    , _cddvDevices = Nothing+    , _cddvDeviceDefinitionId = pDeviceDefinitionId_+    }  --- | The client token used to request idempotent operations.+-- | A client token used to correlate requests and responses. cddvAmznClientToken :: Lens' CreateDeviceDefinitionVersion (Maybe Text)-cddvAmznClientToken = lens _cddvAmznClientToken (\ s a -> s{_cddvAmznClientToken = a});+cddvAmznClientToken = lens _cddvAmznClientToken (\ s a -> s{_cddvAmznClientToken = a}) --- | Devices in the definition version.+-- | A list of devices in the definition version. cddvDevices :: Lens' CreateDeviceDefinitionVersion [Device]-cddvDevices = lens _cddvDevices (\ s a -> s{_cddvDevices = a}) . _Default . _Coerce;+cddvDevices = lens _cddvDevices (\ s a -> s{_cddvDevices = a}) . _Default . _Coerce --- | device definition Id+-- | The ID of the device definition. cddvDeviceDefinitionId :: Lens' CreateDeviceDefinitionVersion Text-cddvDeviceDefinitionId = lens _cddvDeviceDefinitionId (\ s a -> s{_cddvDeviceDefinitionId = a});+cddvDeviceDefinitionId = lens _cddvDeviceDefinitionId (\ s a -> s{_cddvDeviceDefinitionId = a})  instance AWSRequest CreateDeviceDefinitionVersion          where@@ -141,13 +141,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cddvrsARN' - Arn of the version.+-- * 'cddvrsARN' - The ARN of the version. ----- * 'cddvrsCreationTimestamp' - Timestamp of when the version was created.+-- * 'cddvrsCreationTimestamp' - The time, in milliseconds since the epoch, when the version was created. ----- * 'cddvrsVersion' - Unique Id of a version.+-- * 'cddvrsVersion' - The unique ID of the version. ----- * 'cddvrsId' - Id of the resource container.+-- * 'cddvrsId' - The ID of the version. -- -- * 'cddvrsResponseStatus' - -- | The response status code. createDeviceDefinitionVersionResponse@@ -155,33 +155,33 @@     -> CreateDeviceDefinitionVersionResponse createDeviceDefinitionVersionResponse pResponseStatus_ =   CreateDeviceDefinitionVersionResponse'-  { _cddvrsARN = Nothing-  , _cddvrsCreationTimestamp = Nothing-  , _cddvrsVersion = Nothing-  , _cddvrsId = Nothing-  , _cddvrsResponseStatus = pResponseStatus_-  }+    { _cddvrsARN = Nothing+    , _cddvrsCreationTimestamp = Nothing+    , _cddvrsVersion = Nothing+    , _cddvrsId = Nothing+    , _cddvrsResponseStatus = pResponseStatus_+    }  --- | Arn of the version.+-- | The ARN of the version. cddvrsARN :: Lens' CreateDeviceDefinitionVersionResponse (Maybe Text)-cddvrsARN = lens _cddvrsARN (\ s a -> s{_cddvrsARN = a});+cddvrsARN = lens _cddvrsARN (\ s a -> s{_cddvrsARN = a}) --- | Timestamp of when the version was created.+-- | The time, in milliseconds since the epoch, when the version was created. cddvrsCreationTimestamp :: Lens' CreateDeviceDefinitionVersionResponse (Maybe Text)-cddvrsCreationTimestamp = lens _cddvrsCreationTimestamp (\ s a -> s{_cddvrsCreationTimestamp = a});+cddvrsCreationTimestamp = lens _cddvrsCreationTimestamp (\ s a -> s{_cddvrsCreationTimestamp = a}) --- | Unique Id of a version.+-- | The unique ID of the version. cddvrsVersion :: Lens' CreateDeviceDefinitionVersionResponse (Maybe Text)-cddvrsVersion = lens _cddvrsVersion (\ s a -> s{_cddvrsVersion = a});+cddvrsVersion = lens _cddvrsVersion (\ s a -> s{_cddvrsVersion = a}) --- | Id of the resource container.+-- | The ID of the version. cddvrsId :: Lens' CreateDeviceDefinitionVersionResponse (Maybe Text)-cddvrsId = lens _cddvrsId (\ s a -> s{_cddvrsId = a});+cddvrsId = lens _cddvrsId (\ s a -> s{_cddvrsId = a})  -- | -- | The response status code. cddvrsResponseStatus :: Lens' CreateDeviceDefinitionVersionResponse Int-cddvrsResponseStatus = lens _cddvrsResponseStatus (\ s a -> s{_cddvrsResponseStatus = a});+cddvrsResponseStatus = lens _cddvrsResponseStatus (\ s a -> s{_cddvrsResponseStatus = a})  instance NFData CreateDeviceDefinitionVersionResponse          where
gen/Network/AWS/Greengrass/CreateFunctionDefinition.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.CreateFunctionDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a Lambda function definition which contains a list of Lambda functions and their configurations to be used in a group. You can create an initial version of the definition by providing a list of Lambda functions and their configurations now, or use ``CreateFunctionDefinitionVersion`` later.+-- Creates a Lambda function definition which contains a list of Lambda functions and their configurations to be used in a group. You can create an initial version of the definition by providing a list of Lambda functions and their configurations now, or use ''CreateFunctionDefinitionVersion'' later. module Network.AWS.Greengrass.CreateFunctionDefinition     (     -- * Creating a Request@@ -62,32 +62,32 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cfdAmznClientToken' - The client token used to request idempotent operations.+-- * 'cfdAmznClientToken' - A client token used to correlate requests and responses. ----- * 'cfdInitialVersion' - Information on the initial version+-- * 'cfdInitialVersion' - Information about the initial version of the function definition. ----- * 'cfdName' - name of the function definition+-- * 'cfdName' - The name of the function definition. createFunctionDefinition     :: CreateFunctionDefinition createFunctionDefinition =   CreateFunctionDefinition'-  { _cfdAmznClientToken = Nothing-  , _cfdInitialVersion = Nothing-  , _cfdName = Nothing-  }+    { _cfdAmznClientToken = Nothing+    , _cfdInitialVersion = Nothing+    , _cfdName = Nothing+    }  --- | The client token used to request idempotent operations.+-- | A client token used to correlate requests and responses. cfdAmznClientToken :: Lens' CreateFunctionDefinition (Maybe Text)-cfdAmznClientToken = lens _cfdAmznClientToken (\ s a -> s{_cfdAmznClientToken = a});+cfdAmznClientToken = lens _cfdAmznClientToken (\ s a -> s{_cfdAmznClientToken = a}) --- | Information on the initial version+-- | Information about the initial version of the function definition. cfdInitialVersion :: Lens' CreateFunctionDefinition (Maybe FunctionDefinitionVersion)-cfdInitialVersion = lens _cfdInitialVersion (\ s a -> s{_cfdInitialVersion = a});+cfdInitialVersion = lens _cfdInitialVersion (\ s a -> s{_cfdInitialVersion = a}) --- | name of the function definition+-- | The name of the function definition. cfdName :: Lens' CreateFunctionDefinition (Maybe Text)-cfdName = lens _cfdName (\ s a -> s{_cfdName = a});+cfdName = lens _cfdName (\ s a -> s{_cfdName = a})  instance AWSRequest CreateFunctionDefinition where         type Rs CreateFunctionDefinition =@@ -146,19 +146,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cfdrsLatestVersionARN' - Latest version arn of the definition.+-- * 'cfdrsLatestVersionARN' - The ARN of the latest version of the definition. ----- * 'cfdrsARN' - Arn of the definition.+-- * 'cfdrsARN' - The ARN of the definition. ----- * 'cfdrsName' - Name of the definition.+-- * 'cfdrsName' - The name of the definition. ----- * 'cfdrsCreationTimestamp' - Timestamp of when the definition was created.+-- * 'cfdrsCreationTimestamp' - The time, in milliseconds since the epoch, when the definition was created. ----- * 'cfdrsId' - Id of the definition.+-- * 'cfdrsId' - The ID of the definition. ----- * 'cfdrsLatestVersion' - Last version of the definition.+-- * 'cfdrsLatestVersion' - The latest version of the definition. ----- * 'cfdrsLastUpdatedTimestamp' - Last updated timestamp of the definition.+-- * 'cfdrsLastUpdatedTimestamp' - The time, in milliseconds since the epoch, when the definition was last updated. -- -- * 'cfdrsResponseStatus' - -- | The response status code. createFunctionDefinitionResponse@@ -166,48 +166,48 @@     -> CreateFunctionDefinitionResponse createFunctionDefinitionResponse pResponseStatus_ =   CreateFunctionDefinitionResponse'-  { _cfdrsLatestVersionARN = Nothing-  , _cfdrsARN = Nothing-  , _cfdrsName = Nothing-  , _cfdrsCreationTimestamp = Nothing-  , _cfdrsId = Nothing-  , _cfdrsLatestVersion = Nothing-  , _cfdrsLastUpdatedTimestamp = Nothing-  , _cfdrsResponseStatus = pResponseStatus_-  }+    { _cfdrsLatestVersionARN = Nothing+    , _cfdrsARN = Nothing+    , _cfdrsName = Nothing+    , _cfdrsCreationTimestamp = Nothing+    , _cfdrsId = Nothing+    , _cfdrsLatestVersion = Nothing+    , _cfdrsLastUpdatedTimestamp = Nothing+    , _cfdrsResponseStatus = pResponseStatus_+    }  --- | Latest version arn of the definition.+-- | The ARN of the latest version of the definition. cfdrsLatestVersionARN :: Lens' CreateFunctionDefinitionResponse (Maybe Text)-cfdrsLatestVersionARN = lens _cfdrsLatestVersionARN (\ s a -> s{_cfdrsLatestVersionARN = a});+cfdrsLatestVersionARN = lens _cfdrsLatestVersionARN (\ s a -> s{_cfdrsLatestVersionARN = a}) --- | Arn of the definition.+-- | The ARN of the definition. cfdrsARN :: Lens' CreateFunctionDefinitionResponse (Maybe Text)-cfdrsARN = lens _cfdrsARN (\ s a -> s{_cfdrsARN = a});+cfdrsARN = lens _cfdrsARN (\ s a -> s{_cfdrsARN = a}) --- | Name of the definition.+-- | The name of the definition. cfdrsName :: Lens' CreateFunctionDefinitionResponse (Maybe Text)-cfdrsName = lens _cfdrsName (\ s a -> s{_cfdrsName = a});+cfdrsName = lens _cfdrsName (\ s a -> s{_cfdrsName = a}) --- | Timestamp of when the definition was created.+-- | The time, in milliseconds since the epoch, when the definition was created. cfdrsCreationTimestamp :: Lens' CreateFunctionDefinitionResponse (Maybe Text)-cfdrsCreationTimestamp = lens _cfdrsCreationTimestamp (\ s a -> s{_cfdrsCreationTimestamp = a});+cfdrsCreationTimestamp = lens _cfdrsCreationTimestamp (\ s a -> s{_cfdrsCreationTimestamp = a}) --- | Id of the definition.+-- | The ID of the definition. cfdrsId :: Lens' CreateFunctionDefinitionResponse (Maybe Text)-cfdrsId = lens _cfdrsId (\ s a -> s{_cfdrsId = a});+cfdrsId = lens _cfdrsId (\ s a -> s{_cfdrsId = a}) --- | Last version of the definition.+-- | The latest version of the definition. cfdrsLatestVersion :: Lens' CreateFunctionDefinitionResponse (Maybe Text)-cfdrsLatestVersion = lens _cfdrsLatestVersion (\ s a -> s{_cfdrsLatestVersion = a});+cfdrsLatestVersion = lens _cfdrsLatestVersion (\ s a -> s{_cfdrsLatestVersion = a}) --- | Last updated timestamp of the definition.+-- | The time, in milliseconds since the epoch, when the definition was last updated. cfdrsLastUpdatedTimestamp :: Lens' CreateFunctionDefinitionResponse (Maybe Text)-cfdrsLastUpdatedTimestamp = lens _cfdrsLastUpdatedTimestamp (\ s a -> s{_cfdrsLastUpdatedTimestamp = a});+cfdrsLastUpdatedTimestamp = lens _cfdrsLastUpdatedTimestamp (\ s a -> s{_cfdrsLastUpdatedTimestamp = a})  -- | -- | The response status code. cfdrsResponseStatus :: Lens' CreateFunctionDefinitionResponse Int-cfdrsResponseStatus = lens _cfdrsResponseStatus (\ s a -> s{_cfdrsResponseStatus = a});+cfdrsResponseStatus = lens _cfdrsResponseStatus (\ s a -> s{_cfdrsResponseStatus = a})  instance NFData CreateFunctionDefinitionResponse          where
gen/Network/AWS/Greengrass/CreateFunctionDefinitionVersion.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.CreateFunctionDefinitionVersion--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Create a version of a Lambda function definition that has already been defined.+-- Creates a version of a Lambda function definition that has already been defined. module Network.AWS.Greengrass.CreateFunctionDefinitionVersion     (     -- * Creating a Request@@ -47,7 +47,7 @@ import Network.AWS.Request import Network.AWS.Response --- | Function definition version+-- | Information needed to create a function definition version. -- -- /See:/ 'createFunctionDefinitionVersion' smart constructor. data CreateFunctionDefinitionVersion = CreateFunctionDefinitionVersion'@@ -61,33 +61,33 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cfdvAmznClientToken' - The client token used to request idempotent operations.+-- * 'cfdvAmznClientToken' - A client token used to correlate requests and responses. ----- * 'cfdvFunctions' - Lambda functions in this function definition version.+-- * 'cfdvFunctions' - A list of Lambda functions in this function definition version. ----- * 'cfdvFunctionDefinitionId' - the unique Id of the lambda definition+-- * 'cfdvFunctionDefinitionId' - The ID of the Lambda function definition. createFunctionDefinitionVersion     :: Text -- ^ 'cfdvFunctionDefinitionId'     -> CreateFunctionDefinitionVersion createFunctionDefinitionVersion pFunctionDefinitionId_ =   CreateFunctionDefinitionVersion'-  { _cfdvAmznClientToken = Nothing-  , _cfdvFunctions = Nothing-  , _cfdvFunctionDefinitionId = pFunctionDefinitionId_-  }+    { _cfdvAmznClientToken = Nothing+    , _cfdvFunctions = Nothing+    , _cfdvFunctionDefinitionId = pFunctionDefinitionId_+    }  --- | The client token used to request idempotent operations.+-- | A client token used to correlate requests and responses. cfdvAmznClientToken :: Lens' CreateFunctionDefinitionVersion (Maybe Text)-cfdvAmznClientToken = lens _cfdvAmznClientToken (\ s a -> s{_cfdvAmznClientToken = a});+cfdvAmznClientToken = lens _cfdvAmznClientToken (\ s a -> s{_cfdvAmznClientToken = a}) --- | Lambda functions in this function definition version.+-- | A list of Lambda functions in this function definition version. cfdvFunctions :: Lens' CreateFunctionDefinitionVersion [Function]-cfdvFunctions = lens _cfdvFunctions (\ s a -> s{_cfdvFunctions = a}) . _Default . _Coerce;+cfdvFunctions = lens _cfdvFunctions (\ s a -> s{_cfdvFunctions = a}) . _Default . _Coerce --- | the unique Id of the lambda definition+-- | The ID of the Lambda function definition. cfdvFunctionDefinitionId :: Lens' CreateFunctionDefinitionVersion Text-cfdvFunctionDefinitionId = lens _cfdvFunctionDefinitionId (\ s a -> s{_cfdvFunctionDefinitionId = a});+cfdvFunctionDefinitionId = lens _cfdvFunctionDefinitionId (\ s a -> s{_cfdvFunctionDefinitionId = a})  instance AWSRequest CreateFunctionDefinitionVersion          where@@ -145,13 +145,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cfdvrsARN' - Arn of the version.+-- * 'cfdvrsARN' - The ARN of the version. ----- * 'cfdvrsCreationTimestamp' - Timestamp of when the version was created.+-- * 'cfdvrsCreationTimestamp' - The time, in milliseconds since the epoch, when the version was created. ----- * 'cfdvrsVersion' - Unique Id of a version.+-- * 'cfdvrsVersion' - The unique ID of the version. ----- * 'cfdvrsId' - Id of the resource container.+-- * 'cfdvrsId' - The ID of the version. -- -- * 'cfdvrsResponseStatus' - -- | The response status code. createFunctionDefinitionVersionResponse@@ -159,33 +159,33 @@     -> CreateFunctionDefinitionVersionResponse createFunctionDefinitionVersionResponse pResponseStatus_ =   CreateFunctionDefinitionVersionResponse'-  { _cfdvrsARN = Nothing-  , _cfdvrsCreationTimestamp = Nothing-  , _cfdvrsVersion = Nothing-  , _cfdvrsId = Nothing-  , _cfdvrsResponseStatus = pResponseStatus_-  }+    { _cfdvrsARN = Nothing+    , _cfdvrsCreationTimestamp = Nothing+    , _cfdvrsVersion = Nothing+    , _cfdvrsId = Nothing+    , _cfdvrsResponseStatus = pResponseStatus_+    }  --- | Arn of the version.+-- | The ARN of the version. cfdvrsARN :: Lens' CreateFunctionDefinitionVersionResponse (Maybe Text)-cfdvrsARN = lens _cfdvrsARN (\ s a -> s{_cfdvrsARN = a});+cfdvrsARN = lens _cfdvrsARN (\ s a -> s{_cfdvrsARN = a}) --- | Timestamp of when the version was created.+-- | The time, in milliseconds since the epoch, when the version was created. cfdvrsCreationTimestamp :: Lens' CreateFunctionDefinitionVersionResponse (Maybe Text)-cfdvrsCreationTimestamp = lens _cfdvrsCreationTimestamp (\ s a -> s{_cfdvrsCreationTimestamp = a});+cfdvrsCreationTimestamp = lens _cfdvrsCreationTimestamp (\ s a -> s{_cfdvrsCreationTimestamp = a}) --- | Unique Id of a version.+-- | The unique ID of the version. cfdvrsVersion :: Lens' CreateFunctionDefinitionVersionResponse (Maybe Text)-cfdvrsVersion = lens _cfdvrsVersion (\ s a -> s{_cfdvrsVersion = a});+cfdvrsVersion = lens _cfdvrsVersion (\ s a -> s{_cfdvrsVersion = a}) --- | Id of the resource container.+-- | The ID of the version. cfdvrsId :: Lens' CreateFunctionDefinitionVersionResponse (Maybe Text)-cfdvrsId = lens _cfdvrsId (\ s a -> s{_cfdvrsId = a});+cfdvrsId = lens _cfdvrsId (\ s a -> s{_cfdvrsId = a})  -- | -- | The response status code. cfdvrsResponseStatus :: Lens' CreateFunctionDefinitionVersionResponse Int-cfdvrsResponseStatus = lens _cfdvrsResponseStatus (\ s a -> s{_cfdvrsResponseStatus = a});+cfdvrsResponseStatus = lens _cfdvrsResponseStatus (\ s a -> s{_cfdvrsResponseStatus = a})  instance NFData            CreateFunctionDefinitionVersionResponse
gen/Network/AWS/Greengrass/CreateGroup.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.CreateGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a group. You may optionally provide the initial version of the group or use ''CreateGroupVersion'' at a later time.+-- Creates a group. You may provide the initial version of the group or use ''CreateGroupVersion'' at a later time. module Network.AWS.Greengrass.CreateGroup     (     -- * Creating a Request@@ -62,29 +62,32 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cgAmznClientToken' - The client token used to request idempotent operations.+-- * 'cgAmznClientToken' - A client token used to correlate requests and responses. ----- * 'cgInitialVersion' - Information on the initial version+-- * 'cgInitialVersion' - Information about the initial version of the group. ----- * 'cgName' - name of the group+-- * 'cgName' - The name of the group. createGroup     :: CreateGroup createGroup =   CreateGroup'-  {_cgAmznClientToken = Nothing, _cgInitialVersion = Nothing, _cgName = Nothing}+    { _cgAmznClientToken = Nothing+    , _cgInitialVersion = Nothing+    , _cgName = Nothing+    }  --- | The client token used to request idempotent operations.+-- | A client token used to correlate requests and responses. cgAmznClientToken :: Lens' CreateGroup (Maybe Text)-cgAmznClientToken = lens _cgAmznClientToken (\ s a -> s{_cgAmznClientToken = a});+cgAmznClientToken = lens _cgAmznClientToken (\ s a -> s{_cgAmznClientToken = a}) --- | Information on the initial version+-- | Information about the initial version of the group. cgInitialVersion :: Lens' CreateGroup (Maybe GroupVersion)-cgInitialVersion = lens _cgInitialVersion (\ s a -> s{_cgInitialVersion = a});+cgInitialVersion = lens _cgInitialVersion (\ s a -> s{_cgInitialVersion = a}) --- | name of the group+-- | The name of the group. cgName :: Lens' CreateGroup (Maybe Text)-cgName = lens _cgName (\ s a -> s{_cgName = a});+cgName = lens _cgName (\ s a -> s{_cgName = a})  instance AWSRequest CreateGroup where         type Rs CreateGroup = CreateGroupResponse@@ -142,19 +145,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cgrsLatestVersionARN' - Latest version arn of the definition.+-- * 'cgrsLatestVersionARN' - The ARN of the latest version of the definition. ----- * 'cgrsARN' - Arn of the definition.+-- * 'cgrsARN' - The ARN of the definition. ----- * 'cgrsName' - Name of the definition.+-- * 'cgrsName' - The name of the definition. ----- * 'cgrsCreationTimestamp' - Timestamp of when the definition was created.+-- * 'cgrsCreationTimestamp' - The time, in milliseconds since the epoch, when the definition was created. ----- * 'cgrsId' - Id of the definition.+-- * 'cgrsId' - The ID of the definition. ----- * 'cgrsLatestVersion' - Last version of the definition.+-- * 'cgrsLatestVersion' - The latest version of the definition. ----- * 'cgrsLastUpdatedTimestamp' - Last updated timestamp of the definition.+-- * 'cgrsLastUpdatedTimestamp' - The time, in milliseconds since the epoch, when the definition was last updated. -- -- * 'cgrsResponseStatus' - -- | The response status code. createGroupResponse@@ -162,47 +165,47 @@     -> CreateGroupResponse createGroupResponse pResponseStatus_ =   CreateGroupResponse'-  { _cgrsLatestVersionARN = Nothing-  , _cgrsARN = Nothing-  , _cgrsName = Nothing-  , _cgrsCreationTimestamp = Nothing-  , _cgrsId = Nothing-  , _cgrsLatestVersion = Nothing-  , _cgrsLastUpdatedTimestamp = Nothing-  , _cgrsResponseStatus = pResponseStatus_-  }+    { _cgrsLatestVersionARN = Nothing+    , _cgrsARN = Nothing+    , _cgrsName = Nothing+    , _cgrsCreationTimestamp = Nothing+    , _cgrsId = Nothing+    , _cgrsLatestVersion = Nothing+    , _cgrsLastUpdatedTimestamp = Nothing+    , _cgrsResponseStatus = pResponseStatus_+    }  --- | Latest version arn of the definition.+-- | The ARN of the latest version of the definition. cgrsLatestVersionARN :: Lens' CreateGroupResponse (Maybe Text)-cgrsLatestVersionARN = lens _cgrsLatestVersionARN (\ s a -> s{_cgrsLatestVersionARN = a});+cgrsLatestVersionARN = lens _cgrsLatestVersionARN (\ s a -> s{_cgrsLatestVersionARN = a}) --- | Arn of the definition.+-- | The ARN of the definition. cgrsARN :: Lens' CreateGroupResponse (Maybe Text)-cgrsARN = lens _cgrsARN (\ s a -> s{_cgrsARN = a});+cgrsARN = lens _cgrsARN (\ s a -> s{_cgrsARN = a}) --- | Name of the definition.+-- | The name of the definition. cgrsName :: Lens' CreateGroupResponse (Maybe Text)-cgrsName = lens _cgrsName (\ s a -> s{_cgrsName = a});+cgrsName = lens _cgrsName (\ s a -> s{_cgrsName = a}) --- | Timestamp of when the definition was created.+-- | The time, in milliseconds since the epoch, when the definition was created. cgrsCreationTimestamp :: Lens' CreateGroupResponse (Maybe Text)-cgrsCreationTimestamp = lens _cgrsCreationTimestamp (\ s a -> s{_cgrsCreationTimestamp = a});+cgrsCreationTimestamp = lens _cgrsCreationTimestamp (\ s a -> s{_cgrsCreationTimestamp = a}) --- | Id of the definition.+-- | The ID of the definition. cgrsId :: Lens' CreateGroupResponse (Maybe Text)-cgrsId = lens _cgrsId (\ s a -> s{_cgrsId = a});+cgrsId = lens _cgrsId (\ s a -> s{_cgrsId = a}) --- | Last version of the definition.+-- | The latest version of the definition. cgrsLatestVersion :: Lens' CreateGroupResponse (Maybe Text)-cgrsLatestVersion = lens _cgrsLatestVersion (\ s a -> s{_cgrsLatestVersion = a});+cgrsLatestVersion = lens _cgrsLatestVersion (\ s a -> s{_cgrsLatestVersion = a}) --- | Last updated timestamp of the definition.+-- | The time, in milliseconds since the epoch, when the definition was last updated. cgrsLastUpdatedTimestamp :: Lens' CreateGroupResponse (Maybe Text)-cgrsLastUpdatedTimestamp = lens _cgrsLastUpdatedTimestamp (\ s a -> s{_cgrsLastUpdatedTimestamp = a});+cgrsLastUpdatedTimestamp = lens _cgrsLastUpdatedTimestamp (\ s a -> s{_cgrsLastUpdatedTimestamp = a})  -- | -- | The response status code. cgrsResponseStatus :: Lens' CreateGroupResponse Int-cgrsResponseStatus = lens _cgrsResponseStatus (\ s a -> s{_cgrsResponseStatus = a});+cgrsResponseStatus = lens _cgrsResponseStatus (\ s a -> s{_cgrsResponseStatus = a})  instance NFData CreateGroupResponse where
gen/Network/AWS/Greengrass/CreateGroupCertificateAuthority.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.CreateGroupCertificateAuthority--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -54,24 +54,24 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cgcaAmznClientToken' - The client token used to request idempotent operations.+-- * 'cgcaAmznClientToken' - A client token used to correlate requests and responses. ----- * 'cgcaGroupId' - The unique Id of the AWS Greengrass Group+-- * 'cgcaGroupId' - The ID of the AWS Greengrass group. createGroupCertificateAuthority     :: Text -- ^ 'cgcaGroupId'     -> CreateGroupCertificateAuthority createGroupCertificateAuthority pGroupId_ =   CreateGroupCertificateAuthority'-  {_cgcaAmznClientToken = Nothing, _cgcaGroupId = pGroupId_}+    {_cgcaAmznClientToken = Nothing, _cgcaGroupId = pGroupId_}  --- | The client token used to request idempotent operations.+-- | A client token used to correlate requests and responses. cgcaAmznClientToken :: Lens' CreateGroupCertificateAuthority (Maybe Text)-cgcaAmznClientToken = lens _cgcaAmznClientToken (\ s a -> s{_cgcaAmznClientToken = a});+cgcaAmznClientToken = lens _cgcaAmznClientToken (\ s a -> s{_cgcaAmznClientToken = a}) --- | The unique Id of the AWS Greengrass Group+-- | The ID of the AWS Greengrass group. cgcaGroupId :: Lens' CreateGroupCertificateAuthority Text-cgcaGroupId = lens _cgcaGroupId (\ s a -> s{_cgcaGroupId = a});+cgcaGroupId = lens _cgcaGroupId (\ s a -> s{_cgcaGroupId = a})  instance AWSRequest CreateGroupCertificateAuthority          where@@ -122,7 +122,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cgcarsGroupCertificateAuthorityARN' - Arn of the group certificate authority.+-- * 'cgcarsGroupCertificateAuthorityARN' - The ARN of the group certificate authority. -- -- * 'cgcarsResponseStatus' - -- | The response status code. createGroupCertificateAuthorityResponse@@ -130,18 +130,18 @@     -> CreateGroupCertificateAuthorityResponse createGroupCertificateAuthorityResponse pResponseStatus_ =   CreateGroupCertificateAuthorityResponse'-  { _cgcarsGroupCertificateAuthorityARN = Nothing-  , _cgcarsResponseStatus = pResponseStatus_-  }+    { _cgcarsGroupCertificateAuthorityARN = Nothing+    , _cgcarsResponseStatus = pResponseStatus_+    }  --- | Arn of the group certificate authority.+-- | The ARN of the group certificate authority. cgcarsGroupCertificateAuthorityARN :: Lens' CreateGroupCertificateAuthorityResponse (Maybe Text)-cgcarsGroupCertificateAuthorityARN = lens _cgcarsGroupCertificateAuthorityARN (\ s a -> s{_cgcarsGroupCertificateAuthorityARN = a});+cgcarsGroupCertificateAuthorityARN = lens _cgcarsGroupCertificateAuthorityARN (\ s a -> s{_cgcarsGroupCertificateAuthorityARN = a})  -- | -- | The response status code. cgcarsResponseStatus :: Lens' CreateGroupCertificateAuthorityResponse Int-cgcarsResponseStatus = lens _cgcarsResponseStatus (\ s a -> s{_cgcarsResponseStatus = a});+cgcarsResponseStatus = lens _cgcarsResponseStatus (\ s a -> s{_cgcarsResponseStatus = a})  instance NFData            CreateGroupCertificateAuthorityResponse
gen/Network/AWS/Greengrass/CreateGroupVersion.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.CreateGroupVersion--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -26,6 +26,7 @@     , CreateGroupVersion     -- * Request Lenses     , cgvAmznClientToken+    , cgvResourceDefinitionVersionARN     , cgvSubscriptionDefinitionVersionARN     , cgvCoreDefinitionVersionARN     , cgvDeviceDefinitionVersionARN@@ -54,6 +55,7 @@ -- | /See:/ 'createGroupVersion' smart constructor. data CreateGroupVersion = CreateGroupVersion'   { _cgvAmznClientToken                  :: !(Maybe Text)+  , _cgvResourceDefinitionVersionARN     :: !(Maybe Text)   , _cgvSubscriptionDefinitionVersionARN :: !(Maybe Text)   , _cgvCoreDefinitionVersionARN         :: !(Maybe Text)   , _cgvDeviceDefinitionVersionARN       :: !(Maybe Text)@@ -67,61 +69,68 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cgvAmznClientToken' - The client token used to request idempotent operations.+-- * 'cgvAmznClientToken' - A client token used to correlate requests and responses. ----- * 'cgvSubscriptionDefinitionVersionARN' - Subscription definition version arn for this group.+-- * 'cgvResourceDefinitionVersionARN' - The resource definition version ARN for this group. ----- * 'cgvCoreDefinitionVersionARN' - Core definition version arn for this group.+-- * 'cgvSubscriptionDefinitionVersionARN' - The ARN of the subscription definition version for this group. ----- * 'cgvDeviceDefinitionVersionARN' - Device definition version arn for this group.+-- * 'cgvCoreDefinitionVersionARN' - The ARN of the core definition version for this group. ----- * 'cgvFunctionDefinitionVersionARN' - Function definition version arn for this group.+-- * 'cgvDeviceDefinitionVersionARN' - The ARN of the device definition version for this group. ----- * 'cgvLoggerDefinitionVersionARN' - Logger definitionv ersion arn for this group.+-- * 'cgvFunctionDefinitionVersionARN' - The ARN of the function definition version for this group. ----- * 'cgvGroupId' - The unique Id of the AWS Greengrass Group+-- * 'cgvLoggerDefinitionVersionARN' - The ARN of the logger definition version for this group.+--+-- * 'cgvGroupId' - The ID of the AWS Greengrass group. createGroupVersion     :: Text -- ^ 'cgvGroupId'     -> CreateGroupVersion createGroupVersion pGroupId_ =   CreateGroupVersion'-  { _cgvAmznClientToken = Nothing-  , _cgvSubscriptionDefinitionVersionARN = Nothing-  , _cgvCoreDefinitionVersionARN = Nothing-  , _cgvDeviceDefinitionVersionARN = Nothing-  , _cgvFunctionDefinitionVersionARN = Nothing-  , _cgvLoggerDefinitionVersionARN = Nothing-  , _cgvGroupId = pGroupId_-  }+    { _cgvAmznClientToken = Nothing+    , _cgvResourceDefinitionVersionARN = Nothing+    , _cgvSubscriptionDefinitionVersionARN = Nothing+    , _cgvCoreDefinitionVersionARN = Nothing+    , _cgvDeviceDefinitionVersionARN = Nothing+    , _cgvFunctionDefinitionVersionARN = Nothing+    , _cgvLoggerDefinitionVersionARN = Nothing+    , _cgvGroupId = pGroupId_+    }  --- | The client token used to request idempotent operations.+-- | A client token used to correlate requests and responses. cgvAmznClientToken :: Lens' CreateGroupVersion (Maybe Text)-cgvAmznClientToken = lens _cgvAmznClientToken (\ s a -> s{_cgvAmznClientToken = a});+cgvAmznClientToken = lens _cgvAmznClientToken (\ s a -> s{_cgvAmznClientToken = a}) --- | Subscription definition version arn for this group.+-- | The resource definition version ARN for this group.+cgvResourceDefinitionVersionARN :: Lens' CreateGroupVersion (Maybe Text)+cgvResourceDefinitionVersionARN = lens _cgvResourceDefinitionVersionARN (\ s a -> s{_cgvResourceDefinitionVersionARN = a})++-- | The ARN of the subscription definition version for this group. cgvSubscriptionDefinitionVersionARN :: Lens' CreateGroupVersion (Maybe Text)-cgvSubscriptionDefinitionVersionARN = lens _cgvSubscriptionDefinitionVersionARN (\ s a -> s{_cgvSubscriptionDefinitionVersionARN = a});+cgvSubscriptionDefinitionVersionARN = lens _cgvSubscriptionDefinitionVersionARN (\ s a -> s{_cgvSubscriptionDefinitionVersionARN = a}) --- | Core definition version arn for this group.+-- | The ARN of the core definition version for this group. cgvCoreDefinitionVersionARN :: Lens' CreateGroupVersion (Maybe Text)-cgvCoreDefinitionVersionARN = lens _cgvCoreDefinitionVersionARN (\ s a -> s{_cgvCoreDefinitionVersionARN = a});+cgvCoreDefinitionVersionARN = lens _cgvCoreDefinitionVersionARN (\ s a -> s{_cgvCoreDefinitionVersionARN = a}) --- | Device definition version arn for this group.+-- | The ARN of the device definition version for this group. cgvDeviceDefinitionVersionARN :: Lens' CreateGroupVersion (Maybe Text)-cgvDeviceDefinitionVersionARN = lens _cgvDeviceDefinitionVersionARN (\ s a -> s{_cgvDeviceDefinitionVersionARN = a});+cgvDeviceDefinitionVersionARN = lens _cgvDeviceDefinitionVersionARN (\ s a -> s{_cgvDeviceDefinitionVersionARN = a}) --- | Function definition version arn for this group.+-- | The ARN of the function definition version for this group. cgvFunctionDefinitionVersionARN :: Lens' CreateGroupVersion (Maybe Text)-cgvFunctionDefinitionVersionARN = lens _cgvFunctionDefinitionVersionARN (\ s a -> s{_cgvFunctionDefinitionVersionARN = a});+cgvFunctionDefinitionVersionARN = lens _cgvFunctionDefinitionVersionARN (\ s a -> s{_cgvFunctionDefinitionVersionARN = a}) --- | Logger definitionv ersion arn for this group.+-- | The ARN of the logger definition version for this group. cgvLoggerDefinitionVersionARN :: Lens' CreateGroupVersion (Maybe Text)-cgvLoggerDefinitionVersionARN = lens _cgvLoggerDefinitionVersionARN (\ s a -> s{_cgvLoggerDefinitionVersionARN = a});+cgvLoggerDefinitionVersionARN = lens _cgvLoggerDefinitionVersionARN (\ s a -> s{_cgvLoggerDefinitionVersionARN = a}) --- | The unique Id of the AWS Greengrass Group+-- | The ID of the AWS Greengrass group. cgvGroupId :: Lens' CreateGroupVersion Text-cgvGroupId = lens _cgvGroupId (\ s a -> s{_cgvGroupId = a});+cgvGroupId = lens _cgvGroupId (\ s a -> s{_cgvGroupId = a})  instance AWSRequest CreateGroupVersion where         type Rs CreateGroupVersion =@@ -151,7 +160,9 @@         toJSON CreateGroupVersion'{..}           = object               (catMaybes-                 [("SubscriptionDefinitionVersionArn" .=) <$>+                 [("ResourceDefinitionVersionArn" .=) <$>+                    _cgvResourceDefinitionVersionARN,+                  ("SubscriptionDefinitionVersionArn" .=) <$>                     _cgvSubscriptionDefinitionVersionARN,                   ("CoreDefinitionVersionArn" .=) <$>                     _cgvCoreDefinitionVersionARN,@@ -185,13 +196,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cgvrsARN' - Arn of the version.+-- * 'cgvrsARN' - The ARN of the version. ----- * 'cgvrsCreationTimestamp' - Timestamp of when the version was created.+-- * 'cgvrsCreationTimestamp' - The time, in milliseconds since the epoch, when the version was created. ----- * 'cgvrsVersion' - Unique Id of a version.+-- * 'cgvrsVersion' - The unique ID of the version. ----- * 'cgvrsId' - Id of the resource container.+-- * 'cgvrsId' - The ID of the version. -- -- * 'cgvrsResponseStatus' - -- | The response status code. createGroupVersionResponse@@ -199,32 +210,32 @@     -> CreateGroupVersionResponse createGroupVersionResponse pResponseStatus_ =   CreateGroupVersionResponse'-  { _cgvrsARN = Nothing-  , _cgvrsCreationTimestamp = Nothing-  , _cgvrsVersion = Nothing-  , _cgvrsId = Nothing-  , _cgvrsResponseStatus = pResponseStatus_-  }+    { _cgvrsARN = Nothing+    , _cgvrsCreationTimestamp = Nothing+    , _cgvrsVersion = Nothing+    , _cgvrsId = Nothing+    , _cgvrsResponseStatus = pResponseStatus_+    }  --- | Arn of the version.+-- | The ARN of the version. cgvrsARN :: Lens' CreateGroupVersionResponse (Maybe Text)-cgvrsARN = lens _cgvrsARN (\ s a -> s{_cgvrsARN = a});+cgvrsARN = lens _cgvrsARN (\ s a -> s{_cgvrsARN = a}) --- | Timestamp of when the version was created.+-- | The time, in milliseconds since the epoch, when the version was created. cgvrsCreationTimestamp :: Lens' CreateGroupVersionResponse (Maybe Text)-cgvrsCreationTimestamp = lens _cgvrsCreationTimestamp (\ s a -> s{_cgvrsCreationTimestamp = a});+cgvrsCreationTimestamp = lens _cgvrsCreationTimestamp (\ s a -> s{_cgvrsCreationTimestamp = a}) --- | Unique Id of a version.+-- | The unique ID of the version. cgvrsVersion :: Lens' CreateGroupVersionResponse (Maybe Text)-cgvrsVersion = lens _cgvrsVersion (\ s a -> s{_cgvrsVersion = a});+cgvrsVersion = lens _cgvrsVersion (\ s a -> s{_cgvrsVersion = a}) --- | Id of the resource container.+-- | The ID of the version. cgvrsId :: Lens' CreateGroupVersionResponse (Maybe Text)-cgvrsId = lens _cgvrsId (\ s a -> s{_cgvrsId = a});+cgvrsId = lens _cgvrsId (\ s a -> s{_cgvrsId = a})  -- | -- | The response status code. cgvrsResponseStatus :: Lens' CreateGroupVersionResponse Int-cgvrsResponseStatus = lens _cgvrsResponseStatus (\ s a -> s{_cgvrsResponseStatus = a});+cgvrsResponseStatus = lens _cgvrsResponseStatus (\ s a -> s{_cgvrsResponseStatus = a})  instance NFData CreateGroupVersionResponse where
gen/Network/AWS/Greengrass/CreateLoggerDefinition.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.CreateLoggerDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a logger definition. You may optionally provide the initial version of the logger definition or use ``CreateLoggerDefinitionVersion`` at a later time.+-- Creates a logger definition. You may provide the initial version of the logger definition now or use ''CreateLoggerDefinitionVersion'' at a later time. module Network.AWS.Greengrass.CreateLoggerDefinition     (     -- * Creating a Request@@ -62,32 +62,32 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cldAmznClientToken' - The client token used to request idempotent operations.+-- * 'cldAmznClientToken' - A client token used to correlate requests and responses. ----- * 'cldInitialVersion' - Information on the initial version+-- * 'cldInitialVersion' - Information about the initial version of the logger definition. ----- * 'cldName' - name of the logger definition+-- * 'cldName' - The name of the logger definition. createLoggerDefinition     :: CreateLoggerDefinition createLoggerDefinition =   CreateLoggerDefinition'-  { _cldAmznClientToken = Nothing-  , _cldInitialVersion = Nothing-  , _cldName = Nothing-  }+    { _cldAmznClientToken = Nothing+    , _cldInitialVersion = Nothing+    , _cldName = Nothing+    }  --- | The client token used to request idempotent operations.+-- | A client token used to correlate requests and responses. cldAmznClientToken :: Lens' CreateLoggerDefinition (Maybe Text)-cldAmznClientToken = lens _cldAmznClientToken (\ s a -> s{_cldAmznClientToken = a});+cldAmznClientToken = lens _cldAmznClientToken (\ s a -> s{_cldAmznClientToken = a}) --- | Information on the initial version+-- | Information about the initial version of the logger definition. cldInitialVersion :: Lens' CreateLoggerDefinition (Maybe LoggerDefinitionVersion)-cldInitialVersion = lens _cldInitialVersion (\ s a -> s{_cldInitialVersion = a});+cldInitialVersion = lens _cldInitialVersion (\ s a -> s{_cldInitialVersion = a}) --- | name of the logger definition+-- | The name of the logger definition. cldName :: Lens' CreateLoggerDefinition (Maybe Text)-cldName = lens _cldName (\ s a -> s{_cldName = a});+cldName = lens _cldName (\ s a -> s{_cldName = a})  instance AWSRequest CreateLoggerDefinition where         type Rs CreateLoggerDefinition =@@ -146,19 +146,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cldrsLatestVersionARN' - Latest version arn of the definition.+-- * 'cldrsLatestVersionARN' - The ARN of the latest version of the definition. ----- * 'cldrsARN' - Arn of the definition.+-- * 'cldrsARN' - The ARN of the definition. ----- * 'cldrsName' - Name of the definition.+-- * 'cldrsName' - The name of the definition. ----- * 'cldrsCreationTimestamp' - Timestamp of when the definition was created.+-- * 'cldrsCreationTimestamp' - The time, in milliseconds since the epoch, when the definition was created. ----- * 'cldrsId' - Id of the definition.+-- * 'cldrsId' - The ID of the definition. ----- * 'cldrsLatestVersion' - Last version of the definition.+-- * 'cldrsLatestVersion' - The latest version of the definition. ----- * 'cldrsLastUpdatedTimestamp' - Last updated timestamp of the definition.+-- * 'cldrsLastUpdatedTimestamp' - The time, in milliseconds since the epoch, when the definition was last updated. -- -- * 'cldrsResponseStatus' - -- | The response status code. createLoggerDefinitionResponse@@ -166,47 +166,47 @@     -> CreateLoggerDefinitionResponse createLoggerDefinitionResponse pResponseStatus_ =   CreateLoggerDefinitionResponse'-  { _cldrsLatestVersionARN = Nothing-  , _cldrsARN = Nothing-  , _cldrsName = Nothing-  , _cldrsCreationTimestamp = Nothing-  , _cldrsId = Nothing-  , _cldrsLatestVersion = Nothing-  , _cldrsLastUpdatedTimestamp = Nothing-  , _cldrsResponseStatus = pResponseStatus_-  }+    { _cldrsLatestVersionARN = Nothing+    , _cldrsARN = Nothing+    , _cldrsName = Nothing+    , _cldrsCreationTimestamp = Nothing+    , _cldrsId = Nothing+    , _cldrsLatestVersion = Nothing+    , _cldrsLastUpdatedTimestamp = Nothing+    , _cldrsResponseStatus = pResponseStatus_+    }  --- | Latest version arn of the definition.+-- | The ARN of the latest version of the definition. cldrsLatestVersionARN :: Lens' CreateLoggerDefinitionResponse (Maybe Text)-cldrsLatestVersionARN = lens _cldrsLatestVersionARN (\ s a -> s{_cldrsLatestVersionARN = a});+cldrsLatestVersionARN = lens _cldrsLatestVersionARN (\ s a -> s{_cldrsLatestVersionARN = a}) --- | Arn of the definition.+-- | The ARN of the definition. cldrsARN :: Lens' CreateLoggerDefinitionResponse (Maybe Text)-cldrsARN = lens _cldrsARN (\ s a -> s{_cldrsARN = a});+cldrsARN = lens _cldrsARN (\ s a -> s{_cldrsARN = a}) --- | Name of the definition.+-- | The name of the definition. cldrsName :: Lens' CreateLoggerDefinitionResponse (Maybe Text)-cldrsName = lens _cldrsName (\ s a -> s{_cldrsName = a});+cldrsName = lens _cldrsName (\ s a -> s{_cldrsName = a}) --- | Timestamp of when the definition was created.+-- | The time, in milliseconds since the epoch, when the definition was created. cldrsCreationTimestamp :: Lens' CreateLoggerDefinitionResponse (Maybe Text)-cldrsCreationTimestamp = lens _cldrsCreationTimestamp (\ s a -> s{_cldrsCreationTimestamp = a});+cldrsCreationTimestamp = lens _cldrsCreationTimestamp (\ s a -> s{_cldrsCreationTimestamp = a}) --- | Id of the definition.+-- | The ID of the definition. cldrsId :: Lens' CreateLoggerDefinitionResponse (Maybe Text)-cldrsId = lens _cldrsId (\ s a -> s{_cldrsId = a});+cldrsId = lens _cldrsId (\ s a -> s{_cldrsId = a}) --- | Last version of the definition.+-- | The latest version of the definition. cldrsLatestVersion :: Lens' CreateLoggerDefinitionResponse (Maybe Text)-cldrsLatestVersion = lens _cldrsLatestVersion (\ s a -> s{_cldrsLatestVersion = a});+cldrsLatestVersion = lens _cldrsLatestVersion (\ s a -> s{_cldrsLatestVersion = a}) --- | Last updated timestamp of the definition.+-- | The time, in milliseconds since the epoch, when the definition was last updated. cldrsLastUpdatedTimestamp :: Lens' CreateLoggerDefinitionResponse (Maybe Text)-cldrsLastUpdatedTimestamp = lens _cldrsLastUpdatedTimestamp (\ s a -> s{_cldrsLastUpdatedTimestamp = a});+cldrsLastUpdatedTimestamp = lens _cldrsLastUpdatedTimestamp (\ s a -> s{_cldrsLastUpdatedTimestamp = a})  -- | -- | The response status code. cldrsResponseStatus :: Lens' CreateLoggerDefinitionResponse Int-cldrsResponseStatus = lens _cldrsResponseStatus (\ s a -> s{_cldrsResponseStatus = a});+cldrsResponseStatus = lens _cldrsResponseStatus (\ s a -> s{_cldrsResponseStatus = a})  instance NFData CreateLoggerDefinitionResponse where
gen/Network/AWS/Greengrass/CreateLoggerDefinitionVersion.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.CreateLoggerDefinitionVersion--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -59,33 +59,33 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cldvLoggers' - List of loggers.+-- * 'cldvLoggers' - A list of loggers. ----- * 'cldvAmznClientToken' - The client token used to request idempotent operations.+-- * 'cldvAmznClientToken' - A client token used to correlate requests and responses. ----- * 'cldvLoggerDefinitionId' - logger definition Id+-- * 'cldvLoggerDefinitionId' - The ID of the logger definition. createLoggerDefinitionVersion     :: Text -- ^ 'cldvLoggerDefinitionId'     -> CreateLoggerDefinitionVersion createLoggerDefinitionVersion pLoggerDefinitionId_ =   CreateLoggerDefinitionVersion'-  { _cldvLoggers = Nothing-  , _cldvAmznClientToken = Nothing-  , _cldvLoggerDefinitionId = pLoggerDefinitionId_-  }+    { _cldvLoggers = Nothing+    , _cldvAmznClientToken = Nothing+    , _cldvLoggerDefinitionId = pLoggerDefinitionId_+    }  --- | List of loggers.+-- | A list of loggers. cldvLoggers :: Lens' CreateLoggerDefinitionVersion [GreengrassLogger]-cldvLoggers = lens _cldvLoggers (\ s a -> s{_cldvLoggers = a}) . _Default . _Coerce;+cldvLoggers = lens _cldvLoggers (\ s a -> s{_cldvLoggers = a}) . _Default . _Coerce --- | The client token used to request idempotent operations.+-- | A client token used to correlate requests and responses. cldvAmznClientToken :: Lens' CreateLoggerDefinitionVersion (Maybe Text)-cldvAmznClientToken = lens _cldvAmznClientToken (\ s a -> s{_cldvAmznClientToken = a});+cldvAmznClientToken = lens _cldvAmznClientToken (\ s a -> s{_cldvAmznClientToken = a}) --- | logger definition Id+-- | The ID of the logger definition. cldvLoggerDefinitionId :: Lens' CreateLoggerDefinitionVersion Text-cldvLoggerDefinitionId = lens _cldvLoggerDefinitionId (\ s a -> s{_cldvLoggerDefinitionId = a});+cldvLoggerDefinitionId = lens _cldvLoggerDefinitionId (\ s a -> s{_cldvLoggerDefinitionId = a})  instance AWSRequest CreateLoggerDefinitionVersion          where@@ -141,13 +141,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cldvrsARN' - Arn of the version.+-- * 'cldvrsARN' - The ARN of the version. ----- * 'cldvrsCreationTimestamp' - Timestamp of when the version was created.+-- * 'cldvrsCreationTimestamp' - The time, in milliseconds since the epoch, when the version was created. ----- * 'cldvrsVersion' - Unique Id of a version.+-- * 'cldvrsVersion' - The unique ID of the version. ----- * 'cldvrsId' - Id of the resource container.+-- * 'cldvrsId' - The ID of the version. -- -- * 'cldvrsResponseStatus' - -- | The response status code. createLoggerDefinitionVersionResponse@@ -155,33 +155,33 @@     -> CreateLoggerDefinitionVersionResponse createLoggerDefinitionVersionResponse pResponseStatus_ =   CreateLoggerDefinitionVersionResponse'-  { _cldvrsARN = Nothing-  , _cldvrsCreationTimestamp = Nothing-  , _cldvrsVersion = Nothing-  , _cldvrsId = Nothing-  , _cldvrsResponseStatus = pResponseStatus_-  }+    { _cldvrsARN = Nothing+    , _cldvrsCreationTimestamp = Nothing+    , _cldvrsVersion = Nothing+    , _cldvrsId = Nothing+    , _cldvrsResponseStatus = pResponseStatus_+    }  --- | Arn of the version.+-- | The ARN of the version. cldvrsARN :: Lens' CreateLoggerDefinitionVersionResponse (Maybe Text)-cldvrsARN = lens _cldvrsARN (\ s a -> s{_cldvrsARN = a});+cldvrsARN = lens _cldvrsARN (\ s a -> s{_cldvrsARN = a}) --- | Timestamp of when the version was created.+-- | The time, in milliseconds since the epoch, when the version was created. cldvrsCreationTimestamp :: Lens' CreateLoggerDefinitionVersionResponse (Maybe Text)-cldvrsCreationTimestamp = lens _cldvrsCreationTimestamp (\ s a -> s{_cldvrsCreationTimestamp = a});+cldvrsCreationTimestamp = lens _cldvrsCreationTimestamp (\ s a -> s{_cldvrsCreationTimestamp = a}) --- | Unique Id of a version.+-- | The unique ID of the version. cldvrsVersion :: Lens' CreateLoggerDefinitionVersionResponse (Maybe Text)-cldvrsVersion = lens _cldvrsVersion (\ s a -> s{_cldvrsVersion = a});+cldvrsVersion = lens _cldvrsVersion (\ s a -> s{_cldvrsVersion = a}) --- | Id of the resource container.+-- | The ID of the version. cldvrsId :: Lens' CreateLoggerDefinitionVersionResponse (Maybe Text)-cldvrsId = lens _cldvrsId (\ s a -> s{_cldvrsId = a});+cldvrsId = lens _cldvrsId (\ s a -> s{_cldvrsId = a})  -- | -- | The response status code. cldvrsResponseStatus :: Lens' CreateLoggerDefinitionVersionResponse Int-cldvrsResponseStatus = lens _cldvrsResponseStatus (\ s a -> s{_cldvrsResponseStatus = a});+cldvrsResponseStatus = lens _cldvrsResponseStatus (\ s a -> s{_cldvrsResponseStatus = a})  instance NFData CreateLoggerDefinitionVersionResponse          where
+ gen/Network/AWS/Greengrass/CreateResourceDefinition.hs view
@@ -0,0 +1,213 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Greengrass.CreateResourceDefinition+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a resource definition which contains a list of resources to be used in a group. You can create an initial version of the definition by providing a list of resources now, or use ''CreateResourceDefinitionVersion'' later.+module Network.AWS.Greengrass.CreateResourceDefinition+    (+    -- * Creating a Request+      createResourceDefinition+    , CreateResourceDefinition+    -- * Request Lenses+    , crdAmznClientToken+    , crdInitialVersion+    , crdName++    -- * Destructuring the Response+    , createResourceDefinitionResponse+    , CreateResourceDefinitionResponse+    -- * Response Lenses+    , crdrsLatestVersionARN+    , crdrsARN+    , crdrsName+    , crdrsCreationTimestamp+    , crdrsId+    , crdrsLatestVersion+    , crdrsLastUpdatedTimestamp+    , crdrsResponseStatus+    ) where++import Network.AWS.Greengrass.Types+import Network.AWS.Greengrass.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'createResourceDefinition' smart constructor.+data CreateResourceDefinition = CreateResourceDefinition'+  { _crdAmznClientToken :: !(Maybe Text)+  , _crdInitialVersion  :: !(Maybe ResourceDefinitionVersion)+  , _crdName            :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateResourceDefinition' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crdAmznClientToken' - A client token used to correlate requests and responses.+--+-- * 'crdInitialVersion' - Information about the initial version of the resource definition.+--+-- * 'crdName' - The name of the resource definition.+createResourceDefinition+    :: CreateResourceDefinition+createResourceDefinition =+  CreateResourceDefinition'+    { _crdAmznClientToken = Nothing+    , _crdInitialVersion = Nothing+    , _crdName = Nothing+    }+++-- | A client token used to correlate requests and responses.+crdAmznClientToken :: Lens' CreateResourceDefinition (Maybe Text)+crdAmznClientToken = lens _crdAmznClientToken (\ s a -> s{_crdAmznClientToken = a})++-- | Information about the initial version of the resource definition.+crdInitialVersion :: Lens' CreateResourceDefinition (Maybe ResourceDefinitionVersion)+crdInitialVersion = lens _crdInitialVersion (\ s a -> s{_crdInitialVersion = a})++-- | The name of the resource definition.+crdName :: Lens' CreateResourceDefinition (Maybe Text)+crdName = lens _crdName (\ s a -> s{_crdName = a})++instance AWSRequest CreateResourceDefinition where+        type Rs CreateResourceDefinition =+             CreateResourceDefinitionResponse+        request = postJSON greengrass+        response+          = receiveJSON+              (\ s h x ->+                 CreateResourceDefinitionResponse' <$>+                   (x .?> "LatestVersionArn") <*> (x .?> "Arn") <*>+                     (x .?> "Name")+                     <*> (x .?> "CreationTimestamp")+                     <*> (x .?> "Id")+                     <*> (x .?> "LatestVersion")+                     <*> (x .?> "LastUpdatedTimestamp")+                     <*> (pure (fromEnum s)))++instance Hashable CreateResourceDefinition where++instance NFData CreateResourceDefinition where++instance ToHeaders CreateResourceDefinition where+        toHeaders CreateResourceDefinition'{..}+          = mconcat+              ["X-Amzn-Client-Token" =# _crdAmznClientToken,+               "Content-Type" =#+                 ("application/x-amz-json-1.1" :: ByteString)]++instance ToJSON CreateResourceDefinition where+        toJSON CreateResourceDefinition'{..}+          = object+              (catMaybes+                 [("InitialVersion" .=) <$> _crdInitialVersion,+                  ("Name" .=) <$> _crdName])++instance ToPath CreateResourceDefinition where+        toPath = const "/greengrass/definition/resources"++instance ToQuery CreateResourceDefinition where+        toQuery = const mempty++-- | /See:/ 'createResourceDefinitionResponse' smart constructor.+data CreateResourceDefinitionResponse = CreateResourceDefinitionResponse'+  { _crdrsLatestVersionARN     :: !(Maybe Text)+  , _crdrsARN                  :: !(Maybe Text)+  , _crdrsName                 :: !(Maybe Text)+  , _crdrsCreationTimestamp    :: !(Maybe Text)+  , _crdrsId                   :: !(Maybe Text)+  , _crdrsLatestVersion        :: !(Maybe Text)+  , _crdrsLastUpdatedTimestamp :: !(Maybe Text)+  , _crdrsResponseStatus       :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateResourceDefinitionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crdrsLatestVersionARN' - The ARN of the latest version of the definition.+--+-- * 'crdrsARN' - The ARN of the definition.+--+-- * 'crdrsName' - The name of the definition.+--+-- * 'crdrsCreationTimestamp' - The time, in milliseconds since the epoch, when the definition was created.+--+-- * 'crdrsId' - The ID of the definition.+--+-- * 'crdrsLatestVersion' - The latest version of the definition.+--+-- * 'crdrsLastUpdatedTimestamp' - The time, in milliseconds since the epoch, when the definition was last updated.+--+-- * 'crdrsResponseStatus' - -- | The response status code.+createResourceDefinitionResponse+    :: Int -- ^ 'crdrsResponseStatus'+    -> CreateResourceDefinitionResponse+createResourceDefinitionResponse pResponseStatus_ =+  CreateResourceDefinitionResponse'+    { _crdrsLatestVersionARN = Nothing+    , _crdrsARN = Nothing+    , _crdrsName = Nothing+    , _crdrsCreationTimestamp = Nothing+    , _crdrsId = Nothing+    , _crdrsLatestVersion = Nothing+    , _crdrsLastUpdatedTimestamp = Nothing+    , _crdrsResponseStatus = pResponseStatus_+    }+++-- | The ARN of the latest version of the definition.+crdrsLatestVersionARN :: Lens' CreateResourceDefinitionResponse (Maybe Text)+crdrsLatestVersionARN = lens _crdrsLatestVersionARN (\ s a -> s{_crdrsLatestVersionARN = a})++-- | The ARN of the definition.+crdrsARN :: Lens' CreateResourceDefinitionResponse (Maybe Text)+crdrsARN = lens _crdrsARN (\ s a -> s{_crdrsARN = a})++-- | The name of the definition.+crdrsName :: Lens' CreateResourceDefinitionResponse (Maybe Text)+crdrsName = lens _crdrsName (\ s a -> s{_crdrsName = a})++-- | The time, in milliseconds since the epoch, when the definition was created.+crdrsCreationTimestamp :: Lens' CreateResourceDefinitionResponse (Maybe Text)+crdrsCreationTimestamp = lens _crdrsCreationTimestamp (\ s a -> s{_crdrsCreationTimestamp = a})++-- | The ID of the definition.+crdrsId :: Lens' CreateResourceDefinitionResponse (Maybe Text)+crdrsId = lens _crdrsId (\ s a -> s{_crdrsId = a})++-- | The latest version of the definition.+crdrsLatestVersion :: Lens' CreateResourceDefinitionResponse (Maybe Text)+crdrsLatestVersion = lens _crdrsLatestVersion (\ s a -> s{_crdrsLatestVersion = a})++-- | The time, in milliseconds since the epoch, when the definition was last updated.+crdrsLastUpdatedTimestamp :: Lens' CreateResourceDefinitionResponse (Maybe Text)+crdrsLastUpdatedTimestamp = lens _crdrsLastUpdatedTimestamp (\ s a -> s{_crdrsLastUpdatedTimestamp = a})++-- | -- | The response status code.+crdrsResponseStatus :: Lens' CreateResourceDefinitionResponse Int+crdrsResponseStatus = lens _crdrsResponseStatus (\ s a -> s{_crdrsResponseStatus = a})++instance NFData CreateResourceDefinitionResponse+         where
+ gen/Network/AWS/Greengrass/CreateResourceDefinitionVersion.hs view
@@ -0,0 +1,190 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Greengrass.CreateResourceDefinitionVersion+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a version of a resource definition that has already been defined.+module Network.AWS.Greengrass.CreateResourceDefinitionVersion+    (+    -- * Creating a Request+      createResourceDefinitionVersion+    , CreateResourceDefinitionVersion+    -- * Request Lenses+    , crdvAmznClientToken+    , crdvResources+    , crdvResourceDefinitionId++    -- * Destructuring the Response+    , createResourceDefinitionVersionResponse+    , CreateResourceDefinitionVersionResponse+    -- * Response Lenses+    , crdvrsARN+    , crdvrsCreationTimestamp+    , crdvrsVersion+    , crdvrsId+    , crdvrsResponseStatus+    ) where++import Network.AWS.Greengrass.Types+import Network.AWS.Greengrass.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'createResourceDefinitionVersion' smart constructor.+data CreateResourceDefinitionVersion = CreateResourceDefinitionVersion'+  { _crdvAmznClientToken      :: !(Maybe Text)+  , _crdvResources            :: !(Maybe [Resource])+  , _crdvResourceDefinitionId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateResourceDefinitionVersion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crdvAmznClientToken' - A client token used to correlate requests and responses.+--+-- * 'crdvResources' - A list of resources.+--+-- * 'crdvResourceDefinitionId' - The ID of the resource definition.+createResourceDefinitionVersion+    :: Text -- ^ 'crdvResourceDefinitionId'+    -> CreateResourceDefinitionVersion+createResourceDefinitionVersion pResourceDefinitionId_ =+  CreateResourceDefinitionVersion'+    { _crdvAmznClientToken = Nothing+    , _crdvResources = Nothing+    , _crdvResourceDefinitionId = pResourceDefinitionId_+    }+++-- | A client token used to correlate requests and responses.+crdvAmznClientToken :: Lens' CreateResourceDefinitionVersion (Maybe Text)+crdvAmznClientToken = lens _crdvAmznClientToken (\ s a -> s{_crdvAmznClientToken = a})++-- | A list of resources.+crdvResources :: Lens' CreateResourceDefinitionVersion [Resource]+crdvResources = lens _crdvResources (\ s a -> s{_crdvResources = a}) . _Default . _Coerce++-- | The ID of the resource definition.+crdvResourceDefinitionId :: Lens' CreateResourceDefinitionVersion Text+crdvResourceDefinitionId = lens _crdvResourceDefinitionId (\ s a -> s{_crdvResourceDefinitionId = a})++instance AWSRequest CreateResourceDefinitionVersion+         where+        type Rs CreateResourceDefinitionVersion =+             CreateResourceDefinitionVersionResponse+        request = postJSON greengrass+        response+          = receiveJSON+              (\ s h x ->+                 CreateResourceDefinitionVersionResponse' <$>+                   (x .?> "Arn") <*> (x .?> "CreationTimestamp") <*>+                     (x .?> "Version")+                     <*> (x .?> "Id")+                     <*> (pure (fromEnum s)))++instance Hashable CreateResourceDefinitionVersion+         where++instance NFData CreateResourceDefinitionVersion where++instance ToHeaders CreateResourceDefinitionVersion+         where+        toHeaders CreateResourceDefinitionVersion'{..}+          = mconcat+              ["X-Amzn-Client-Token" =# _crdvAmznClientToken,+               "Content-Type" =#+                 ("application/x-amz-json-1.1" :: ByteString)]++instance ToJSON CreateResourceDefinitionVersion where+        toJSON CreateResourceDefinitionVersion'{..}+          = object+              (catMaybes [("Resources" .=) <$> _crdvResources])++instance ToPath CreateResourceDefinitionVersion where+        toPath CreateResourceDefinitionVersion'{..}+          = mconcat+              ["/greengrass/definition/resources/",+               toBS _crdvResourceDefinitionId, "/versions"]++instance ToQuery CreateResourceDefinitionVersion+         where+        toQuery = const mempty++-- | /See:/ 'createResourceDefinitionVersionResponse' smart constructor.+data CreateResourceDefinitionVersionResponse = CreateResourceDefinitionVersionResponse'+  { _crdvrsARN               :: !(Maybe Text)+  , _crdvrsCreationTimestamp :: !(Maybe Text)+  , _crdvrsVersion           :: !(Maybe Text)+  , _crdvrsId                :: !(Maybe Text)+  , _crdvrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateResourceDefinitionVersionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crdvrsARN' - The ARN of the version.+--+-- * 'crdvrsCreationTimestamp' - The time, in milliseconds since the epoch, when the version was created.+--+-- * 'crdvrsVersion' - The unique ID of the version.+--+-- * 'crdvrsId' - The ID of the version.+--+-- * 'crdvrsResponseStatus' - -- | The response status code.+createResourceDefinitionVersionResponse+    :: Int -- ^ 'crdvrsResponseStatus'+    -> CreateResourceDefinitionVersionResponse+createResourceDefinitionVersionResponse pResponseStatus_ =+  CreateResourceDefinitionVersionResponse'+    { _crdvrsARN = Nothing+    , _crdvrsCreationTimestamp = Nothing+    , _crdvrsVersion = Nothing+    , _crdvrsId = Nothing+    , _crdvrsResponseStatus = pResponseStatus_+    }+++-- | The ARN of the version.+crdvrsARN :: Lens' CreateResourceDefinitionVersionResponse (Maybe Text)+crdvrsARN = lens _crdvrsARN (\ s a -> s{_crdvrsARN = a})++-- | The time, in milliseconds since the epoch, when the version was created.+crdvrsCreationTimestamp :: Lens' CreateResourceDefinitionVersionResponse (Maybe Text)+crdvrsCreationTimestamp = lens _crdvrsCreationTimestamp (\ s a -> s{_crdvrsCreationTimestamp = a})++-- | The unique ID of the version.+crdvrsVersion :: Lens' CreateResourceDefinitionVersionResponse (Maybe Text)+crdvrsVersion = lens _crdvrsVersion (\ s a -> s{_crdvrsVersion = a})++-- | The ID of the version.+crdvrsId :: Lens' CreateResourceDefinitionVersionResponse (Maybe Text)+crdvrsId = lens _crdvrsId (\ s a -> s{_crdvrsId = a})++-- | -- | The response status code.+crdvrsResponseStatus :: Lens' CreateResourceDefinitionVersionResponse Int+crdvrsResponseStatus = lens _crdvrsResponseStatus (\ s a -> s{_crdvrsResponseStatus = a})++instance NFData+           CreateResourceDefinitionVersionResponse+         where
+ gen/Network/AWS/Greengrass/CreateSoftwareUpdateJob.hs view
@@ -0,0 +1,205 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Greengrass.CreateSoftwareUpdateJob+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a software update for a core or group of cores (specified as an IoT thing group.) Use this to update the OTA Agent as well as the Greengrass core software. It makes use of the IoT Jobs feature which provides additional commands to manage a Greengrass core software update job.+module Network.AWS.Greengrass.CreateSoftwareUpdateJob+    (+    -- * Creating a Request+      createSoftwareUpdateJob+    , CreateSoftwareUpdateJob+    -- * Request Lenses+    , csujUpdateAgentLogLevel+    , csujAmznClientToken+    , csujSoftwareToUpdate+    , csujUpdateTargetsOperatingSystem+    , csujS3URLSignerRole+    , csujUpdateTargets+    , csujUpdateTargetsArchitecture++    -- * Destructuring the Response+    , createSoftwareUpdateJobResponse+    , CreateSoftwareUpdateJobResponse+    -- * Response Lenses+    , csujrsIotJobARN+    , csujrsIotJobId+    , csujrsResponseStatus+    ) where++import Network.AWS.Greengrass.Types+import Network.AWS.Greengrass.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'createSoftwareUpdateJob' smart constructor.+data CreateSoftwareUpdateJob = CreateSoftwareUpdateJob'+  { _csujUpdateAgentLogLevel          :: !(Maybe UpdateAgentLogLevel)+  , _csujAmznClientToken              :: !(Maybe Text)+  , _csujSoftwareToUpdate             :: !(Maybe SoftwareToUpdate)+  , _csujUpdateTargetsOperatingSystem :: !(Maybe UpdateTargetsOperatingSystem)+  , _csujS3URLSignerRole              :: !(Maybe Text)+  , _csujUpdateTargets                :: !(Maybe [Text])+  , _csujUpdateTargetsArchitecture    :: !(Maybe UpdateTargetsArchitecture)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateSoftwareUpdateJob' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csujUpdateAgentLogLevel' - Undocumented member.+--+-- * 'csujAmznClientToken' - A client token used to correlate requests and responses.+--+-- * 'csujSoftwareToUpdate' - Undocumented member.+--+-- * 'csujUpdateTargetsOperatingSystem' - Undocumented member.+--+-- * 'csujS3URLSignerRole' - Undocumented member.+--+-- * 'csujUpdateTargets' - Undocumented member.+--+-- * 'csujUpdateTargetsArchitecture' - Undocumented member.+createSoftwareUpdateJob+    :: CreateSoftwareUpdateJob+createSoftwareUpdateJob =+  CreateSoftwareUpdateJob'+    { _csujUpdateAgentLogLevel = Nothing+    , _csujAmznClientToken = Nothing+    , _csujSoftwareToUpdate = Nothing+    , _csujUpdateTargetsOperatingSystem = Nothing+    , _csujS3URLSignerRole = Nothing+    , _csujUpdateTargets = Nothing+    , _csujUpdateTargetsArchitecture = Nothing+    }+++-- | Undocumented member.+csujUpdateAgentLogLevel :: Lens' CreateSoftwareUpdateJob (Maybe UpdateAgentLogLevel)+csujUpdateAgentLogLevel = lens _csujUpdateAgentLogLevel (\ s a -> s{_csujUpdateAgentLogLevel = a})++-- | A client token used to correlate requests and responses.+csujAmznClientToken :: Lens' CreateSoftwareUpdateJob (Maybe Text)+csujAmznClientToken = lens _csujAmznClientToken (\ s a -> s{_csujAmznClientToken = a})++-- | Undocumented member.+csujSoftwareToUpdate :: Lens' CreateSoftwareUpdateJob (Maybe SoftwareToUpdate)+csujSoftwareToUpdate = lens _csujSoftwareToUpdate (\ s a -> s{_csujSoftwareToUpdate = a})++-- | Undocumented member.+csujUpdateTargetsOperatingSystem :: Lens' CreateSoftwareUpdateJob (Maybe UpdateTargetsOperatingSystem)+csujUpdateTargetsOperatingSystem = lens _csujUpdateTargetsOperatingSystem (\ s a -> s{_csujUpdateTargetsOperatingSystem = a})++-- | Undocumented member.+csujS3URLSignerRole :: Lens' CreateSoftwareUpdateJob (Maybe Text)+csujS3URLSignerRole = lens _csujS3URLSignerRole (\ s a -> s{_csujS3URLSignerRole = a})++-- | Undocumented member.+csujUpdateTargets :: Lens' CreateSoftwareUpdateJob [Text]+csujUpdateTargets = lens _csujUpdateTargets (\ s a -> s{_csujUpdateTargets = a}) . _Default . _Coerce++-- | Undocumented member.+csujUpdateTargetsArchitecture :: Lens' CreateSoftwareUpdateJob (Maybe UpdateTargetsArchitecture)+csujUpdateTargetsArchitecture = lens _csujUpdateTargetsArchitecture (\ s a -> s{_csujUpdateTargetsArchitecture = a})++instance AWSRequest CreateSoftwareUpdateJob where+        type Rs CreateSoftwareUpdateJob =+             CreateSoftwareUpdateJobResponse+        request = postJSON greengrass+        response+          = receiveJSON+              (\ s h x ->+                 CreateSoftwareUpdateJobResponse' <$>+                   (x .?> "IotJobArn") <*> (x .?> "IotJobId") <*>+                     (pure (fromEnum s)))++instance Hashable CreateSoftwareUpdateJob where++instance NFData CreateSoftwareUpdateJob where++instance ToHeaders CreateSoftwareUpdateJob where+        toHeaders CreateSoftwareUpdateJob'{..}+          = mconcat+              ["X-Amzn-Client-Token" =# _csujAmznClientToken,+               "Content-Type" =#+                 ("application/x-amz-json-1.1" :: ByteString)]++instance ToJSON CreateSoftwareUpdateJob where+        toJSON CreateSoftwareUpdateJob'{..}+          = object+              (catMaybes+                 [("UpdateAgentLogLevel" .=) <$>+                    _csujUpdateAgentLogLevel,+                  ("SoftwareToUpdate" .=) <$> _csujSoftwareToUpdate,+                  ("UpdateTargetsOperatingSystem" .=) <$>+                    _csujUpdateTargetsOperatingSystem,+                  ("S3UrlSignerRole" .=) <$> _csujS3URLSignerRole,+                  ("UpdateTargets" .=) <$> _csujUpdateTargets,+                  ("UpdateTargetsArchitecture" .=) <$>+                    _csujUpdateTargetsArchitecture])++instance ToPath CreateSoftwareUpdateJob where+        toPath = const "/greengrass/updates"++instance ToQuery CreateSoftwareUpdateJob where+        toQuery = const mempty++-- | /See:/ 'createSoftwareUpdateJobResponse' smart constructor.+data CreateSoftwareUpdateJobResponse = CreateSoftwareUpdateJobResponse'+  { _csujrsIotJobARN      :: !(Maybe Text)+  , _csujrsIotJobId       :: !(Maybe Text)+  , _csujrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateSoftwareUpdateJobResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csujrsIotJobARN' - The IoT Job ARN corresponding to this update.+--+-- * 'csujrsIotJobId' - The IoT Job Id corresponding to this update.+--+-- * 'csujrsResponseStatus' - -- | The response status code.+createSoftwareUpdateJobResponse+    :: Int -- ^ 'csujrsResponseStatus'+    -> CreateSoftwareUpdateJobResponse+createSoftwareUpdateJobResponse pResponseStatus_ =+  CreateSoftwareUpdateJobResponse'+    { _csujrsIotJobARN = Nothing+    , _csujrsIotJobId = Nothing+    , _csujrsResponseStatus = pResponseStatus_+    }+++-- | The IoT Job ARN corresponding to this update.+csujrsIotJobARN :: Lens' CreateSoftwareUpdateJobResponse (Maybe Text)+csujrsIotJobARN = lens _csujrsIotJobARN (\ s a -> s{_csujrsIotJobARN = a})++-- | The IoT Job Id corresponding to this update.+csujrsIotJobId :: Lens' CreateSoftwareUpdateJobResponse (Maybe Text)+csujrsIotJobId = lens _csujrsIotJobId (\ s a -> s{_csujrsIotJobId = a})++-- | -- | The response status code.+csujrsResponseStatus :: Lens' CreateSoftwareUpdateJobResponse Int+csujrsResponseStatus = lens _csujrsResponseStatus (\ s a -> s{_csujrsResponseStatus = a})++instance NFData CreateSoftwareUpdateJobResponse where
gen/Network/AWS/Greengrass/CreateSubscriptionDefinition.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.CreateSubscriptionDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a subscription definition. You may optionally provide the initial version of the subscription definition or use ``CreateSubscriptionDefinitionVersion`` at a later time.+-- Creates a subscription definition. You may provide the initial version of the subscription definition now or use ''CreateSubscriptionDefinitionVersion'' at a later time. module Network.AWS.Greengrass.CreateSubscriptionDefinition     (     -- * Creating a Request@@ -62,32 +62,32 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'csdAmznClientToken' - The client token used to request idempotent operations.+-- * 'csdAmznClientToken' - A client token used to correlate requests and responses. ----- * 'csdInitialVersion' - Information on the initial version+-- * 'csdInitialVersion' - Information about the initial version of the subscription definition. ----- * 'csdName' - name of the subscription definition+-- * 'csdName' - The name of the subscription definition. createSubscriptionDefinition     :: CreateSubscriptionDefinition createSubscriptionDefinition =   CreateSubscriptionDefinition'-  { _csdAmznClientToken = Nothing-  , _csdInitialVersion = Nothing-  , _csdName = Nothing-  }+    { _csdAmznClientToken = Nothing+    , _csdInitialVersion = Nothing+    , _csdName = Nothing+    }  --- | The client token used to request idempotent operations.+-- | A client token used to correlate requests and responses. csdAmznClientToken :: Lens' CreateSubscriptionDefinition (Maybe Text)-csdAmznClientToken = lens _csdAmznClientToken (\ s a -> s{_csdAmznClientToken = a});+csdAmznClientToken = lens _csdAmznClientToken (\ s a -> s{_csdAmznClientToken = a}) --- | Information on the initial version+-- | Information about the initial version of the subscription definition. csdInitialVersion :: Lens' CreateSubscriptionDefinition (Maybe SubscriptionDefinitionVersion)-csdInitialVersion = lens _csdInitialVersion (\ s a -> s{_csdInitialVersion = a});+csdInitialVersion = lens _csdInitialVersion (\ s a -> s{_csdInitialVersion = a}) --- | name of the subscription definition+-- | The name of the subscription definition. csdName :: Lens' CreateSubscriptionDefinition (Maybe Text)-csdName = lens _csdName (\ s a -> s{_csdName = a});+csdName = lens _csdName (\ s a -> s{_csdName = a})  instance AWSRequest CreateSubscriptionDefinition          where@@ -147,19 +147,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'csdrsLatestVersionARN' - Latest version arn of the definition.+-- * 'csdrsLatestVersionARN' - The ARN of the latest version of the definition. ----- * 'csdrsARN' - Arn of the definition.+-- * 'csdrsARN' - The ARN of the definition. ----- * 'csdrsName' - Name of the definition.+-- * 'csdrsName' - The name of the definition. ----- * 'csdrsCreationTimestamp' - Timestamp of when the definition was created.+-- * 'csdrsCreationTimestamp' - The time, in milliseconds since the epoch, when the definition was created. ----- * 'csdrsId' - Id of the definition.+-- * 'csdrsId' - The ID of the definition. ----- * 'csdrsLatestVersion' - Last version of the definition.+-- * 'csdrsLatestVersion' - The latest version of the definition. ----- * 'csdrsLastUpdatedTimestamp' - Last updated timestamp of the definition.+-- * 'csdrsLastUpdatedTimestamp' - The time, in milliseconds since the epoch, when the definition was last updated. -- -- * 'csdrsResponseStatus' - -- | The response status code. createSubscriptionDefinitionResponse@@ -167,48 +167,48 @@     -> CreateSubscriptionDefinitionResponse createSubscriptionDefinitionResponse pResponseStatus_ =   CreateSubscriptionDefinitionResponse'-  { _csdrsLatestVersionARN = Nothing-  , _csdrsARN = Nothing-  , _csdrsName = Nothing-  , _csdrsCreationTimestamp = Nothing-  , _csdrsId = Nothing-  , _csdrsLatestVersion = Nothing-  , _csdrsLastUpdatedTimestamp = Nothing-  , _csdrsResponseStatus = pResponseStatus_-  }+    { _csdrsLatestVersionARN = Nothing+    , _csdrsARN = Nothing+    , _csdrsName = Nothing+    , _csdrsCreationTimestamp = Nothing+    , _csdrsId = Nothing+    , _csdrsLatestVersion = Nothing+    , _csdrsLastUpdatedTimestamp = Nothing+    , _csdrsResponseStatus = pResponseStatus_+    }  --- | Latest version arn of the definition.+-- | The ARN of the latest version of the definition. csdrsLatestVersionARN :: Lens' CreateSubscriptionDefinitionResponse (Maybe Text)-csdrsLatestVersionARN = lens _csdrsLatestVersionARN (\ s a -> s{_csdrsLatestVersionARN = a});+csdrsLatestVersionARN = lens _csdrsLatestVersionARN (\ s a -> s{_csdrsLatestVersionARN = a}) --- | Arn of the definition.+-- | The ARN of the definition. csdrsARN :: Lens' CreateSubscriptionDefinitionResponse (Maybe Text)-csdrsARN = lens _csdrsARN (\ s a -> s{_csdrsARN = a});+csdrsARN = lens _csdrsARN (\ s a -> s{_csdrsARN = a}) --- | Name of the definition.+-- | The name of the definition. csdrsName :: Lens' CreateSubscriptionDefinitionResponse (Maybe Text)-csdrsName = lens _csdrsName (\ s a -> s{_csdrsName = a});+csdrsName = lens _csdrsName (\ s a -> s{_csdrsName = a}) --- | Timestamp of when the definition was created.+-- | The time, in milliseconds since the epoch, when the definition was created. csdrsCreationTimestamp :: Lens' CreateSubscriptionDefinitionResponse (Maybe Text)-csdrsCreationTimestamp = lens _csdrsCreationTimestamp (\ s a -> s{_csdrsCreationTimestamp = a});+csdrsCreationTimestamp = lens _csdrsCreationTimestamp (\ s a -> s{_csdrsCreationTimestamp = a}) --- | Id of the definition.+-- | The ID of the definition. csdrsId :: Lens' CreateSubscriptionDefinitionResponse (Maybe Text)-csdrsId = lens _csdrsId (\ s a -> s{_csdrsId = a});+csdrsId = lens _csdrsId (\ s a -> s{_csdrsId = a}) --- | Last version of the definition.+-- | The latest version of the definition. csdrsLatestVersion :: Lens' CreateSubscriptionDefinitionResponse (Maybe Text)-csdrsLatestVersion = lens _csdrsLatestVersion (\ s a -> s{_csdrsLatestVersion = a});+csdrsLatestVersion = lens _csdrsLatestVersion (\ s a -> s{_csdrsLatestVersion = a}) --- | Last updated timestamp of the definition.+-- | The time, in milliseconds since the epoch, when the definition was last updated. csdrsLastUpdatedTimestamp :: Lens' CreateSubscriptionDefinitionResponse (Maybe Text)-csdrsLastUpdatedTimestamp = lens _csdrsLastUpdatedTimestamp (\ s a -> s{_csdrsLastUpdatedTimestamp = a});+csdrsLastUpdatedTimestamp = lens _csdrsLastUpdatedTimestamp (\ s a -> s{_csdrsLastUpdatedTimestamp = a})  -- | -- | The response status code. csdrsResponseStatus :: Lens' CreateSubscriptionDefinitionResponse Int-csdrsResponseStatus = lens _csdrsResponseStatus (\ s a -> s{_csdrsResponseStatus = a});+csdrsResponseStatus = lens _csdrsResponseStatus (\ s a -> s{_csdrsResponseStatus = a})  instance NFData CreateSubscriptionDefinitionResponse          where
gen/Network/AWS/Greengrass/CreateSubscriptionDefinitionVersion.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.CreateSubscriptionDefinitionVersion--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -59,33 +59,33 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'csdvAmznClientToken' - The client token used to request idempotent operations.+-- * 'csdvAmznClientToken' - A client token used to correlate requests and responses. ----- * 'csdvSubscriptions' - Subscriptions in the version.+-- * 'csdvSubscriptions' - A list of subscriptions. ----- * 'csdvSubscriptionDefinitionId' - subscription definition Id+-- * 'csdvSubscriptionDefinitionId' - The ID of the subscription definition. createSubscriptionDefinitionVersion     :: Text -- ^ 'csdvSubscriptionDefinitionId'     -> CreateSubscriptionDefinitionVersion createSubscriptionDefinitionVersion pSubscriptionDefinitionId_ =   CreateSubscriptionDefinitionVersion'-  { _csdvAmznClientToken = Nothing-  , _csdvSubscriptions = Nothing-  , _csdvSubscriptionDefinitionId = pSubscriptionDefinitionId_-  }+    { _csdvAmznClientToken = Nothing+    , _csdvSubscriptions = Nothing+    , _csdvSubscriptionDefinitionId = pSubscriptionDefinitionId_+    }  --- | The client token used to request idempotent operations.+-- | A client token used to correlate requests and responses. csdvAmznClientToken :: Lens' CreateSubscriptionDefinitionVersion (Maybe Text)-csdvAmznClientToken = lens _csdvAmznClientToken (\ s a -> s{_csdvAmznClientToken = a});+csdvAmznClientToken = lens _csdvAmznClientToken (\ s a -> s{_csdvAmznClientToken = a}) --- | Subscriptions in the version.+-- | A list of subscriptions. csdvSubscriptions :: Lens' CreateSubscriptionDefinitionVersion [Subscription]-csdvSubscriptions = lens _csdvSubscriptions (\ s a -> s{_csdvSubscriptions = a}) . _Default . _Coerce;+csdvSubscriptions = lens _csdvSubscriptions (\ s a -> s{_csdvSubscriptions = a}) . _Default . _Coerce --- | subscription definition Id+-- | The ID of the subscription definition. csdvSubscriptionDefinitionId :: Lens' CreateSubscriptionDefinitionVersion Text-csdvSubscriptionDefinitionId = lens _csdvSubscriptionDefinitionId (\ s a -> s{_csdvSubscriptionDefinitionId = a});+csdvSubscriptionDefinitionId = lens _csdvSubscriptionDefinitionId (\ s a -> s{_csdvSubscriptionDefinitionId = a})  instance AWSRequest            CreateSubscriptionDefinitionVersion@@ -149,13 +149,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'csdvrsARN' - Arn of the version.+-- * 'csdvrsARN' - The ARN of the version. ----- * 'csdvrsCreationTimestamp' - Timestamp of when the version was created.+-- * 'csdvrsCreationTimestamp' - The time, in milliseconds since the epoch, when the version was created. ----- * 'csdvrsVersion' - Unique Id of a version.+-- * 'csdvrsVersion' - The unique ID of the version. ----- * 'csdvrsId' - Id of the resource container.+-- * 'csdvrsId' - The ID of the version. -- -- * 'csdvrsResponseStatus' - -- | The response status code. createSubscriptionDefinitionVersionResponse@@ -163,33 +163,33 @@     -> CreateSubscriptionDefinitionVersionResponse createSubscriptionDefinitionVersionResponse pResponseStatus_ =   CreateSubscriptionDefinitionVersionResponse'-  { _csdvrsARN = Nothing-  , _csdvrsCreationTimestamp = Nothing-  , _csdvrsVersion = Nothing-  , _csdvrsId = Nothing-  , _csdvrsResponseStatus = pResponseStatus_-  }+    { _csdvrsARN = Nothing+    , _csdvrsCreationTimestamp = Nothing+    , _csdvrsVersion = Nothing+    , _csdvrsId = Nothing+    , _csdvrsResponseStatus = pResponseStatus_+    }  --- | Arn of the version.+-- | The ARN of the version. csdvrsARN :: Lens' CreateSubscriptionDefinitionVersionResponse (Maybe Text)-csdvrsARN = lens _csdvrsARN (\ s a -> s{_csdvrsARN = a});+csdvrsARN = lens _csdvrsARN (\ s a -> s{_csdvrsARN = a}) --- | Timestamp of when the version was created.+-- | The time, in milliseconds since the epoch, when the version was created. csdvrsCreationTimestamp :: Lens' CreateSubscriptionDefinitionVersionResponse (Maybe Text)-csdvrsCreationTimestamp = lens _csdvrsCreationTimestamp (\ s a -> s{_csdvrsCreationTimestamp = a});+csdvrsCreationTimestamp = lens _csdvrsCreationTimestamp (\ s a -> s{_csdvrsCreationTimestamp = a}) --- | Unique Id of a version.+-- | The unique ID of the version. csdvrsVersion :: Lens' CreateSubscriptionDefinitionVersionResponse (Maybe Text)-csdvrsVersion = lens _csdvrsVersion (\ s a -> s{_csdvrsVersion = a});+csdvrsVersion = lens _csdvrsVersion (\ s a -> s{_csdvrsVersion = a}) --- | Id of the resource container.+-- | The ID of the version. csdvrsId :: Lens' CreateSubscriptionDefinitionVersionResponse (Maybe Text)-csdvrsId = lens _csdvrsId (\ s a -> s{_csdvrsId = a});+csdvrsId = lens _csdvrsId (\ s a -> s{_csdvrsId = a})  -- | -- | The response status code. csdvrsResponseStatus :: Lens' CreateSubscriptionDefinitionVersionResponse Int-csdvrsResponseStatus = lens _csdvrsResponseStatus (\ s a -> s{_csdvrsResponseStatus = a});+csdvrsResponseStatus = lens _csdvrsResponseStatus (\ s a -> s{_csdvrsResponseStatus = a})  instance NFData            CreateSubscriptionDefinitionVersionResponse
gen/Network/AWS/Greengrass/DeleteCoreDefinition.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.DeleteCoreDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes a core definition. The core definition must not have been used in a deployment.+-- Deletes a core definition. module Network.AWS.Greengrass.DeleteCoreDefinition     (     -- * Creating a Request@@ -51,7 +51,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dcdCoreDefinitionId' - core definition Id+-- * 'dcdCoreDefinitionId' - The ID of the core definition. deleteCoreDefinition     :: Text -- ^ 'dcdCoreDefinitionId'     -> DeleteCoreDefinition@@ -59,9 +59,9 @@   DeleteCoreDefinition' {_dcdCoreDefinitionId = pCoreDefinitionId_}  --- | core definition Id+-- | The ID of the core definition. dcdCoreDefinitionId :: Lens' DeleteCoreDefinition Text-dcdCoreDefinitionId = lens _dcdCoreDefinitionId (\ s a -> s{_dcdCoreDefinitionId = a});+dcdCoreDefinitionId = lens _dcdCoreDefinitionId (\ s a -> s{_dcdCoreDefinitionId = a})  instance AWSRequest DeleteCoreDefinition where         type Rs DeleteCoreDefinition =@@ -113,6 +113,6 @@  -- | -- | The response status code. dcdrsResponseStatus :: Lens' DeleteCoreDefinitionResponse Int-dcdrsResponseStatus = lens _dcdrsResponseStatus (\ s a -> s{_dcdrsResponseStatus = a});+dcdrsResponseStatus = lens _dcdrsResponseStatus (\ s a -> s{_dcdrsResponseStatus = a})  instance NFData DeleteCoreDefinitionResponse where
gen/Network/AWS/Greengrass/DeleteDeviceDefinition.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.DeleteDeviceDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes a device definition. The device definition must not have been used in a deployment.+-- Deletes a device definition. module Network.AWS.Greengrass.DeleteDeviceDefinition     (     -- * Creating a Request@@ -51,7 +51,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dddDeviceDefinitionId' - device definition Id+-- * 'dddDeviceDefinitionId' - The ID of the device definition. deleteDeviceDefinition     :: Text -- ^ 'dddDeviceDefinitionId'     -> DeleteDeviceDefinition@@ -59,9 +59,9 @@   DeleteDeviceDefinition' {_dddDeviceDefinitionId = pDeviceDefinitionId_}  --- | device definition Id+-- | The ID of the device definition. dddDeviceDefinitionId :: Lens' DeleteDeviceDefinition Text-dddDeviceDefinitionId = lens _dddDeviceDefinitionId (\ s a -> s{_dddDeviceDefinitionId = a});+dddDeviceDefinitionId = lens _dddDeviceDefinitionId (\ s a -> s{_dddDeviceDefinitionId = a})  instance AWSRequest DeleteDeviceDefinition where         type Rs DeleteDeviceDefinition =@@ -113,6 +113,6 @@  -- | -- | The response status code. dddrsResponseStatus :: Lens' DeleteDeviceDefinitionResponse Int-dddrsResponseStatus = lens _dddrsResponseStatus (\ s a -> s{_dddrsResponseStatus = a});+dddrsResponseStatus = lens _dddrsResponseStatus (\ s a -> s{_dddrsResponseStatus = a})  instance NFData DeleteDeviceDefinitionResponse where
gen/Network/AWS/Greengrass/DeleteFunctionDefinition.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.DeleteFunctionDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes a Lambda function definition. The Lambda function definition must not have been used in a deployment.+-- Deletes a Lambda function definition. module Network.AWS.Greengrass.DeleteFunctionDefinition     (     -- * Creating a Request@@ -51,7 +51,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dfdFunctionDefinitionId' - the unique Id of the lambda definition+-- * 'dfdFunctionDefinitionId' - The ID of the Lambda function definition. deleteFunctionDefinition     :: Text -- ^ 'dfdFunctionDefinitionId'     -> DeleteFunctionDefinition@@ -59,9 +59,9 @@   DeleteFunctionDefinition' {_dfdFunctionDefinitionId = pFunctionDefinitionId_}  --- | the unique Id of the lambda definition+-- | The ID of the Lambda function definition. dfdFunctionDefinitionId :: Lens' DeleteFunctionDefinition Text-dfdFunctionDefinitionId = lens _dfdFunctionDefinitionId (\ s a -> s{_dfdFunctionDefinitionId = a});+dfdFunctionDefinitionId = lens _dfdFunctionDefinitionId (\ s a -> s{_dfdFunctionDefinitionId = a})  instance AWSRequest DeleteFunctionDefinition where         type Rs DeleteFunctionDefinition =@@ -113,7 +113,7 @@  -- | -- | The response status code. dfdrsResponseStatus :: Lens' DeleteFunctionDefinitionResponse Int-dfdrsResponseStatus = lens _dfdrsResponseStatus (\ s a -> s{_dfdrsResponseStatus = a});+dfdrsResponseStatus = lens _dfdrsResponseStatus (\ s a -> s{_dfdrsResponseStatus = a})  instance NFData DeleteFunctionDefinitionResponse          where
gen/Network/AWS/Greengrass/DeleteGroup.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.DeleteGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes a group. The group must not have been used in deployment.+-- Deletes a group. module Network.AWS.Greengrass.DeleteGroup     (     -- * Creating a Request@@ -51,16 +51,16 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dgGroupId' - The unique Id of the AWS Greengrass Group+-- * 'dgGroupId' - The ID of the AWS Greengrass group. deleteGroup     :: Text -- ^ 'dgGroupId'     -> DeleteGroup deleteGroup pGroupId_ = DeleteGroup' {_dgGroupId = pGroupId_}  --- | The unique Id of the AWS Greengrass Group+-- | The ID of the AWS Greengrass group. dgGroupId :: Lens' DeleteGroup Text-dgGroupId = lens _dgGroupId (\ s a -> s{_dgGroupId = a});+dgGroupId = lens _dgGroupId (\ s a -> s{_dgGroupId = a})  instance AWSRequest DeleteGroup where         type Rs DeleteGroup = DeleteGroupResponse@@ -108,6 +108,6 @@  -- | -- | The response status code. dgrsResponseStatus :: Lens' DeleteGroupResponse Int-dgrsResponseStatus = lens _dgrsResponseStatus (\ s a -> s{_dgrsResponseStatus = a});+dgrsResponseStatus = lens _dgrsResponseStatus (\ s a -> s{_dgrsResponseStatus = a})  instance NFData DeleteGroupResponse where
gen/Network/AWS/Greengrass/DeleteLoggerDefinition.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.DeleteLoggerDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes a logger definition. The logger definition must not have been used in a deployment.+-- Deletes a logger definition. module Network.AWS.Greengrass.DeleteLoggerDefinition     (     -- * Creating a Request@@ -51,7 +51,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dldLoggerDefinitionId' - logger definition Id+-- * 'dldLoggerDefinitionId' - The ID of the logger definition. deleteLoggerDefinition     :: Text -- ^ 'dldLoggerDefinitionId'     -> DeleteLoggerDefinition@@ -59,9 +59,9 @@   DeleteLoggerDefinition' {_dldLoggerDefinitionId = pLoggerDefinitionId_}  --- | logger definition Id+-- | The ID of the logger definition. dldLoggerDefinitionId :: Lens' DeleteLoggerDefinition Text-dldLoggerDefinitionId = lens _dldLoggerDefinitionId (\ s a -> s{_dldLoggerDefinitionId = a});+dldLoggerDefinitionId = lens _dldLoggerDefinitionId (\ s a -> s{_dldLoggerDefinitionId = a})  instance AWSRequest DeleteLoggerDefinition where         type Rs DeleteLoggerDefinition =@@ -113,6 +113,6 @@  -- | -- | The response status code. dldrsResponseStatus :: Lens' DeleteLoggerDefinitionResponse Int-dldrsResponseStatus = lens _dldrsResponseStatus (\ s a -> s{_dldrsResponseStatus = a});+dldrsResponseStatus = lens _dldrsResponseStatus (\ s a -> s{_dldrsResponseStatus = a})  instance NFData DeleteLoggerDefinitionResponse where
+ gen/Network/AWS/Greengrass/DeleteResourceDefinition.hs view
@@ -0,0 +1,119 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Greengrass.DeleteResourceDefinition+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a resource definition.+module Network.AWS.Greengrass.DeleteResourceDefinition+    (+    -- * Creating a Request+      deleteResourceDefinition+    , DeleteResourceDefinition+    -- * Request Lenses+    , drdResourceDefinitionId++    -- * Destructuring the Response+    , deleteResourceDefinitionResponse+    , DeleteResourceDefinitionResponse+    -- * Response Lenses+    , drdrsResponseStatus+    ) where++import Network.AWS.Greengrass.Types+import Network.AWS.Greengrass.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteResourceDefinition' smart constructor.+newtype DeleteResourceDefinition = DeleteResourceDefinition'+  { _drdResourceDefinitionId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteResourceDefinition' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drdResourceDefinitionId' - The ID of the resource definition.+deleteResourceDefinition+    :: Text -- ^ 'drdResourceDefinitionId'+    -> DeleteResourceDefinition+deleteResourceDefinition pResourceDefinitionId_ =+  DeleteResourceDefinition' {_drdResourceDefinitionId = pResourceDefinitionId_}+++-- | The ID of the resource definition.+drdResourceDefinitionId :: Lens' DeleteResourceDefinition Text+drdResourceDefinitionId = lens _drdResourceDefinitionId (\ s a -> s{_drdResourceDefinitionId = a})++instance AWSRequest DeleteResourceDefinition where+        type Rs DeleteResourceDefinition =+             DeleteResourceDefinitionResponse+        request = delete greengrass+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteResourceDefinitionResponse' <$>+                   (pure (fromEnum s)))++instance Hashable DeleteResourceDefinition where++instance NFData DeleteResourceDefinition where++instance ToHeaders DeleteResourceDefinition where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath DeleteResourceDefinition where+        toPath DeleteResourceDefinition'{..}+          = mconcat+              ["/greengrass/definition/resources/",+               toBS _drdResourceDefinitionId]++instance ToQuery DeleteResourceDefinition where+        toQuery = const mempty++-- | /See:/ 'deleteResourceDefinitionResponse' smart constructor.+newtype DeleteResourceDefinitionResponse = DeleteResourceDefinitionResponse'+  { _drdrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteResourceDefinitionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drdrsResponseStatus' - -- | The response status code.+deleteResourceDefinitionResponse+    :: Int -- ^ 'drdrsResponseStatus'+    -> DeleteResourceDefinitionResponse+deleteResourceDefinitionResponse pResponseStatus_ =+  DeleteResourceDefinitionResponse' {_drdrsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+drdrsResponseStatus :: Lens' DeleteResourceDefinitionResponse Int+drdrsResponseStatus = lens _drdrsResponseStatus (\ s a -> s{_drdrsResponseStatus = a})++instance NFData DeleteResourceDefinitionResponse+         where
gen/Network/AWS/Greengrass/DeleteSubscriptionDefinition.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.DeleteSubscriptionDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes a subscription definition. The subscription definition must not have been used in a deployment.+-- Deletes a subscription definition. module Network.AWS.Greengrass.DeleteSubscriptionDefinition     (     -- * Creating a Request@@ -51,18 +51,18 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dsdSubscriptionDefinitionId' - subscription definition Id+-- * 'dsdSubscriptionDefinitionId' - The ID of the subscription definition. deleteSubscriptionDefinition     :: Text -- ^ 'dsdSubscriptionDefinitionId'     -> DeleteSubscriptionDefinition deleteSubscriptionDefinition pSubscriptionDefinitionId_ =   DeleteSubscriptionDefinition'-  {_dsdSubscriptionDefinitionId = pSubscriptionDefinitionId_}+    {_dsdSubscriptionDefinitionId = pSubscriptionDefinitionId_}  --- | subscription definition Id+-- | The ID of the subscription definition. dsdSubscriptionDefinitionId :: Lens' DeleteSubscriptionDefinition Text-dsdSubscriptionDefinitionId = lens _dsdSubscriptionDefinitionId (\ s a -> s{_dsdSubscriptionDefinitionId = a});+dsdSubscriptionDefinitionId = lens _dsdSubscriptionDefinitionId (\ s a -> s{_dsdSubscriptionDefinitionId = a})  instance AWSRequest DeleteSubscriptionDefinition          where@@ -111,12 +111,12 @@     -> DeleteSubscriptionDefinitionResponse deleteSubscriptionDefinitionResponse pResponseStatus_ =   DeleteSubscriptionDefinitionResponse'-  {_dsdrsResponseStatus = pResponseStatus_}+    {_dsdrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. dsdrsResponseStatus :: Lens' DeleteSubscriptionDefinitionResponse Int-dsdrsResponseStatus = lens _dsdrsResponseStatus (\ s a -> s{_dsdrsResponseStatus = a});+dsdrsResponseStatus = lens _dsdrsResponseStatus (\ s a -> s{_dsdrsResponseStatus = a})  instance NFData DeleteSubscriptionDefinitionResponse          where
gen/Network/AWS/Greengrass/DisassociateRoleFromGroup.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.DisassociateRoleFromGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -52,7 +52,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drfgGroupId' - The unique Id of the AWS Greengrass Group+-- * 'drfgGroupId' - The ID of the AWS Greengrass group. disassociateRoleFromGroup     :: Text -- ^ 'drfgGroupId'     -> DisassociateRoleFromGroup@@ -60,9 +60,9 @@   DisassociateRoleFromGroup' {_drfgGroupId = pGroupId_}  --- | The unique Id of the AWS Greengrass Group+-- | The ID of the AWS Greengrass group. drfgGroupId :: Lens' DisassociateRoleFromGroup Text-drfgGroupId = lens _drfgGroupId (\ s a -> s{_drfgGroupId = a});+drfgGroupId = lens _drfgGroupId (\ s a -> s{_drfgGroupId = a})  instance AWSRequest DisassociateRoleFromGroup where         type Rs DisassociateRoleFromGroup =@@ -104,7 +104,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drfgrsDisassociatedAt' - Time when the role was disassociated from the group.+-- * 'drfgrsDisassociatedAt' - The time, in milliseconds since the epoch, when the role was disassociated from the group. -- -- * 'drfgrsResponseStatus' - -- | The response status code. disassociateRoleFromGroupResponse@@ -112,16 +112,16 @@     -> DisassociateRoleFromGroupResponse disassociateRoleFromGroupResponse pResponseStatus_ =   DisassociateRoleFromGroupResponse'-  {_drfgrsDisassociatedAt = Nothing, _drfgrsResponseStatus = pResponseStatus_}+    {_drfgrsDisassociatedAt = Nothing, _drfgrsResponseStatus = pResponseStatus_}  --- | Time when the role was disassociated from the group.+-- | The time, in milliseconds since the epoch, when the role was disassociated from the group. drfgrsDisassociatedAt :: Lens' DisassociateRoleFromGroupResponse (Maybe Text)-drfgrsDisassociatedAt = lens _drfgrsDisassociatedAt (\ s a -> s{_drfgrsDisassociatedAt = a});+drfgrsDisassociatedAt = lens _drfgrsDisassociatedAt (\ s a -> s{_drfgrsDisassociatedAt = a})  -- | -- | The response status code. drfgrsResponseStatus :: Lens' DisassociateRoleFromGroupResponse Int-drfgrsResponseStatus = lens _drfgrsResponseStatus (\ s a -> s{_drfgrsResponseStatus = a});+drfgrsResponseStatus = lens _drfgrsResponseStatus (\ s a -> s{_drfgrsResponseStatus = a})  instance NFData DisassociateRoleFromGroupResponse          where
gen/Network/AWS/Greengrass/DisassociateServiceRoleFromAccount.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.DisassociateServiceRoleFromAccount--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Disassociates the service role from the account. Without a service role, deployments will not work.+-- Disassociates the service role from your account. Without a service role, deployments will not work. module Network.AWS.Greengrass.DisassociateServiceRoleFromAccount     (     -- * Creating a Request@@ -98,7 +98,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dsrfarsDisassociatedAt' - Time when the service role was disassociated from the account.+-- * 'dsrfarsDisassociatedAt' - The time when the service role was disassociated from the account. -- -- * 'dsrfarsResponseStatus' - -- | The response status code. disassociateServiceRoleFromAccountResponse@@ -106,16 +106,18 @@     -> DisassociateServiceRoleFromAccountResponse disassociateServiceRoleFromAccountResponse pResponseStatus_ =   DisassociateServiceRoleFromAccountResponse'-  {_dsrfarsDisassociatedAt = Nothing, _dsrfarsResponseStatus = pResponseStatus_}+    { _dsrfarsDisassociatedAt = Nothing+    , _dsrfarsResponseStatus = pResponseStatus_+    }  --- | Time when the service role was disassociated from the account.+-- | The time when the service role was disassociated from the account. dsrfarsDisassociatedAt :: Lens' DisassociateServiceRoleFromAccountResponse (Maybe Text)-dsrfarsDisassociatedAt = lens _dsrfarsDisassociatedAt (\ s a -> s{_dsrfarsDisassociatedAt = a});+dsrfarsDisassociatedAt = lens _dsrfarsDisassociatedAt (\ s a -> s{_dsrfarsDisassociatedAt = a})  -- | -- | The response status code. dsrfarsResponseStatus :: Lens' DisassociateServiceRoleFromAccountResponse Int-dsrfarsResponseStatus = lens _dsrfarsResponseStatus (\ s a -> s{_dsrfarsResponseStatus = a});+dsrfarsResponseStatus = lens _dsrfarsResponseStatus (\ s a -> s{_dsrfarsResponseStatus = a})  instance NFData            DisassociateServiceRoleFromAccountResponse
gen/Network/AWS/Greengrass/GetAssociatedRole.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.GetAssociatedRole--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -53,16 +53,16 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'garGroupId' - The unique Id of the AWS Greengrass Group+-- * 'garGroupId' - The ID of the AWS Greengrass group. getAssociatedRole     :: Text -- ^ 'garGroupId'     -> GetAssociatedRole getAssociatedRole pGroupId_ = GetAssociatedRole' {_garGroupId = pGroupId_}  --- | The unique Id of the AWS Greengrass Group+-- | The ID of the AWS Greengrass group. garGroupId :: Lens' GetAssociatedRole Text-garGroupId = lens _garGroupId (\ s a -> s{_garGroupId = a});+garGroupId = lens _garGroupId (\ s a -> s{_garGroupId = a})  instance AWSRequest GetAssociatedRole where         type Rs GetAssociatedRole = GetAssociatedRoleResponse@@ -105,9 +105,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'garrsAssociatedAt' - Time when the role was associated for the group.+-- * 'garrsAssociatedAt' - The time when the role was associated with the group. ----- * 'garrsRoleARN' - Arn of the role that is associated with the group.+-- * 'garrsRoleARN' - The ARN of the role that is associated with the group. -- -- * 'garrsResponseStatus' - -- | The response status code. getAssociatedRoleResponse@@ -115,22 +115,22 @@     -> GetAssociatedRoleResponse getAssociatedRoleResponse pResponseStatus_ =   GetAssociatedRoleResponse'-  { _garrsAssociatedAt = Nothing-  , _garrsRoleARN = Nothing-  , _garrsResponseStatus = pResponseStatus_-  }+    { _garrsAssociatedAt = Nothing+    , _garrsRoleARN = Nothing+    , _garrsResponseStatus = pResponseStatus_+    }  --- | Time when the role was associated for the group.+-- | The time when the role was associated with the group. garrsAssociatedAt :: Lens' GetAssociatedRoleResponse (Maybe Text)-garrsAssociatedAt = lens _garrsAssociatedAt (\ s a -> s{_garrsAssociatedAt = a});+garrsAssociatedAt = lens _garrsAssociatedAt (\ s a -> s{_garrsAssociatedAt = a}) --- | Arn of the role that is associated with the group.+-- | The ARN of the role that is associated with the group. garrsRoleARN :: Lens' GetAssociatedRoleResponse (Maybe Text)-garrsRoleARN = lens _garrsRoleARN (\ s a -> s{_garrsRoleARN = a});+garrsRoleARN = lens _garrsRoleARN (\ s a -> s{_garrsRoleARN = a})  -- | -- | The response status code. garrsResponseStatus :: Lens' GetAssociatedRoleResponse Int-garrsResponseStatus = lens _garrsResponseStatus (\ s a -> s{_garrsResponseStatus = a});+garrsResponseStatus = lens _garrsResponseStatus (\ s a -> s{_garrsResponseStatus = a})  instance NFData GetAssociatedRoleResponse where
gen/Network/AWS/Greengrass/GetConnectivityInfo.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.GetConnectivityInfo--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -53,7 +53,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gciThingName' - Thing Name+-- * 'gciThingName' - The thing name. getConnectivityInfo     :: Text -- ^ 'gciThingName'     -> GetConnectivityInfo@@ -61,9 +61,9 @@   GetConnectivityInfo' {_gciThingName = pThingName_}  --- | Thing Name+-- | The thing name. gciThingName :: Lens' GetConnectivityInfo Text-gciThingName = lens _gciThingName (\ s a -> s{_gciThingName = a});+gciThingName = lens _gciThingName (\ s a -> s{_gciThingName = a})  instance AWSRequest GetConnectivityInfo where         type Rs GetConnectivityInfo =@@ -109,9 +109,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gcirsMessage' - Response Text+-- * 'gcirsMessage' - A message about the connectivity info request. ----- * 'gcirsConnectivityInfo' - Connectivity info list+-- * 'gcirsConnectivityInfo' - Connectivity info list. -- -- * 'gcirsResponseStatus' - -- | The response status code. getConnectivityInfoResponse@@ -119,22 +119,22 @@     -> GetConnectivityInfoResponse getConnectivityInfoResponse pResponseStatus_ =   GetConnectivityInfoResponse'-  { _gcirsMessage = Nothing-  , _gcirsConnectivityInfo = Nothing-  , _gcirsResponseStatus = pResponseStatus_-  }+    { _gcirsMessage = Nothing+    , _gcirsConnectivityInfo = Nothing+    , _gcirsResponseStatus = pResponseStatus_+    }  --- | Response Text+-- | A message about the connectivity info request. gcirsMessage :: Lens' GetConnectivityInfoResponse (Maybe Text)-gcirsMessage = lens _gcirsMessage (\ s a -> s{_gcirsMessage = a});+gcirsMessage = lens _gcirsMessage (\ s a -> s{_gcirsMessage = a}) --- | Connectivity info list+-- | Connectivity info list. gcirsConnectivityInfo :: Lens' GetConnectivityInfoResponse [ConnectivityInfo]-gcirsConnectivityInfo = lens _gcirsConnectivityInfo (\ s a -> s{_gcirsConnectivityInfo = a}) . _Default . _Coerce;+gcirsConnectivityInfo = lens _gcirsConnectivityInfo (\ s a -> s{_gcirsConnectivityInfo = a}) . _Default . _Coerce  -- | -- | The response status code. gcirsResponseStatus :: Lens' GetConnectivityInfoResponse Int-gcirsResponseStatus = lens _gcirsResponseStatus (\ s a -> s{_gcirsResponseStatus = a});+gcirsResponseStatus = lens _gcirsResponseStatus (\ s a -> s{_gcirsResponseStatus = a})  instance NFData GetConnectivityInfoResponse where
gen/Network/AWS/Greengrass/GetCoreDefinition.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.GetCoreDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gcdCoreDefinitionId' - core definition Id+-- * 'gcdCoreDefinitionId' - The ID of the core definition. getCoreDefinition     :: Text -- ^ 'gcdCoreDefinitionId'     -> GetCoreDefinition@@ -66,9 +66,9 @@   GetCoreDefinition' {_gcdCoreDefinitionId = pCoreDefinitionId_}  --- | core definition Id+-- | The ID of the core definition. gcdCoreDefinitionId :: Lens' GetCoreDefinition Text-gcdCoreDefinitionId = lens _gcdCoreDefinitionId (\ s a -> s{_gcdCoreDefinitionId = a});+gcdCoreDefinitionId = lens _gcdCoreDefinitionId (\ s a -> s{_gcdCoreDefinitionId = a})  instance AWSRequest GetCoreDefinition where         type Rs GetCoreDefinition = GetCoreDefinitionResponse@@ -122,19 +122,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gcdrsLatestVersionARN' - Latest version arn of the definition.+-- * 'gcdrsLatestVersionARN' - The ARN of the latest version of the definition. ----- * 'gcdrsARN' - Arn of the definition.+-- * 'gcdrsARN' - The ARN of the definition. ----- * 'gcdrsName' - Name of the definition.+-- * 'gcdrsName' - The name of the definition. ----- * 'gcdrsCreationTimestamp' - Timestamp of when the definition was created.+-- * 'gcdrsCreationTimestamp' - The time, in milliseconds since the epoch, when the definition was created. ----- * 'gcdrsId' - Id of the definition.+-- * 'gcdrsId' - The ID of the definition. ----- * 'gcdrsLatestVersion' - Last version of the definition.+-- * 'gcdrsLatestVersion' - The latest version of the definition. ----- * 'gcdrsLastUpdatedTimestamp' - Last updated timestamp of the definition.+-- * 'gcdrsLastUpdatedTimestamp' - The time, in milliseconds since the epoch, when the definition was last updated. -- -- * 'gcdrsResponseStatus' - -- | The response status code. getCoreDefinitionResponse@@ -142,47 +142,47 @@     -> GetCoreDefinitionResponse getCoreDefinitionResponse pResponseStatus_ =   GetCoreDefinitionResponse'-  { _gcdrsLatestVersionARN = Nothing-  , _gcdrsARN = Nothing-  , _gcdrsName = Nothing-  , _gcdrsCreationTimestamp = Nothing-  , _gcdrsId = Nothing-  , _gcdrsLatestVersion = Nothing-  , _gcdrsLastUpdatedTimestamp = Nothing-  , _gcdrsResponseStatus = pResponseStatus_-  }+    { _gcdrsLatestVersionARN = Nothing+    , _gcdrsARN = Nothing+    , _gcdrsName = Nothing+    , _gcdrsCreationTimestamp = Nothing+    , _gcdrsId = Nothing+    , _gcdrsLatestVersion = Nothing+    , _gcdrsLastUpdatedTimestamp = Nothing+    , _gcdrsResponseStatus = pResponseStatus_+    }  --- | Latest version arn of the definition.+-- | The ARN of the latest version of the definition. gcdrsLatestVersionARN :: Lens' GetCoreDefinitionResponse (Maybe Text)-gcdrsLatestVersionARN = lens _gcdrsLatestVersionARN (\ s a -> s{_gcdrsLatestVersionARN = a});+gcdrsLatestVersionARN = lens _gcdrsLatestVersionARN (\ s a -> s{_gcdrsLatestVersionARN = a}) --- | Arn of the definition.+-- | The ARN of the definition. gcdrsARN :: Lens' GetCoreDefinitionResponse (Maybe Text)-gcdrsARN = lens _gcdrsARN (\ s a -> s{_gcdrsARN = a});+gcdrsARN = lens _gcdrsARN (\ s a -> s{_gcdrsARN = a}) --- | Name of the definition.+-- | The name of the definition. gcdrsName :: Lens' GetCoreDefinitionResponse (Maybe Text)-gcdrsName = lens _gcdrsName (\ s a -> s{_gcdrsName = a});+gcdrsName = lens _gcdrsName (\ s a -> s{_gcdrsName = a}) --- | Timestamp of when the definition was created.+-- | The time, in milliseconds since the epoch, when the definition was created. gcdrsCreationTimestamp :: Lens' GetCoreDefinitionResponse (Maybe Text)-gcdrsCreationTimestamp = lens _gcdrsCreationTimestamp (\ s a -> s{_gcdrsCreationTimestamp = a});+gcdrsCreationTimestamp = lens _gcdrsCreationTimestamp (\ s a -> s{_gcdrsCreationTimestamp = a}) --- | Id of the definition.+-- | The ID of the definition. gcdrsId :: Lens' GetCoreDefinitionResponse (Maybe Text)-gcdrsId = lens _gcdrsId (\ s a -> s{_gcdrsId = a});+gcdrsId = lens _gcdrsId (\ s a -> s{_gcdrsId = a}) --- | Last version of the definition.+-- | The latest version of the definition. gcdrsLatestVersion :: Lens' GetCoreDefinitionResponse (Maybe Text)-gcdrsLatestVersion = lens _gcdrsLatestVersion (\ s a -> s{_gcdrsLatestVersion = a});+gcdrsLatestVersion = lens _gcdrsLatestVersion (\ s a -> s{_gcdrsLatestVersion = a}) --- | Last updated timestamp of the definition.+-- | The time, in milliseconds since the epoch, when the definition was last updated. gcdrsLastUpdatedTimestamp :: Lens' GetCoreDefinitionResponse (Maybe Text)-gcdrsLastUpdatedTimestamp = lens _gcdrsLastUpdatedTimestamp (\ s a -> s{_gcdrsLastUpdatedTimestamp = a});+gcdrsLastUpdatedTimestamp = lens _gcdrsLastUpdatedTimestamp (\ s a -> s{_gcdrsLastUpdatedTimestamp = a})  -- | -- | The response status code. gcdrsResponseStatus :: Lens' GetCoreDefinitionResponse Int-gcdrsResponseStatus = lens _gcdrsResponseStatus (\ s a -> s{_gcdrsResponseStatus = a});+gcdrsResponseStatus = lens _gcdrsResponseStatus (\ s a -> s{_gcdrsResponseStatus = a})  instance NFData GetCoreDefinitionResponse where
gen/Network/AWS/Greengrass/GetCoreDefinitionVersion.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.GetCoreDefinitionVersion--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -58,27 +58,27 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gcdvCoreDefinitionId' - core definition Id+-- * 'gcdvCoreDefinitionId' - The ID of the core definition. ----- * 'gcdvCoreDefinitionVersionId' - core definition version Id+-- * 'gcdvCoreDefinitionVersionId' - The ID of the core definition version. getCoreDefinitionVersion     :: Text -- ^ 'gcdvCoreDefinitionId'     -> Text -- ^ 'gcdvCoreDefinitionVersionId'     -> GetCoreDefinitionVersion getCoreDefinitionVersion pCoreDefinitionId_ pCoreDefinitionVersionId_ =   GetCoreDefinitionVersion'-  { _gcdvCoreDefinitionId = pCoreDefinitionId_-  , _gcdvCoreDefinitionVersionId = pCoreDefinitionVersionId_-  }+    { _gcdvCoreDefinitionId = pCoreDefinitionId_+    , _gcdvCoreDefinitionVersionId = pCoreDefinitionVersionId_+    }  --- | core definition Id+-- | The ID of the core definition. gcdvCoreDefinitionId :: Lens' GetCoreDefinitionVersion Text-gcdvCoreDefinitionId = lens _gcdvCoreDefinitionId (\ s a -> s{_gcdvCoreDefinitionId = a});+gcdvCoreDefinitionId = lens _gcdvCoreDefinitionId (\ s a -> s{_gcdvCoreDefinitionId = a}) --- | core definition version Id+-- | The ID of the core definition version. gcdvCoreDefinitionVersionId :: Lens' GetCoreDefinitionVersion Text-gcdvCoreDefinitionVersionId = lens _gcdvCoreDefinitionVersionId (\ s a -> s{_gcdvCoreDefinitionVersionId = a});+gcdvCoreDefinitionVersionId = lens _gcdvCoreDefinitionVersionId (\ s a -> s{_gcdvCoreDefinitionVersionId = a})  instance AWSRequest GetCoreDefinitionVersion where         type Rs GetCoreDefinitionVersion =@@ -130,15 +130,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gcdvrsDefinition' - Information on definition+-- * 'gcdvrsDefinition' - Information about the core definition version. ----- * 'gcdvrsARN' - Arn of the core definition version.+-- * 'gcdvrsARN' - The ARN of the core definition version. ----- * 'gcdvrsCreationTimestamp' - Timestamp of when the core definition version was created.+-- * 'gcdvrsCreationTimestamp' - The time, in milliseconds since the epoch, when the core definition version was created. ----- * 'gcdvrsVersion' - Version of the core definition version.+-- * 'gcdvrsVersion' - The version of the core definition version. ----- * 'gcdvrsId' - Id of the core definition the version belongs to.+-- * 'gcdvrsId' - The ID of the core definition version. -- -- * 'gcdvrsResponseStatus' - -- | The response status code. getCoreDefinitionVersionResponse@@ -146,38 +146,38 @@     -> GetCoreDefinitionVersionResponse getCoreDefinitionVersionResponse pResponseStatus_ =   GetCoreDefinitionVersionResponse'-  { _gcdvrsDefinition = Nothing-  , _gcdvrsARN = Nothing-  , _gcdvrsCreationTimestamp = Nothing-  , _gcdvrsVersion = Nothing-  , _gcdvrsId = Nothing-  , _gcdvrsResponseStatus = pResponseStatus_-  }+    { _gcdvrsDefinition = Nothing+    , _gcdvrsARN = Nothing+    , _gcdvrsCreationTimestamp = Nothing+    , _gcdvrsVersion = Nothing+    , _gcdvrsId = Nothing+    , _gcdvrsResponseStatus = pResponseStatus_+    }  --- | Information on definition+-- | Information about the core definition version. gcdvrsDefinition :: Lens' GetCoreDefinitionVersionResponse (Maybe CoreDefinitionVersion)-gcdvrsDefinition = lens _gcdvrsDefinition (\ s a -> s{_gcdvrsDefinition = a});+gcdvrsDefinition = lens _gcdvrsDefinition (\ s a -> s{_gcdvrsDefinition = a}) --- | Arn of the core definition version.+-- | The ARN of the core definition version. gcdvrsARN :: Lens' GetCoreDefinitionVersionResponse (Maybe Text)-gcdvrsARN = lens _gcdvrsARN (\ s a -> s{_gcdvrsARN = a});+gcdvrsARN = lens _gcdvrsARN (\ s a -> s{_gcdvrsARN = a}) --- | Timestamp of when the core definition version was created.+-- | The time, in milliseconds since the epoch, when the core definition version was created. gcdvrsCreationTimestamp :: Lens' GetCoreDefinitionVersionResponse (Maybe Text)-gcdvrsCreationTimestamp = lens _gcdvrsCreationTimestamp (\ s a -> s{_gcdvrsCreationTimestamp = a});+gcdvrsCreationTimestamp = lens _gcdvrsCreationTimestamp (\ s a -> s{_gcdvrsCreationTimestamp = a}) --- | Version of the core definition version.+-- | The version of the core definition version. gcdvrsVersion :: Lens' GetCoreDefinitionVersionResponse (Maybe Text)-gcdvrsVersion = lens _gcdvrsVersion (\ s a -> s{_gcdvrsVersion = a});+gcdvrsVersion = lens _gcdvrsVersion (\ s a -> s{_gcdvrsVersion = a}) --- | Id of the core definition the version belongs to.+-- | The ID of the core definition version. gcdvrsId :: Lens' GetCoreDefinitionVersionResponse (Maybe Text)-gcdvrsId = lens _gcdvrsId (\ s a -> s{_gcdvrsId = a});+gcdvrsId = lens _gcdvrsId (\ s a -> s{_gcdvrsId = a})  -- | -- | The response status code. gcdvrsResponseStatus :: Lens' GetCoreDefinitionVersionResponse Int-gcdvrsResponseStatus = lens _gcdvrsResponseStatus (\ s a -> s{_gcdvrsResponseStatus = a});+gcdvrsResponseStatus = lens _gcdvrsResponseStatus (\ s a -> s{_gcdvrsResponseStatus = a})  instance NFData GetCoreDefinitionVersionResponse          where
gen/Network/AWS/Greengrass/GetDeploymentStatus.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.GetDeploymentStatus--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -58,25 +58,25 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gdsGroupId' - The unique Id of the AWS Greengrass Group+-- * 'gdsGroupId' - The ID of the AWS Greengrass group. ----- * 'gdsDeploymentId' - the deployment Id+-- * 'gdsDeploymentId' - The ID of the deployment. getDeploymentStatus     :: Text -- ^ 'gdsGroupId'     -> Text -- ^ 'gdsDeploymentId'     -> GetDeploymentStatus getDeploymentStatus pGroupId_ pDeploymentId_ =   GetDeploymentStatus'-  {_gdsGroupId = pGroupId_, _gdsDeploymentId = pDeploymentId_}+    {_gdsGroupId = pGroupId_, _gdsDeploymentId = pDeploymentId_}  --- | The unique Id of the AWS Greengrass Group+-- | The ID of the AWS Greengrass group. gdsGroupId :: Lens' GetDeploymentStatus Text-gdsGroupId = lens _gdsGroupId (\ s a -> s{_gdsGroupId = a});+gdsGroupId = lens _gdsGroupId (\ s a -> s{_gdsGroupId = a}) --- | the deployment Id+-- | The ID of the deployment. gdsDeploymentId :: Lens' GetDeploymentStatus Text-gdsDeploymentId = lens _gdsDeploymentId (\ s a -> s{_gdsDeploymentId = a});+gdsDeploymentId = lens _gdsDeploymentId (\ s a -> s{_gdsDeploymentId = a})  instance AWSRequest GetDeploymentStatus where         type Rs GetDeploymentStatus =@@ -130,13 +130,13 @@ -- -- * 'gdsrsDeploymentType' - The type of the deployment. ----- * 'gdsrsErrorDetails' - The error Details+-- * 'gdsrsErrorDetails' - Error details ----- * 'gdsrsDeploymentStatus' - Status of the deployment.+-- * 'gdsrsDeploymentStatus' - The status of the deployment. ----- * 'gdsrsUpdatedAt' - Last time the deployment status was updated.+-- * 'gdsrsUpdatedAt' - The time, in milliseconds since the epoch, when the deployment status was updated. ----- * 'gdsrsErrorMessage' - Error Message+-- * 'gdsrsErrorMessage' - Error message -- -- * 'gdsrsResponseStatus' - -- | The response status code. getDeploymentStatusResponse@@ -144,37 +144,37 @@     -> GetDeploymentStatusResponse getDeploymentStatusResponse pResponseStatus_ =   GetDeploymentStatusResponse'-  { _gdsrsDeploymentType = Nothing-  , _gdsrsErrorDetails = Nothing-  , _gdsrsDeploymentStatus = Nothing-  , _gdsrsUpdatedAt = Nothing-  , _gdsrsErrorMessage = Nothing-  , _gdsrsResponseStatus = pResponseStatus_-  }+    { _gdsrsDeploymentType = Nothing+    , _gdsrsErrorDetails = Nothing+    , _gdsrsDeploymentStatus = Nothing+    , _gdsrsUpdatedAt = Nothing+    , _gdsrsErrorMessage = Nothing+    , _gdsrsResponseStatus = pResponseStatus_+    }   -- | The type of the deployment. gdsrsDeploymentType :: Lens' GetDeploymentStatusResponse (Maybe DeploymentType)-gdsrsDeploymentType = lens _gdsrsDeploymentType (\ s a -> s{_gdsrsDeploymentType = a});+gdsrsDeploymentType = lens _gdsrsDeploymentType (\ s a -> s{_gdsrsDeploymentType = a}) --- | The error Details+-- | Error details gdsrsErrorDetails :: Lens' GetDeploymentStatusResponse [ErrorDetail]-gdsrsErrorDetails = lens _gdsrsErrorDetails (\ s a -> s{_gdsrsErrorDetails = a}) . _Default . _Coerce;+gdsrsErrorDetails = lens _gdsrsErrorDetails (\ s a -> s{_gdsrsErrorDetails = a}) . _Default . _Coerce --- | Status of the deployment.+-- | The status of the deployment. gdsrsDeploymentStatus :: Lens' GetDeploymentStatusResponse (Maybe Text)-gdsrsDeploymentStatus = lens _gdsrsDeploymentStatus (\ s a -> s{_gdsrsDeploymentStatus = a});+gdsrsDeploymentStatus = lens _gdsrsDeploymentStatus (\ s a -> s{_gdsrsDeploymentStatus = a}) --- | Last time the deployment status was updated.+-- | The time, in milliseconds since the epoch, when the deployment status was updated. gdsrsUpdatedAt :: Lens' GetDeploymentStatusResponse (Maybe Text)-gdsrsUpdatedAt = lens _gdsrsUpdatedAt (\ s a -> s{_gdsrsUpdatedAt = a});+gdsrsUpdatedAt = lens _gdsrsUpdatedAt (\ s a -> s{_gdsrsUpdatedAt = a}) --- | Error Message+-- | Error message gdsrsErrorMessage :: Lens' GetDeploymentStatusResponse (Maybe Text)-gdsrsErrorMessage = lens _gdsrsErrorMessage (\ s a -> s{_gdsrsErrorMessage = a});+gdsrsErrorMessage = lens _gdsrsErrorMessage (\ s a -> s{_gdsrsErrorMessage = a})  -- | -- | The response status code. gdsrsResponseStatus :: Lens' GetDeploymentStatusResponse Int-gdsrsResponseStatus = lens _gdsrsResponseStatus (\ s a -> s{_gdsrsResponseStatus = a});+gdsrsResponseStatus = lens _gdsrsResponseStatus (\ s a -> s{_gdsrsResponseStatus = a})  instance NFData GetDeploymentStatusResponse where
gen/Network/AWS/Greengrass/GetDeviceDefinition.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.GetDeviceDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gddDeviceDefinitionId' - device definition Id+-- * 'gddDeviceDefinitionId' - The ID of the device definition. getDeviceDefinition     :: Text -- ^ 'gddDeviceDefinitionId'     -> GetDeviceDefinition@@ -66,9 +66,9 @@   GetDeviceDefinition' {_gddDeviceDefinitionId = pDeviceDefinitionId_}  --- | device definition Id+-- | The ID of the device definition. gddDeviceDefinitionId :: Lens' GetDeviceDefinition Text-gddDeviceDefinitionId = lens _gddDeviceDefinitionId (\ s a -> s{_gddDeviceDefinitionId = a});+gddDeviceDefinitionId = lens _gddDeviceDefinitionId (\ s a -> s{_gddDeviceDefinitionId = a})  instance AWSRequest GetDeviceDefinition where         type Rs GetDeviceDefinition =@@ -123,19 +123,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gddrsLatestVersionARN' - Latest version arn of the definition.+-- * 'gddrsLatestVersionARN' - The ARN of the latest version of the definition. ----- * 'gddrsARN' - Arn of the definition.+-- * 'gddrsARN' - The ARN of the definition. ----- * 'gddrsName' - Name of the definition.+-- * 'gddrsName' - The name of the definition. ----- * 'gddrsCreationTimestamp' - Timestamp of when the definition was created.+-- * 'gddrsCreationTimestamp' - The time, in milliseconds since the epoch, when the definition was created. ----- * 'gddrsId' - Id of the definition.+-- * 'gddrsId' - The ID of the definition. ----- * 'gddrsLatestVersion' - Last version of the definition.+-- * 'gddrsLatestVersion' - The latest version of the definition. ----- * 'gddrsLastUpdatedTimestamp' - Last updated timestamp of the definition.+-- * 'gddrsLastUpdatedTimestamp' - The time, in milliseconds since the epoch, when the definition was last updated. -- -- * 'gddrsResponseStatus' - -- | The response status code. getDeviceDefinitionResponse@@ -143,47 +143,47 @@     -> GetDeviceDefinitionResponse getDeviceDefinitionResponse pResponseStatus_ =   GetDeviceDefinitionResponse'-  { _gddrsLatestVersionARN = Nothing-  , _gddrsARN = Nothing-  , _gddrsName = Nothing-  , _gddrsCreationTimestamp = Nothing-  , _gddrsId = Nothing-  , _gddrsLatestVersion = Nothing-  , _gddrsLastUpdatedTimestamp = Nothing-  , _gddrsResponseStatus = pResponseStatus_-  }+    { _gddrsLatestVersionARN = Nothing+    , _gddrsARN = Nothing+    , _gddrsName = Nothing+    , _gddrsCreationTimestamp = Nothing+    , _gddrsId = Nothing+    , _gddrsLatestVersion = Nothing+    , _gddrsLastUpdatedTimestamp = Nothing+    , _gddrsResponseStatus = pResponseStatus_+    }  --- | Latest version arn of the definition.+-- | The ARN of the latest version of the definition. gddrsLatestVersionARN :: Lens' GetDeviceDefinitionResponse (Maybe Text)-gddrsLatestVersionARN = lens _gddrsLatestVersionARN (\ s a -> s{_gddrsLatestVersionARN = a});+gddrsLatestVersionARN = lens _gddrsLatestVersionARN (\ s a -> s{_gddrsLatestVersionARN = a}) --- | Arn of the definition.+-- | The ARN of the definition. gddrsARN :: Lens' GetDeviceDefinitionResponse (Maybe Text)-gddrsARN = lens _gddrsARN (\ s a -> s{_gddrsARN = a});+gddrsARN = lens _gddrsARN (\ s a -> s{_gddrsARN = a}) --- | Name of the definition.+-- | The name of the definition. gddrsName :: Lens' GetDeviceDefinitionResponse (Maybe Text)-gddrsName = lens _gddrsName (\ s a -> s{_gddrsName = a});+gddrsName = lens _gddrsName (\ s a -> s{_gddrsName = a}) --- | Timestamp of when the definition was created.+-- | The time, in milliseconds since the epoch, when the definition was created. gddrsCreationTimestamp :: Lens' GetDeviceDefinitionResponse (Maybe Text)-gddrsCreationTimestamp = lens _gddrsCreationTimestamp (\ s a -> s{_gddrsCreationTimestamp = a});+gddrsCreationTimestamp = lens _gddrsCreationTimestamp (\ s a -> s{_gddrsCreationTimestamp = a}) --- | Id of the definition.+-- | The ID of the definition. gddrsId :: Lens' GetDeviceDefinitionResponse (Maybe Text)-gddrsId = lens _gddrsId (\ s a -> s{_gddrsId = a});+gddrsId = lens _gddrsId (\ s a -> s{_gddrsId = a}) --- | Last version of the definition.+-- | The latest version of the definition. gddrsLatestVersion :: Lens' GetDeviceDefinitionResponse (Maybe Text)-gddrsLatestVersion = lens _gddrsLatestVersion (\ s a -> s{_gddrsLatestVersion = a});+gddrsLatestVersion = lens _gddrsLatestVersion (\ s a -> s{_gddrsLatestVersion = a}) --- | Last updated timestamp of the definition.+-- | The time, in milliseconds since the epoch, when the definition was last updated. gddrsLastUpdatedTimestamp :: Lens' GetDeviceDefinitionResponse (Maybe Text)-gddrsLastUpdatedTimestamp = lens _gddrsLastUpdatedTimestamp (\ s a -> s{_gddrsLastUpdatedTimestamp = a});+gddrsLastUpdatedTimestamp = lens _gddrsLastUpdatedTimestamp (\ s a -> s{_gddrsLastUpdatedTimestamp = a})  -- | -- | The response status code. gddrsResponseStatus :: Lens' GetDeviceDefinitionResponse Int-gddrsResponseStatus = lens _gddrsResponseStatus (\ s a -> s{_gddrsResponseStatus = a});+gddrsResponseStatus = lens _gddrsResponseStatus (\ s a -> s{_gddrsResponseStatus = a})  instance NFData GetDeviceDefinitionResponse where
gen/Network/AWS/Greengrass/GetDeviceDefinitionVersion.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.GetDeviceDefinitionVersion--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -58,27 +58,27 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gddvDeviceDefinitionVersionId' - device definition version Id+-- * 'gddvDeviceDefinitionVersionId' - The ID of the device definition version. ----- * 'gddvDeviceDefinitionId' - device definition Id+-- * 'gddvDeviceDefinitionId' - The ID of the device definition. getDeviceDefinitionVersion     :: Text -- ^ 'gddvDeviceDefinitionVersionId'     -> Text -- ^ 'gddvDeviceDefinitionId'     -> GetDeviceDefinitionVersion getDeviceDefinitionVersion pDeviceDefinitionVersionId_ pDeviceDefinitionId_ =   GetDeviceDefinitionVersion'-  { _gddvDeviceDefinitionVersionId = pDeviceDefinitionVersionId_-  , _gddvDeviceDefinitionId = pDeviceDefinitionId_-  }+    { _gddvDeviceDefinitionVersionId = pDeviceDefinitionVersionId_+    , _gddvDeviceDefinitionId = pDeviceDefinitionId_+    }  --- | device definition version Id+-- | The ID of the device definition version. gddvDeviceDefinitionVersionId :: Lens' GetDeviceDefinitionVersion Text-gddvDeviceDefinitionVersionId = lens _gddvDeviceDefinitionVersionId (\ s a -> s{_gddvDeviceDefinitionVersionId = a});+gddvDeviceDefinitionVersionId = lens _gddvDeviceDefinitionVersionId (\ s a -> s{_gddvDeviceDefinitionVersionId = a}) --- | device definition Id+-- | The ID of the device definition. gddvDeviceDefinitionId :: Lens' GetDeviceDefinitionVersion Text-gddvDeviceDefinitionId = lens _gddvDeviceDefinitionId (\ s a -> s{_gddvDeviceDefinitionId = a});+gddvDeviceDefinitionId = lens _gddvDeviceDefinitionId (\ s a -> s{_gddvDeviceDefinitionId = a})  instance AWSRequest GetDeviceDefinitionVersion where         type Rs GetDeviceDefinitionVersion =@@ -130,15 +130,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gddvrsDefinition' - Device definition version+-- * 'gddvrsDefinition' - Information about the device definition version. ----- * 'gddvrsARN' - Arn of the device definition version.+-- * 'gddvrsARN' - The ARN of the device definition version. ----- * 'gddvrsCreationTimestamp' - Timestamp of when the device definition version was created.+-- * 'gddvrsCreationTimestamp' - The time, in milliseconds since the epoch, when the device definition version was created. ----- * 'gddvrsVersion' - Version of the device definition version.+-- * 'gddvrsVersion' - The version of the device definition version. ----- * 'gddvrsId' - Id of the device definition the version belongs to.+-- * 'gddvrsId' - The ID of the device definition version. -- -- * 'gddvrsResponseStatus' - -- | The response status code. getDeviceDefinitionVersionResponse@@ -146,38 +146,38 @@     -> GetDeviceDefinitionVersionResponse getDeviceDefinitionVersionResponse pResponseStatus_ =   GetDeviceDefinitionVersionResponse'-  { _gddvrsDefinition = Nothing-  , _gddvrsARN = Nothing-  , _gddvrsCreationTimestamp = Nothing-  , _gddvrsVersion = Nothing-  , _gddvrsId = Nothing-  , _gddvrsResponseStatus = pResponseStatus_-  }+    { _gddvrsDefinition = Nothing+    , _gddvrsARN = Nothing+    , _gddvrsCreationTimestamp = Nothing+    , _gddvrsVersion = Nothing+    , _gddvrsId = Nothing+    , _gddvrsResponseStatus = pResponseStatus_+    }  --- | Device definition version+-- | Information about the device definition version. gddvrsDefinition :: Lens' GetDeviceDefinitionVersionResponse (Maybe DeviceDefinitionVersion)-gddvrsDefinition = lens _gddvrsDefinition (\ s a -> s{_gddvrsDefinition = a});+gddvrsDefinition = lens _gddvrsDefinition (\ s a -> s{_gddvrsDefinition = a}) --- | Arn of the device definition version.+-- | The ARN of the device definition version. gddvrsARN :: Lens' GetDeviceDefinitionVersionResponse (Maybe Text)-gddvrsARN = lens _gddvrsARN (\ s a -> s{_gddvrsARN = a});+gddvrsARN = lens _gddvrsARN (\ s a -> s{_gddvrsARN = a}) --- | Timestamp of when the device definition version was created.+-- | The time, in milliseconds since the epoch, when the device definition version was created. gddvrsCreationTimestamp :: Lens' GetDeviceDefinitionVersionResponse (Maybe Text)-gddvrsCreationTimestamp = lens _gddvrsCreationTimestamp (\ s a -> s{_gddvrsCreationTimestamp = a});+gddvrsCreationTimestamp = lens _gddvrsCreationTimestamp (\ s a -> s{_gddvrsCreationTimestamp = a}) --- | Version of the device definition version.+-- | The version of the device definition version. gddvrsVersion :: Lens' GetDeviceDefinitionVersionResponse (Maybe Text)-gddvrsVersion = lens _gddvrsVersion (\ s a -> s{_gddvrsVersion = a});+gddvrsVersion = lens _gddvrsVersion (\ s a -> s{_gddvrsVersion = a}) --- | Id of the device definition the version belongs to.+-- | The ID of the device definition version. gddvrsId :: Lens' GetDeviceDefinitionVersionResponse (Maybe Text)-gddvrsId = lens _gddvrsId (\ s a -> s{_gddvrsId = a});+gddvrsId = lens _gddvrsId (\ s a -> s{_gddvrsId = a})  -- | -- | The response status code. gddvrsResponseStatus :: Lens' GetDeviceDefinitionVersionResponse Int-gddvrsResponseStatus = lens _gddvrsResponseStatus (\ s a -> s{_gddvrsResponseStatus = a});+gddvrsResponseStatus = lens _gddvrsResponseStatus (\ s a -> s{_gddvrsResponseStatus = a})  instance NFData GetDeviceDefinitionVersionResponse          where
gen/Network/AWS/Greengrass/GetFunctionDefinition.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.GetFunctionDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves information about a Lambda function definition, such as its creation time and latest version.+-- Retrieves information about a Lambda function definition, including its creation time and latest version. module Network.AWS.Greengrass.GetFunctionDefinition     (     -- * Creating a Request@@ -58,7 +58,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gfdFunctionDefinitionId' - the unique Id of the lambda definition+-- * 'gfdFunctionDefinitionId' - The ID of the Lambda function definition. getFunctionDefinition     :: Text -- ^ 'gfdFunctionDefinitionId'     -> GetFunctionDefinition@@ -66,9 +66,9 @@   GetFunctionDefinition' {_gfdFunctionDefinitionId = pFunctionDefinitionId_}  --- | the unique Id of the lambda definition+-- | The ID of the Lambda function definition. gfdFunctionDefinitionId :: Lens' GetFunctionDefinition Text-gfdFunctionDefinitionId = lens _gfdFunctionDefinitionId (\ s a -> s{_gfdFunctionDefinitionId = a});+gfdFunctionDefinitionId = lens _gfdFunctionDefinitionId (\ s a -> s{_gfdFunctionDefinitionId = a})  instance AWSRequest GetFunctionDefinition where         type Rs GetFunctionDefinition =@@ -123,19 +123,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gfdrsLatestVersionARN' - Latest version arn of the definition.+-- * 'gfdrsLatestVersionARN' - The ARN of the latest version of the definition. ----- * 'gfdrsARN' - Arn of the definition.+-- * 'gfdrsARN' - The ARN of the definition. ----- * 'gfdrsName' - Name of the definition.+-- * 'gfdrsName' - The name of the definition. ----- * 'gfdrsCreationTimestamp' - Timestamp of when the definition was created.+-- * 'gfdrsCreationTimestamp' - The time, in milliseconds since the epoch, when the definition was created. ----- * 'gfdrsId' - Id of the definition.+-- * 'gfdrsId' - The ID of the definition. ----- * 'gfdrsLatestVersion' - Last version of the definition.+-- * 'gfdrsLatestVersion' - The latest version of the definition. ----- * 'gfdrsLastUpdatedTimestamp' - Last updated timestamp of the definition.+-- * 'gfdrsLastUpdatedTimestamp' - The time, in milliseconds since the epoch, when the definition was last updated. -- -- * 'gfdrsResponseStatus' - -- | The response status code. getFunctionDefinitionResponse@@ -143,47 +143,47 @@     -> GetFunctionDefinitionResponse getFunctionDefinitionResponse pResponseStatus_ =   GetFunctionDefinitionResponse'-  { _gfdrsLatestVersionARN = Nothing-  , _gfdrsARN = Nothing-  , _gfdrsName = Nothing-  , _gfdrsCreationTimestamp = Nothing-  , _gfdrsId = Nothing-  , _gfdrsLatestVersion = Nothing-  , _gfdrsLastUpdatedTimestamp = Nothing-  , _gfdrsResponseStatus = pResponseStatus_-  }+    { _gfdrsLatestVersionARN = Nothing+    , _gfdrsARN = Nothing+    , _gfdrsName = Nothing+    , _gfdrsCreationTimestamp = Nothing+    , _gfdrsId = Nothing+    , _gfdrsLatestVersion = Nothing+    , _gfdrsLastUpdatedTimestamp = Nothing+    , _gfdrsResponseStatus = pResponseStatus_+    }  --- | Latest version arn of the definition.+-- | The ARN of the latest version of the definition. gfdrsLatestVersionARN :: Lens' GetFunctionDefinitionResponse (Maybe Text)-gfdrsLatestVersionARN = lens _gfdrsLatestVersionARN (\ s a -> s{_gfdrsLatestVersionARN = a});+gfdrsLatestVersionARN = lens _gfdrsLatestVersionARN (\ s a -> s{_gfdrsLatestVersionARN = a}) --- | Arn of the definition.+-- | The ARN of the definition. gfdrsARN :: Lens' GetFunctionDefinitionResponse (Maybe Text)-gfdrsARN = lens _gfdrsARN (\ s a -> s{_gfdrsARN = a});+gfdrsARN = lens _gfdrsARN (\ s a -> s{_gfdrsARN = a}) --- | Name of the definition.+-- | The name of the definition. gfdrsName :: Lens' GetFunctionDefinitionResponse (Maybe Text)-gfdrsName = lens _gfdrsName (\ s a -> s{_gfdrsName = a});+gfdrsName = lens _gfdrsName (\ s a -> s{_gfdrsName = a}) --- | Timestamp of when the definition was created.+-- | The time, in milliseconds since the epoch, when the definition was created. gfdrsCreationTimestamp :: Lens' GetFunctionDefinitionResponse (Maybe Text)-gfdrsCreationTimestamp = lens _gfdrsCreationTimestamp (\ s a -> s{_gfdrsCreationTimestamp = a});+gfdrsCreationTimestamp = lens _gfdrsCreationTimestamp (\ s a -> s{_gfdrsCreationTimestamp = a}) --- | Id of the definition.+-- | The ID of the definition. gfdrsId :: Lens' GetFunctionDefinitionResponse (Maybe Text)-gfdrsId = lens _gfdrsId (\ s a -> s{_gfdrsId = a});+gfdrsId = lens _gfdrsId (\ s a -> s{_gfdrsId = a}) --- | Last version of the definition.+-- | The latest version of the definition. gfdrsLatestVersion :: Lens' GetFunctionDefinitionResponse (Maybe Text)-gfdrsLatestVersion = lens _gfdrsLatestVersion (\ s a -> s{_gfdrsLatestVersion = a});+gfdrsLatestVersion = lens _gfdrsLatestVersion (\ s a -> s{_gfdrsLatestVersion = a}) --- | Last updated timestamp of the definition.+-- | The time, in milliseconds since the epoch, when the definition was last updated. gfdrsLastUpdatedTimestamp :: Lens' GetFunctionDefinitionResponse (Maybe Text)-gfdrsLastUpdatedTimestamp = lens _gfdrsLastUpdatedTimestamp (\ s a -> s{_gfdrsLastUpdatedTimestamp = a});+gfdrsLastUpdatedTimestamp = lens _gfdrsLastUpdatedTimestamp (\ s a -> s{_gfdrsLastUpdatedTimestamp = a})  -- | -- | The response status code. gfdrsResponseStatus :: Lens' GetFunctionDefinitionResponse Int-gfdrsResponseStatus = lens _gfdrsResponseStatus (\ s a -> s{_gfdrsResponseStatus = a});+gfdrsResponseStatus = lens _gfdrsResponseStatus (\ s a -> s{_gfdrsResponseStatus = a})  instance NFData GetFunctionDefinitionResponse where
gen/Network/AWS/Greengrass/GetFunctionDefinitionVersion.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.GetFunctionDefinitionVersion--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves information about a Lambda function definition version, such as which Lambda functions are included in the version and their configurations.+-- Retrieves information about a Lambda function definition version, including which Lambda functions are included in the version and their configurations. module Network.AWS.Greengrass.GetFunctionDefinitionVersion     (     -- * Creating a Request@@ -58,27 +58,27 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gfdvFunctionDefinitionId' - the unique Id of the lambda definition+-- * 'gfdvFunctionDefinitionId' - The ID of the Lambda function definition. ----- * 'gfdvFunctionDefinitionVersionId' - Function definition version Id+-- * 'gfdvFunctionDefinitionVersionId' - The ID of the function definition version. getFunctionDefinitionVersion     :: Text -- ^ 'gfdvFunctionDefinitionId'     -> Text -- ^ 'gfdvFunctionDefinitionVersionId'     -> GetFunctionDefinitionVersion getFunctionDefinitionVersion pFunctionDefinitionId_ pFunctionDefinitionVersionId_ =   GetFunctionDefinitionVersion'-  { _gfdvFunctionDefinitionId = pFunctionDefinitionId_-  , _gfdvFunctionDefinitionVersionId = pFunctionDefinitionVersionId_-  }+    { _gfdvFunctionDefinitionId = pFunctionDefinitionId_+    , _gfdvFunctionDefinitionVersionId = pFunctionDefinitionVersionId_+    }  --- | the unique Id of the lambda definition+-- | The ID of the Lambda function definition. gfdvFunctionDefinitionId :: Lens' GetFunctionDefinitionVersion Text-gfdvFunctionDefinitionId = lens _gfdvFunctionDefinitionId (\ s a -> s{_gfdvFunctionDefinitionId = a});+gfdvFunctionDefinitionId = lens _gfdvFunctionDefinitionId (\ s a -> s{_gfdvFunctionDefinitionId = a}) --- | Function definition version Id+-- | The ID of the function definition version. gfdvFunctionDefinitionVersionId :: Lens' GetFunctionDefinitionVersion Text-gfdvFunctionDefinitionVersionId = lens _gfdvFunctionDefinitionVersionId (\ s a -> s{_gfdvFunctionDefinitionVersionId = a});+gfdvFunctionDefinitionVersionId = lens _gfdvFunctionDefinitionVersionId (\ s a -> s{_gfdvFunctionDefinitionVersionId = a})  instance AWSRequest GetFunctionDefinitionVersion          where@@ -133,13 +133,13 @@ -- -- * 'gfdvrsDefinition' - Information on the definition. ----- * 'gfdvrsARN' - Arn of the function definition version.+-- * 'gfdvrsARN' - The ARN of the function definition version. ----- * 'gfdvrsCreationTimestamp' - Timestamp when the funtion definition version was created.+-- * 'gfdvrsCreationTimestamp' - The time, in milliseconds since the epoch, when the function definition version was created. ----- * 'gfdvrsVersion' - Version of the function definition version.+-- * 'gfdvrsVersion' - The version of the function definition version. ----- * 'gfdvrsId' - Id of the function definition the version belongs to.+-- * 'gfdvrsId' - The ID of the function definition version. -- -- * 'gfdvrsResponseStatus' - -- | The response status code. getFunctionDefinitionVersionResponse@@ -147,38 +147,38 @@     -> GetFunctionDefinitionVersionResponse getFunctionDefinitionVersionResponse pResponseStatus_ =   GetFunctionDefinitionVersionResponse'-  { _gfdvrsDefinition = Nothing-  , _gfdvrsARN = Nothing-  , _gfdvrsCreationTimestamp = Nothing-  , _gfdvrsVersion = Nothing-  , _gfdvrsId = Nothing-  , _gfdvrsResponseStatus = pResponseStatus_-  }+    { _gfdvrsDefinition = Nothing+    , _gfdvrsARN = Nothing+    , _gfdvrsCreationTimestamp = Nothing+    , _gfdvrsVersion = Nothing+    , _gfdvrsId = Nothing+    , _gfdvrsResponseStatus = pResponseStatus_+    }   -- | Information on the definition. gfdvrsDefinition :: Lens' GetFunctionDefinitionVersionResponse (Maybe FunctionDefinitionVersion)-gfdvrsDefinition = lens _gfdvrsDefinition (\ s a -> s{_gfdvrsDefinition = a});+gfdvrsDefinition = lens _gfdvrsDefinition (\ s a -> s{_gfdvrsDefinition = a}) --- | Arn of the function definition version.+-- | The ARN of the function definition version. gfdvrsARN :: Lens' GetFunctionDefinitionVersionResponse (Maybe Text)-gfdvrsARN = lens _gfdvrsARN (\ s a -> s{_gfdvrsARN = a});+gfdvrsARN = lens _gfdvrsARN (\ s a -> s{_gfdvrsARN = a}) --- | Timestamp when the funtion definition version was created.+-- | The time, in milliseconds since the epoch, when the function definition version was created. gfdvrsCreationTimestamp :: Lens' GetFunctionDefinitionVersionResponse (Maybe Text)-gfdvrsCreationTimestamp = lens _gfdvrsCreationTimestamp (\ s a -> s{_gfdvrsCreationTimestamp = a});+gfdvrsCreationTimestamp = lens _gfdvrsCreationTimestamp (\ s a -> s{_gfdvrsCreationTimestamp = a}) --- | Version of the function definition version.+-- | The version of the function definition version. gfdvrsVersion :: Lens' GetFunctionDefinitionVersionResponse (Maybe Text)-gfdvrsVersion = lens _gfdvrsVersion (\ s a -> s{_gfdvrsVersion = a});+gfdvrsVersion = lens _gfdvrsVersion (\ s a -> s{_gfdvrsVersion = a}) --- | Id of the function definition the version belongs to.+-- | The ID of the function definition version. gfdvrsId :: Lens' GetFunctionDefinitionVersionResponse (Maybe Text)-gfdvrsId = lens _gfdvrsId (\ s a -> s{_gfdvrsId = a});+gfdvrsId = lens _gfdvrsId (\ s a -> s{_gfdvrsId = a})  -- | -- | The response status code. gfdvrsResponseStatus :: Lens' GetFunctionDefinitionVersionResponse Int-gfdvrsResponseStatus = lens _gfdvrsResponseStatus (\ s a -> s{_gfdvrsResponseStatus = a});+gfdvrsResponseStatus = lens _gfdvrsResponseStatus (\ s a -> s{_gfdvrsResponseStatus = a})  instance NFData GetFunctionDefinitionVersionResponse          where
gen/Network/AWS/Greengrass/GetGroup.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.GetGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -58,16 +58,16 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ggGroupId' - The unique Id of the AWS Greengrass Group+-- * 'ggGroupId' - The ID of the AWS Greengrass group. getGroup     :: Text -- ^ 'ggGroupId'     -> GetGroup getGroup pGroupId_ = GetGroup' {_ggGroupId = pGroupId_}  --- | The unique Id of the AWS Greengrass Group+-- | The ID of the AWS Greengrass group. ggGroupId :: Lens' GetGroup Text-ggGroupId = lens _ggGroupId (\ s a -> s{_ggGroupId = a});+ggGroupId = lens _ggGroupId (\ s a -> s{_ggGroupId = a})  instance AWSRequest GetGroup where         type Rs GetGroup = GetGroupResponse@@ -119,19 +119,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ggrsLatestVersionARN' - Latest version arn of the definition.+-- * 'ggrsLatestVersionARN' - The ARN of the latest version of the definition. ----- * 'ggrsARN' - Arn of the definition.+-- * 'ggrsARN' - The ARN of the definition. ----- * 'ggrsName' - Name of the definition.+-- * 'ggrsName' - The name of the definition. ----- * 'ggrsCreationTimestamp' - Timestamp of when the definition was created.+-- * 'ggrsCreationTimestamp' - The time, in milliseconds since the epoch, when the definition was created. ----- * 'ggrsId' - Id of the definition.+-- * 'ggrsId' - The ID of the definition. ----- * 'ggrsLatestVersion' - Last version of the definition.+-- * 'ggrsLatestVersion' - The latest version of the definition. ----- * 'ggrsLastUpdatedTimestamp' - Last updated timestamp of the definition.+-- * 'ggrsLastUpdatedTimestamp' - The time, in milliseconds since the epoch, when the definition was last updated. -- -- * 'ggrsResponseStatus' - -- | The response status code. getGroupResponse@@ -139,47 +139,47 @@     -> GetGroupResponse getGroupResponse pResponseStatus_ =   GetGroupResponse'-  { _ggrsLatestVersionARN = Nothing-  , _ggrsARN = Nothing-  , _ggrsName = Nothing-  , _ggrsCreationTimestamp = Nothing-  , _ggrsId = Nothing-  , _ggrsLatestVersion = Nothing-  , _ggrsLastUpdatedTimestamp = Nothing-  , _ggrsResponseStatus = pResponseStatus_-  }+    { _ggrsLatestVersionARN = Nothing+    , _ggrsARN = Nothing+    , _ggrsName = Nothing+    , _ggrsCreationTimestamp = Nothing+    , _ggrsId = Nothing+    , _ggrsLatestVersion = Nothing+    , _ggrsLastUpdatedTimestamp = Nothing+    , _ggrsResponseStatus = pResponseStatus_+    }  --- | Latest version arn of the definition.+-- | The ARN of the latest version of the definition. ggrsLatestVersionARN :: Lens' GetGroupResponse (Maybe Text)-ggrsLatestVersionARN = lens _ggrsLatestVersionARN (\ s a -> s{_ggrsLatestVersionARN = a});+ggrsLatestVersionARN = lens _ggrsLatestVersionARN (\ s a -> s{_ggrsLatestVersionARN = a}) --- | Arn of the definition.+-- | The ARN of the definition. ggrsARN :: Lens' GetGroupResponse (Maybe Text)-ggrsARN = lens _ggrsARN (\ s a -> s{_ggrsARN = a});+ggrsARN = lens _ggrsARN (\ s a -> s{_ggrsARN = a}) --- | Name of the definition.+-- | The name of the definition. ggrsName :: Lens' GetGroupResponse (Maybe Text)-ggrsName = lens _ggrsName (\ s a -> s{_ggrsName = a});+ggrsName = lens _ggrsName (\ s a -> s{_ggrsName = a}) --- | Timestamp of when the definition was created.+-- | The time, in milliseconds since the epoch, when the definition was created. ggrsCreationTimestamp :: Lens' GetGroupResponse (Maybe Text)-ggrsCreationTimestamp = lens _ggrsCreationTimestamp (\ s a -> s{_ggrsCreationTimestamp = a});+ggrsCreationTimestamp = lens _ggrsCreationTimestamp (\ s a -> s{_ggrsCreationTimestamp = a}) --- | Id of the definition.+-- | The ID of the definition. ggrsId :: Lens' GetGroupResponse (Maybe Text)-ggrsId = lens _ggrsId (\ s a -> s{_ggrsId = a});+ggrsId = lens _ggrsId (\ s a -> s{_ggrsId = a}) --- | Last version of the definition.+-- | The latest version of the definition. ggrsLatestVersion :: Lens' GetGroupResponse (Maybe Text)-ggrsLatestVersion = lens _ggrsLatestVersion (\ s a -> s{_ggrsLatestVersion = a});+ggrsLatestVersion = lens _ggrsLatestVersion (\ s a -> s{_ggrsLatestVersion = a}) --- | Last updated timestamp of the definition.+-- | The time, in milliseconds since the epoch, when the definition was last updated. ggrsLastUpdatedTimestamp :: Lens' GetGroupResponse (Maybe Text)-ggrsLastUpdatedTimestamp = lens _ggrsLastUpdatedTimestamp (\ s a -> s{_ggrsLastUpdatedTimestamp = a});+ggrsLastUpdatedTimestamp = lens _ggrsLastUpdatedTimestamp (\ s a -> s{_ggrsLastUpdatedTimestamp = a})  -- | -- | The response status code. ggrsResponseStatus :: Lens' GetGroupResponse Int-ggrsResponseStatus = lens _ggrsResponseStatus (\ s a -> s{_ggrsResponseStatus = a});+ggrsResponseStatus = lens _ggrsResponseStatus (\ s a -> s{_ggrsResponseStatus = a})  instance NFData GetGroupResponse where
gen/Network/AWS/Greengrass/GetGroupCertificateAuthority.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.GetGroupCertificateAuthority--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -56,27 +56,27 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ggcaCertificateAuthorityId' - certificate authority Id+-- * 'ggcaCertificateAuthorityId' - The ID of the certificate authority. ----- * 'ggcaGroupId' - The unique Id of the AWS Greengrass Group+-- * 'ggcaGroupId' - The ID of the AWS Greengrass group. getGroupCertificateAuthority     :: Text -- ^ 'ggcaCertificateAuthorityId'     -> Text -- ^ 'ggcaGroupId'     -> GetGroupCertificateAuthority getGroupCertificateAuthority pCertificateAuthorityId_ pGroupId_ =   GetGroupCertificateAuthority'-  { _ggcaCertificateAuthorityId = pCertificateAuthorityId_-  , _ggcaGroupId = pGroupId_-  }+    { _ggcaCertificateAuthorityId = pCertificateAuthorityId_+    , _ggcaGroupId = pGroupId_+    }  --- | certificate authority Id+-- | The ID of the certificate authority. ggcaCertificateAuthorityId :: Lens' GetGroupCertificateAuthority Text-ggcaCertificateAuthorityId = lens _ggcaCertificateAuthorityId (\ s a -> s{_ggcaCertificateAuthorityId = a});+ggcaCertificateAuthorityId = lens _ggcaCertificateAuthorityId (\ s a -> s{_ggcaCertificateAuthorityId = a}) --- | The unique Id of the AWS Greengrass Group+-- | The ID of the AWS Greengrass group. ggcaGroupId :: Lens' GetGroupCertificateAuthority Text-ggcaGroupId = lens _ggcaGroupId (\ s a -> s{_ggcaGroupId = a});+ggcaGroupId = lens _ggcaGroupId (\ s a -> s{_ggcaGroupId = a})  instance AWSRequest GetGroupCertificateAuthority          where@@ -126,11 +126,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ggcarsPemEncodedCertificate' - PEM encoded certificate for the group.+-- * 'ggcarsPemEncodedCertificate' - The PEM encoded certificate for the group. ----- * 'ggcarsGroupCertificateAuthorityARN' - Arn of the certificate authority for the group.+-- * 'ggcarsGroupCertificateAuthorityARN' - The ARN of the certificate authority for the group. ----- * 'ggcarsGroupCertificateAuthorityId' - Id of the certificate authority for the group.+-- * 'ggcarsGroupCertificateAuthorityId' - The ID of the certificate authority for the group. -- -- * 'ggcarsResponseStatus' - -- | The response status code. getGroupCertificateAuthorityResponse@@ -138,28 +138,28 @@     -> GetGroupCertificateAuthorityResponse getGroupCertificateAuthorityResponse pResponseStatus_ =   GetGroupCertificateAuthorityResponse'-  { _ggcarsPemEncodedCertificate = Nothing-  , _ggcarsGroupCertificateAuthorityARN = Nothing-  , _ggcarsGroupCertificateAuthorityId = Nothing-  , _ggcarsResponseStatus = pResponseStatus_-  }+    { _ggcarsPemEncodedCertificate = Nothing+    , _ggcarsGroupCertificateAuthorityARN = Nothing+    , _ggcarsGroupCertificateAuthorityId = Nothing+    , _ggcarsResponseStatus = pResponseStatus_+    }  --- | PEM encoded certificate for the group.+-- | The PEM encoded certificate for the group. ggcarsPemEncodedCertificate :: Lens' GetGroupCertificateAuthorityResponse (Maybe Text)-ggcarsPemEncodedCertificate = lens _ggcarsPemEncodedCertificate (\ s a -> s{_ggcarsPemEncodedCertificate = a});+ggcarsPemEncodedCertificate = lens _ggcarsPemEncodedCertificate (\ s a -> s{_ggcarsPemEncodedCertificate = a}) --- | Arn of the certificate authority for the group.+-- | The ARN of the certificate authority for the group. ggcarsGroupCertificateAuthorityARN :: Lens' GetGroupCertificateAuthorityResponse (Maybe Text)-ggcarsGroupCertificateAuthorityARN = lens _ggcarsGroupCertificateAuthorityARN (\ s a -> s{_ggcarsGroupCertificateAuthorityARN = a});+ggcarsGroupCertificateAuthorityARN = lens _ggcarsGroupCertificateAuthorityARN (\ s a -> s{_ggcarsGroupCertificateAuthorityARN = a}) --- | Id of the certificate authority for the group.+-- | The ID of the certificate authority for the group. ggcarsGroupCertificateAuthorityId :: Lens' GetGroupCertificateAuthorityResponse (Maybe Text)-ggcarsGroupCertificateAuthorityId = lens _ggcarsGroupCertificateAuthorityId (\ s a -> s{_ggcarsGroupCertificateAuthorityId = a});+ggcarsGroupCertificateAuthorityId = lens _ggcarsGroupCertificateAuthorityId (\ s a -> s{_ggcarsGroupCertificateAuthorityId = a})  -- | -- | The response status code. ggcarsResponseStatus :: Lens' GetGroupCertificateAuthorityResponse Int-ggcarsResponseStatus = lens _ggcarsResponseStatus (\ s a -> s{_ggcarsResponseStatus = a});+ggcarsResponseStatus = lens _ggcarsResponseStatus (\ s a -> s{_ggcarsResponseStatus = a})  instance NFData GetGroupCertificateAuthorityResponse          where
gen/Network/AWS/Greengrass/GetGroupCertificateConfiguration.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.GetGroupCertificateConfiguration--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ggccGroupId' - The unique Id of the AWS Greengrass Group+-- * 'ggccGroupId' - The ID of the AWS Greengrass group. getGroupCertificateConfiguration     :: Text -- ^ 'ggccGroupId'     -> GetGroupCertificateConfiguration@@ -62,9 +62,9 @@   GetGroupCertificateConfiguration' {_ggccGroupId = pGroupId_}  --- | The unique Id of the AWS Greengrass Group+-- | The ID of the AWS Greengrass group. ggccGroupId :: Lens' GetGroupCertificateConfiguration Text-ggccGroupId = lens _ggccGroupId (\ s a -> s{_ggccGroupId = a});+ggccGroupId = lens _ggccGroupId (\ s a -> s{_ggccGroupId = a})  instance AWSRequest GetGroupCertificateConfiguration          where@@ -118,11 +118,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ggccrsCertificateAuthorityExpiryInMilliseconds' - Amount of time when the certificate authority expires in milliseconds.+-- * 'ggccrsCertificateAuthorityExpiryInMilliseconds' - The amount of time remaining before the certificate authority expires, in milliseconds. ----- * 'ggccrsGroupId' - Id of the group the certificate configuration belongs to.+-- * 'ggccrsGroupId' - The ID of the group certificate configuration. ----- * 'ggccrsCertificateExpiryInMilliseconds' - Amount of time when the certificate expires in milliseconds.+-- * 'ggccrsCertificateExpiryInMilliseconds' - The amount of time remaining before the certificate expires, in milliseconds. -- -- * 'ggccrsResponseStatus' - -- | The response status code. getGroupCertificateConfigurationResponse@@ -130,28 +130,28 @@     -> GetGroupCertificateConfigurationResponse getGroupCertificateConfigurationResponse pResponseStatus_ =   GetGroupCertificateConfigurationResponse'-  { _ggccrsCertificateAuthorityExpiryInMilliseconds = Nothing-  , _ggccrsGroupId = Nothing-  , _ggccrsCertificateExpiryInMilliseconds = Nothing-  , _ggccrsResponseStatus = pResponseStatus_-  }+    { _ggccrsCertificateAuthorityExpiryInMilliseconds = Nothing+    , _ggccrsGroupId = Nothing+    , _ggccrsCertificateExpiryInMilliseconds = Nothing+    , _ggccrsResponseStatus = pResponseStatus_+    }  --- | Amount of time when the certificate authority expires in milliseconds.+-- | The amount of time remaining before the certificate authority expires, in milliseconds. ggccrsCertificateAuthorityExpiryInMilliseconds :: Lens' GetGroupCertificateConfigurationResponse (Maybe Text)-ggccrsCertificateAuthorityExpiryInMilliseconds = lens _ggccrsCertificateAuthorityExpiryInMilliseconds (\ s a -> s{_ggccrsCertificateAuthorityExpiryInMilliseconds = a});+ggccrsCertificateAuthorityExpiryInMilliseconds = lens _ggccrsCertificateAuthorityExpiryInMilliseconds (\ s a -> s{_ggccrsCertificateAuthorityExpiryInMilliseconds = a}) --- | Id of the group the certificate configuration belongs to.+-- | The ID of the group certificate configuration. ggccrsGroupId :: Lens' GetGroupCertificateConfigurationResponse (Maybe Text)-ggccrsGroupId = lens _ggccrsGroupId (\ s a -> s{_ggccrsGroupId = a});+ggccrsGroupId = lens _ggccrsGroupId (\ s a -> s{_ggccrsGroupId = a}) --- | Amount of time when the certificate expires in milliseconds.+-- | The amount of time remaining before the certificate expires, in milliseconds. ggccrsCertificateExpiryInMilliseconds :: Lens' GetGroupCertificateConfigurationResponse (Maybe Text)-ggccrsCertificateExpiryInMilliseconds = lens _ggccrsCertificateExpiryInMilliseconds (\ s a -> s{_ggccrsCertificateExpiryInMilliseconds = a});+ggccrsCertificateExpiryInMilliseconds = lens _ggccrsCertificateExpiryInMilliseconds (\ s a -> s{_ggccrsCertificateExpiryInMilliseconds = a})  -- | -- | The response status code. ggccrsResponseStatus :: Lens' GetGroupCertificateConfigurationResponse Int-ggccrsResponseStatus = lens _ggccrsResponseStatus (\ s a -> s{_ggccrsResponseStatus = a});+ggccrsResponseStatus = lens _ggccrsResponseStatus (\ s a -> s{_ggccrsResponseStatus = a})  instance NFData            GetGroupCertificateConfigurationResponse
gen/Network/AWS/Greengrass/GetGroupVersion.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.GetGroupVersion--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -58,25 +58,25 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ggvGroupVersionId' - Group version Id+-- * 'ggvGroupVersionId' - The ID of the group version. ----- * 'ggvGroupId' - The unique Id of the AWS Greengrass Group+-- * 'ggvGroupId' - The ID of the AWS Greengrass group. getGroupVersion     :: Text -- ^ 'ggvGroupVersionId'     -> Text -- ^ 'ggvGroupId'     -> GetGroupVersion getGroupVersion pGroupVersionId_ pGroupId_ =   GetGroupVersion'-  {_ggvGroupVersionId = pGroupVersionId_, _ggvGroupId = pGroupId_}+    {_ggvGroupVersionId = pGroupVersionId_, _ggvGroupId = pGroupId_}  --- | Group version Id+-- | The ID of the group version. ggvGroupVersionId :: Lens' GetGroupVersion Text-ggvGroupVersionId = lens _ggvGroupVersionId (\ s a -> s{_ggvGroupVersionId = a});+ggvGroupVersionId = lens _ggvGroupVersionId (\ s a -> s{_ggvGroupVersionId = a}) --- | The unique Id of the AWS Greengrass Group+-- | The ID of the AWS Greengrass group. ggvGroupId :: Lens' GetGroupVersion Text-ggvGroupId = lens _ggvGroupId (\ s a -> s{_ggvGroupId = a});+ggvGroupId = lens _ggvGroupId (\ s a -> s{_ggvGroupId = a})  instance AWSRequest GetGroupVersion where         type Rs GetGroupVersion = GetGroupVersionResponse@@ -126,15 +126,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ggvrsDefinition' - Information on the definition+-- * 'ggvrsDefinition' - Information about the group version definition. ----- * 'ggvrsARN' - Arn of the group version.+-- * 'ggvrsARN' - The ARN of the group version. ----- * 'ggvrsCreationTimestamp' - Timestamp when the group version was created.+-- * 'ggvrsCreationTimestamp' - The time, in milliseconds since the epoch, when the group version was created. ----- * 'ggvrsVersion' - Unique Id for a version of the Group.+-- * 'ggvrsVersion' - The unique ID for the version of the group. ----- * 'ggvrsId' - Id of the group version.+-- * 'ggvrsId' - The ID of the group version. -- -- * 'ggvrsResponseStatus' - -- | The response status code. getGroupVersionResponse@@ -142,37 +142,37 @@     -> GetGroupVersionResponse getGroupVersionResponse pResponseStatus_ =   GetGroupVersionResponse'-  { _ggvrsDefinition = Nothing-  , _ggvrsARN = Nothing-  , _ggvrsCreationTimestamp = Nothing-  , _ggvrsVersion = Nothing-  , _ggvrsId = Nothing-  , _ggvrsResponseStatus = pResponseStatus_-  }+    { _ggvrsDefinition = Nothing+    , _ggvrsARN = Nothing+    , _ggvrsCreationTimestamp = Nothing+    , _ggvrsVersion = Nothing+    , _ggvrsId = Nothing+    , _ggvrsResponseStatus = pResponseStatus_+    }  --- | Information on the definition+-- | Information about the group version definition. ggvrsDefinition :: Lens' GetGroupVersionResponse (Maybe GroupVersion)-ggvrsDefinition = lens _ggvrsDefinition (\ s a -> s{_ggvrsDefinition = a});+ggvrsDefinition = lens _ggvrsDefinition (\ s a -> s{_ggvrsDefinition = a}) --- | Arn of the group version.+-- | The ARN of the group version. ggvrsARN :: Lens' GetGroupVersionResponse (Maybe Text)-ggvrsARN = lens _ggvrsARN (\ s a -> s{_ggvrsARN = a});+ggvrsARN = lens _ggvrsARN (\ s a -> s{_ggvrsARN = a}) --- | Timestamp when the group version was created.+-- | The time, in milliseconds since the epoch, when the group version was created. ggvrsCreationTimestamp :: Lens' GetGroupVersionResponse (Maybe Text)-ggvrsCreationTimestamp = lens _ggvrsCreationTimestamp (\ s a -> s{_ggvrsCreationTimestamp = a});+ggvrsCreationTimestamp = lens _ggvrsCreationTimestamp (\ s a -> s{_ggvrsCreationTimestamp = a}) --- | Unique Id for a version of the Group.+-- | The unique ID for the version of the group. ggvrsVersion :: Lens' GetGroupVersionResponse (Maybe Text)-ggvrsVersion = lens _ggvrsVersion (\ s a -> s{_ggvrsVersion = a});+ggvrsVersion = lens _ggvrsVersion (\ s a -> s{_ggvrsVersion = a}) --- | Id of the group version.+-- | The ID of the group version. ggvrsId :: Lens' GetGroupVersionResponse (Maybe Text)-ggvrsId = lens _ggvrsId (\ s a -> s{_ggvrsId = a});+ggvrsId = lens _ggvrsId (\ s a -> s{_ggvrsId = a})  -- | -- | The response status code. ggvrsResponseStatus :: Lens' GetGroupVersionResponse Int-ggvrsResponseStatus = lens _ggvrsResponseStatus (\ s a -> s{_ggvrsResponseStatus = a});+ggvrsResponseStatus = lens _ggvrsResponseStatus (\ s a -> s{_ggvrsResponseStatus = a})  instance NFData GetGroupVersionResponse where
gen/Network/AWS/Greengrass/GetLoggerDefinition.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.GetLoggerDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gldLoggerDefinitionId' - logger definition Id+-- * 'gldLoggerDefinitionId' - The ID of the logger definition. getLoggerDefinition     :: Text -- ^ 'gldLoggerDefinitionId'     -> GetLoggerDefinition@@ -66,9 +66,9 @@   GetLoggerDefinition' {_gldLoggerDefinitionId = pLoggerDefinitionId_}  --- | logger definition Id+-- | The ID of the logger definition. gldLoggerDefinitionId :: Lens' GetLoggerDefinition Text-gldLoggerDefinitionId = lens _gldLoggerDefinitionId (\ s a -> s{_gldLoggerDefinitionId = a});+gldLoggerDefinitionId = lens _gldLoggerDefinitionId (\ s a -> s{_gldLoggerDefinitionId = a})  instance AWSRequest GetLoggerDefinition where         type Rs GetLoggerDefinition =@@ -123,19 +123,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gldrsLatestVersionARN' - Latest version arn of the definition.+-- * 'gldrsLatestVersionARN' - The ARN of the latest version of the definition. ----- * 'gldrsARN' - Arn of the definition.+-- * 'gldrsARN' - The ARN of the definition. ----- * 'gldrsName' - Name of the definition.+-- * 'gldrsName' - The name of the definition. ----- * 'gldrsCreationTimestamp' - Timestamp of when the definition was created.+-- * 'gldrsCreationTimestamp' - The time, in milliseconds since the epoch, when the definition was created. ----- * 'gldrsId' - Id of the definition.+-- * 'gldrsId' - The ID of the definition. ----- * 'gldrsLatestVersion' - Last version of the definition.+-- * 'gldrsLatestVersion' - The latest version of the definition. ----- * 'gldrsLastUpdatedTimestamp' - Last updated timestamp of the definition.+-- * 'gldrsLastUpdatedTimestamp' - The time, in milliseconds since the epoch, when the definition was last updated. -- -- * 'gldrsResponseStatus' - -- | The response status code. getLoggerDefinitionResponse@@ -143,47 +143,47 @@     -> GetLoggerDefinitionResponse getLoggerDefinitionResponse pResponseStatus_ =   GetLoggerDefinitionResponse'-  { _gldrsLatestVersionARN = Nothing-  , _gldrsARN = Nothing-  , _gldrsName = Nothing-  , _gldrsCreationTimestamp = Nothing-  , _gldrsId = Nothing-  , _gldrsLatestVersion = Nothing-  , _gldrsLastUpdatedTimestamp = Nothing-  , _gldrsResponseStatus = pResponseStatus_-  }+    { _gldrsLatestVersionARN = Nothing+    , _gldrsARN = Nothing+    , _gldrsName = Nothing+    , _gldrsCreationTimestamp = Nothing+    , _gldrsId = Nothing+    , _gldrsLatestVersion = Nothing+    , _gldrsLastUpdatedTimestamp = Nothing+    , _gldrsResponseStatus = pResponseStatus_+    }  --- | Latest version arn of the definition.+-- | The ARN of the latest version of the definition. gldrsLatestVersionARN :: Lens' GetLoggerDefinitionResponse (Maybe Text)-gldrsLatestVersionARN = lens _gldrsLatestVersionARN (\ s a -> s{_gldrsLatestVersionARN = a});+gldrsLatestVersionARN = lens _gldrsLatestVersionARN (\ s a -> s{_gldrsLatestVersionARN = a}) --- | Arn of the definition.+-- | The ARN of the definition. gldrsARN :: Lens' GetLoggerDefinitionResponse (Maybe Text)-gldrsARN = lens _gldrsARN (\ s a -> s{_gldrsARN = a});+gldrsARN = lens _gldrsARN (\ s a -> s{_gldrsARN = a}) --- | Name of the definition.+-- | The name of the definition. gldrsName :: Lens' GetLoggerDefinitionResponse (Maybe Text)-gldrsName = lens _gldrsName (\ s a -> s{_gldrsName = a});+gldrsName = lens _gldrsName (\ s a -> s{_gldrsName = a}) --- | Timestamp of when the definition was created.+-- | The time, in milliseconds since the epoch, when the definition was created. gldrsCreationTimestamp :: Lens' GetLoggerDefinitionResponse (Maybe Text)-gldrsCreationTimestamp = lens _gldrsCreationTimestamp (\ s a -> s{_gldrsCreationTimestamp = a});+gldrsCreationTimestamp = lens _gldrsCreationTimestamp (\ s a -> s{_gldrsCreationTimestamp = a}) --- | Id of the definition.+-- | The ID of the definition. gldrsId :: Lens' GetLoggerDefinitionResponse (Maybe Text)-gldrsId = lens _gldrsId (\ s a -> s{_gldrsId = a});+gldrsId = lens _gldrsId (\ s a -> s{_gldrsId = a}) --- | Last version of the definition.+-- | The latest version of the definition. gldrsLatestVersion :: Lens' GetLoggerDefinitionResponse (Maybe Text)-gldrsLatestVersion = lens _gldrsLatestVersion (\ s a -> s{_gldrsLatestVersion = a});+gldrsLatestVersion = lens _gldrsLatestVersion (\ s a -> s{_gldrsLatestVersion = a}) --- | Last updated timestamp of the definition.+-- | The time, in milliseconds since the epoch, when the definition was last updated. gldrsLastUpdatedTimestamp :: Lens' GetLoggerDefinitionResponse (Maybe Text)-gldrsLastUpdatedTimestamp = lens _gldrsLastUpdatedTimestamp (\ s a -> s{_gldrsLastUpdatedTimestamp = a});+gldrsLastUpdatedTimestamp = lens _gldrsLastUpdatedTimestamp (\ s a -> s{_gldrsLastUpdatedTimestamp = a})  -- | -- | The response status code. gldrsResponseStatus :: Lens' GetLoggerDefinitionResponse Int-gldrsResponseStatus = lens _gldrsResponseStatus (\ s a -> s{_gldrsResponseStatus = a});+gldrsResponseStatus = lens _gldrsResponseStatus (\ s a -> s{_gldrsResponseStatus = a})  instance NFData GetLoggerDefinitionResponse where
gen/Network/AWS/Greengrass/GetLoggerDefinitionVersion.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.GetLoggerDefinitionVersion--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -58,27 +58,27 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gldvLoggerDefinitionVersionId' - logger definition version Id+-- * 'gldvLoggerDefinitionVersionId' - The ID of the logger definition version. ----- * 'gldvLoggerDefinitionId' - logger definition Id+-- * 'gldvLoggerDefinitionId' - The ID of the logger definition. getLoggerDefinitionVersion     :: Text -- ^ 'gldvLoggerDefinitionVersionId'     -> Text -- ^ 'gldvLoggerDefinitionId'     -> GetLoggerDefinitionVersion getLoggerDefinitionVersion pLoggerDefinitionVersionId_ pLoggerDefinitionId_ =   GetLoggerDefinitionVersion'-  { _gldvLoggerDefinitionVersionId = pLoggerDefinitionVersionId_-  , _gldvLoggerDefinitionId = pLoggerDefinitionId_-  }+    { _gldvLoggerDefinitionVersionId = pLoggerDefinitionVersionId_+    , _gldvLoggerDefinitionId = pLoggerDefinitionId_+    }  --- | logger definition version Id+-- | The ID of the logger definition version. gldvLoggerDefinitionVersionId :: Lens' GetLoggerDefinitionVersion Text-gldvLoggerDefinitionVersionId = lens _gldvLoggerDefinitionVersionId (\ s a -> s{_gldvLoggerDefinitionVersionId = a});+gldvLoggerDefinitionVersionId = lens _gldvLoggerDefinitionVersionId (\ s a -> s{_gldvLoggerDefinitionVersionId = a}) --- | logger definition Id+-- | The ID of the logger definition. gldvLoggerDefinitionId :: Lens' GetLoggerDefinitionVersion Text-gldvLoggerDefinitionId = lens _gldvLoggerDefinitionId (\ s a -> s{_gldvLoggerDefinitionId = a});+gldvLoggerDefinitionId = lens _gldvLoggerDefinitionId (\ s a -> s{_gldvLoggerDefinitionId = a})  instance AWSRequest GetLoggerDefinitionVersion where         type Rs GetLoggerDefinitionVersion =@@ -130,15 +130,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gldvrsDefinition' - Information on definition+-- * 'gldvrsDefinition' - Information about the logger definition version. ----- * 'gldvrsARN' - Arn of the logger definition version.+-- * 'gldvrsARN' - The ARN of the logger definition version. ----- * 'gldvrsCreationTimestamp' - Timestamp of when the logger definition version was created.+-- * 'gldvrsCreationTimestamp' - The time, in milliseconds since the epoch, when the logger definition version was created. ----- * 'gldvrsVersion' - Version of the logger definition version.+-- * 'gldvrsVersion' - The version of the logger definition version. ----- * 'gldvrsId' - Id of the logger definition the version belongs to.+-- * 'gldvrsId' - The ID of the logger definition version. -- -- * 'gldvrsResponseStatus' - -- | The response status code. getLoggerDefinitionVersionResponse@@ -146,38 +146,38 @@     -> GetLoggerDefinitionVersionResponse getLoggerDefinitionVersionResponse pResponseStatus_ =   GetLoggerDefinitionVersionResponse'-  { _gldvrsDefinition = Nothing-  , _gldvrsARN = Nothing-  , _gldvrsCreationTimestamp = Nothing-  , _gldvrsVersion = Nothing-  , _gldvrsId = Nothing-  , _gldvrsResponseStatus = pResponseStatus_-  }+    { _gldvrsDefinition = Nothing+    , _gldvrsARN = Nothing+    , _gldvrsCreationTimestamp = Nothing+    , _gldvrsVersion = Nothing+    , _gldvrsId = Nothing+    , _gldvrsResponseStatus = pResponseStatus_+    }  --- | Information on definition+-- | Information about the logger definition version. gldvrsDefinition :: Lens' GetLoggerDefinitionVersionResponse (Maybe LoggerDefinitionVersion)-gldvrsDefinition = lens _gldvrsDefinition (\ s a -> s{_gldvrsDefinition = a});+gldvrsDefinition = lens _gldvrsDefinition (\ s a -> s{_gldvrsDefinition = a}) --- | Arn of the logger definition version.+-- | The ARN of the logger definition version. gldvrsARN :: Lens' GetLoggerDefinitionVersionResponse (Maybe Text)-gldvrsARN = lens _gldvrsARN (\ s a -> s{_gldvrsARN = a});+gldvrsARN = lens _gldvrsARN (\ s a -> s{_gldvrsARN = a}) --- | Timestamp of when the logger definition version was created.+-- | The time, in milliseconds since the epoch, when the logger definition version was created. gldvrsCreationTimestamp :: Lens' GetLoggerDefinitionVersionResponse (Maybe Text)-gldvrsCreationTimestamp = lens _gldvrsCreationTimestamp (\ s a -> s{_gldvrsCreationTimestamp = a});+gldvrsCreationTimestamp = lens _gldvrsCreationTimestamp (\ s a -> s{_gldvrsCreationTimestamp = a}) --- | Version of the logger definition version.+-- | The version of the logger definition version. gldvrsVersion :: Lens' GetLoggerDefinitionVersionResponse (Maybe Text)-gldvrsVersion = lens _gldvrsVersion (\ s a -> s{_gldvrsVersion = a});+gldvrsVersion = lens _gldvrsVersion (\ s a -> s{_gldvrsVersion = a}) --- | Id of the logger definition the version belongs to.+-- | The ID of the logger definition version. gldvrsId :: Lens' GetLoggerDefinitionVersionResponse (Maybe Text)-gldvrsId = lens _gldvrsId (\ s a -> s{_gldvrsId = a});+gldvrsId = lens _gldvrsId (\ s a -> s{_gldvrsId = a})  -- | -- | The response status code. gldvrsResponseStatus :: Lens' GetLoggerDefinitionVersionResponse Int-gldvrsResponseStatus = lens _gldvrsResponseStatus (\ s a -> s{_gldvrsResponseStatus = a});+gldvrsResponseStatus = lens _gldvrsResponseStatus (\ s a -> s{_gldvrsResponseStatus = a})  instance NFData GetLoggerDefinitionVersionResponse          where
+ gen/Network/AWS/Greengrass/GetResourceDefinition.hs view
@@ -0,0 +1,189 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Greengrass.GetResourceDefinition+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves information about a resource definition, including its creation time and latest version.+module Network.AWS.Greengrass.GetResourceDefinition+    (+    -- * Creating a Request+      getResourceDefinition+    , GetResourceDefinition+    -- * Request Lenses+    , grdResourceDefinitionId++    -- * Destructuring the Response+    , getResourceDefinitionResponse+    , GetResourceDefinitionResponse+    -- * Response Lenses+    , grdrsLatestVersionARN+    , grdrsARN+    , grdrsName+    , grdrsCreationTimestamp+    , grdrsId+    , grdrsLatestVersion+    , grdrsLastUpdatedTimestamp+    , grdrsResponseStatus+    ) where++import Network.AWS.Greengrass.Types+import Network.AWS.Greengrass.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getResourceDefinition' smart constructor.+newtype GetResourceDefinition = GetResourceDefinition'+  { _grdResourceDefinitionId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetResourceDefinition' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'grdResourceDefinitionId' - The ID of the resource definition.+getResourceDefinition+    :: Text -- ^ 'grdResourceDefinitionId'+    -> GetResourceDefinition+getResourceDefinition pResourceDefinitionId_ =+  GetResourceDefinition' {_grdResourceDefinitionId = pResourceDefinitionId_}+++-- | The ID of the resource definition.+grdResourceDefinitionId :: Lens' GetResourceDefinition Text+grdResourceDefinitionId = lens _grdResourceDefinitionId (\ s a -> s{_grdResourceDefinitionId = a})++instance AWSRequest GetResourceDefinition where+        type Rs GetResourceDefinition =+             GetResourceDefinitionResponse+        request = get greengrass+        response+          = receiveJSON+              (\ s h x ->+                 GetResourceDefinitionResponse' <$>+                   (x .?> "LatestVersionArn") <*> (x .?> "Arn") <*>+                     (x .?> "Name")+                     <*> (x .?> "CreationTimestamp")+                     <*> (x .?> "Id")+                     <*> (x .?> "LatestVersion")+                     <*> (x .?> "LastUpdatedTimestamp")+                     <*> (pure (fromEnum s)))++instance Hashable GetResourceDefinition where++instance NFData GetResourceDefinition where++instance ToHeaders GetResourceDefinition where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath GetResourceDefinition where+        toPath GetResourceDefinition'{..}+          = mconcat+              ["/greengrass/definition/resources/",+               toBS _grdResourceDefinitionId]++instance ToQuery GetResourceDefinition where+        toQuery = const mempty++-- | /See:/ 'getResourceDefinitionResponse' smart constructor.+data GetResourceDefinitionResponse = GetResourceDefinitionResponse'+  { _grdrsLatestVersionARN     :: !(Maybe Text)+  , _grdrsARN                  :: !(Maybe Text)+  , _grdrsName                 :: !(Maybe Text)+  , _grdrsCreationTimestamp    :: !(Maybe Text)+  , _grdrsId                   :: !(Maybe Text)+  , _grdrsLatestVersion        :: !(Maybe Text)+  , _grdrsLastUpdatedTimestamp :: !(Maybe Text)+  , _grdrsResponseStatus       :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetResourceDefinitionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'grdrsLatestVersionARN' - The ARN of the latest version of the definition.+--+-- * 'grdrsARN' - The ARN of the definition.+--+-- * 'grdrsName' - The name of the definition.+--+-- * 'grdrsCreationTimestamp' - The time, in milliseconds since the epoch, when the definition was created.+--+-- * 'grdrsId' - The ID of the definition.+--+-- * 'grdrsLatestVersion' - The latest version of the definition.+--+-- * 'grdrsLastUpdatedTimestamp' - The time, in milliseconds since the epoch, when the definition was last updated.+--+-- * 'grdrsResponseStatus' - -- | The response status code.+getResourceDefinitionResponse+    :: Int -- ^ 'grdrsResponseStatus'+    -> GetResourceDefinitionResponse+getResourceDefinitionResponse pResponseStatus_ =+  GetResourceDefinitionResponse'+    { _grdrsLatestVersionARN = Nothing+    , _grdrsARN = Nothing+    , _grdrsName = Nothing+    , _grdrsCreationTimestamp = Nothing+    , _grdrsId = Nothing+    , _grdrsLatestVersion = Nothing+    , _grdrsLastUpdatedTimestamp = Nothing+    , _grdrsResponseStatus = pResponseStatus_+    }+++-- | The ARN of the latest version of the definition.+grdrsLatestVersionARN :: Lens' GetResourceDefinitionResponse (Maybe Text)+grdrsLatestVersionARN = lens _grdrsLatestVersionARN (\ s a -> s{_grdrsLatestVersionARN = a})++-- | The ARN of the definition.+grdrsARN :: Lens' GetResourceDefinitionResponse (Maybe Text)+grdrsARN = lens _grdrsARN (\ s a -> s{_grdrsARN = a})++-- | The name of the definition.+grdrsName :: Lens' GetResourceDefinitionResponse (Maybe Text)+grdrsName = lens _grdrsName (\ s a -> s{_grdrsName = a})++-- | The time, in milliseconds since the epoch, when the definition was created.+grdrsCreationTimestamp :: Lens' GetResourceDefinitionResponse (Maybe Text)+grdrsCreationTimestamp = lens _grdrsCreationTimestamp (\ s a -> s{_grdrsCreationTimestamp = a})++-- | The ID of the definition.+grdrsId :: Lens' GetResourceDefinitionResponse (Maybe Text)+grdrsId = lens _grdrsId (\ s a -> s{_grdrsId = a})++-- | The latest version of the definition.+grdrsLatestVersion :: Lens' GetResourceDefinitionResponse (Maybe Text)+grdrsLatestVersion = lens _grdrsLatestVersion (\ s a -> s{_grdrsLatestVersion = a})++-- | The time, in milliseconds since the epoch, when the definition was last updated.+grdrsLastUpdatedTimestamp :: Lens' GetResourceDefinitionResponse (Maybe Text)+grdrsLastUpdatedTimestamp = lens _grdrsLastUpdatedTimestamp (\ s a -> s{_grdrsLastUpdatedTimestamp = a})++-- | -- | The response status code.+grdrsResponseStatus :: Lens' GetResourceDefinitionResponse Int+grdrsResponseStatus = lens _grdrsResponseStatus (\ s a -> s{_grdrsResponseStatus = a})++instance NFData GetResourceDefinitionResponse where
+ gen/Network/AWS/Greengrass/GetResourceDefinitionVersion.hs view
@@ -0,0 +1,184 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Greengrass.GetResourceDefinitionVersion+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves information about a resource definition version, including which resources are included in the version.+module Network.AWS.Greengrass.GetResourceDefinitionVersion+    (+    -- * Creating a Request+      getResourceDefinitionVersion+    , GetResourceDefinitionVersion+    -- * Request Lenses+    , grdvResourceDefinitionVersionId+    , grdvResourceDefinitionId++    -- * Destructuring the Response+    , getResourceDefinitionVersionResponse+    , GetResourceDefinitionVersionResponse+    -- * Response Lenses+    , grdvrsDefinition+    , grdvrsARN+    , grdvrsCreationTimestamp+    , grdvrsVersion+    , grdvrsId+    , grdvrsResponseStatus+    ) where++import Network.AWS.Greengrass.Types+import Network.AWS.Greengrass.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getResourceDefinitionVersion' smart constructor.+data GetResourceDefinitionVersion = GetResourceDefinitionVersion'+  { _grdvResourceDefinitionVersionId :: !Text+  , _grdvResourceDefinitionId        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetResourceDefinitionVersion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'grdvResourceDefinitionVersionId' - The ID of the resource definition version.+--+-- * 'grdvResourceDefinitionId' - The ID of the resource definition.+getResourceDefinitionVersion+    :: Text -- ^ 'grdvResourceDefinitionVersionId'+    -> Text -- ^ 'grdvResourceDefinitionId'+    -> GetResourceDefinitionVersion+getResourceDefinitionVersion pResourceDefinitionVersionId_ pResourceDefinitionId_ =+  GetResourceDefinitionVersion'+    { _grdvResourceDefinitionVersionId = pResourceDefinitionVersionId_+    , _grdvResourceDefinitionId = pResourceDefinitionId_+    }+++-- | The ID of the resource definition version.+grdvResourceDefinitionVersionId :: Lens' GetResourceDefinitionVersion Text+grdvResourceDefinitionVersionId = lens _grdvResourceDefinitionVersionId (\ s a -> s{_grdvResourceDefinitionVersionId = a})++-- | The ID of the resource definition.+grdvResourceDefinitionId :: Lens' GetResourceDefinitionVersion Text+grdvResourceDefinitionId = lens _grdvResourceDefinitionId (\ s a -> s{_grdvResourceDefinitionId = a})++instance AWSRequest GetResourceDefinitionVersion+         where+        type Rs GetResourceDefinitionVersion =+             GetResourceDefinitionVersionResponse+        request = get greengrass+        response+          = receiveJSON+              (\ s h x ->+                 GetResourceDefinitionVersionResponse' <$>+                   (x .?> "Definition") <*> (x .?> "Arn") <*>+                     (x .?> "CreationTimestamp")+                     <*> (x .?> "Version")+                     <*> (x .?> "Id")+                     <*> (pure (fromEnum s)))++instance Hashable GetResourceDefinitionVersion where++instance NFData GetResourceDefinitionVersion where++instance ToHeaders GetResourceDefinitionVersion where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath GetResourceDefinitionVersion where+        toPath GetResourceDefinitionVersion'{..}+          = mconcat+              ["/greengrass/definition/resources/",+               toBS _grdvResourceDefinitionId, "/versions/",+               toBS _grdvResourceDefinitionVersionId]++instance ToQuery GetResourceDefinitionVersion where+        toQuery = const mempty++-- | /See:/ 'getResourceDefinitionVersionResponse' smart constructor.+data GetResourceDefinitionVersionResponse = GetResourceDefinitionVersionResponse'+  { _grdvrsDefinition        :: !(Maybe ResourceDefinitionVersion)+  , _grdvrsARN               :: !(Maybe Text)+  , _grdvrsCreationTimestamp :: !(Maybe Text)+  , _grdvrsVersion           :: !(Maybe Text)+  , _grdvrsId                :: !(Maybe Text)+  , _grdvrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetResourceDefinitionVersionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'grdvrsDefinition' - Information about the definition.+--+-- * 'grdvrsARN' - Arn of the resource definition version.+--+-- * 'grdvrsCreationTimestamp' - The time, in milliseconds since the epoch, when the resource definition version was created.+--+-- * 'grdvrsVersion' - The version of the resource definition version.+--+-- * 'grdvrsId' - The ID of the resource definition version.+--+-- * 'grdvrsResponseStatus' - -- | The response status code.+getResourceDefinitionVersionResponse+    :: Int -- ^ 'grdvrsResponseStatus'+    -> GetResourceDefinitionVersionResponse+getResourceDefinitionVersionResponse pResponseStatus_ =+  GetResourceDefinitionVersionResponse'+    { _grdvrsDefinition = Nothing+    , _grdvrsARN = Nothing+    , _grdvrsCreationTimestamp = Nothing+    , _grdvrsVersion = Nothing+    , _grdvrsId = Nothing+    , _grdvrsResponseStatus = pResponseStatus_+    }+++-- | Information about the definition.+grdvrsDefinition :: Lens' GetResourceDefinitionVersionResponse (Maybe ResourceDefinitionVersion)+grdvrsDefinition = lens _grdvrsDefinition (\ s a -> s{_grdvrsDefinition = a})++-- | Arn of the resource definition version.+grdvrsARN :: Lens' GetResourceDefinitionVersionResponse (Maybe Text)+grdvrsARN = lens _grdvrsARN (\ s a -> s{_grdvrsARN = a})++-- | The time, in milliseconds since the epoch, when the resource definition version was created.+grdvrsCreationTimestamp :: Lens' GetResourceDefinitionVersionResponse (Maybe Text)+grdvrsCreationTimestamp = lens _grdvrsCreationTimestamp (\ s a -> s{_grdvrsCreationTimestamp = a})++-- | The version of the resource definition version.+grdvrsVersion :: Lens' GetResourceDefinitionVersionResponse (Maybe Text)+grdvrsVersion = lens _grdvrsVersion (\ s a -> s{_grdvrsVersion = a})++-- | The ID of the resource definition version.+grdvrsId :: Lens' GetResourceDefinitionVersionResponse (Maybe Text)+grdvrsId = lens _grdvrsId (\ s a -> s{_grdvrsId = a})++-- | -- | The response status code.+grdvrsResponseStatus :: Lens' GetResourceDefinitionVersionResponse Int+grdvrsResponseStatus = lens _grdvrsResponseStatus (\ s a -> s{_grdvrsResponseStatus = a})++instance NFData GetResourceDefinitionVersionResponse+         where
gen/Network/AWS/Greengrass/GetServiceRoleForAccount.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.GetServiceRoleForAccount--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves the service role that is attached to the account.+-- Retrieves the service role that is attached to your account. module Network.AWS.Greengrass.GetServiceRoleForAccount     (     -- * Creating a Request@@ -94,9 +94,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gsrfarsAssociatedAt' - Time when the service role was associated to the account.+-- * 'gsrfarsAssociatedAt' - The time when the service role was associated with the account. ----- * 'gsrfarsRoleARN' - Role arn which is associated to the account.+-- * 'gsrfarsRoleARN' - The ARN of the role which is associated with the account. -- -- * 'gsrfarsResponseStatus' - -- | The response status code. getServiceRoleForAccountResponse@@ -104,23 +104,23 @@     -> GetServiceRoleForAccountResponse getServiceRoleForAccountResponse pResponseStatus_ =   GetServiceRoleForAccountResponse'-  { _gsrfarsAssociatedAt = Nothing-  , _gsrfarsRoleARN = Nothing-  , _gsrfarsResponseStatus = pResponseStatus_-  }+    { _gsrfarsAssociatedAt = Nothing+    , _gsrfarsRoleARN = Nothing+    , _gsrfarsResponseStatus = pResponseStatus_+    }  --- | Time when the service role was associated to the account.+-- | The time when the service role was associated with the account. gsrfarsAssociatedAt :: Lens' GetServiceRoleForAccountResponse (Maybe Text)-gsrfarsAssociatedAt = lens _gsrfarsAssociatedAt (\ s a -> s{_gsrfarsAssociatedAt = a});+gsrfarsAssociatedAt = lens _gsrfarsAssociatedAt (\ s a -> s{_gsrfarsAssociatedAt = a}) --- | Role arn which is associated to the account.+-- | The ARN of the role which is associated with the account. gsrfarsRoleARN :: Lens' GetServiceRoleForAccountResponse (Maybe Text)-gsrfarsRoleARN = lens _gsrfarsRoleARN (\ s a -> s{_gsrfarsRoleARN = a});+gsrfarsRoleARN = lens _gsrfarsRoleARN (\ s a -> s{_gsrfarsRoleARN = a})  -- | -- | The response status code. gsrfarsResponseStatus :: Lens' GetServiceRoleForAccountResponse Int-gsrfarsResponseStatus = lens _gsrfarsResponseStatus (\ s a -> s{_gsrfarsResponseStatus = a});+gsrfarsResponseStatus = lens _gsrfarsResponseStatus (\ s a -> s{_gsrfarsResponseStatus = a})  instance NFData GetServiceRoleForAccountResponse          where
gen/Network/AWS/Greengrass/GetSubscriptionDefinition.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.GetSubscriptionDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -58,18 +58,18 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gsdSubscriptionDefinitionId' - subscription definition Id+-- * 'gsdSubscriptionDefinitionId' - The ID of the subscription definition. getSubscriptionDefinition     :: Text -- ^ 'gsdSubscriptionDefinitionId'     -> GetSubscriptionDefinition getSubscriptionDefinition pSubscriptionDefinitionId_ =   GetSubscriptionDefinition'-  {_gsdSubscriptionDefinitionId = pSubscriptionDefinitionId_}+    {_gsdSubscriptionDefinitionId = pSubscriptionDefinitionId_}  --- | subscription definition Id+-- | The ID of the subscription definition. gsdSubscriptionDefinitionId :: Lens' GetSubscriptionDefinition Text-gsdSubscriptionDefinitionId = lens _gsdSubscriptionDefinitionId (\ s a -> s{_gsdSubscriptionDefinitionId = a});+gsdSubscriptionDefinitionId = lens _gsdSubscriptionDefinitionId (\ s a -> s{_gsdSubscriptionDefinitionId = a})  instance AWSRequest GetSubscriptionDefinition where         type Rs GetSubscriptionDefinition =@@ -124,19 +124,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gsdrsLatestVersionARN' - Latest version arn of the definition.+-- * 'gsdrsLatestVersionARN' - The ARN of the latest version of the definition. ----- * 'gsdrsARN' - Arn of the definition.+-- * 'gsdrsARN' - The ARN of the definition. ----- * 'gsdrsName' - Name of the definition.+-- * 'gsdrsName' - The name of the definition. ----- * 'gsdrsCreationTimestamp' - Timestamp of when the definition was created.+-- * 'gsdrsCreationTimestamp' - The time, in milliseconds since the epoch, when the definition was created. ----- * 'gsdrsId' - Id of the definition.+-- * 'gsdrsId' - The ID of the definition. ----- * 'gsdrsLatestVersion' - Last version of the definition.+-- * 'gsdrsLatestVersion' - The latest version of the definition. ----- * 'gsdrsLastUpdatedTimestamp' - Last updated timestamp of the definition.+-- * 'gsdrsLastUpdatedTimestamp' - The time, in milliseconds since the epoch, when the definition was last updated. -- -- * 'gsdrsResponseStatus' - -- | The response status code. getSubscriptionDefinitionResponse@@ -144,48 +144,48 @@     -> GetSubscriptionDefinitionResponse getSubscriptionDefinitionResponse pResponseStatus_ =   GetSubscriptionDefinitionResponse'-  { _gsdrsLatestVersionARN = Nothing-  , _gsdrsARN = Nothing-  , _gsdrsName = Nothing-  , _gsdrsCreationTimestamp = Nothing-  , _gsdrsId = Nothing-  , _gsdrsLatestVersion = Nothing-  , _gsdrsLastUpdatedTimestamp = Nothing-  , _gsdrsResponseStatus = pResponseStatus_-  }+    { _gsdrsLatestVersionARN = Nothing+    , _gsdrsARN = Nothing+    , _gsdrsName = Nothing+    , _gsdrsCreationTimestamp = Nothing+    , _gsdrsId = Nothing+    , _gsdrsLatestVersion = Nothing+    , _gsdrsLastUpdatedTimestamp = Nothing+    , _gsdrsResponseStatus = pResponseStatus_+    }  --- | Latest version arn of the definition.+-- | The ARN of the latest version of the definition. gsdrsLatestVersionARN :: Lens' GetSubscriptionDefinitionResponse (Maybe Text)-gsdrsLatestVersionARN = lens _gsdrsLatestVersionARN (\ s a -> s{_gsdrsLatestVersionARN = a});+gsdrsLatestVersionARN = lens _gsdrsLatestVersionARN (\ s a -> s{_gsdrsLatestVersionARN = a}) --- | Arn of the definition.+-- | The ARN of the definition. gsdrsARN :: Lens' GetSubscriptionDefinitionResponse (Maybe Text)-gsdrsARN = lens _gsdrsARN (\ s a -> s{_gsdrsARN = a});+gsdrsARN = lens _gsdrsARN (\ s a -> s{_gsdrsARN = a}) --- | Name of the definition.+-- | The name of the definition. gsdrsName :: Lens' GetSubscriptionDefinitionResponse (Maybe Text)-gsdrsName = lens _gsdrsName (\ s a -> s{_gsdrsName = a});+gsdrsName = lens _gsdrsName (\ s a -> s{_gsdrsName = a}) --- | Timestamp of when the definition was created.+-- | The time, in milliseconds since the epoch, when the definition was created. gsdrsCreationTimestamp :: Lens' GetSubscriptionDefinitionResponse (Maybe Text)-gsdrsCreationTimestamp = lens _gsdrsCreationTimestamp (\ s a -> s{_gsdrsCreationTimestamp = a});+gsdrsCreationTimestamp = lens _gsdrsCreationTimestamp (\ s a -> s{_gsdrsCreationTimestamp = a}) --- | Id of the definition.+-- | The ID of the definition. gsdrsId :: Lens' GetSubscriptionDefinitionResponse (Maybe Text)-gsdrsId = lens _gsdrsId (\ s a -> s{_gsdrsId = a});+gsdrsId = lens _gsdrsId (\ s a -> s{_gsdrsId = a}) --- | Last version of the definition.+-- | The latest version of the definition. gsdrsLatestVersion :: Lens' GetSubscriptionDefinitionResponse (Maybe Text)-gsdrsLatestVersion = lens _gsdrsLatestVersion (\ s a -> s{_gsdrsLatestVersion = a});+gsdrsLatestVersion = lens _gsdrsLatestVersion (\ s a -> s{_gsdrsLatestVersion = a}) --- | Last updated timestamp of the definition.+-- | The time, in milliseconds since the epoch, when the definition was last updated. gsdrsLastUpdatedTimestamp :: Lens' GetSubscriptionDefinitionResponse (Maybe Text)-gsdrsLastUpdatedTimestamp = lens _gsdrsLastUpdatedTimestamp (\ s a -> s{_gsdrsLastUpdatedTimestamp = a});+gsdrsLastUpdatedTimestamp = lens _gsdrsLastUpdatedTimestamp (\ s a -> s{_gsdrsLastUpdatedTimestamp = a})  -- | -- | The response status code. gsdrsResponseStatus :: Lens' GetSubscriptionDefinitionResponse Int-gsdrsResponseStatus = lens _gsdrsResponseStatus (\ s a -> s{_gsdrsResponseStatus = a});+gsdrsResponseStatus = lens _gsdrsResponseStatus (\ s a -> s{_gsdrsResponseStatus = a})  instance NFData GetSubscriptionDefinitionResponse          where
gen/Network/AWS/Greengrass/GetSubscriptionDefinitionVersion.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.GetSubscriptionDefinitionVersion--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -58,27 +58,27 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gsdvSubscriptionDefinitionId' - subscription definition Id+-- * 'gsdvSubscriptionDefinitionId' - The ID of the subscription definition. ----- * 'gsdvSubscriptionDefinitionVersionId' - subscription definition version Id+-- * 'gsdvSubscriptionDefinitionVersionId' - The ID of the subscription definition version. getSubscriptionDefinitionVersion     :: Text -- ^ 'gsdvSubscriptionDefinitionId'     -> Text -- ^ 'gsdvSubscriptionDefinitionVersionId'     -> GetSubscriptionDefinitionVersion getSubscriptionDefinitionVersion pSubscriptionDefinitionId_ pSubscriptionDefinitionVersionId_ =   GetSubscriptionDefinitionVersion'-  { _gsdvSubscriptionDefinitionId = pSubscriptionDefinitionId_-  , _gsdvSubscriptionDefinitionVersionId = pSubscriptionDefinitionVersionId_-  }+    { _gsdvSubscriptionDefinitionId = pSubscriptionDefinitionId_+    , _gsdvSubscriptionDefinitionVersionId = pSubscriptionDefinitionVersionId_+    }  --- | subscription definition Id+-- | The ID of the subscription definition. gsdvSubscriptionDefinitionId :: Lens' GetSubscriptionDefinitionVersion Text-gsdvSubscriptionDefinitionId = lens _gsdvSubscriptionDefinitionId (\ s a -> s{_gsdvSubscriptionDefinitionId = a});+gsdvSubscriptionDefinitionId = lens _gsdvSubscriptionDefinitionId (\ s a -> s{_gsdvSubscriptionDefinitionId = a}) --- | subscription definition version Id+-- | The ID of the subscription definition version. gsdvSubscriptionDefinitionVersionId :: Lens' GetSubscriptionDefinitionVersion Text-gsdvSubscriptionDefinitionVersionId = lens _gsdvSubscriptionDefinitionVersionId (\ s a -> s{_gsdvSubscriptionDefinitionVersionId = a});+gsdvSubscriptionDefinitionVersionId = lens _gsdvSubscriptionDefinitionVersionId (\ s a -> s{_gsdvSubscriptionDefinitionVersionId = a})  instance AWSRequest GetSubscriptionDefinitionVersion          where@@ -136,15 +136,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gsdvrsDefinition' - Information on the definition+-- * 'gsdvrsDefinition' - Information about the subscription definition version. ----- * 'gsdvrsARN' - Arn of the subscription definition version.+-- * 'gsdvrsARN' - The ARN of the subscription definition version. ----- * 'gsdvrsCreationTimestamp' - Timestamp of when the subscription definition version was created.+-- * 'gsdvrsCreationTimestamp' - The time, in milliseconds since the epoch, when the subscription definition version was created. ----- * 'gsdvrsVersion' - Version of the subscription definition version.+-- * 'gsdvrsVersion' - The version of the subscription definition version. ----- * 'gsdvrsId' - Id of the subscription definition the version belongs to.+-- * 'gsdvrsId' - The ID of the subscription definition version. -- -- * 'gsdvrsResponseStatus' - -- | The response status code. getSubscriptionDefinitionVersionResponse@@ -152,38 +152,38 @@     -> GetSubscriptionDefinitionVersionResponse getSubscriptionDefinitionVersionResponse pResponseStatus_ =   GetSubscriptionDefinitionVersionResponse'-  { _gsdvrsDefinition = Nothing-  , _gsdvrsARN = Nothing-  , _gsdvrsCreationTimestamp = Nothing-  , _gsdvrsVersion = Nothing-  , _gsdvrsId = Nothing-  , _gsdvrsResponseStatus = pResponseStatus_-  }+    { _gsdvrsDefinition = Nothing+    , _gsdvrsARN = Nothing+    , _gsdvrsCreationTimestamp = Nothing+    , _gsdvrsVersion = Nothing+    , _gsdvrsId = Nothing+    , _gsdvrsResponseStatus = pResponseStatus_+    }  --- | Information on the definition+-- | Information about the subscription definition version. gsdvrsDefinition :: Lens' GetSubscriptionDefinitionVersionResponse (Maybe SubscriptionDefinitionVersion)-gsdvrsDefinition = lens _gsdvrsDefinition (\ s a -> s{_gsdvrsDefinition = a});+gsdvrsDefinition = lens _gsdvrsDefinition (\ s a -> s{_gsdvrsDefinition = a}) --- | Arn of the subscription definition version.+-- | The ARN of the subscription definition version. gsdvrsARN :: Lens' GetSubscriptionDefinitionVersionResponse (Maybe Text)-gsdvrsARN = lens _gsdvrsARN (\ s a -> s{_gsdvrsARN = a});+gsdvrsARN = lens _gsdvrsARN (\ s a -> s{_gsdvrsARN = a}) --- | Timestamp of when the subscription definition version was created.+-- | The time, in milliseconds since the epoch, when the subscription definition version was created. gsdvrsCreationTimestamp :: Lens' GetSubscriptionDefinitionVersionResponse (Maybe Text)-gsdvrsCreationTimestamp = lens _gsdvrsCreationTimestamp (\ s a -> s{_gsdvrsCreationTimestamp = a});+gsdvrsCreationTimestamp = lens _gsdvrsCreationTimestamp (\ s a -> s{_gsdvrsCreationTimestamp = a}) --- | Version of the subscription definition version.+-- | The version of the subscription definition version. gsdvrsVersion :: Lens' GetSubscriptionDefinitionVersionResponse (Maybe Text)-gsdvrsVersion = lens _gsdvrsVersion (\ s a -> s{_gsdvrsVersion = a});+gsdvrsVersion = lens _gsdvrsVersion (\ s a -> s{_gsdvrsVersion = a}) --- | Id of the subscription definition the version belongs to.+-- | The ID of the subscription definition version. gsdvrsId :: Lens' GetSubscriptionDefinitionVersionResponse (Maybe Text)-gsdvrsId = lens _gsdvrsId (\ s a -> s{_gsdvrsId = a});+gsdvrsId = lens _gsdvrsId (\ s a -> s{_gsdvrsId = a})  -- | -- | The response status code. gsdvrsResponseStatus :: Lens' GetSubscriptionDefinitionVersionResponse Int-gsdvrsResponseStatus = lens _gsdvrsResponseStatus (\ s a -> s{_gsdvrsResponseStatus = a});+gsdvrsResponseStatus = lens _gsdvrsResponseStatus (\ s a -> s{_gsdvrsResponseStatus = a})  instance NFData            GetSubscriptionDefinitionVersionResponse
gen/Network/AWS/Greengrass/ListCoreDefinitionVersions.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.ListCoreDefinitionVersions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists versions of a core definition.+-- Lists the versions of a core definition. module Network.AWS.Greengrass.ListCoreDefinitionVersions     (     -- * Creating a Request@@ -57,33 +57,33 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lcdvNextToken' - Specifies the pagination token used when iterating through a paginated request+-- * 'lcdvNextToken' - The token for the next set of results, or ''null'' if there are no additional results. ----- * 'lcdvMaxResults' - Specifies the maximum number of list results to be returned in this page+-- * 'lcdvMaxResults' - The maximum number of results to be returned per request. ----- * 'lcdvCoreDefinitionId' - core definition Id+-- * 'lcdvCoreDefinitionId' - The ID of the core definition. listCoreDefinitionVersions     :: Text -- ^ 'lcdvCoreDefinitionId'     -> ListCoreDefinitionVersions listCoreDefinitionVersions pCoreDefinitionId_ =   ListCoreDefinitionVersions'-  { _lcdvNextToken = Nothing-  , _lcdvMaxResults = Nothing-  , _lcdvCoreDefinitionId = pCoreDefinitionId_-  }+    { _lcdvNextToken = Nothing+    , _lcdvMaxResults = Nothing+    , _lcdvCoreDefinitionId = pCoreDefinitionId_+    }  --- | Specifies the pagination token used when iterating through a paginated request+-- | The token for the next set of results, or ''null'' if there are no additional results. lcdvNextToken :: Lens' ListCoreDefinitionVersions (Maybe Text)-lcdvNextToken = lens _lcdvNextToken (\ s a -> s{_lcdvNextToken = a});+lcdvNextToken = lens _lcdvNextToken (\ s a -> s{_lcdvNextToken = a}) --- | Specifies the maximum number of list results to be returned in this page+-- | The maximum number of results to be returned per request. lcdvMaxResults :: Lens' ListCoreDefinitionVersions (Maybe Text)-lcdvMaxResults = lens _lcdvMaxResults (\ s a -> s{_lcdvMaxResults = a});+lcdvMaxResults = lens _lcdvMaxResults (\ s a -> s{_lcdvMaxResults = a}) --- | core definition Id+-- | The ID of the core definition. lcdvCoreDefinitionId :: Lens' ListCoreDefinitionVersions Text-lcdvCoreDefinitionId = lens _lcdvCoreDefinitionId (\ s a -> s{_lcdvCoreDefinitionId = a});+lcdvCoreDefinitionId = lens _lcdvCoreDefinitionId (\ s a -> s{_lcdvCoreDefinitionId = a})  instance AWSRequest ListCoreDefinitionVersions where         type Rs ListCoreDefinitionVersions =@@ -131,7 +131,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lcdvrsVersions' - Versions+-- * 'lcdvrsVersions' - Information about a version. -- -- * 'lcdvrsNextToken' - The token for the next set of results, or ''null'' if there are no additional results. --@@ -141,23 +141,23 @@     -> ListCoreDefinitionVersionsResponse listCoreDefinitionVersionsResponse pResponseStatus_ =   ListCoreDefinitionVersionsResponse'-  { _lcdvrsVersions = Nothing-  , _lcdvrsNextToken = Nothing-  , _lcdvrsResponseStatus = pResponseStatus_-  }+    { _lcdvrsVersions = Nothing+    , _lcdvrsNextToken = Nothing+    , _lcdvrsResponseStatus = pResponseStatus_+    }  --- | Versions+-- | Information about a version. lcdvrsVersions :: Lens' ListCoreDefinitionVersionsResponse [VersionInformation]-lcdvrsVersions = lens _lcdvrsVersions (\ s a -> s{_lcdvrsVersions = a}) . _Default . _Coerce;+lcdvrsVersions = lens _lcdvrsVersions (\ s a -> s{_lcdvrsVersions = a}) . _Default . _Coerce  -- | The token for the next set of results, or ''null'' if there are no additional results. lcdvrsNextToken :: Lens' ListCoreDefinitionVersionsResponse (Maybe Text)-lcdvrsNextToken = lens _lcdvrsNextToken (\ s a -> s{_lcdvrsNextToken = a});+lcdvrsNextToken = lens _lcdvrsNextToken (\ s a -> s{_lcdvrsNextToken = a})  -- | -- | The response status code. lcdvrsResponseStatus :: Lens' ListCoreDefinitionVersionsResponse Int-lcdvrsResponseStatus = lens _lcdvrsResponseStatus (\ s a -> s{_lcdvrsResponseStatus = a});+lcdvrsResponseStatus = lens _lcdvrsResponseStatus (\ s a -> s{_lcdvrsResponseStatus = a})  instance NFData ListCoreDefinitionVersionsResponse          where
gen/Network/AWS/Greengrass/ListCoreDefinitions.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.ListCoreDefinitions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -55,22 +55,22 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lcdNextToken' - Specifies the pagination token used when iterating through a paginated request+-- * 'lcdNextToken' - The token for the next set of results, or ''null'' if there are no additional results. ----- * 'lcdMaxResults' - Specifies the maximum number of list results to be returned in this page+-- * 'lcdMaxResults' - The maximum number of results to be returned per request. listCoreDefinitions     :: ListCoreDefinitions listCoreDefinitions =   ListCoreDefinitions' {_lcdNextToken = Nothing, _lcdMaxResults = Nothing}  --- | Specifies the pagination token used when iterating through a paginated request+-- | The token for the next set of results, or ''null'' if there are no additional results. lcdNextToken :: Lens' ListCoreDefinitions (Maybe Text)-lcdNextToken = lens _lcdNextToken (\ s a -> s{_lcdNextToken = a});+lcdNextToken = lens _lcdNextToken (\ s a -> s{_lcdNextToken = a}) --- | Specifies the maximum number of list results to be returned in this page+-- | The maximum number of results to be returned per request. lcdMaxResults :: Lens' ListCoreDefinitions (Maybe Text)-lcdMaxResults = lens _lcdMaxResults (\ s a -> s{_lcdMaxResults = a});+lcdMaxResults = lens _lcdMaxResults (\ s a -> s{_lcdMaxResults = a})  instance AWSRequest ListCoreDefinitions where         type Rs ListCoreDefinitions =@@ -118,7 +118,7 @@ -- -- * 'lcdrsNextToken' - The token for the next set of results, or ''null'' if there are no additional results. ----- * 'lcdrsDefinitions' - Definitions+-- * 'lcdrsDefinitions' - Information about a definition. -- -- * 'lcdrsResponseStatus' - -- | The response status code. listCoreDefinitionsResponse@@ -126,22 +126,22 @@     -> ListCoreDefinitionsResponse listCoreDefinitionsResponse pResponseStatus_ =   ListCoreDefinitionsResponse'-  { _lcdrsNextToken = Nothing-  , _lcdrsDefinitions = Nothing-  , _lcdrsResponseStatus = pResponseStatus_-  }+    { _lcdrsNextToken = Nothing+    , _lcdrsDefinitions = Nothing+    , _lcdrsResponseStatus = pResponseStatus_+    }   -- | The token for the next set of results, or ''null'' if there are no additional results. lcdrsNextToken :: Lens' ListCoreDefinitionsResponse (Maybe Text)-lcdrsNextToken = lens _lcdrsNextToken (\ s a -> s{_lcdrsNextToken = a});+lcdrsNextToken = lens _lcdrsNextToken (\ s a -> s{_lcdrsNextToken = a}) --- | Definitions+-- | Information about a definition. lcdrsDefinitions :: Lens' ListCoreDefinitionsResponse [DefinitionInformation]-lcdrsDefinitions = lens _lcdrsDefinitions (\ s a -> s{_lcdrsDefinitions = a}) . _Default . _Coerce;+lcdrsDefinitions = lens _lcdrsDefinitions (\ s a -> s{_lcdrsDefinitions = a}) . _Default . _Coerce  -- | -- | The response status code. lcdrsResponseStatus :: Lens' ListCoreDefinitionsResponse Int-lcdrsResponseStatus = lens _lcdrsResponseStatus (\ s a -> s{_lcdrsResponseStatus = a});+lcdrsResponseStatus = lens _lcdrsResponseStatus (\ s a -> s{_lcdrsResponseStatus = a})  instance NFData ListCoreDefinitionsResponse where
gen/Network/AWS/Greengrass/ListDeployments.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.ListDeployments--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -57,30 +57,30 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lNextToken' - Specifies the pagination token used when iterating through a paginated request+-- * 'lNextToken' - The token for the next set of results, or ''null'' if there are no additional results. ----- * 'lMaxResults' - Specifies the maximum number of list results to be returned in this page+-- * 'lMaxResults' - The maximum number of results to be returned per request. ----- * 'lGroupId' - The unique Id of the AWS Greengrass Group+-- * 'lGroupId' - The ID of the AWS Greengrass group. listDeployments     :: Text -- ^ 'lGroupId'     -> ListDeployments listDeployments pGroupId_ =   ListDeployments'-  {_lNextToken = Nothing, _lMaxResults = Nothing, _lGroupId = pGroupId_}+    {_lNextToken = Nothing, _lMaxResults = Nothing, _lGroupId = pGroupId_}  --- | Specifies the pagination token used when iterating through a paginated request+-- | The token for the next set of results, or ''null'' if there are no additional results. lNextToken :: Lens' ListDeployments (Maybe Text)-lNextToken = lens _lNextToken (\ s a -> s{_lNextToken = a});+lNextToken = lens _lNextToken (\ s a -> s{_lNextToken = a}) --- | Specifies the maximum number of list results to be returned in this page+-- | The maximum number of results to be returned per request. lMaxResults :: Lens' ListDeployments (Maybe Text)-lMaxResults = lens _lMaxResults (\ s a -> s{_lMaxResults = a});+lMaxResults = lens _lMaxResults (\ s a -> s{_lMaxResults = a}) --- | The unique Id of the AWS Greengrass Group+-- | The ID of the AWS Greengrass group. lGroupId :: Lens' ListDeployments Text-lGroupId = lens _lGroupId (\ s a -> s{_lGroupId = a});+lGroupId = lens _lGroupId (\ s a -> s{_lGroupId = a})  instance AWSRequest ListDeployments where         type Rs ListDeployments = ListDeploymentsResponse@@ -130,7 +130,7 @@ -- -- * 'ldrsNextToken' - The token for the next set of results, or ''null'' if there are no additional results. ----- * 'ldrsDeployments' - List of deployments for the requested groups+-- * 'ldrsDeployments' - A list of deployments for the requested groups. -- -- * 'ldrsResponseStatus' - -- | The response status code. listDeploymentsResponse@@ -138,22 +138,22 @@     -> ListDeploymentsResponse listDeploymentsResponse pResponseStatus_ =   ListDeploymentsResponse'-  { _ldrsNextToken = Nothing-  , _ldrsDeployments = Nothing-  , _ldrsResponseStatus = pResponseStatus_-  }+    { _ldrsNextToken = Nothing+    , _ldrsDeployments = Nothing+    , _ldrsResponseStatus = pResponseStatus_+    }   -- | The token for the next set of results, or ''null'' if there are no additional results. ldrsNextToken :: Lens' ListDeploymentsResponse (Maybe Text)-ldrsNextToken = lens _ldrsNextToken (\ s a -> s{_ldrsNextToken = a});+ldrsNextToken = lens _ldrsNextToken (\ s a -> s{_ldrsNextToken = a}) --- | List of deployments for the requested groups+-- | A list of deployments for the requested groups. ldrsDeployments :: Lens' ListDeploymentsResponse [Deployment]-ldrsDeployments = lens _ldrsDeployments (\ s a -> s{_ldrsDeployments = a}) . _Default . _Coerce;+ldrsDeployments = lens _ldrsDeployments (\ s a -> s{_ldrsDeployments = a}) . _Default . _Coerce  -- | -- | The response status code. ldrsResponseStatus :: Lens' ListDeploymentsResponse Int-ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a});+ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a})  instance NFData ListDeploymentsResponse where
gen/Network/AWS/Greengrass/ListDeviceDefinitionVersions.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.ListDeviceDefinitionVersions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -57,33 +57,33 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lddvNextToken' - Specifies the pagination token used when iterating through a paginated request+-- * 'lddvNextToken' - The token for the next set of results, or ''null'' if there are no additional results. ----- * 'lddvMaxResults' - Specifies the maximum number of list results to be returned in this page+-- * 'lddvMaxResults' - The maximum number of results to be returned per request. ----- * 'lddvDeviceDefinitionId' - device definition Id+-- * 'lddvDeviceDefinitionId' - The ID of the device definition. listDeviceDefinitionVersions     :: Text -- ^ 'lddvDeviceDefinitionId'     -> ListDeviceDefinitionVersions listDeviceDefinitionVersions pDeviceDefinitionId_ =   ListDeviceDefinitionVersions'-  { _lddvNextToken = Nothing-  , _lddvMaxResults = Nothing-  , _lddvDeviceDefinitionId = pDeviceDefinitionId_-  }+    { _lddvNextToken = Nothing+    , _lddvMaxResults = Nothing+    , _lddvDeviceDefinitionId = pDeviceDefinitionId_+    }  --- | Specifies the pagination token used when iterating through a paginated request+-- | The token for the next set of results, or ''null'' if there are no additional results. lddvNextToken :: Lens' ListDeviceDefinitionVersions (Maybe Text)-lddvNextToken = lens _lddvNextToken (\ s a -> s{_lddvNextToken = a});+lddvNextToken = lens _lddvNextToken (\ s a -> s{_lddvNextToken = a}) --- | Specifies the maximum number of list results to be returned in this page+-- | The maximum number of results to be returned per request. lddvMaxResults :: Lens' ListDeviceDefinitionVersions (Maybe Text)-lddvMaxResults = lens _lddvMaxResults (\ s a -> s{_lddvMaxResults = a});+lddvMaxResults = lens _lddvMaxResults (\ s a -> s{_lddvMaxResults = a}) --- | device definition Id+-- | The ID of the device definition. lddvDeviceDefinitionId :: Lens' ListDeviceDefinitionVersions Text-lddvDeviceDefinitionId = lens _lddvDeviceDefinitionId (\ s a -> s{_lddvDeviceDefinitionId = a});+lddvDeviceDefinitionId = lens _lddvDeviceDefinitionId (\ s a -> s{_lddvDeviceDefinitionId = a})  instance AWSRequest ListDeviceDefinitionVersions          where@@ -132,7 +132,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lddvrsVersions' - Versions+-- * 'lddvrsVersions' - Information about a version. -- -- * 'lddvrsNextToken' - The token for the next set of results, or ''null'' if there are no additional results. --@@ -142,23 +142,23 @@     -> ListDeviceDefinitionVersionsResponse listDeviceDefinitionVersionsResponse pResponseStatus_ =   ListDeviceDefinitionVersionsResponse'-  { _lddvrsVersions = Nothing-  , _lddvrsNextToken = Nothing-  , _lddvrsResponseStatus = pResponseStatus_-  }+    { _lddvrsVersions = Nothing+    , _lddvrsNextToken = Nothing+    , _lddvrsResponseStatus = pResponseStatus_+    }  --- | Versions+-- | Information about a version. lddvrsVersions :: Lens' ListDeviceDefinitionVersionsResponse [VersionInformation]-lddvrsVersions = lens _lddvrsVersions (\ s a -> s{_lddvrsVersions = a}) . _Default . _Coerce;+lddvrsVersions = lens _lddvrsVersions (\ s a -> s{_lddvrsVersions = a}) . _Default . _Coerce  -- | The token for the next set of results, or ''null'' if there are no additional results. lddvrsNextToken :: Lens' ListDeviceDefinitionVersionsResponse (Maybe Text)-lddvrsNextToken = lens _lddvrsNextToken (\ s a -> s{_lddvrsNextToken = a});+lddvrsNextToken = lens _lddvrsNextToken (\ s a -> s{_lddvrsNextToken = a})  -- | -- | The response status code. lddvrsResponseStatus :: Lens' ListDeviceDefinitionVersionsResponse Int-lddvrsResponseStatus = lens _lddvrsResponseStatus (\ s a -> s{_lddvrsResponseStatus = a});+lddvrsResponseStatus = lens _lddvrsResponseStatus (\ s a -> s{_lddvrsResponseStatus = a})  instance NFData ListDeviceDefinitionVersionsResponse          where
gen/Network/AWS/Greengrass/ListDeviceDefinitions.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.ListDeviceDefinitions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -55,22 +55,22 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lddNextToken' - Specifies the pagination token used when iterating through a paginated request+-- * 'lddNextToken' - The token for the next set of results, or ''null'' if there are no additional results. ----- * 'lddMaxResults' - Specifies the maximum number of list results to be returned in this page+-- * 'lddMaxResults' - The maximum number of results to be returned per request. listDeviceDefinitions     :: ListDeviceDefinitions listDeviceDefinitions =   ListDeviceDefinitions' {_lddNextToken = Nothing, _lddMaxResults = Nothing}  --- | Specifies the pagination token used when iterating through a paginated request+-- | The token for the next set of results, or ''null'' if there are no additional results. lddNextToken :: Lens' ListDeviceDefinitions (Maybe Text)-lddNextToken = lens _lddNextToken (\ s a -> s{_lddNextToken = a});+lddNextToken = lens _lddNextToken (\ s a -> s{_lddNextToken = a}) --- | Specifies the maximum number of list results to be returned in this page+-- | The maximum number of results to be returned per request. lddMaxResults :: Lens' ListDeviceDefinitions (Maybe Text)-lddMaxResults = lens _lddMaxResults (\ s a -> s{_lddMaxResults = a});+lddMaxResults = lens _lddMaxResults (\ s a -> s{_lddMaxResults = a})  instance AWSRequest ListDeviceDefinitions where         type Rs ListDeviceDefinitions =@@ -118,7 +118,7 @@ -- -- * 'lddrsNextToken' - The token for the next set of results, or ''null'' if there are no additional results. ----- * 'lddrsDefinitions' - Definitions+-- * 'lddrsDefinitions' - Information about a definition. -- -- * 'lddrsResponseStatus' - -- | The response status code. listDeviceDefinitionsResponse@@ -126,22 +126,22 @@     -> ListDeviceDefinitionsResponse listDeviceDefinitionsResponse pResponseStatus_ =   ListDeviceDefinitionsResponse'-  { _lddrsNextToken = Nothing-  , _lddrsDefinitions = Nothing-  , _lddrsResponseStatus = pResponseStatus_-  }+    { _lddrsNextToken = Nothing+    , _lddrsDefinitions = Nothing+    , _lddrsResponseStatus = pResponseStatus_+    }   -- | The token for the next set of results, or ''null'' if there are no additional results. lddrsNextToken :: Lens' ListDeviceDefinitionsResponse (Maybe Text)-lddrsNextToken = lens _lddrsNextToken (\ s a -> s{_lddrsNextToken = a});+lddrsNextToken = lens _lddrsNextToken (\ s a -> s{_lddrsNextToken = a}) --- | Definitions+-- | Information about a definition. lddrsDefinitions :: Lens' ListDeviceDefinitionsResponse [DefinitionInformation]-lddrsDefinitions = lens _lddrsDefinitions (\ s a -> s{_lddrsDefinitions = a}) . _Default . _Coerce;+lddrsDefinitions = lens _lddrsDefinitions (\ s a -> s{_lddrsDefinitions = a}) . _Default . _Coerce  -- | -- | The response status code. lddrsResponseStatus :: Lens' ListDeviceDefinitionsResponse Int-lddrsResponseStatus = lens _lddrsResponseStatus (\ s a -> s{_lddrsResponseStatus = a});+lddrsResponseStatus = lens _lddrsResponseStatus (\ s a -> s{_lddrsResponseStatus = a})  instance NFData ListDeviceDefinitionsResponse where
gen/Network/AWS/Greengrass/ListFunctionDefinitionVersions.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.ListFunctionDefinitionVersions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -57,33 +57,33 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lfdvNextToken' - Specifies the pagination token used when iterating through a paginated request+-- * 'lfdvNextToken' - The token for the next set of results, or ''null'' if there are no additional results. ----- * 'lfdvMaxResults' - Specifies the maximum number of list results to be returned in this page+-- * 'lfdvMaxResults' - The maximum number of results to be returned per request. ----- * 'lfdvFunctionDefinitionId' - the unique Id of the lambda definition+-- * 'lfdvFunctionDefinitionId' - The ID of the Lambda function definition. listFunctionDefinitionVersions     :: Text -- ^ 'lfdvFunctionDefinitionId'     -> ListFunctionDefinitionVersions listFunctionDefinitionVersions pFunctionDefinitionId_ =   ListFunctionDefinitionVersions'-  { _lfdvNextToken = Nothing-  , _lfdvMaxResults = Nothing-  , _lfdvFunctionDefinitionId = pFunctionDefinitionId_-  }+    { _lfdvNextToken = Nothing+    , _lfdvMaxResults = Nothing+    , _lfdvFunctionDefinitionId = pFunctionDefinitionId_+    }  --- | Specifies the pagination token used when iterating through a paginated request+-- | The token for the next set of results, or ''null'' if there are no additional results. lfdvNextToken :: Lens' ListFunctionDefinitionVersions (Maybe Text)-lfdvNextToken = lens _lfdvNextToken (\ s a -> s{_lfdvNextToken = a});+lfdvNextToken = lens _lfdvNextToken (\ s a -> s{_lfdvNextToken = a}) --- | Specifies the maximum number of list results to be returned in this page+-- | The maximum number of results to be returned per request. lfdvMaxResults :: Lens' ListFunctionDefinitionVersions (Maybe Text)-lfdvMaxResults = lens _lfdvMaxResults (\ s a -> s{_lfdvMaxResults = a});+lfdvMaxResults = lens _lfdvMaxResults (\ s a -> s{_lfdvMaxResults = a}) --- | the unique Id of the lambda definition+-- | The ID of the Lambda function definition. lfdvFunctionDefinitionId :: Lens' ListFunctionDefinitionVersions Text-lfdvFunctionDefinitionId = lens _lfdvFunctionDefinitionId (\ s a -> s{_lfdvFunctionDefinitionId = a});+lfdvFunctionDefinitionId = lens _lfdvFunctionDefinitionId (\ s a -> s{_lfdvFunctionDefinitionId = a})  instance AWSRequest ListFunctionDefinitionVersions          where@@ -134,7 +134,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lfdvrsVersions' - Versions+-- * 'lfdvrsVersions' - Information about a version. -- -- * 'lfdvrsNextToken' - The token for the next set of results, or ''null'' if there are no additional results. --@@ -144,23 +144,23 @@     -> ListFunctionDefinitionVersionsResponse listFunctionDefinitionVersionsResponse pResponseStatus_ =   ListFunctionDefinitionVersionsResponse'-  { _lfdvrsVersions = Nothing-  , _lfdvrsNextToken = Nothing-  , _lfdvrsResponseStatus = pResponseStatus_-  }+    { _lfdvrsVersions = Nothing+    , _lfdvrsNextToken = Nothing+    , _lfdvrsResponseStatus = pResponseStatus_+    }  --- | Versions+-- | Information about a version. lfdvrsVersions :: Lens' ListFunctionDefinitionVersionsResponse [VersionInformation]-lfdvrsVersions = lens _lfdvrsVersions (\ s a -> s{_lfdvrsVersions = a}) . _Default . _Coerce;+lfdvrsVersions = lens _lfdvrsVersions (\ s a -> s{_lfdvrsVersions = a}) . _Default . _Coerce  -- | The token for the next set of results, or ''null'' if there are no additional results. lfdvrsNextToken :: Lens' ListFunctionDefinitionVersionsResponse (Maybe Text)-lfdvrsNextToken = lens _lfdvrsNextToken (\ s a -> s{_lfdvrsNextToken = a});+lfdvrsNextToken = lens _lfdvrsNextToken (\ s a -> s{_lfdvrsNextToken = a})  -- | -- | The response status code. lfdvrsResponseStatus :: Lens' ListFunctionDefinitionVersionsResponse Int-lfdvrsResponseStatus = lens _lfdvrsResponseStatus (\ s a -> s{_lfdvrsResponseStatus = a});+lfdvrsResponseStatus = lens _lfdvrsResponseStatus (\ s a -> s{_lfdvrsResponseStatus = a})  instance NFData            ListFunctionDefinitionVersionsResponse
gen/Network/AWS/Greengrass/ListFunctionDefinitions.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.ListFunctionDefinitions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -55,22 +55,22 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lfdNextToken' - Specifies the pagination token used when iterating through a paginated request+-- * 'lfdNextToken' - The token for the next set of results, or ''null'' if there are no additional results. ----- * 'lfdMaxResults' - Specifies the maximum number of list results to be returned in this page+-- * 'lfdMaxResults' - The maximum number of results to be returned per request. listFunctionDefinitions     :: ListFunctionDefinitions listFunctionDefinitions =   ListFunctionDefinitions' {_lfdNextToken = Nothing, _lfdMaxResults = Nothing}  --- | Specifies the pagination token used when iterating through a paginated request+-- | The token for the next set of results, or ''null'' if there are no additional results. lfdNextToken :: Lens' ListFunctionDefinitions (Maybe Text)-lfdNextToken = lens _lfdNextToken (\ s a -> s{_lfdNextToken = a});+lfdNextToken = lens _lfdNextToken (\ s a -> s{_lfdNextToken = a}) --- | Specifies the maximum number of list results to be returned in this page+-- | The maximum number of results to be returned per request. lfdMaxResults :: Lens' ListFunctionDefinitions (Maybe Text)-lfdMaxResults = lens _lfdMaxResults (\ s a -> s{_lfdMaxResults = a});+lfdMaxResults = lens _lfdMaxResults (\ s a -> s{_lfdMaxResults = a})  instance AWSRequest ListFunctionDefinitions where         type Rs ListFunctionDefinitions =@@ -118,7 +118,7 @@ -- -- * 'lfdrsNextToken' - The token for the next set of results, or ''null'' if there are no additional results. ----- * 'lfdrsDefinitions' - Definitions+-- * 'lfdrsDefinitions' - Information about a definition. -- -- * 'lfdrsResponseStatus' - -- | The response status code. listFunctionDefinitionsResponse@@ -126,22 +126,22 @@     -> ListFunctionDefinitionsResponse listFunctionDefinitionsResponse pResponseStatus_ =   ListFunctionDefinitionsResponse'-  { _lfdrsNextToken = Nothing-  , _lfdrsDefinitions = Nothing-  , _lfdrsResponseStatus = pResponseStatus_-  }+    { _lfdrsNextToken = Nothing+    , _lfdrsDefinitions = Nothing+    , _lfdrsResponseStatus = pResponseStatus_+    }   -- | The token for the next set of results, or ''null'' if there are no additional results. lfdrsNextToken :: Lens' ListFunctionDefinitionsResponse (Maybe Text)-lfdrsNextToken = lens _lfdrsNextToken (\ s a -> s{_lfdrsNextToken = a});+lfdrsNextToken = lens _lfdrsNextToken (\ s a -> s{_lfdrsNextToken = a}) --- | Definitions+-- | Information about a definition. lfdrsDefinitions :: Lens' ListFunctionDefinitionsResponse [DefinitionInformation]-lfdrsDefinitions = lens _lfdrsDefinitions (\ s a -> s{_lfdrsDefinitions = a}) . _Default . _Coerce;+lfdrsDefinitions = lens _lfdrsDefinitions (\ s a -> s{_lfdrsDefinitions = a}) . _Default . _Coerce  -- | -- | The response status code. lfdrsResponseStatus :: Lens' ListFunctionDefinitionsResponse Int-lfdrsResponseStatus = lens _lfdrsResponseStatus (\ s a -> s{_lfdrsResponseStatus = a});+lfdrsResponseStatus = lens _lfdrsResponseStatus (\ s a -> s{_lfdrsResponseStatus = a})  instance NFData ListFunctionDefinitionsResponse where
gen/Network/AWS/Greengrass/ListGroupCertificateAuthorities.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.ListGroupCertificateAuthorities--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -52,7 +52,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lgcaGroupId' - The unique Id of the AWS Greengrass Group+-- * 'lgcaGroupId' - The ID of the AWS Greengrass group. listGroupCertificateAuthorities     :: Text -- ^ 'lgcaGroupId'     -> ListGroupCertificateAuthorities@@ -60,9 +60,9 @@   ListGroupCertificateAuthorities' {_lgcaGroupId = pGroupId_}  --- | The unique Id of the AWS Greengrass Group+-- | The ID of the AWS Greengrass group. lgcaGroupId :: Lens' ListGroupCertificateAuthorities Text-lgcaGroupId = lens _lgcaGroupId (\ s a -> s{_lgcaGroupId = a});+lgcaGroupId = lens _lgcaGroupId (\ s a -> s{_lgcaGroupId = a})  instance AWSRequest ListGroupCertificateAuthorities          where@@ -110,7 +110,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lgcarsGroupCertificateAuthorities' - List of certificate authorities associated with the group.+-- * 'lgcarsGroupCertificateAuthorities' - A list of certificate authorities associated with the group. -- -- * 'lgcarsResponseStatus' - -- | The response status code. listGroupCertificateAuthoritiesResponse@@ -118,18 +118,18 @@     -> ListGroupCertificateAuthoritiesResponse listGroupCertificateAuthoritiesResponse pResponseStatus_ =   ListGroupCertificateAuthoritiesResponse'-  { _lgcarsGroupCertificateAuthorities = Nothing-  , _lgcarsResponseStatus = pResponseStatus_-  }+    { _lgcarsGroupCertificateAuthorities = Nothing+    , _lgcarsResponseStatus = pResponseStatus_+    }  --- | List of certificate authorities associated with the group.+-- | A list of certificate authorities associated with the group. lgcarsGroupCertificateAuthorities :: Lens' ListGroupCertificateAuthoritiesResponse [GroupCertificateAuthorityProperties]-lgcarsGroupCertificateAuthorities = lens _lgcarsGroupCertificateAuthorities (\ s a -> s{_lgcarsGroupCertificateAuthorities = a}) . _Default . _Coerce;+lgcarsGroupCertificateAuthorities = lens _lgcarsGroupCertificateAuthorities (\ s a -> s{_lgcarsGroupCertificateAuthorities = a}) . _Default . _Coerce  -- | -- | The response status code. lgcarsResponseStatus :: Lens' ListGroupCertificateAuthoritiesResponse Int-lgcarsResponseStatus = lens _lgcarsResponseStatus (\ s a -> s{_lgcarsResponseStatus = a});+lgcarsResponseStatus = lens _lgcarsResponseStatus (\ s a -> s{_lgcarsResponseStatus = a})  instance NFData            ListGroupCertificateAuthoritiesResponse
gen/Network/AWS/Greengrass/ListGroupVersions.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.ListGroupVersions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- List the versions of a group.+-- Lists the versions of a group. module Network.AWS.Greengrass.ListGroupVersions     (     -- * Creating a Request@@ -57,30 +57,30 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lgvNextToken' - Specifies the pagination token used when iterating through a paginated request+-- * 'lgvNextToken' - The token for the next set of results, or ''null'' if there are no additional results. ----- * 'lgvMaxResults' - Specifies the maximum number of list results to be returned in this page+-- * 'lgvMaxResults' - The maximum number of results to be returned per request. ----- * 'lgvGroupId' - The unique Id of the AWS Greengrass Group+-- * 'lgvGroupId' - The ID of the AWS Greengrass group. listGroupVersions     :: Text -- ^ 'lgvGroupId'     -> ListGroupVersions listGroupVersions pGroupId_ =   ListGroupVersions'-  {_lgvNextToken = Nothing, _lgvMaxResults = Nothing, _lgvGroupId = pGroupId_}+    {_lgvNextToken = Nothing, _lgvMaxResults = Nothing, _lgvGroupId = pGroupId_}  --- | Specifies the pagination token used when iterating through a paginated request+-- | The token for the next set of results, or ''null'' if there are no additional results. lgvNextToken :: Lens' ListGroupVersions (Maybe Text)-lgvNextToken = lens _lgvNextToken (\ s a -> s{_lgvNextToken = a});+lgvNextToken = lens _lgvNextToken (\ s a -> s{_lgvNextToken = a}) --- | Specifies the maximum number of list results to be returned in this page+-- | The maximum number of results to be returned per request. lgvMaxResults :: Lens' ListGroupVersions (Maybe Text)-lgvMaxResults = lens _lgvMaxResults (\ s a -> s{_lgvMaxResults = a});+lgvMaxResults = lens _lgvMaxResults (\ s a -> s{_lgvMaxResults = a}) --- | The unique Id of the AWS Greengrass Group+-- | The ID of the AWS Greengrass group. lgvGroupId :: Lens' ListGroupVersions Text-lgvGroupId = lens _lgvGroupId (\ s a -> s{_lgvGroupId = a});+lgvGroupId = lens _lgvGroupId (\ s a -> s{_lgvGroupId = a})  instance AWSRequest ListGroupVersions where         type Rs ListGroupVersions = ListGroupVersionsResponse@@ -127,7 +127,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lgvrsVersions' - Versions+-- * 'lgvrsVersions' - Information about a version. -- -- * 'lgvrsNextToken' - The token for the next set of results, or ''null'' if there are no additional results. --@@ -137,22 +137,22 @@     -> ListGroupVersionsResponse listGroupVersionsResponse pResponseStatus_ =   ListGroupVersionsResponse'-  { _lgvrsVersions = Nothing-  , _lgvrsNextToken = Nothing-  , _lgvrsResponseStatus = pResponseStatus_-  }+    { _lgvrsVersions = Nothing+    , _lgvrsNextToken = Nothing+    , _lgvrsResponseStatus = pResponseStatus_+    }  --- | Versions+-- | Information about a version. lgvrsVersions :: Lens' ListGroupVersionsResponse [VersionInformation]-lgvrsVersions = lens _lgvrsVersions (\ s a -> s{_lgvrsVersions = a}) . _Default . _Coerce;+lgvrsVersions = lens _lgvrsVersions (\ s a -> s{_lgvrsVersions = a}) . _Default . _Coerce  -- | The token for the next set of results, or ''null'' if there are no additional results. lgvrsNextToken :: Lens' ListGroupVersionsResponse (Maybe Text)-lgvrsNextToken = lens _lgvrsNextToken (\ s a -> s{_lgvrsNextToken = a});+lgvrsNextToken = lens _lgvrsNextToken (\ s a -> s{_lgvrsNextToken = a})  -- | -- | The response status code. lgvrsResponseStatus :: Lens' ListGroupVersionsResponse Int-lgvrsResponseStatus = lens _lgvrsResponseStatus (\ s a -> s{_lgvrsResponseStatus = a});+lgvrsResponseStatus = lens _lgvrsResponseStatus (\ s a -> s{_lgvrsResponseStatus = a})  instance NFData ListGroupVersionsResponse where
gen/Network/AWS/Greengrass/ListGroups.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.ListGroups--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -55,21 +55,21 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lgNextToken' - Specifies the pagination token used when iterating through a paginated request+-- * 'lgNextToken' - The token for the next set of results, or ''null'' if there are no additional results. ----- * 'lgMaxResults' - Specifies the maximum number of list results to be returned in this page+-- * 'lgMaxResults' - The maximum number of results to be returned per request. listGroups     :: ListGroups listGroups = ListGroups' {_lgNextToken = Nothing, _lgMaxResults = Nothing}  --- | Specifies the pagination token used when iterating through a paginated request+-- | The token for the next set of results, or ''null'' if there are no additional results. lgNextToken :: Lens' ListGroups (Maybe Text)-lgNextToken = lens _lgNextToken (\ s a -> s{_lgNextToken = a});+lgNextToken = lens _lgNextToken (\ s a -> s{_lgNextToken = a}) --- | Specifies the maximum number of list results to be returned in this page+-- | The maximum number of results to be returned per request. lgMaxResults :: Lens' ListGroups (Maybe Text)-lgMaxResults = lens _lgMaxResults (\ s a -> s{_lgMaxResults = a});+lgMaxResults = lens _lgMaxResults (\ s a -> s{_lgMaxResults = a})  instance AWSRequest ListGroups where         type Rs ListGroups = ListGroupsResponse@@ -113,7 +113,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lgrsGroups' - Groups+-- * 'lgrsGroups' - Information about a group. -- -- * 'lgrsNextToken' - The token for the next set of results, or ''null'' if there are no additional results. --@@ -123,22 +123,22 @@     -> ListGroupsResponse listGroupsResponse pResponseStatus_ =   ListGroupsResponse'-  { _lgrsGroups = Nothing-  , _lgrsNextToken = Nothing-  , _lgrsResponseStatus = pResponseStatus_-  }+    { _lgrsGroups = Nothing+    , _lgrsNextToken = Nothing+    , _lgrsResponseStatus = pResponseStatus_+    }  --- | Groups+-- | Information about a group. lgrsGroups :: Lens' ListGroupsResponse [GroupInformation]-lgrsGroups = lens _lgrsGroups (\ s a -> s{_lgrsGroups = a}) . _Default . _Coerce;+lgrsGroups = lens _lgrsGroups (\ s a -> s{_lgrsGroups = a}) . _Default . _Coerce  -- | The token for the next set of results, or ''null'' if there are no additional results. lgrsNextToken :: Lens' ListGroupsResponse (Maybe Text)-lgrsNextToken = lens _lgrsNextToken (\ s a -> s{_lgrsNextToken = a});+lgrsNextToken = lens _lgrsNextToken (\ s a -> s{_lgrsNextToken = a})  -- | -- | The response status code. lgrsResponseStatus :: Lens' ListGroupsResponse Int-lgrsResponseStatus = lens _lgrsResponseStatus (\ s a -> s{_lgrsResponseStatus = a});+lgrsResponseStatus = lens _lgrsResponseStatus (\ s a -> s{_lgrsResponseStatus = a})  instance NFData ListGroupsResponse where
gen/Network/AWS/Greengrass/ListLoggerDefinitionVersions.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.ListLoggerDefinitionVersions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -57,33 +57,33 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lldvNextToken' - Specifies the pagination token used when iterating through a paginated request+-- * 'lldvNextToken' - The token for the next set of results, or ''null'' if there are no additional results. ----- * 'lldvMaxResults' - Specifies the maximum number of list results to be returned in this page+-- * 'lldvMaxResults' - The maximum number of results to be returned per request. ----- * 'lldvLoggerDefinitionId' - logger definition Id+-- * 'lldvLoggerDefinitionId' - The ID of the logger definition. listLoggerDefinitionVersions     :: Text -- ^ 'lldvLoggerDefinitionId'     -> ListLoggerDefinitionVersions listLoggerDefinitionVersions pLoggerDefinitionId_ =   ListLoggerDefinitionVersions'-  { _lldvNextToken = Nothing-  , _lldvMaxResults = Nothing-  , _lldvLoggerDefinitionId = pLoggerDefinitionId_-  }+    { _lldvNextToken = Nothing+    , _lldvMaxResults = Nothing+    , _lldvLoggerDefinitionId = pLoggerDefinitionId_+    }  --- | Specifies the pagination token used when iterating through a paginated request+-- | The token for the next set of results, or ''null'' if there are no additional results. lldvNextToken :: Lens' ListLoggerDefinitionVersions (Maybe Text)-lldvNextToken = lens _lldvNextToken (\ s a -> s{_lldvNextToken = a});+lldvNextToken = lens _lldvNextToken (\ s a -> s{_lldvNextToken = a}) --- | Specifies the maximum number of list results to be returned in this page+-- | The maximum number of results to be returned per request. lldvMaxResults :: Lens' ListLoggerDefinitionVersions (Maybe Text)-lldvMaxResults = lens _lldvMaxResults (\ s a -> s{_lldvMaxResults = a});+lldvMaxResults = lens _lldvMaxResults (\ s a -> s{_lldvMaxResults = a}) --- | logger definition Id+-- | The ID of the logger definition. lldvLoggerDefinitionId :: Lens' ListLoggerDefinitionVersions Text-lldvLoggerDefinitionId = lens _lldvLoggerDefinitionId (\ s a -> s{_lldvLoggerDefinitionId = a});+lldvLoggerDefinitionId = lens _lldvLoggerDefinitionId (\ s a -> s{_lldvLoggerDefinitionId = a})  instance AWSRequest ListLoggerDefinitionVersions          where@@ -132,7 +132,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lldvrsVersions' - Versions+-- * 'lldvrsVersions' - Information about a version. -- -- * 'lldvrsNextToken' - The token for the next set of results, or ''null'' if there are no additional results. --@@ -142,23 +142,23 @@     -> ListLoggerDefinitionVersionsResponse listLoggerDefinitionVersionsResponse pResponseStatus_ =   ListLoggerDefinitionVersionsResponse'-  { _lldvrsVersions = Nothing-  , _lldvrsNextToken = Nothing-  , _lldvrsResponseStatus = pResponseStatus_-  }+    { _lldvrsVersions = Nothing+    , _lldvrsNextToken = Nothing+    , _lldvrsResponseStatus = pResponseStatus_+    }  --- | Versions+-- | Information about a version. lldvrsVersions :: Lens' ListLoggerDefinitionVersionsResponse [VersionInformation]-lldvrsVersions = lens _lldvrsVersions (\ s a -> s{_lldvrsVersions = a}) . _Default . _Coerce;+lldvrsVersions = lens _lldvrsVersions (\ s a -> s{_lldvrsVersions = a}) . _Default . _Coerce  -- | The token for the next set of results, or ''null'' if there are no additional results. lldvrsNextToken :: Lens' ListLoggerDefinitionVersionsResponse (Maybe Text)-lldvrsNextToken = lens _lldvrsNextToken (\ s a -> s{_lldvrsNextToken = a});+lldvrsNextToken = lens _lldvrsNextToken (\ s a -> s{_lldvrsNextToken = a})  -- | -- | The response status code. lldvrsResponseStatus :: Lens' ListLoggerDefinitionVersionsResponse Int-lldvrsResponseStatus = lens _lldvrsResponseStatus (\ s a -> s{_lldvrsResponseStatus = a});+lldvrsResponseStatus = lens _lldvrsResponseStatus (\ s a -> s{_lldvrsResponseStatus = a})  instance NFData ListLoggerDefinitionVersionsResponse          where
gen/Network/AWS/Greengrass/ListLoggerDefinitions.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.ListLoggerDefinitions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -55,22 +55,22 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lldNextToken' - Specifies the pagination token used when iterating through a paginated request+-- * 'lldNextToken' - The token for the next set of results, or ''null'' if there are no additional results. ----- * 'lldMaxResults' - Specifies the maximum number of list results to be returned in this page+-- * 'lldMaxResults' - The maximum number of results to be returned per request. listLoggerDefinitions     :: ListLoggerDefinitions listLoggerDefinitions =   ListLoggerDefinitions' {_lldNextToken = Nothing, _lldMaxResults = Nothing}  --- | Specifies the pagination token used when iterating through a paginated request+-- | The token for the next set of results, or ''null'' if there are no additional results. lldNextToken :: Lens' ListLoggerDefinitions (Maybe Text)-lldNextToken = lens _lldNextToken (\ s a -> s{_lldNextToken = a});+lldNextToken = lens _lldNextToken (\ s a -> s{_lldNextToken = a}) --- | Specifies the maximum number of list results to be returned in this page+-- | The maximum number of results to be returned per request. lldMaxResults :: Lens' ListLoggerDefinitions (Maybe Text)-lldMaxResults = lens _lldMaxResults (\ s a -> s{_lldMaxResults = a});+lldMaxResults = lens _lldMaxResults (\ s a -> s{_lldMaxResults = a})  instance AWSRequest ListLoggerDefinitions where         type Rs ListLoggerDefinitions =@@ -118,7 +118,7 @@ -- -- * 'lldrsNextToken' - The token for the next set of results, or ''null'' if there are no additional results. ----- * 'lldrsDefinitions' - Definitions+-- * 'lldrsDefinitions' - Information about a definition. -- -- * 'lldrsResponseStatus' - -- | The response status code. listLoggerDefinitionsResponse@@ -126,22 +126,22 @@     -> ListLoggerDefinitionsResponse listLoggerDefinitionsResponse pResponseStatus_ =   ListLoggerDefinitionsResponse'-  { _lldrsNextToken = Nothing-  , _lldrsDefinitions = Nothing-  , _lldrsResponseStatus = pResponseStatus_-  }+    { _lldrsNextToken = Nothing+    , _lldrsDefinitions = Nothing+    , _lldrsResponseStatus = pResponseStatus_+    }   -- | The token for the next set of results, or ''null'' if there are no additional results. lldrsNextToken :: Lens' ListLoggerDefinitionsResponse (Maybe Text)-lldrsNextToken = lens _lldrsNextToken (\ s a -> s{_lldrsNextToken = a});+lldrsNextToken = lens _lldrsNextToken (\ s a -> s{_lldrsNextToken = a}) --- | Definitions+-- | Information about a definition. lldrsDefinitions :: Lens' ListLoggerDefinitionsResponse [DefinitionInformation]-lldrsDefinitions = lens _lldrsDefinitions (\ s a -> s{_lldrsDefinitions = a}) . _Default . _Coerce;+lldrsDefinitions = lens _lldrsDefinitions (\ s a -> s{_lldrsDefinitions = a}) . _Default . _Coerce  -- | -- | The response status code. lldrsResponseStatus :: Lens' ListLoggerDefinitionsResponse Int-lldrsResponseStatus = lens _lldrsResponseStatus (\ s a -> s{_lldrsResponseStatus = a});+lldrsResponseStatus = lens _lldrsResponseStatus (\ s a -> s{_lldrsResponseStatus = a})  instance NFData ListLoggerDefinitionsResponse where
+ gen/Network/AWS/Greengrass/ListResourceDefinitionVersions.hs view
@@ -0,0 +1,167 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Greengrass.ListResourceDefinitionVersions+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the versions of a resource definition.+module Network.AWS.Greengrass.ListResourceDefinitionVersions+    (+    -- * Creating a Request+      listResourceDefinitionVersions+    , ListResourceDefinitionVersions+    -- * Request Lenses+    , lrdvNextToken+    , lrdvMaxResults+    , lrdvResourceDefinitionId++    -- * Destructuring the Response+    , listResourceDefinitionVersionsResponse+    , ListResourceDefinitionVersionsResponse+    -- * Response Lenses+    , lrdvrsVersions+    , lrdvrsNextToken+    , lrdvrsResponseStatus+    ) where++import Network.AWS.Greengrass.Types+import Network.AWS.Greengrass.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'listResourceDefinitionVersions' smart constructor.+data ListResourceDefinitionVersions = ListResourceDefinitionVersions'+  { _lrdvNextToken            :: !(Maybe Text)+  , _lrdvMaxResults           :: !(Maybe Text)+  , _lrdvResourceDefinitionId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListResourceDefinitionVersions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lrdvNextToken' - The token for the next set of results, or ''null'' if there are no additional results.+--+-- * 'lrdvMaxResults' - The maximum number of results to be returned per request.+--+-- * 'lrdvResourceDefinitionId' - The ID of the resource definition.+listResourceDefinitionVersions+    :: Text -- ^ 'lrdvResourceDefinitionId'+    -> ListResourceDefinitionVersions+listResourceDefinitionVersions pResourceDefinitionId_ =+  ListResourceDefinitionVersions'+    { _lrdvNextToken = Nothing+    , _lrdvMaxResults = Nothing+    , _lrdvResourceDefinitionId = pResourceDefinitionId_+    }+++-- | The token for the next set of results, or ''null'' if there are no additional results.+lrdvNextToken :: Lens' ListResourceDefinitionVersions (Maybe Text)+lrdvNextToken = lens _lrdvNextToken (\ s a -> s{_lrdvNextToken = a})++-- | The maximum number of results to be returned per request.+lrdvMaxResults :: Lens' ListResourceDefinitionVersions (Maybe Text)+lrdvMaxResults = lens _lrdvMaxResults (\ s a -> s{_lrdvMaxResults = a})++-- | The ID of the resource definition.+lrdvResourceDefinitionId :: Lens' ListResourceDefinitionVersions Text+lrdvResourceDefinitionId = lens _lrdvResourceDefinitionId (\ s a -> s{_lrdvResourceDefinitionId = a})++instance AWSRequest ListResourceDefinitionVersions+         where+        type Rs ListResourceDefinitionVersions =+             ListResourceDefinitionVersionsResponse+        request = get greengrass+        response+          = receiveJSON+              (\ s h x ->+                 ListResourceDefinitionVersionsResponse' <$>+                   (x .?> "Versions" .!@ mempty) <*> (x .?> "NextToken")+                     <*> (pure (fromEnum s)))++instance Hashable ListResourceDefinitionVersions+         where++instance NFData ListResourceDefinitionVersions where++instance ToHeaders ListResourceDefinitionVersions+         where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath ListResourceDefinitionVersions where+        toPath ListResourceDefinitionVersions'{..}+          = mconcat+              ["/greengrass/definition/resources/",+               toBS _lrdvResourceDefinitionId, "/versions"]++instance ToQuery ListResourceDefinitionVersions where+        toQuery ListResourceDefinitionVersions'{..}+          = mconcat+              ["NextToken" =: _lrdvNextToken,+               "MaxResults" =: _lrdvMaxResults]++-- | /See:/ 'listResourceDefinitionVersionsResponse' smart constructor.+data ListResourceDefinitionVersionsResponse = ListResourceDefinitionVersionsResponse'+  { _lrdvrsVersions       :: !(Maybe [VersionInformation])+  , _lrdvrsNextToken      :: !(Maybe Text)+  , _lrdvrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListResourceDefinitionVersionsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lrdvrsVersions' - Information about a version.+--+-- * 'lrdvrsNextToken' - The token for the next set of results, or ''null'' if there are no additional results.+--+-- * 'lrdvrsResponseStatus' - -- | The response status code.+listResourceDefinitionVersionsResponse+    :: Int -- ^ 'lrdvrsResponseStatus'+    -> ListResourceDefinitionVersionsResponse+listResourceDefinitionVersionsResponse pResponseStatus_ =+  ListResourceDefinitionVersionsResponse'+    { _lrdvrsVersions = Nothing+    , _lrdvrsNextToken = Nothing+    , _lrdvrsResponseStatus = pResponseStatus_+    }+++-- | Information about a version.+lrdvrsVersions :: Lens' ListResourceDefinitionVersionsResponse [VersionInformation]+lrdvrsVersions = lens _lrdvrsVersions (\ s a -> s{_lrdvrsVersions = a}) . _Default . _Coerce++-- | The token for the next set of results, or ''null'' if there are no additional results.+lrdvrsNextToken :: Lens' ListResourceDefinitionVersionsResponse (Maybe Text)+lrdvrsNextToken = lens _lrdvrsNextToken (\ s a -> s{_lrdvrsNextToken = a})++-- | -- | The response status code.+lrdvrsResponseStatus :: Lens' ListResourceDefinitionVersionsResponse Int+lrdvrsResponseStatus = lens _lrdvrsResponseStatus (\ s a -> s{_lrdvrsResponseStatus = a})++instance NFData+           ListResourceDefinitionVersionsResponse+         where
+ gen/Network/AWS/Greengrass/ListResourceDefinitions.hs view
@@ -0,0 +1,147 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Greengrass.ListResourceDefinitions+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves a list of resource definitions.+module Network.AWS.Greengrass.ListResourceDefinitions+    (+    -- * Creating a Request+      listResourceDefinitions+    , ListResourceDefinitions+    -- * Request Lenses+    , lrdNextToken+    , lrdMaxResults++    -- * Destructuring the Response+    , listResourceDefinitionsResponse+    , ListResourceDefinitionsResponse+    -- * Response Lenses+    , lrdrsNextToken+    , lrdrsDefinitions+    , lrdrsResponseStatus+    ) where++import Network.AWS.Greengrass.Types+import Network.AWS.Greengrass.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'listResourceDefinitions' smart constructor.+data ListResourceDefinitions = ListResourceDefinitions'+  { _lrdNextToken  :: !(Maybe Text)+  , _lrdMaxResults :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListResourceDefinitions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lrdNextToken' - The token for the next set of results, or ''null'' if there are no additional results.+--+-- * 'lrdMaxResults' - The maximum number of results to be returned per request.+listResourceDefinitions+    :: ListResourceDefinitions+listResourceDefinitions =+  ListResourceDefinitions' {_lrdNextToken = Nothing, _lrdMaxResults = Nothing}+++-- | The token for the next set of results, or ''null'' if there are no additional results.+lrdNextToken :: Lens' ListResourceDefinitions (Maybe Text)+lrdNextToken = lens _lrdNextToken (\ s a -> s{_lrdNextToken = a})++-- | The maximum number of results to be returned per request.+lrdMaxResults :: Lens' ListResourceDefinitions (Maybe Text)+lrdMaxResults = lens _lrdMaxResults (\ s a -> s{_lrdMaxResults = a})++instance AWSRequest ListResourceDefinitions where+        type Rs ListResourceDefinitions =+             ListResourceDefinitionsResponse+        request = get greengrass+        response+          = receiveJSON+              (\ s h x ->+                 ListResourceDefinitionsResponse' <$>+                   (x .?> "NextToken") <*>+                     (x .?> "Definitions" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable ListResourceDefinitions where++instance NFData ListResourceDefinitions where++instance ToHeaders ListResourceDefinitions where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath ListResourceDefinitions where+        toPath = const "/greengrass/definition/resources"++instance ToQuery ListResourceDefinitions where+        toQuery ListResourceDefinitions'{..}+          = mconcat+              ["NextToken" =: _lrdNextToken,+               "MaxResults" =: _lrdMaxResults]++-- | /See:/ 'listResourceDefinitionsResponse' smart constructor.+data ListResourceDefinitionsResponse = ListResourceDefinitionsResponse'+  { _lrdrsNextToken      :: !(Maybe Text)+  , _lrdrsDefinitions    :: !(Maybe [DefinitionInformation])+  , _lrdrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListResourceDefinitionsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lrdrsNextToken' - The token for the next set of results, or ''null'' if there are no additional results.+--+-- * 'lrdrsDefinitions' - Information about a definition.+--+-- * 'lrdrsResponseStatus' - -- | The response status code.+listResourceDefinitionsResponse+    :: Int -- ^ 'lrdrsResponseStatus'+    -> ListResourceDefinitionsResponse+listResourceDefinitionsResponse pResponseStatus_ =+  ListResourceDefinitionsResponse'+    { _lrdrsNextToken = Nothing+    , _lrdrsDefinitions = Nothing+    , _lrdrsResponseStatus = pResponseStatus_+    }+++-- | The token for the next set of results, or ''null'' if there are no additional results.+lrdrsNextToken :: Lens' ListResourceDefinitionsResponse (Maybe Text)+lrdrsNextToken = lens _lrdrsNextToken (\ s a -> s{_lrdrsNextToken = a})++-- | Information about a definition.+lrdrsDefinitions :: Lens' ListResourceDefinitionsResponse [DefinitionInformation]+lrdrsDefinitions = lens _lrdrsDefinitions (\ s a -> s{_lrdrsDefinitions = a}) . _Default . _Coerce++-- | -- | The response status code.+lrdrsResponseStatus :: Lens' ListResourceDefinitionsResponse Int+lrdrsResponseStatus = lens _lrdrsResponseStatus (\ s a -> s{_lrdrsResponseStatus = a})++instance NFData ListResourceDefinitionsResponse where
gen/Network/AWS/Greengrass/ListSubscriptionDefinitionVersions.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.ListSubscriptionDefinitionVersions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -57,33 +57,33 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lsdvNextToken' - Specifies the pagination token used when iterating through a paginated request+-- * 'lsdvNextToken' - The token for the next set of results, or ''null'' if there are no additional results. ----- * 'lsdvMaxResults' - Specifies the maximum number of list results to be returned in this page+-- * 'lsdvMaxResults' - The maximum number of results to be returned per request. ----- * 'lsdvSubscriptionDefinitionId' - subscription definition Id+-- * 'lsdvSubscriptionDefinitionId' - The ID of the subscription definition. listSubscriptionDefinitionVersions     :: Text -- ^ 'lsdvSubscriptionDefinitionId'     -> ListSubscriptionDefinitionVersions listSubscriptionDefinitionVersions pSubscriptionDefinitionId_ =   ListSubscriptionDefinitionVersions'-  { _lsdvNextToken = Nothing-  , _lsdvMaxResults = Nothing-  , _lsdvSubscriptionDefinitionId = pSubscriptionDefinitionId_-  }+    { _lsdvNextToken = Nothing+    , _lsdvMaxResults = Nothing+    , _lsdvSubscriptionDefinitionId = pSubscriptionDefinitionId_+    }  --- | Specifies the pagination token used when iterating through a paginated request+-- | The token for the next set of results, or ''null'' if there are no additional results. lsdvNextToken :: Lens' ListSubscriptionDefinitionVersions (Maybe Text)-lsdvNextToken = lens _lsdvNextToken (\ s a -> s{_lsdvNextToken = a});+lsdvNextToken = lens _lsdvNextToken (\ s a -> s{_lsdvNextToken = a}) --- | Specifies the maximum number of list results to be returned in this page+-- | The maximum number of results to be returned per request. lsdvMaxResults :: Lens' ListSubscriptionDefinitionVersions (Maybe Text)-lsdvMaxResults = lens _lsdvMaxResults (\ s a -> s{_lsdvMaxResults = a});+lsdvMaxResults = lens _lsdvMaxResults (\ s a -> s{_lsdvMaxResults = a}) --- | subscription definition Id+-- | The ID of the subscription definition. lsdvSubscriptionDefinitionId :: Lens' ListSubscriptionDefinitionVersions Text-lsdvSubscriptionDefinitionId = lens _lsdvSubscriptionDefinitionId (\ s a -> s{_lsdvSubscriptionDefinitionId = a});+lsdvSubscriptionDefinitionId = lens _lsdvSubscriptionDefinitionId (\ s a -> s{_lsdvSubscriptionDefinitionId = a})  instance AWSRequest            ListSubscriptionDefinitionVersions@@ -138,7 +138,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lsdvrsVersions' - Versions+-- * 'lsdvrsVersions' - Information about a version. -- -- * 'lsdvrsNextToken' - The token for the next set of results, or ''null'' if there are no additional results. --@@ -148,23 +148,23 @@     -> ListSubscriptionDefinitionVersionsResponse listSubscriptionDefinitionVersionsResponse pResponseStatus_ =   ListSubscriptionDefinitionVersionsResponse'-  { _lsdvrsVersions = Nothing-  , _lsdvrsNextToken = Nothing-  , _lsdvrsResponseStatus = pResponseStatus_-  }+    { _lsdvrsVersions = Nothing+    , _lsdvrsNextToken = Nothing+    , _lsdvrsResponseStatus = pResponseStatus_+    }  --- | Versions+-- | Information about a version. lsdvrsVersions :: Lens' ListSubscriptionDefinitionVersionsResponse [VersionInformation]-lsdvrsVersions = lens _lsdvrsVersions (\ s a -> s{_lsdvrsVersions = a}) . _Default . _Coerce;+lsdvrsVersions = lens _lsdvrsVersions (\ s a -> s{_lsdvrsVersions = a}) . _Default . _Coerce  -- | The token for the next set of results, or ''null'' if there are no additional results. lsdvrsNextToken :: Lens' ListSubscriptionDefinitionVersionsResponse (Maybe Text)-lsdvrsNextToken = lens _lsdvrsNextToken (\ s a -> s{_lsdvrsNextToken = a});+lsdvrsNextToken = lens _lsdvrsNextToken (\ s a -> s{_lsdvrsNextToken = a})  -- | -- | The response status code. lsdvrsResponseStatus :: Lens' ListSubscriptionDefinitionVersionsResponse Int-lsdvrsResponseStatus = lens _lsdvrsResponseStatus (\ s a -> s{_lsdvrsResponseStatus = a});+lsdvrsResponseStatus = lens _lsdvrsResponseStatus (\ s a -> s{_lsdvrsResponseStatus = a})  instance NFData            ListSubscriptionDefinitionVersionsResponse
gen/Network/AWS/Greengrass/ListSubscriptionDefinitions.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.ListSubscriptionDefinitions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -55,23 +55,23 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lsdNextToken' - Specifies the pagination token used when iterating through a paginated request+-- * 'lsdNextToken' - The token for the next set of results, or ''null'' if there are no additional results. ----- * 'lsdMaxResults' - Specifies the maximum number of list results to be returned in this page+-- * 'lsdMaxResults' - The maximum number of results to be returned per request. listSubscriptionDefinitions     :: ListSubscriptionDefinitions listSubscriptionDefinitions =   ListSubscriptionDefinitions'-  {_lsdNextToken = Nothing, _lsdMaxResults = Nothing}+    {_lsdNextToken = Nothing, _lsdMaxResults = Nothing}  --- | Specifies the pagination token used when iterating through a paginated request+-- | The token for the next set of results, or ''null'' if there are no additional results. lsdNextToken :: Lens' ListSubscriptionDefinitions (Maybe Text)-lsdNextToken = lens _lsdNextToken (\ s a -> s{_lsdNextToken = a});+lsdNextToken = lens _lsdNextToken (\ s a -> s{_lsdNextToken = a}) --- | Specifies the maximum number of list results to be returned in this page+-- | The maximum number of results to be returned per request. lsdMaxResults :: Lens' ListSubscriptionDefinitions (Maybe Text)-lsdMaxResults = lens _lsdMaxResults (\ s a -> s{_lsdMaxResults = a});+lsdMaxResults = lens _lsdMaxResults (\ s a -> s{_lsdMaxResults = a})  instance AWSRequest ListSubscriptionDefinitions where         type Rs ListSubscriptionDefinitions =@@ -119,7 +119,7 @@ -- -- * 'lsdrsNextToken' - The token for the next set of results, or ''null'' if there are no additional results. ----- * 'lsdrsDefinitions' - Definitions+-- * 'lsdrsDefinitions' - Information about a definition. -- -- * 'lsdrsResponseStatus' - -- | The response status code. listSubscriptionDefinitionsResponse@@ -127,23 +127,23 @@     -> ListSubscriptionDefinitionsResponse listSubscriptionDefinitionsResponse pResponseStatus_ =   ListSubscriptionDefinitionsResponse'-  { _lsdrsNextToken = Nothing-  , _lsdrsDefinitions = Nothing-  , _lsdrsResponseStatus = pResponseStatus_-  }+    { _lsdrsNextToken = Nothing+    , _lsdrsDefinitions = Nothing+    , _lsdrsResponseStatus = pResponseStatus_+    }   -- | The token for the next set of results, or ''null'' if there are no additional results. lsdrsNextToken :: Lens' ListSubscriptionDefinitionsResponse (Maybe Text)-lsdrsNextToken = lens _lsdrsNextToken (\ s a -> s{_lsdrsNextToken = a});+lsdrsNextToken = lens _lsdrsNextToken (\ s a -> s{_lsdrsNextToken = a}) --- | Definitions+-- | Information about a definition. lsdrsDefinitions :: Lens' ListSubscriptionDefinitionsResponse [DefinitionInformation]-lsdrsDefinitions = lens _lsdrsDefinitions (\ s a -> s{_lsdrsDefinitions = a}) . _Default . _Coerce;+lsdrsDefinitions = lens _lsdrsDefinitions (\ s a -> s{_lsdrsDefinitions = a}) . _Default . _Coerce  -- | -- | The response status code. lsdrsResponseStatus :: Lens' ListSubscriptionDefinitionsResponse Int-lsdrsResponseStatus = lens _lsdrsResponseStatus (\ s a -> s{_lsdrsResponseStatus = a});+lsdrsResponseStatus = lens _lsdrsResponseStatus (\ s a -> s{_lsdrsResponseStatus = a})  instance NFData ListSubscriptionDefinitionsResponse          where
gen/Network/AWS/Greengrass/ResetDeployments.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.ResetDeployments--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -45,7 +45,7 @@ import Network.AWS.Request import Network.AWS.Response --- | Information needed to perform a reset of a group's deployments.+-- | Information needed to reset deployments. -- -- /See:/ 'resetDeployments' smart constructor. data ResetDeployments = ResetDeployments'@@ -59,30 +59,30 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rdAmznClientToken' - The client token used to request idempotent operations.+-- * 'rdAmznClientToken' - A client token used to correlate requests and responses. ----- * 'rdForce' - When set to true, perform a best-effort only core reset.+-- * 'rdForce' - If true, performs a best-effort only core reset. ----- * 'rdGroupId' - The unique Id of the AWS Greengrass Group+-- * 'rdGroupId' - The ID of the AWS Greengrass group. resetDeployments     :: Text -- ^ 'rdGroupId'     -> ResetDeployments resetDeployments pGroupId_ =   ResetDeployments'-  {_rdAmznClientToken = Nothing, _rdForce = Nothing, _rdGroupId = pGroupId_}+    {_rdAmznClientToken = Nothing, _rdForce = Nothing, _rdGroupId = pGroupId_}  --- | The client token used to request idempotent operations.+-- | A client token used to correlate requests and responses. rdAmznClientToken :: Lens' ResetDeployments (Maybe Text)-rdAmznClientToken = lens _rdAmznClientToken (\ s a -> s{_rdAmznClientToken = a});+rdAmznClientToken = lens _rdAmznClientToken (\ s a -> s{_rdAmznClientToken = a}) --- | When set to true, perform a best-effort only core reset.+-- | If true, performs a best-effort only core reset. rdForce :: Lens' ResetDeployments (Maybe Bool)-rdForce = lens _rdForce (\ s a -> s{_rdForce = a});+rdForce = lens _rdForce (\ s a -> s{_rdForce = a}) --- | The unique Id of the AWS Greengrass Group+-- | The ID of the AWS Greengrass group. rdGroupId :: Lens' ResetDeployments Text-rdGroupId = lens _rdGroupId (\ s a -> s{_rdGroupId = a});+rdGroupId = lens _rdGroupId (\ s a -> s{_rdGroupId = a})  instance AWSRequest ResetDeployments where         type Rs ResetDeployments = ResetDeploymentsResponse@@ -130,9 +130,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rdrsDeploymentId' - The id of the reset deployment.+-- * 'rdrsDeploymentId' - The ID of the deployment. ----- * 'rdrsDeploymentARN' - The arn of the reset deployment.+-- * 'rdrsDeploymentARN' - The ARN of the deployment. -- -- * 'rdrsResponseStatus' - -- | The response status code. resetDeploymentsResponse@@ -140,22 +140,22 @@     -> ResetDeploymentsResponse resetDeploymentsResponse pResponseStatus_ =   ResetDeploymentsResponse'-  { _rdrsDeploymentId = Nothing-  , _rdrsDeploymentARN = Nothing-  , _rdrsResponseStatus = pResponseStatus_-  }+    { _rdrsDeploymentId = Nothing+    , _rdrsDeploymentARN = Nothing+    , _rdrsResponseStatus = pResponseStatus_+    }  --- | The id of the reset deployment.+-- | The ID of the deployment. rdrsDeploymentId :: Lens' ResetDeploymentsResponse (Maybe Text)-rdrsDeploymentId = lens _rdrsDeploymentId (\ s a -> s{_rdrsDeploymentId = a});+rdrsDeploymentId = lens _rdrsDeploymentId (\ s a -> s{_rdrsDeploymentId = a}) --- | The arn of the reset deployment.+-- | The ARN of the deployment. rdrsDeploymentARN :: Lens' ResetDeploymentsResponse (Maybe Text)-rdrsDeploymentARN = lens _rdrsDeploymentARN (\ s a -> s{_rdrsDeploymentARN = a});+rdrsDeploymentARN = lens _rdrsDeploymentARN (\ s a -> s{_rdrsDeploymentARN = a})  -- | -- | The response status code. rdrsResponseStatus :: Lens' ResetDeploymentsResponse Int-rdrsResponseStatus = lens _rdrsResponseStatus (\ s a -> s{_rdrsResponseStatus = a});+rdrsResponseStatus = lens _rdrsResponseStatus (\ s a -> s{_rdrsResponseStatus = a})  instance NFData ResetDeploymentsResponse where
gen/Network/AWS/Greengrass/Types.hs view
@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.Greengrass.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -22,6 +22,9 @@     -- * DeploymentType     , DeploymentType (..) +    -- * EncodingType+    , EncodingType (..)+     -- * LoggerComponent     , LoggerComponent (..) @@ -31,6 +34,21 @@     -- * LoggerType     , LoggerType (..) +    -- * Permission+    , Permission (..)++    -- * SoftwareToUpdate+    , SoftwareToUpdate (..)++    -- * UpdateAgentLogLevel+    , UpdateAgentLogLevel (..)++    -- * UpdateTargetsArchitecture+    , UpdateTargetsArchitecture (..)++    -- * UpdateTargetsOperatingSystem+    , UpdateTargetsOperatingSystem (..)+     -- * ConnectivityInfo     , ConnectivityInfo     , connectivityInfo@@ -106,12 +124,15 @@     , fcEnvironment     , fcExecutable     , fcPinned+    , fcEncodingType     , fcTimeout      -- * FunctionConfigurationEnvironment     , FunctionConfigurationEnvironment     , functionConfigurationEnvironment     , fceVariables+    , fceResourceAccessPolicies+    , fceAccessSysfs      -- * FunctionDefinitionVersion     , FunctionDefinitionVersion@@ -144,20 +165,78 @@     , giLatestVersion     , giLastUpdatedTimestamp +    -- * GroupOwnerSetting+    , GroupOwnerSetting+    , groupOwnerSetting+    , gosAutoAddGroupOwner+    , gosGroupOwner+     -- * GroupVersion     , GroupVersion     , groupVersion+    , gvResourceDefinitionVersionARN     , gvSubscriptionDefinitionVersionARN     , gvCoreDefinitionVersionARN     , gvDeviceDefinitionVersionARN     , gvFunctionDefinitionVersionARN     , gvLoggerDefinitionVersionARN +    -- * LocalDeviceResourceData+    , LocalDeviceResourceData+    , localDeviceResourceData+    , ldrdGroupOwnerSetting+    , ldrdSourcePath++    -- * LocalVolumeResourceData+    , LocalVolumeResourceData+    , localVolumeResourceData+    , lvrdGroupOwnerSetting+    , lvrdDestinationPath+    , lvrdSourcePath+     -- * LoggerDefinitionVersion     , LoggerDefinitionVersion     , loggerDefinitionVersion     , ldvLoggers +    -- * Resource+    , Resource+    , resource+    , rResourceDataContainer+    , rName+    , rId++    -- * ResourceAccessPolicy+    , ResourceAccessPolicy+    , resourceAccessPolicy+    , rapResourceId+    , rapPermission++    -- * ResourceDataContainer+    , ResourceDataContainer+    , resourceDataContainer+    , rdcS3MachineLearningModelResourceData+    , rdcSageMakerMachineLearningModelResourceData+    , rdcLocalVolumeResourceData+    , rdcLocalDeviceResourceData++    -- * ResourceDefinitionVersion+    , ResourceDefinitionVersion+    , resourceDefinitionVersion+    , rdvResources++    -- * S3MachineLearningModelResourceData+    , S3MachineLearningModelResourceData+    , s3MachineLearningModelResourceData+    , smlmrdDestinationPath+    , smlmrdS3URI++    -- * SageMakerMachineLearningModelResourceData+    , SageMakerMachineLearningModelResourceData+    , sageMakerMachineLearningModelResourceData+    , smmlmrdSageMakerJobARN+    , smmlmrdDestinationPath+     -- * Subscription     , Subscription     , subscription@@ -190,24 +269,24 @@ greengrass :: Service greengrass =   Service-  { _svcAbbrev = "Greengrass"-  , _svcSigner = v4-  , _svcPrefix = "greengrass"-  , _svcVersion = "2017-06-07"-  , _svcEndpoint = defaultEndpoint greengrass-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "Greengrass"-  , _svcRetry = retry-  }+    { _svcAbbrev = "Greengrass"+    , _svcSigner = v4+    , _svcPrefix = "greengrass"+    , _svcVersion = "2017-06-07"+    , _svcEndpoint = defaultEndpoint greengrass+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "Greengrass"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -216,6 +295,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"@@ -223,13 +304,13 @@       | otherwise = Nothing  --- | General Error+-- | General error information. _InternalServerErrorException :: AsError a => Getting (First ServiceError) a ServiceError _InternalServerErrorException =   _MatchServiceError greengrass "InternalServerErrorException" . hasStatus 500  --- | General Error+-- | General error information. _BadRequestException :: AsError a => Getting (First ServiceError) a ServiceError _BadRequestException =   _MatchServiceError greengrass "BadRequestException" . hasStatus 400
gen/Network/AWS/Greengrass/Types/Product.hs view
@@ -9,1234 +9,1774 @@  -- | -- Module      : Network.AWS.Greengrass.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.Greengrass.Types.Product where--import Network.AWS.Greengrass.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude---- | Connectivity Info------ /See:/ 'connectivityInfo' smart constructor.-data ConnectivityInfo = ConnectivityInfo'-  { _ciPortNumber  :: !(Maybe Int)-  , _ciId          :: !(Maybe Text)-  , _ciMetadata    :: !(Maybe Text)-  , _ciHostAddress :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ConnectivityInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ciPortNumber' - Port of the GGC. Usually 8883.------ * 'ciId' - Element Id for this entry in the list.------ * 'ciMetadata' - Metadata for this endpoint.------ * 'ciHostAddress' - Endpoint for the GGC. Can be an IP address or DNS.-connectivityInfo-    :: ConnectivityInfo-connectivityInfo =-  ConnectivityInfo'-  { _ciPortNumber = Nothing-  , _ciId = Nothing-  , _ciMetadata = Nothing-  , _ciHostAddress = Nothing-  }----- | Port of the GGC. Usually 8883.-ciPortNumber :: Lens' ConnectivityInfo (Maybe Int)-ciPortNumber = lens _ciPortNumber (\ s a -> s{_ciPortNumber = a});---- | Element Id for this entry in the list.-ciId :: Lens' ConnectivityInfo (Maybe Text)-ciId = lens _ciId (\ s a -> s{_ciId = a});---- | Metadata for this endpoint.-ciMetadata :: Lens' ConnectivityInfo (Maybe Text)-ciMetadata = lens _ciMetadata (\ s a -> s{_ciMetadata = a});---- | Endpoint for the GGC. Can be an IP address or DNS.-ciHostAddress :: Lens' ConnectivityInfo (Maybe Text)-ciHostAddress = lens _ciHostAddress (\ s a -> s{_ciHostAddress = a});--instance FromJSON ConnectivityInfo where-        parseJSON-          = withObject "ConnectivityInfo"-              (\ x ->-                 ConnectivityInfo' <$>-                   (x .:? "PortNumber") <*> (x .:? "Id") <*>-                     (x .:? "Metadata")-                     <*> (x .:? "HostAddress"))--instance Hashable ConnectivityInfo where--instance NFData ConnectivityInfo where--instance ToJSON ConnectivityInfo where-        toJSON ConnectivityInfo'{..}-          = object-              (catMaybes-                 [("PortNumber" .=) <$> _ciPortNumber,-                  ("Id" .=) <$> _ciId, ("Metadata" .=) <$> _ciMetadata,-                  ("HostAddress" .=) <$> _ciHostAddress])---- | Information on the core------ /See:/ 'core' smart constructor.-data Core = Core'-  { _cCertificateARN :: !(Maybe Text)-  , _cThingARN       :: !(Maybe Text)-  , _cSyncShadow     :: !(Maybe Bool)-  , _cId             :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Core' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cCertificateARN' - Certificate arn of the core.------ * 'cThingARN' - Thing arn of the core.------ * 'cSyncShadow' - If true, the local shadow value automatically syncs with the cloud's shadow state.------ * 'cId' - Element Id for this entry in the list.-core-    :: Core-core =-  Core'-  { _cCertificateARN = Nothing-  , _cThingARN = Nothing-  , _cSyncShadow = Nothing-  , _cId = Nothing-  }----- | Certificate arn of the core.-cCertificateARN :: Lens' Core (Maybe Text)-cCertificateARN = lens _cCertificateARN (\ s a -> s{_cCertificateARN = a});---- | Thing arn of the core.-cThingARN :: Lens' Core (Maybe Text)-cThingARN = lens _cThingARN (\ s a -> s{_cThingARN = a});---- | If true, the local shadow value automatically syncs with the cloud's shadow state.-cSyncShadow :: Lens' Core (Maybe Bool)-cSyncShadow = lens _cSyncShadow (\ s a -> s{_cSyncShadow = a});---- | Element Id for this entry in the list.-cId :: Lens' Core (Maybe Text)-cId = lens _cId (\ s a -> s{_cId = a});--instance FromJSON Core where-        parseJSON-          = withObject "Core"-              (\ x ->-                 Core' <$>-                   (x .:? "CertificateArn") <*> (x .:? "ThingArn") <*>-                     (x .:? "SyncShadow")-                     <*> (x .:? "Id"))--instance Hashable Core where--instance NFData Core where--instance ToJSON Core where-        toJSON Core'{..}-          = object-              (catMaybes-                 [("CertificateArn" .=) <$> _cCertificateARN,-                  ("ThingArn" .=) <$> _cThingARN,-                  ("SyncShadow" .=) <$> _cSyncShadow,-                  ("Id" .=) <$> _cId])---- | Information on core definition version------ /See:/ 'coreDefinitionVersion' smart constructor.-newtype CoreDefinitionVersion = CoreDefinitionVersion'-  { _cdvCores :: Maybe [Core]-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CoreDefinitionVersion' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cdvCores' - Cores in the definition version.-coreDefinitionVersion-    :: CoreDefinitionVersion-coreDefinitionVersion = CoreDefinitionVersion' {_cdvCores = Nothing}----- | Cores in the definition version.-cdvCores :: Lens' CoreDefinitionVersion [Core]-cdvCores = lens _cdvCores (\ s a -> s{_cdvCores = a}) . _Default . _Coerce;--instance FromJSON CoreDefinitionVersion where-        parseJSON-          = withObject "CoreDefinitionVersion"-              (\ x ->-                 CoreDefinitionVersion' <$>-                   (x .:? "Cores" .!= mempty))--instance Hashable CoreDefinitionVersion where--instance NFData CoreDefinitionVersion where--instance ToJSON CoreDefinitionVersion where-        toJSON CoreDefinitionVersion'{..}-          = object (catMaybes [("Cores" .=) <$> _cdvCores])---- | Information on the Definition------ /See:/ 'definitionInformation' smart constructor.-data DefinitionInformation = DefinitionInformation'-  { _diLatestVersionARN     :: !(Maybe Text)-  , _diARN                  :: !(Maybe Text)-  , _diName                 :: !(Maybe Text)-  , _diCreationTimestamp    :: !(Maybe Text)-  , _diId                   :: !(Maybe Text)-  , _diLatestVersion        :: !(Maybe Text)-  , _diLastUpdatedTimestamp :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DefinitionInformation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'diLatestVersionARN' - Latest version arn of the definition.------ * 'diARN' - Arn of the definition.------ * 'diName' - Name of the definition.------ * 'diCreationTimestamp' - Timestamp of when the definition was created.------ * 'diId' - Id of the definition.------ * 'diLatestVersion' - Last version of the definition.------ * 'diLastUpdatedTimestamp' - Last updated timestamp of the definition.-definitionInformation-    :: DefinitionInformation-definitionInformation =-  DefinitionInformation'-  { _diLatestVersionARN = Nothing-  , _diARN = Nothing-  , _diName = Nothing-  , _diCreationTimestamp = Nothing-  , _diId = Nothing-  , _diLatestVersion = Nothing-  , _diLastUpdatedTimestamp = Nothing-  }----- | Latest version arn of the definition.-diLatestVersionARN :: Lens' DefinitionInformation (Maybe Text)-diLatestVersionARN = lens _diLatestVersionARN (\ s a -> s{_diLatestVersionARN = a});---- | Arn of the definition.-diARN :: Lens' DefinitionInformation (Maybe Text)-diARN = lens _diARN (\ s a -> s{_diARN = a});---- | Name of the definition.-diName :: Lens' DefinitionInformation (Maybe Text)-diName = lens _diName (\ s a -> s{_diName = a});---- | Timestamp of when the definition was created.-diCreationTimestamp :: Lens' DefinitionInformation (Maybe Text)-diCreationTimestamp = lens _diCreationTimestamp (\ s a -> s{_diCreationTimestamp = a});---- | Id of the definition.-diId :: Lens' DefinitionInformation (Maybe Text)-diId = lens _diId (\ s a -> s{_diId = a});---- | Last version of the definition.-diLatestVersion :: Lens' DefinitionInformation (Maybe Text)-diLatestVersion = lens _diLatestVersion (\ s a -> s{_diLatestVersion = a});---- | Last updated timestamp of the definition.-diLastUpdatedTimestamp :: Lens' DefinitionInformation (Maybe Text)-diLastUpdatedTimestamp = lens _diLastUpdatedTimestamp (\ s a -> s{_diLastUpdatedTimestamp = a});--instance FromJSON DefinitionInformation where-        parseJSON-          = withObject "DefinitionInformation"-              (\ x ->-                 DefinitionInformation' <$>-                   (x .:? "LatestVersionArn") <*> (x .:? "Arn") <*>-                     (x .:? "Name")-                     <*> (x .:? "CreationTimestamp")-                     <*> (x .:? "Id")-                     <*> (x .:? "LatestVersion")-                     <*> (x .:? "LastUpdatedTimestamp"))--instance Hashable DefinitionInformation where--instance NFData DefinitionInformation where---- | Information on the deployment------ /See:/ 'deployment' smart constructor.-data Deployment = Deployment'-  { _dDeploymentId   :: !(Maybe Text)-  , _dDeploymentARN  :: !(Maybe Text)-  , _dCreatedAt      :: !(Maybe Text)-  , _dDeploymentType :: !(Maybe DeploymentType)-  , _dGroupARN       :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Deployment' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dDeploymentId' - Id of the deployment.------ * 'dDeploymentARN' - Arn of the deployment.------ * 'dCreatedAt' - Timestamp when the deployment was created.------ * 'dDeploymentType' - The type of deployment.------ * 'dGroupARN' - Arn of the group for this deployment.-deployment-    :: Deployment-deployment =-  Deployment'-  { _dDeploymentId = Nothing-  , _dDeploymentARN = Nothing-  , _dCreatedAt = Nothing-  , _dDeploymentType = Nothing-  , _dGroupARN = Nothing-  }----- | Id of the deployment.-dDeploymentId :: Lens' Deployment (Maybe Text)-dDeploymentId = lens _dDeploymentId (\ s a -> s{_dDeploymentId = a});---- | Arn of the deployment.-dDeploymentARN :: Lens' Deployment (Maybe Text)-dDeploymentARN = lens _dDeploymentARN (\ s a -> s{_dDeploymentARN = a});---- | Timestamp when the deployment was created.-dCreatedAt :: Lens' Deployment (Maybe Text)-dCreatedAt = lens _dCreatedAt (\ s a -> s{_dCreatedAt = a});---- | The type of deployment.-dDeploymentType :: Lens' Deployment (Maybe DeploymentType)-dDeploymentType = lens _dDeploymentType (\ s a -> s{_dDeploymentType = a});---- | Arn of the group for this deployment.-dGroupARN :: Lens' Deployment (Maybe Text)-dGroupARN = lens _dGroupARN (\ s a -> s{_dGroupARN = a});--instance FromJSON Deployment where-        parseJSON-          = withObject "Deployment"-              (\ x ->-                 Deployment' <$>-                   (x .:? "DeploymentId") <*> (x .:? "DeploymentArn")-                     <*> (x .:? "CreatedAt")-                     <*> (x .:? "DeploymentType")-                     <*> (x .:? "GroupArn"))--instance Hashable Deployment where--instance NFData Deployment where---- | Information on a Device------ /See:/ 'device' smart constructor.-data Device = Device'-  { _dCertificateARN :: !(Maybe Text)-  , _dThingARN       :: !(Maybe Text)-  , _dSyncShadow     :: !(Maybe Bool)-  , _dId             :: !(Maybe Text)-  } deriving (Eq, Read, 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:------ * 'dCertificateARN' - Certificate arn of the device.------ * 'dThingARN' - Thing arn of the device.------ * 'dSyncShadow' - If true, the local shadow value automatically syncs with the cloud's shadow state.------ * 'dId' - Element Id for this entry in the list.-device-    :: Device-device =-  Device'-  { _dCertificateARN = Nothing-  , _dThingARN = Nothing-  , _dSyncShadow = Nothing-  , _dId = Nothing-  }----- | Certificate arn of the device.-dCertificateARN :: Lens' Device (Maybe Text)-dCertificateARN = lens _dCertificateARN (\ s a -> s{_dCertificateARN = a});---- | Thing arn of the device.-dThingARN :: Lens' Device (Maybe Text)-dThingARN = lens _dThingARN (\ s a -> s{_dThingARN = a});---- | If true, the local shadow value automatically syncs with the cloud's shadow state.-dSyncShadow :: Lens' Device (Maybe Bool)-dSyncShadow = lens _dSyncShadow (\ s a -> s{_dSyncShadow = a});---- | Element Id for this entry in the list.-dId :: Lens' Device (Maybe Text)-dId = lens _dId (\ s a -> s{_dId = a});--instance FromJSON Device where-        parseJSON-          = withObject "Device"-              (\ x ->-                 Device' <$>-                   (x .:? "CertificateArn") <*> (x .:? "ThingArn") <*>-                     (x .:? "SyncShadow")-                     <*> (x .:? "Id"))--instance Hashable Device where--instance NFData Device where--instance ToJSON Device where-        toJSON Device'{..}-          = object-              (catMaybes-                 [("CertificateArn" .=) <$> _dCertificateARN,-                  ("ThingArn" .=) <$> _dThingARN,-                  ("SyncShadow" .=) <$> _dSyncShadow,-                  ("Id" .=) <$> _dId])---- | Information on device definition version------ /See:/ 'deviceDefinitionVersion' smart constructor.-newtype DeviceDefinitionVersion = DeviceDefinitionVersion'-  { _ddvDevices :: Maybe [Device]-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeviceDefinitionVersion' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ddvDevices' - Devices in the definition version.-deviceDefinitionVersion-    :: DeviceDefinitionVersion-deviceDefinitionVersion = DeviceDefinitionVersion' {_ddvDevices = Nothing}----- | Devices in the definition version.-ddvDevices :: Lens' DeviceDefinitionVersion [Device]-ddvDevices = lens _ddvDevices (\ s a -> s{_ddvDevices = a}) . _Default . _Coerce;--instance FromJSON DeviceDefinitionVersion where-        parseJSON-          = withObject "DeviceDefinitionVersion"-              (\ x ->-                 DeviceDefinitionVersion' <$>-                   (x .:? "Devices" .!= mempty))--instance Hashable DeviceDefinitionVersion where--instance NFData DeviceDefinitionVersion where--instance ToJSON DeviceDefinitionVersion where-        toJSON DeviceDefinitionVersion'{..}-          = object (catMaybes [("Devices" .=) <$> _ddvDevices])---- | ErrorDetail------ /See:/ 'errorDetail' smart constructor.-data ErrorDetail = ErrorDetail'-  { _edDetailedErrorCode    :: !(Maybe Text)-  , _edDetailedErrorMessage :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ErrorDetail' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'edDetailedErrorCode' - Detailed Error Code------ * 'edDetailedErrorMessage' - Detailed Error Message-errorDetail-    :: ErrorDetail-errorDetail =-  ErrorDetail'-  {_edDetailedErrorCode = Nothing, _edDetailedErrorMessage = Nothing}----- | Detailed Error Code-edDetailedErrorCode :: Lens' ErrorDetail (Maybe Text)-edDetailedErrorCode = lens _edDetailedErrorCode (\ s a -> s{_edDetailedErrorCode = a});---- | Detailed Error Message-edDetailedErrorMessage :: Lens' ErrorDetail (Maybe Text)-edDetailedErrorMessage = lens _edDetailedErrorMessage (\ s a -> s{_edDetailedErrorMessage = a});--instance FromJSON ErrorDetail where-        parseJSON-          = withObject "ErrorDetail"-              (\ x ->-                 ErrorDetail' <$>-                   (x .:? "DetailedErrorCode") <*>-                     (x .:? "DetailedErrorMessage"))--instance Hashable ErrorDetail where--instance NFData ErrorDetail where---- | Information on function------ /See:/ 'function' smart constructor.-data Function = Function'-  { _fFunctionARN           :: !(Maybe Text)-  , _fFunctionConfiguration :: !(Maybe FunctionConfiguration)-  , _fId                    :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Function' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fFunctionARN' - Arn of the Lambda function.------ * 'fFunctionConfiguration' - Configuration of the function------ * 'fId' - Id of the function in this version.-function-    :: Function-function =-  Function'-  {_fFunctionARN = Nothing, _fFunctionConfiguration = Nothing, _fId = Nothing}----- | Arn of the Lambda function.-fFunctionARN :: Lens' Function (Maybe Text)-fFunctionARN = lens _fFunctionARN (\ s a -> s{_fFunctionARN = a});---- | Configuration of the function-fFunctionConfiguration :: Lens' Function (Maybe FunctionConfiguration)-fFunctionConfiguration = lens _fFunctionConfiguration (\ s a -> s{_fFunctionConfiguration = a});---- | Id of the function in this version.-fId :: Lens' Function (Maybe Text)-fId = lens _fId (\ s a -> s{_fId = a});--instance FromJSON Function where-        parseJSON-          = withObject "Function"-              (\ x ->-                 Function' <$>-                   (x .:? "FunctionArn") <*>-                     (x .:? "FunctionConfiguration")-                     <*> (x .:? "Id"))--instance Hashable Function where--instance NFData Function where--instance ToJSON Function where-        toJSON Function'{..}-          = object-              (catMaybes-                 [("FunctionArn" .=) <$> _fFunctionARN,-                  ("FunctionConfiguration" .=) <$>-                    _fFunctionConfiguration,-                  ("Id" .=) <$> _fId])---- | Configuration of the function------ /See:/ 'functionConfiguration' smart constructor.-data FunctionConfiguration = FunctionConfiguration'-  { _fcMemorySize  :: !(Maybe Int)-  , _fcExecArgs    :: !(Maybe Text)-  , _fcEnvironment :: !(Maybe FunctionConfigurationEnvironment)-  , _fcExecutable  :: !(Maybe Text)-  , _fcPinned      :: !(Maybe Bool)-  , _fcTimeout     :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'FunctionConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fcMemorySize' - The memory size, in KB, you configured for the function.------ * 'fcExecArgs' - Execution Arguments------ * 'fcEnvironment' - Environment of the function configuration------ * 'fcExecutable' - Executable------ * 'fcPinned' - Whether the function is pinned or not. Pinned means the function is long-lived and starts when the core starts.------ * 'fcTimeout' - The function execution time at which Lambda should terminate the function. This timeout still applies to pinned lambdas for each request.-functionConfiguration-    :: FunctionConfiguration-functionConfiguration =-  FunctionConfiguration'-  { _fcMemorySize = Nothing-  , _fcExecArgs = Nothing-  , _fcEnvironment = Nothing-  , _fcExecutable = Nothing-  , _fcPinned = Nothing-  , _fcTimeout = Nothing-  }----- | The memory size, in KB, you configured for the function.-fcMemorySize :: Lens' FunctionConfiguration (Maybe Int)-fcMemorySize = lens _fcMemorySize (\ s a -> s{_fcMemorySize = a});---- | Execution Arguments-fcExecArgs :: Lens' FunctionConfiguration (Maybe Text)-fcExecArgs = lens _fcExecArgs (\ s a -> s{_fcExecArgs = a});---- | Environment of the function configuration-fcEnvironment :: Lens' FunctionConfiguration (Maybe FunctionConfigurationEnvironment)-fcEnvironment = lens _fcEnvironment (\ s a -> s{_fcEnvironment = a});---- | Executable-fcExecutable :: Lens' FunctionConfiguration (Maybe Text)-fcExecutable = lens _fcExecutable (\ s a -> s{_fcExecutable = a});---- | Whether the function is pinned or not. Pinned means the function is long-lived and starts when the core starts.-fcPinned :: Lens' FunctionConfiguration (Maybe Bool)-fcPinned = lens _fcPinned (\ s a -> s{_fcPinned = a});---- | The function execution time at which Lambda should terminate the function. This timeout still applies to pinned lambdas for each request.-fcTimeout :: Lens' FunctionConfiguration (Maybe Int)-fcTimeout = lens _fcTimeout (\ s a -> s{_fcTimeout = a});--instance FromJSON FunctionConfiguration where-        parseJSON-          = withObject "FunctionConfiguration"-              (\ x ->-                 FunctionConfiguration' <$>-                   (x .:? "MemorySize") <*> (x .:? "ExecArgs") <*>-                     (x .:? "Environment")-                     <*> (x .:? "Executable")-                     <*> (x .:? "Pinned")-                     <*> (x .:? "Timeout"))--instance Hashable FunctionConfiguration where--instance NFData FunctionConfiguration where--instance ToJSON FunctionConfiguration where-        toJSON FunctionConfiguration'{..}-          = object-              (catMaybes-                 [("MemorySize" .=) <$> _fcMemorySize,-                  ("ExecArgs" .=) <$> _fcExecArgs,-                  ("Environment" .=) <$> _fcEnvironment,-                  ("Executable" .=) <$> _fcExecutable,-                  ("Pinned" .=) <$> _fcPinned,-                  ("Timeout" .=) <$> _fcTimeout])---- | Environment of the function configuration------ /See:/ 'functionConfigurationEnvironment' smart constructor.-newtype FunctionConfigurationEnvironment = FunctionConfigurationEnvironment'-  { _fceVariables :: Maybe (Map Text Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'FunctionConfigurationEnvironment' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fceVariables' - Environment variables for the lambda function.-functionConfigurationEnvironment-    :: FunctionConfigurationEnvironment-functionConfigurationEnvironment =-  FunctionConfigurationEnvironment' {_fceVariables = Nothing}----- | Environment variables for the lambda function.-fceVariables :: Lens' FunctionConfigurationEnvironment (HashMap Text Text)-fceVariables = lens _fceVariables (\ s a -> s{_fceVariables = a}) . _Default . _Map;--instance FromJSON FunctionConfigurationEnvironment-         where-        parseJSON-          = withObject "FunctionConfigurationEnvironment"-              (\ x ->-                 FunctionConfigurationEnvironment' <$>-                   (x .:? "Variables" .!= mempty))--instance Hashable FunctionConfigurationEnvironment-         where--instance NFData FunctionConfigurationEnvironment-         where--instance ToJSON FunctionConfigurationEnvironment-         where-        toJSON FunctionConfigurationEnvironment'{..}-          = object-              (catMaybes [("Variables" .=) <$> _fceVariables])---- | Information on the function definition version------ /See:/ 'functionDefinitionVersion' smart constructor.-newtype FunctionDefinitionVersion = FunctionDefinitionVersion'-  { _fdvFunctions :: Maybe [Function]-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'FunctionDefinitionVersion' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fdvFunctions' - Lambda functions in this function definition version.-functionDefinitionVersion-    :: FunctionDefinitionVersion-functionDefinitionVersion = FunctionDefinitionVersion' {_fdvFunctions = Nothing}----- | Lambda functions in this function definition version.-fdvFunctions :: Lens' FunctionDefinitionVersion [Function]-fdvFunctions = lens _fdvFunctions (\ s a -> s{_fdvFunctions = a}) . _Default . _Coerce;--instance FromJSON FunctionDefinitionVersion where-        parseJSON-          = withObject "FunctionDefinitionVersion"-              (\ x ->-                 FunctionDefinitionVersion' <$>-                   (x .:? "Functions" .!= mempty))--instance Hashable FunctionDefinitionVersion where--instance NFData FunctionDefinitionVersion where--instance ToJSON FunctionDefinitionVersion where-        toJSON FunctionDefinitionVersion'{..}-          = object-              (catMaybes [("Functions" .=) <$> _fdvFunctions])---- | Information on the Logger------ /See:/ 'greengrassLogger' smart constructor.-data GreengrassLogger = GreengrassLogger'-  { _glSpace     :: !(Maybe Int)-  , _glComponent :: !(Maybe LoggerComponent)-  , _glId        :: !(Maybe Text)-  , _glType      :: !(Maybe LoggerType)-  , _glLevel     :: !(Maybe LoggerLevel)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GreengrassLogger' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'glSpace' - Amount of hardware space, in KB, to use if file system is used for logging purposes.------ * 'glComponent' - The component that will be subject to logs------ * 'glId' - Element Id for this entry in the list.------ * 'glType' - The type which will be use for log output------ * 'glLevel' - The level of the logs-greengrassLogger-    :: GreengrassLogger-greengrassLogger =-  GreengrassLogger'-  { _glSpace = Nothing-  , _glComponent = Nothing-  , _glId = Nothing-  , _glType = Nothing-  , _glLevel = Nothing-  }----- | Amount of hardware space, in KB, to use if file system is used for logging purposes.-glSpace :: Lens' GreengrassLogger (Maybe Int)-glSpace = lens _glSpace (\ s a -> s{_glSpace = a});---- | The component that will be subject to logs-glComponent :: Lens' GreengrassLogger (Maybe LoggerComponent)-glComponent = lens _glComponent (\ s a -> s{_glComponent = a});---- | Element Id for this entry in the list.-glId :: Lens' GreengrassLogger (Maybe Text)-glId = lens _glId (\ s a -> s{_glId = a});---- | The type which will be use for log output-glType :: Lens' GreengrassLogger (Maybe LoggerType)-glType = lens _glType (\ s a -> s{_glType = a});---- | The level of the logs-glLevel :: Lens' GreengrassLogger (Maybe LoggerLevel)-glLevel = lens _glLevel (\ s a -> s{_glLevel = a});--instance FromJSON GreengrassLogger where-        parseJSON-          = withObject "GreengrassLogger"-              (\ x ->-                 GreengrassLogger' <$>-                   (x .:? "Space") <*> (x .:? "Component") <*>-                     (x .:? "Id")-                     <*> (x .:? "Type")-                     <*> (x .:? "Level"))--instance Hashable GreengrassLogger where--instance NFData GreengrassLogger where--instance ToJSON GreengrassLogger where-        toJSON GreengrassLogger'{..}-          = object-              (catMaybes-                 [("Space" .=) <$> _glSpace,-                  ("Component" .=) <$> _glComponent,-                  ("Id" .=) <$> _glId, ("Type" .=) <$> _glType,-                  ("Level" .=) <$> _glLevel])---- | Information on group certificate authority properties------ /See:/ 'groupCertificateAuthorityProperties' smart constructor.-data GroupCertificateAuthorityProperties = GroupCertificateAuthorityProperties'-  { _gcapGroupCertificateAuthorityARN :: !(Maybe Text)-  , _gcapGroupCertificateAuthorityId  :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GroupCertificateAuthorityProperties' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gcapGroupCertificateAuthorityARN' - Arn of the certificate authority for the group.------ * 'gcapGroupCertificateAuthorityId' - Id of the certificate authority for the group.-groupCertificateAuthorityProperties-    :: GroupCertificateAuthorityProperties-groupCertificateAuthorityProperties =-  GroupCertificateAuthorityProperties'-  { _gcapGroupCertificateAuthorityARN = Nothing-  , _gcapGroupCertificateAuthorityId = Nothing-  }----- | Arn of the certificate authority for the group.-gcapGroupCertificateAuthorityARN :: Lens' GroupCertificateAuthorityProperties (Maybe Text)-gcapGroupCertificateAuthorityARN = lens _gcapGroupCertificateAuthorityARN (\ s a -> s{_gcapGroupCertificateAuthorityARN = a});---- | Id of the certificate authority for the group.-gcapGroupCertificateAuthorityId :: Lens' GroupCertificateAuthorityProperties (Maybe Text)-gcapGroupCertificateAuthorityId = lens _gcapGroupCertificateAuthorityId (\ s a -> s{_gcapGroupCertificateAuthorityId = a});--instance FromJSON GroupCertificateAuthorityProperties-         where-        parseJSON-          = withObject "GroupCertificateAuthorityProperties"-              (\ x ->-                 GroupCertificateAuthorityProperties' <$>-                   (x .:? "GroupCertificateAuthorityArn") <*>-                     (x .:? "GroupCertificateAuthorityId"))--instance Hashable GroupCertificateAuthorityProperties-         where--instance NFData GroupCertificateAuthorityProperties-         where---- | Information on the group------ /See:/ 'groupInformation' smart constructor.-data GroupInformation = GroupInformation'-  { _giLatestVersionARN     :: !(Maybe Text)-  , _giARN                  :: !(Maybe Text)-  , _giName                 :: !(Maybe Text)-  , _giCreationTimestamp    :: !(Maybe Text)-  , _giId                   :: !(Maybe Text)-  , _giLatestVersion        :: !(Maybe Text)-  , _giLastUpdatedTimestamp :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GroupInformation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'giLatestVersionARN' - Latest version arn of the group.------ * 'giARN' - Arn of a group.------ * 'giName' - Name of a group.------ * 'giCreationTimestamp' - Timestamp of when the group was created.------ * 'giId' - Id of a group.------ * 'giLatestVersion' - Last version of the group.------ * 'giLastUpdatedTimestamp' - Last updated timestamp of the group.-groupInformation-    :: GroupInformation-groupInformation =-  GroupInformation'-  { _giLatestVersionARN = Nothing-  , _giARN = Nothing-  , _giName = Nothing-  , _giCreationTimestamp = Nothing-  , _giId = Nothing-  , _giLatestVersion = Nothing-  , _giLastUpdatedTimestamp = Nothing-  }----- | Latest version arn of the group.-giLatestVersionARN :: Lens' GroupInformation (Maybe Text)-giLatestVersionARN = lens _giLatestVersionARN (\ s a -> s{_giLatestVersionARN = a});---- | Arn of a group.-giARN :: Lens' GroupInformation (Maybe Text)-giARN = lens _giARN (\ s a -> s{_giARN = a});---- | Name of a group.-giName :: Lens' GroupInformation (Maybe Text)-giName = lens _giName (\ s a -> s{_giName = a});---- | Timestamp of when the group was created.-giCreationTimestamp :: Lens' GroupInformation (Maybe Text)-giCreationTimestamp = lens _giCreationTimestamp (\ s a -> s{_giCreationTimestamp = a});---- | Id of a group.-giId :: Lens' GroupInformation (Maybe Text)-giId = lens _giId (\ s a -> s{_giId = a});---- | Last version of the group.-giLatestVersion :: Lens' GroupInformation (Maybe Text)-giLatestVersion = lens _giLatestVersion (\ s a -> s{_giLatestVersion = a});---- | Last updated timestamp of the group.-giLastUpdatedTimestamp :: Lens' GroupInformation (Maybe Text)-giLastUpdatedTimestamp = lens _giLastUpdatedTimestamp (\ s a -> s{_giLastUpdatedTimestamp = a});--instance FromJSON GroupInformation where-        parseJSON-          = withObject "GroupInformation"-              (\ x ->-                 GroupInformation' <$>-                   (x .:? "LatestVersionArn") <*> (x .:? "Arn") <*>-                     (x .:? "Name")-                     <*> (x .:? "CreationTimestamp")-                     <*> (x .:? "Id")-                     <*> (x .:? "LatestVersion")-                     <*> (x .:? "LastUpdatedTimestamp"))--instance Hashable GroupInformation where--instance NFData GroupInformation where---- | Information on group version------ /See:/ 'groupVersion' smart constructor.-data GroupVersion = GroupVersion'-  { _gvSubscriptionDefinitionVersionARN :: !(Maybe Text)-  , _gvCoreDefinitionVersionARN         :: !(Maybe Text)-  , _gvDeviceDefinitionVersionARN       :: !(Maybe Text)-  , _gvFunctionDefinitionVersionARN     :: !(Maybe Text)-  , _gvLoggerDefinitionVersionARN       :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GroupVersion' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gvSubscriptionDefinitionVersionARN' - Subscription definition version arn for this group.------ * 'gvCoreDefinitionVersionARN' - Core definition version arn for this group.------ * 'gvDeviceDefinitionVersionARN' - Device definition version arn for this group.------ * 'gvFunctionDefinitionVersionARN' - Function definition version arn for this group.------ * 'gvLoggerDefinitionVersionARN' - Logger definitionv ersion arn for this group.-groupVersion-    :: GroupVersion-groupVersion =-  GroupVersion'-  { _gvSubscriptionDefinitionVersionARN = Nothing-  , _gvCoreDefinitionVersionARN = Nothing-  , _gvDeviceDefinitionVersionARN = Nothing-  , _gvFunctionDefinitionVersionARN = Nothing-  , _gvLoggerDefinitionVersionARN = Nothing-  }----- | Subscription definition version arn for this group.-gvSubscriptionDefinitionVersionARN :: Lens' GroupVersion (Maybe Text)-gvSubscriptionDefinitionVersionARN = lens _gvSubscriptionDefinitionVersionARN (\ s a -> s{_gvSubscriptionDefinitionVersionARN = a});---- | Core definition version arn for this group.-gvCoreDefinitionVersionARN :: Lens' GroupVersion (Maybe Text)-gvCoreDefinitionVersionARN = lens _gvCoreDefinitionVersionARN (\ s a -> s{_gvCoreDefinitionVersionARN = a});---- | Device definition version arn for this group.-gvDeviceDefinitionVersionARN :: Lens' GroupVersion (Maybe Text)-gvDeviceDefinitionVersionARN = lens _gvDeviceDefinitionVersionARN (\ s a -> s{_gvDeviceDefinitionVersionARN = a});---- | Function definition version arn for this group.-gvFunctionDefinitionVersionARN :: Lens' GroupVersion (Maybe Text)-gvFunctionDefinitionVersionARN = lens _gvFunctionDefinitionVersionARN (\ s a -> s{_gvFunctionDefinitionVersionARN = a});---- | Logger definitionv ersion arn for this group.-gvLoggerDefinitionVersionARN :: Lens' GroupVersion (Maybe Text)-gvLoggerDefinitionVersionARN = lens _gvLoggerDefinitionVersionARN (\ s a -> s{_gvLoggerDefinitionVersionARN = a});--instance FromJSON GroupVersion where-        parseJSON-          = withObject "GroupVersion"-              (\ x ->-                 GroupVersion' <$>-                   (x .:? "SubscriptionDefinitionVersionArn") <*>-                     (x .:? "CoreDefinitionVersionArn")-                     <*> (x .:? "DeviceDefinitionVersionArn")-                     <*> (x .:? "FunctionDefinitionVersionArn")-                     <*> (x .:? "LoggerDefinitionVersionArn"))--instance Hashable GroupVersion where--instance NFData GroupVersion where--instance ToJSON GroupVersion where-        toJSON GroupVersion'{..}-          = object-              (catMaybes-                 [("SubscriptionDefinitionVersionArn" .=) <$>-                    _gvSubscriptionDefinitionVersionARN,-                  ("CoreDefinitionVersionArn" .=) <$>-                    _gvCoreDefinitionVersionARN,-                  ("DeviceDefinitionVersionArn" .=) <$>-                    _gvDeviceDefinitionVersionARN,-                  ("FunctionDefinitionVersionArn" .=) <$>-                    _gvFunctionDefinitionVersionARN,-                  ("LoggerDefinitionVersionArn" .=) <$>-                    _gvLoggerDefinitionVersionARN])---- | Information on logger definition version------ /See:/ 'loggerDefinitionVersion' smart constructor.-newtype LoggerDefinitionVersion = LoggerDefinitionVersion'-  { _ldvLoggers :: Maybe [GreengrassLogger]-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'LoggerDefinitionVersion' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ldvLoggers' - List of loggers.-loggerDefinitionVersion-    :: LoggerDefinitionVersion-loggerDefinitionVersion = LoggerDefinitionVersion' {_ldvLoggers = Nothing}----- | List of loggers.-ldvLoggers :: Lens' LoggerDefinitionVersion [GreengrassLogger]-ldvLoggers = lens _ldvLoggers (\ s a -> s{_ldvLoggers = a}) . _Default . _Coerce;--instance FromJSON LoggerDefinitionVersion where-        parseJSON-          = withObject "LoggerDefinitionVersion"-              (\ x ->-                 LoggerDefinitionVersion' <$>-                   (x .:? "Loggers" .!= mempty))--instance Hashable LoggerDefinitionVersion where--instance NFData LoggerDefinitionVersion where--instance ToJSON LoggerDefinitionVersion where-        toJSON LoggerDefinitionVersion'{..}-          = object (catMaybes [("Loggers" .=) <$> _ldvLoggers])---- | Information on subscription------ /See:/ 'subscription' smart constructor.-data Subscription = Subscription'-  { _sSubject :: !(Maybe Text)-  , _sSource  :: !(Maybe Text)-  , _sId      :: !(Maybe Text)-  , _sTarget  :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Subscription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sSubject' - Subject of the message.------ * 'sSource' - Source of the subscription. Can be a thing arn, lambda arn or word 'cloud'------ * 'sId' - Element Id for this entry in the list.------ * 'sTarget' - Where the message is sent to. Can be a thing arn, lambda arn or word 'cloud'.-subscription-    :: Subscription-subscription =-  Subscription'-  {_sSubject = Nothing, _sSource = Nothing, _sId = Nothing, _sTarget = Nothing}----- | Subject of the message.-sSubject :: Lens' Subscription (Maybe Text)-sSubject = lens _sSubject (\ s a -> s{_sSubject = a});---- | Source of the subscription. Can be a thing arn, lambda arn or word 'cloud'-sSource :: Lens' Subscription (Maybe Text)-sSource = lens _sSource (\ s a -> s{_sSource = a});---- | Element Id for this entry in the list.-sId :: Lens' Subscription (Maybe Text)-sId = lens _sId (\ s a -> s{_sId = a});---- | Where the message is sent to. Can be a thing arn, lambda arn or word 'cloud'.-sTarget :: Lens' Subscription (Maybe Text)-sTarget = lens _sTarget (\ s a -> s{_sTarget = a});--instance FromJSON Subscription where-        parseJSON-          = withObject "Subscription"-              (\ x ->-                 Subscription' <$>-                   (x .:? "Subject") <*> (x .:? "Source") <*>-                     (x .:? "Id")-                     <*> (x .:? "Target"))--instance Hashable Subscription where--instance NFData Subscription where--instance ToJSON Subscription where-        toJSON Subscription'{..}-          = object-              (catMaybes-                 [("Subject" .=) <$> _sSubject,-                  ("Source" .=) <$> _sSource, ("Id" .=) <$> _sId,-                  ("Target" .=) <$> _sTarget])---- | Information on subscription definition version------ /See:/ 'subscriptionDefinitionVersion' smart constructor.-newtype SubscriptionDefinitionVersion = SubscriptionDefinitionVersion'-  { _sdvSubscriptions :: Maybe [Subscription]-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'SubscriptionDefinitionVersion' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sdvSubscriptions' - Subscriptions in the version.-subscriptionDefinitionVersion-    :: SubscriptionDefinitionVersion-subscriptionDefinitionVersion =-  SubscriptionDefinitionVersion' {_sdvSubscriptions = Nothing}----- | Subscriptions in the version.-sdvSubscriptions :: Lens' SubscriptionDefinitionVersion [Subscription]-sdvSubscriptions = lens _sdvSubscriptions (\ s a -> s{_sdvSubscriptions = a}) . _Default . _Coerce;--instance FromJSON SubscriptionDefinitionVersion where-        parseJSON-          = withObject "SubscriptionDefinitionVersion"-              (\ x ->-                 SubscriptionDefinitionVersion' <$>-                   (x .:? "Subscriptions" .!= mempty))--instance Hashable SubscriptionDefinitionVersion where--instance NFData SubscriptionDefinitionVersion where--instance ToJSON SubscriptionDefinitionVersion where-        toJSON SubscriptionDefinitionVersion'{..}-          = object-              (catMaybes-                 [("Subscriptions" .=) <$> _sdvSubscriptions])---- | Information on the version------ /See:/ 'versionInformation' smart constructor.-data VersionInformation = VersionInformation'-  { _viARN               :: !(Maybe Text)-  , _viCreationTimestamp :: !(Maybe Text)-  , _viVersion           :: !(Maybe Text)-  , _viId                :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'VersionInformation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'viARN' - Arn of the version.------ * 'viCreationTimestamp' - Timestamp of when the version was created.------ * 'viVersion' - Unique Id of a version.------ * 'viId' - Id of the resource container.-versionInformation-    :: VersionInformation-versionInformation =-  VersionInformation'-  { _viARN = Nothing-  , _viCreationTimestamp = Nothing-  , _viVersion = Nothing-  , _viId = Nothing-  }----- | Arn of the version.-viARN :: Lens' VersionInformation (Maybe Text)-viARN = lens _viARN (\ s a -> s{_viARN = a});---- | Timestamp of when the version was created.-viCreationTimestamp :: Lens' VersionInformation (Maybe Text)-viCreationTimestamp = lens _viCreationTimestamp (\ s a -> s{_viCreationTimestamp = a});---- | Unique Id of a version.-viVersion :: Lens' VersionInformation (Maybe Text)-viVersion = lens _viVersion (\ s a -> s{_viVersion = a});---- | Id of the resource container.-viId :: Lens' VersionInformation (Maybe Text)-viId = lens _viId (\ s a -> s{_viId = a});+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.Greengrass.Types.Product where++import Network.AWS.Greengrass.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude++-- | Information about a Greengrass core's connectivity.+--+-- /See:/ 'connectivityInfo' smart constructor.+data ConnectivityInfo = ConnectivityInfo'+  { _ciPortNumber  :: !(Maybe Int)+  , _ciId          :: !(Maybe Text)+  , _ciMetadata    :: !(Maybe Text)+  , _ciHostAddress :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ConnectivityInfo' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ciPortNumber' - The port of the Greengrass core. Usually 8883.+--+-- * 'ciId' - The ID of the connectivity information.+--+-- * 'ciMetadata' - Metadata for this endpoint.+--+-- * 'ciHostAddress' - The endpoint for the Greengrass core. Can be an IP address or DNS.+connectivityInfo+    :: ConnectivityInfo+connectivityInfo =+  ConnectivityInfo'+    { _ciPortNumber = Nothing+    , _ciId = Nothing+    , _ciMetadata = Nothing+    , _ciHostAddress = Nothing+    }+++-- | The port of the Greengrass core. Usually 8883.+ciPortNumber :: Lens' ConnectivityInfo (Maybe Int)+ciPortNumber = lens _ciPortNumber (\ s a -> s{_ciPortNumber = a})++-- | The ID of the connectivity information.+ciId :: Lens' ConnectivityInfo (Maybe Text)+ciId = lens _ciId (\ s a -> s{_ciId = a})++-- | Metadata for this endpoint.+ciMetadata :: Lens' ConnectivityInfo (Maybe Text)+ciMetadata = lens _ciMetadata (\ s a -> s{_ciMetadata = a})++-- | The endpoint for the Greengrass core. Can be an IP address or DNS.+ciHostAddress :: Lens' ConnectivityInfo (Maybe Text)+ciHostAddress = lens _ciHostAddress (\ s a -> s{_ciHostAddress = a})++instance FromJSON ConnectivityInfo where+        parseJSON+          = withObject "ConnectivityInfo"+              (\ x ->+                 ConnectivityInfo' <$>+                   (x .:? "PortNumber") <*> (x .:? "Id") <*>+                     (x .:? "Metadata")+                     <*> (x .:? "HostAddress"))++instance Hashable ConnectivityInfo where++instance NFData ConnectivityInfo where++instance ToJSON ConnectivityInfo where+        toJSON ConnectivityInfo'{..}+          = object+              (catMaybes+                 [("PortNumber" .=) <$> _ciPortNumber,+                  ("Id" .=) <$> _ciId, ("Metadata" .=) <$> _ciMetadata,+                  ("HostAddress" .=) <$> _ciHostAddress])++-- | Information about a core.+--+-- /See:/ 'core' smart constructor.+data Core = Core'+  { _cCertificateARN :: !(Maybe Text)+  , _cThingARN       :: !(Maybe Text)+  , _cSyncShadow     :: !(Maybe Bool)+  , _cId             :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Core' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cCertificateARN' - The ARN of the certificate associated with the core.+--+-- * 'cThingARN' - The ARN of the thing which is the core.+--+-- * 'cSyncShadow' - If true, the core's local shadow is automatically synced with the cloud.+--+-- * 'cId' - The ID of the core.+core+    :: Core+core =+  Core'+    { _cCertificateARN = Nothing+    , _cThingARN = Nothing+    , _cSyncShadow = Nothing+    , _cId = Nothing+    }+++-- | The ARN of the certificate associated with the core.+cCertificateARN :: Lens' Core (Maybe Text)+cCertificateARN = lens _cCertificateARN (\ s a -> s{_cCertificateARN = a})++-- | The ARN of the thing which is the core.+cThingARN :: Lens' Core (Maybe Text)+cThingARN = lens _cThingARN (\ s a -> s{_cThingARN = a})++-- | If true, the core's local shadow is automatically synced with the cloud.+cSyncShadow :: Lens' Core (Maybe Bool)+cSyncShadow = lens _cSyncShadow (\ s a -> s{_cSyncShadow = a})++-- | The ID of the core.+cId :: Lens' Core (Maybe Text)+cId = lens _cId (\ s a -> s{_cId = a})++instance FromJSON Core where+        parseJSON+          = withObject "Core"+              (\ x ->+                 Core' <$>+                   (x .:? "CertificateArn") <*> (x .:? "ThingArn") <*>+                     (x .:? "SyncShadow")+                     <*> (x .:? "Id"))++instance Hashable Core where++instance NFData Core where++instance ToJSON Core where+        toJSON Core'{..}+          = object+              (catMaybes+                 [("CertificateArn" .=) <$> _cCertificateARN,+                  ("ThingArn" .=) <$> _cThingARN,+                  ("SyncShadow" .=) <$> _cSyncShadow,+                  ("Id" .=) <$> _cId])++-- | Information about a core definition version.+--+-- /See:/ 'coreDefinitionVersion' smart constructor.+newtype CoreDefinitionVersion = CoreDefinitionVersion'+  { _cdvCores :: Maybe [Core]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CoreDefinitionVersion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdvCores' - A list of cores in the core definition version.+coreDefinitionVersion+    :: CoreDefinitionVersion+coreDefinitionVersion = CoreDefinitionVersion' {_cdvCores = Nothing}+++-- | A list of cores in the core definition version.+cdvCores :: Lens' CoreDefinitionVersion [Core]+cdvCores = lens _cdvCores (\ s a -> s{_cdvCores = a}) . _Default . _Coerce++instance FromJSON CoreDefinitionVersion where+        parseJSON+          = withObject "CoreDefinitionVersion"+              (\ x ->+                 CoreDefinitionVersion' <$>+                   (x .:? "Cores" .!= mempty))++instance Hashable CoreDefinitionVersion where++instance NFData CoreDefinitionVersion where++instance ToJSON CoreDefinitionVersion where+        toJSON CoreDefinitionVersion'{..}+          = object (catMaybes [("Cores" .=) <$> _cdvCores])++-- | Information about a definition.+--+-- /See:/ 'definitionInformation' smart constructor.+data DefinitionInformation = DefinitionInformation'+  { _diLatestVersionARN     :: !(Maybe Text)+  , _diARN                  :: !(Maybe Text)+  , _diName                 :: !(Maybe Text)+  , _diCreationTimestamp    :: !(Maybe Text)+  , _diId                   :: !(Maybe Text)+  , _diLatestVersion        :: !(Maybe Text)+  , _diLastUpdatedTimestamp :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DefinitionInformation' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'diLatestVersionARN' - The ARN of the latest version of the definition.+--+-- * 'diARN' - The ARN of the definition.+--+-- * 'diName' - The name of the definition.+--+-- * 'diCreationTimestamp' - The time, in milliseconds since the epoch, when the definition was created.+--+-- * 'diId' - The ID of the definition.+--+-- * 'diLatestVersion' - The latest version of the definition.+--+-- * 'diLastUpdatedTimestamp' - The time, in milliseconds since the epoch, when the definition was last updated.+definitionInformation+    :: DefinitionInformation+definitionInformation =+  DefinitionInformation'+    { _diLatestVersionARN = Nothing+    , _diARN = Nothing+    , _diName = Nothing+    , _diCreationTimestamp = Nothing+    , _diId = Nothing+    , _diLatestVersion = Nothing+    , _diLastUpdatedTimestamp = Nothing+    }+++-- | The ARN of the latest version of the definition.+diLatestVersionARN :: Lens' DefinitionInformation (Maybe Text)+diLatestVersionARN = lens _diLatestVersionARN (\ s a -> s{_diLatestVersionARN = a})++-- | The ARN of the definition.+diARN :: Lens' DefinitionInformation (Maybe Text)+diARN = lens _diARN (\ s a -> s{_diARN = a})++-- | The name of the definition.+diName :: Lens' DefinitionInformation (Maybe Text)+diName = lens _diName (\ s a -> s{_diName = a})++-- | The time, in milliseconds since the epoch, when the definition was created.+diCreationTimestamp :: Lens' DefinitionInformation (Maybe Text)+diCreationTimestamp = lens _diCreationTimestamp (\ s a -> s{_diCreationTimestamp = a})++-- | The ID of the definition.+diId :: Lens' DefinitionInformation (Maybe Text)+diId = lens _diId (\ s a -> s{_diId = a})++-- | The latest version of the definition.+diLatestVersion :: Lens' DefinitionInformation (Maybe Text)+diLatestVersion = lens _diLatestVersion (\ s a -> s{_diLatestVersion = a})++-- | The time, in milliseconds since the epoch, when the definition was last updated.+diLastUpdatedTimestamp :: Lens' DefinitionInformation (Maybe Text)+diLastUpdatedTimestamp = lens _diLastUpdatedTimestamp (\ s a -> s{_diLastUpdatedTimestamp = a})++instance FromJSON DefinitionInformation where+        parseJSON+          = withObject "DefinitionInformation"+              (\ x ->+                 DefinitionInformation' <$>+                   (x .:? "LatestVersionArn") <*> (x .:? "Arn") <*>+                     (x .:? "Name")+                     <*> (x .:? "CreationTimestamp")+                     <*> (x .:? "Id")+                     <*> (x .:? "LatestVersion")+                     <*> (x .:? "LastUpdatedTimestamp"))++instance Hashable DefinitionInformation where++instance NFData DefinitionInformation where++-- | Information about a deployment.+--+-- /See:/ 'deployment' smart constructor.+data Deployment = Deployment'+  { _dDeploymentId   :: !(Maybe Text)+  , _dDeploymentARN  :: !(Maybe Text)+  , _dCreatedAt      :: !(Maybe Text)+  , _dDeploymentType :: !(Maybe DeploymentType)+  , _dGroupARN       :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Deployment' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dDeploymentId' - The ID of the deployment.+--+-- * 'dDeploymentARN' - The ARN of the deployment.+--+-- * 'dCreatedAt' - The time, in milliseconds since the epoch, when the deployment was created.+--+-- * 'dDeploymentType' - The type of the deployment.+--+-- * 'dGroupARN' - The ARN of the group for this deployment.+deployment+    :: Deployment+deployment =+  Deployment'+    { _dDeploymentId = Nothing+    , _dDeploymentARN = Nothing+    , _dCreatedAt = Nothing+    , _dDeploymentType = Nothing+    , _dGroupARN = Nothing+    }+++-- | The ID of the deployment.+dDeploymentId :: Lens' Deployment (Maybe Text)+dDeploymentId = lens _dDeploymentId (\ s a -> s{_dDeploymentId = a})++-- | The ARN of the deployment.+dDeploymentARN :: Lens' Deployment (Maybe Text)+dDeploymentARN = lens _dDeploymentARN (\ s a -> s{_dDeploymentARN = a})++-- | The time, in milliseconds since the epoch, when the deployment was created.+dCreatedAt :: Lens' Deployment (Maybe Text)+dCreatedAt = lens _dCreatedAt (\ s a -> s{_dCreatedAt = a})++-- | The type of the deployment.+dDeploymentType :: Lens' Deployment (Maybe DeploymentType)+dDeploymentType = lens _dDeploymentType (\ s a -> s{_dDeploymentType = a})++-- | The ARN of the group for this deployment.+dGroupARN :: Lens' Deployment (Maybe Text)+dGroupARN = lens _dGroupARN (\ s a -> s{_dGroupARN = a})++instance FromJSON Deployment where+        parseJSON+          = withObject "Deployment"+              (\ x ->+                 Deployment' <$>+                   (x .:? "DeploymentId") <*> (x .:? "DeploymentArn")+                     <*> (x .:? "CreatedAt")+                     <*> (x .:? "DeploymentType")+                     <*> (x .:? "GroupArn"))++instance Hashable Deployment where++instance NFData Deployment where++-- | Information about a device.+--+-- /See:/ 'device' smart constructor.+data Device = Device'+  { _dCertificateARN :: !(Maybe Text)+  , _dThingARN       :: !(Maybe Text)+  , _dSyncShadow     :: !(Maybe Bool)+  , _dId             :: !(Maybe Text)+  } deriving (Eq, Read, 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:+--+-- * 'dCertificateARN' - The ARN of the certificate associated with the device.+--+-- * 'dThingARN' - The thing ARN of the device.+--+-- * 'dSyncShadow' - If true, the device's local shadow will be automatically synced with the cloud.+--+-- * 'dId' - The ID of the device.+device+    :: Device+device =+  Device'+    { _dCertificateARN = Nothing+    , _dThingARN = Nothing+    , _dSyncShadow = Nothing+    , _dId = Nothing+    }+++-- | The ARN of the certificate associated with the device.+dCertificateARN :: Lens' Device (Maybe Text)+dCertificateARN = lens _dCertificateARN (\ s a -> s{_dCertificateARN = a})++-- | The thing ARN of the device.+dThingARN :: Lens' Device (Maybe Text)+dThingARN = lens _dThingARN (\ s a -> s{_dThingARN = a})++-- | If true, the device's local shadow will be automatically synced with the cloud.+dSyncShadow :: Lens' Device (Maybe Bool)+dSyncShadow = lens _dSyncShadow (\ s a -> s{_dSyncShadow = a})++-- | The ID of the device.+dId :: Lens' Device (Maybe Text)+dId = lens _dId (\ s a -> s{_dId = a})++instance FromJSON Device where+        parseJSON+          = withObject "Device"+              (\ x ->+                 Device' <$>+                   (x .:? "CertificateArn") <*> (x .:? "ThingArn") <*>+                     (x .:? "SyncShadow")+                     <*> (x .:? "Id"))++instance Hashable Device where++instance NFData Device where++instance ToJSON Device where+        toJSON Device'{..}+          = object+              (catMaybes+                 [("CertificateArn" .=) <$> _dCertificateARN,+                  ("ThingArn" .=) <$> _dThingARN,+                  ("SyncShadow" .=) <$> _dSyncShadow,+                  ("Id" .=) <$> _dId])++-- | Information about a device definition version.+--+-- /See:/ 'deviceDefinitionVersion' smart constructor.+newtype DeviceDefinitionVersion = DeviceDefinitionVersion'+  { _ddvDevices :: Maybe [Device]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeviceDefinitionVersion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddvDevices' - A list of devices in the definition version.+deviceDefinitionVersion+    :: DeviceDefinitionVersion+deviceDefinitionVersion = DeviceDefinitionVersion' {_ddvDevices = Nothing}+++-- | A list of devices in the definition version.+ddvDevices :: Lens' DeviceDefinitionVersion [Device]+ddvDevices = lens _ddvDevices (\ s a -> s{_ddvDevices = a}) . _Default . _Coerce++instance FromJSON DeviceDefinitionVersion where+        parseJSON+          = withObject "DeviceDefinitionVersion"+              (\ x ->+                 DeviceDefinitionVersion' <$>+                   (x .:? "Devices" .!= mempty))++instance Hashable DeviceDefinitionVersion where++instance NFData DeviceDefinitionVersion where++instance ToJSON DeviceDefinitionVersion where+        toJSON DeviceDefinitionVersion'{..}+          = object (catMaybes [("Devices" .=) <$> _ddvDevices])++-- | Details about the error.+--+-- /See:/ 'errorDetail' smart constructor.+data ErrorDetail = ErrorDetail'+  { _edDetailedErrorCode    :: !(Maybe Text)+  , _edDetailedErrorMessage :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ErrorDetail' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'edDetailedErrorCode' - A detailed error code.+--+-- * 'edDetailedErrorMessage' - A detailed error message.+errorDetail+    :: ErrorDetail+errorDetail =+  ErrorDetail'+    {_edDetailedErrorCode = Nothing, _edDetailedErrorMessage = Nothing}+++-- | A detailed error code.+edDetailedErrorCode :: Lens' ErrorDetail (Maybe Text)+edDetailedErrorCode = lens _edDetailedErrorCode (\ s a -> s{_edDetailedErrorCode = a})++-- | A detailed error message.+edDetailedErrorMessage :: Lens' ErrorDetail (Maybe Text)+edDetailedErrorMessage = lens _edDetailedErrorMessage (\ s a -> s{_edDetailedErrorMessage = a})++instance FromJSON ErrorDetail where+        parseJSON+          = withObject "ErrorDetail"+              (\ x ->+                 ErrorDetail' <$>+                   (x .:? "DetailedErrorCode") <*>+                     (x .:? "DetailedErrorMessage"))++instance Hashable ErrorDetail where++instance NFData ErrorDetail where++-- | Information about a Lambda function.+--+-- /See:/ 'function' smart constructor.+data Function = Function'+  { _fFunctionARN           :: !(Maybe Text)+  , _fFunctionConfiguration :: !(Maybe FunctionConfiguration)+  , _fId                    :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Function' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fFunctionARN' - The ARN of the Lambda function.+--+-- * 'fFunctionConfiguration' - The configuration of the Lambda function.+--+-- * 'fId' - The ID of the Lambda function.+function+    :: Function+function =+  Function'+    {_fFunctionARN = Nothing, _fFunctionConfiguration = Nothing, _fId = Nothing}+++-- | The ARN of the Lambda function.+fFunctionARN :: Lens' Function (Maybe Text)+fFunctionARN = lens _fFunctionARN (\ s a -> s{_fFunctionARN = a})++-- | The configuration of the Lambda function.+fFunctionConfiguration :: Lens' Function (Maybe FunctionConfiguration)+fFunctionConfiguration = lens _fFunctionConfiguration (\ s a -> s{_fFunctionConfiguration = a})++-- | The ID of the Lambda function.+fId :: Lens' Function (Maybe Text)+fId = lens _fId (\ s a -> s{_fId = a})++instance FromJSON Function where+        parseJSON+          = withObject "Function"+              (\ x ->+                 Function' <$>+                   (x .:? "FunctionArn") <*>+                     (x .:? "FunctionConfiguration")+                     <*> (x .:? "Id"))++instance Hashable Function where++instance NFData Function where++instance ToJSON Function where+        toJSON Function'{..}+          = object+              (catMaybes+                 [("FunctionArn" .=) <$> _fFunctionARN,+                  ("FunctionConfiguration" .=) <$>+                    _fFunctionConfiguration,+                  ("Id" .=) <$> _fId])++-- | The configuration of the Lambda function.+--+-- /See:/ 'functionConfiguration' smart constructor.+data FunctionConfiguration = FunctionConfiguration'+  { _fcMemorySize   :: !(Maybe Int)+  , _fcExecArgs     :: !(Maybe Text)+  , _fcEnvironment  :: !(Maybe FunctionConfigurationEnvironment)+  , _fcExecutable   :: !(Maybe Text)+  , _fcPinned       :: !(Maybe Bool)+  , _fcEncodingType :: !(Maybe EncodingType)+  , _fcTimeout      :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'FunctionConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fcMemorySize' - The memory size, in KB, which the function requires.+--+-- * 'fcExecArgs' - The execution arguments.+--+-- * 'fcEnvironment' - The environment configuration of the function.+--+-- * 'fcExecutable' - The name of the function executable.+--+-- * 'fcPinned' - True if the function is pinned. Pinned means the function is long-lived and starts when the core starts.+--+-- * 'fcEncodingType' - The expected encoding type of the input payload for the function. The default is ''json''.+--+-- * 'fcTimeout' - The allowed function execution time, after which Lambda should terminate the function. This timeout still applies to pinned lambdas for each request.+functionConfiguration+    :: FunctionConfiguration+functionConfiguration =+  FunctionConfiguration'+    { _fcMemorySize = Nothing+    , _fcExecArgs = Nothing+    , _fcEnvironment = Nothing+    , _fcExecutable = Nothing+    , _fcPinned = Nothing+    , _fcEncodingType = Nothing+    , _fcTimeout = Nothing+    }+++-- | The memory size, in KB, which the function requires.+fcMemorySize :: Lens' FunctionConfiguration (Maybe Int)+fcMemorySize = lens _fcMemorySize (\ s a -> s{_fcMemorySize = a})++-- | The execution arguments.+fcExecArgs :: Lens' FunctionConfiguration (Maybe Text)+fcExecArgs = lens _fcExecArgs (\ s a -> s{_fcExecArgs = a})++-- | The environment configuration of the function.+fcEnvironment :: Lens' FunctionConfiguration (Maybe FunctionConfigurationEnvironment)+fcEnvironment = lens _fcEnvironment (\ s a -> s{_fcEnvironment = a})++-- | The name of the function executable.+fcExecutable :: Lens' FunctionConfiguration (Maybe Text)+fcExecutable = lens _fcExecutable (\ s a -> s{_fcExecutable = a})++-- | True if the function is pinned. Pinned means the function is long-lived and starts when the core starts.+fcPinned :: Lens' FunctionConfiguration (Maybe Bool)+fcPinned = lens _fcPinned (\ s a -> s{_fcPinned = a})++-- | The expected encoding type of the input payload for the function. The default is ''json''.+fcEncodingType :: Lens' FunctionConfiguration (Maybe EncodingType)+fcEncodingType = lens _fcEncodingType (\ s a -> s{_fcEncodingType = a})++-- | The allowed function execution time, after which Lambda should terminate the function. This timeout still applies to pinned lambdas for each request.+fcTimeout :: Lens' FunctionConfiguration (Maybe Int)+fcTimeout = lens _fcTimeout (\ s a -> s{_fcTimeout = a})++instance FromJSON FunctionConfiguration where+        parseJSON+          = withObject "FunctionConfiguration"+              (\ x ->+                 FunctionConfiguration' <$>+                   (x .:? "MemorySize") <*> (x .:? "ExecArgs") <*>+                     (x .:? "Environment")+                     <*> (x .:? "Executable")+                     <*> (x .:? "Pinned")+                     <*> (x .:? "EncodingType")+                     <*> (x .:? "Timeout"))++instance Hashable FunctionConfiguration where++instance NFData FunctionConfiguration where++instance ToJSON FunctionConfiguration where+        toJSON FunctionConfiguration'{..}+          = object+              (catMaybes+                 [("MemorySize" .=) <$> _fcMemorySize,+                  ("ExecArgs" .=) <$> _fcExecArgs,+                  ("Environment" .=) <$> _fcEnvironment,+                  ("Executable" .=) <$> _fcExecutable,+                  ("Pinned" .=) <$> _fcPinned,+                  ("EncodingType" .=) <$> _fcEncodingType,+                  ("Timeout" .=) <$> _fcTimeout])++-- | The environment configuration of the function.+--+-- /See:/ 'functionConfigurationEnvironment' smart constructor.+data FunctionConfigurationEnvironment = FunctionConfigurationEnvironment'+  { _fceVariables              :: !(Maybe (Map Text Text))+  , _fceResourceAccessPolicies :: !(Maybe [ResourceAccessPolicy])+  , _fceAccessSysfs            :: !(Maybe Bool)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'FunctionConfigurationEnvironment' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fceVariables' - Environment variables for the Lambda function's configuration.+--+-- * 'fceResourceAccessPolicies' - A list of the resources, with their permissions, to which the Lambda function will be granted access. A Lambda function can have at most 10 resources.+--+-- * 'fceAccessSysfs' - If true, the Lambda function is allowed to access the host's /sys folder. Use this when the Lambda function needs to read device information from /sys.+functionConfigurationEnvironment+    :: FunctionConfigurationEnvironment+functionConfigurationEnvironment =+  FunctionConfigurationEnvironment'+    { _fceVariables = Nothing+    , _fceResourceAccessPolicies = Nothing+    , _fceAccessSysfs = Nothing+    }+++-- | Environment variables for the Lambda function's configuration.+fceVariables :: Lens' FunctionConfigurationEnvironment (HashMap Text Text)+fceVariables = lens _fceVariables (\ s a -> s{_fceVariables = a}) . _Default . _Map++-- | A list of the resources, with their permissions, to which the Lambda function will be granted access. A Lambda function can have at most 10 resources.+fceResourceAccessPolicies :: Lens' FunctionConfigurationEnvironment [ResourceAccessPolicy]+fceResourceAccessPolicies = lens _fceResourceAccessPolicies (\ s a -> s{_fceResourceAccessPolicies = a}) . _Default . _Coerce++-- | If true, the Lambda function is allowed to access the host's /sys folder. Use this when the Lambda function needs to read device information from /sys.+fceAccessSysfs :: Lens' FunctionConfigurationEnvironment (Maybe Bool)+fceAccessSysfs = lens _fceAccessSysfs (\ s a -> s{_fceAccessSysfs = a})++instance FromJSON FunctionConfigurationEnvironment+         where+        parseJSON+          = withObject "FunctionConfigurationEnvironment"+              (\ x ->+                 FunctionConfigurationEnvironment' <$>+                   (x .:? "Variables" .!= mempty) <*>+                     (x .:? "ResourceAccessPolicies" .!= mempty)+                     <*> (x .:? "AccessSysfs"))++instance Hashable FunctionConfigurationEnvironment+         where++instance NFData FunctionConfigurationEnvironment+         where++instance ToJSON FunctionConfigurationEnvironment+         where+        toJSON FunctionConfigurationEnvironment'{..}+          = object+              (catMaybes+                 [("Variables" .=) <$> _fceVariables,+                  ("ResourceAccessPolicies" .=) <$>+                    _fceResourceAccessPolicies,+                  ("AccessSysfs" .=) <$> _fceAccessSysfs])++-- | Information about a function definition version.+--+-- /See:/ 'functionDefinitionVersion' smart constructor.+newtype FunctionDefinitionVersion = FunctionDefinitionVersion'+  { _fdvFunctions :: Maybe [Function]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'FunctionDefinitionVersion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fdvFunctions' - A list of Lambda functions in this function definition version.+functionDefinitionVersion+    :: FunctionDefinitionVersion+functionDefinitionVersion = FunctionDefinitionVersion' {_fdvFunctions = Nothing}+++-- | A list of Lambda functions in this function definition version.+fdvFunctions :: Lens' FunctionDefinitionVersion [Function]+fdvFunctions = lens _fdvFunctions (\ s a -> s{_fdvFunctions = a}) . _Default . _Coerce++instance FromJSON FunctionDefinitionVersion where+        parseJSON+          = withObject "FunctionDefinitionVersion"+              (\ x ->+                 FunctionDefinitionVersion' <$>+                   (x .:? "Functions" .!= mempty))++instance Hashable FunctionDefinitionVersion where++instance NFData FunctionDefinitionVersion where++instance ToJSON FunctionDefinitionVersion where+        toJSON FunctionDefinitionVersion'{..}+          = object+              (catMaybes [("Functions" .=) <$> _fdvFunctions])++-- | Information about a logger+--+-- /See:/ 'greengrassLogger' smart constructor.+data GreengrassLogger = GreengrassLogger'+  { _glSpace     :: !(Maybe Int)+  , _glComponent :: !(Maybe LoggerComponent)+  , _glId        :: !(Maybe Text)+  , _glType      :: !(Maybe LoggerType)+  , _glLevel     :: !(Maybe LoggerLevel)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GreengrassLogger' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'glSpace' - The amount of file space, in KB, to use if the local file system is used for logging purposes.+--+-- * 'glComponent' - The component that will be subject to logging.+--+-- * 'glId' - The id of the logger.+--+-- * 'glType' - The type of log output which will be used.+--+-- * 'glLevel' - The level of the logs.+greengrassLogger+    :: GreengrassLogger+greengrassLogger =+  GreengrassLogger'+    { _glSpace = Nothing+    , _glComponent = Nothing+    , _glId = Nothing+    , _glType = Nothing+    , _glLevel = Nothing+    }+++-- | The amount of file space, in KB, to use if the local file system is used for logging purposes.+glSpace :: Lens' GreengrassLogger (Maybe Int)+glSpace = lens _glSpace (\ s a -> s{_glSpace = a})++-- | The component that will be subject to logging.+glComponent :: Lens' GreengrassLogger (Maybe LoggerComponent)+glComponent = lens _glComponent (\ s a -> s{_glComponent = a})++-- | The id of the logger.+glId :: Lens' GreengrassLogger (Maybe Text)+glId = lens _glId (\ s a -> s{_glId = a})++-- | The type of log output which will be used.+glType :: Lens' GreengrassLogger (Maybe LoggerType)+glType = lens _glType (\ s a -> s{_glType = a})++-- | The level of the logs.+glLevel :: Lens' GreengrassLogger (Maybe LoggerLevel)+glLevel = lens _glLevel (\ s a -> s{_glLevel = a})++instance FromJSON GreengrassLogger where+        parseJSON+          = withObject "GreengrassLogger"+              (\ x ->+                 GreengrassLogger' <$>+                   (x .:? "Space") <*> (x .:? "Component") <*>+                     (x .:? "Id")+                     <*> (x .:? "Type")+                     <*> (x .:? "Level"))++instance Hashable GreengrassLogger where++instance NFData GreengrassLogger where++instance ToJSON GreengrassLogger where+        toJSON GreengrassLogger'{..}+          = object+              (catMaybes+                 [("Space" .=) <$> _glSpace,+                  ("Component" .=) <$> _glComponent,+                  ("Id" .=) <$> _glId, ("Type" .=) <$> _glType,+                  ("Level" .=) <$> _glLevel])++-- | Information about a certificate authority for a group.+--+-- /See:/ 'groupCertificateAuthorityProperties' smart constructor.+data GroupCertificateAuthorityProperties = GroupCertificateAuthorityProperties'+  { _gcapGroupCertificateAuthorityARN :: !(Maybe Text)+  , _gcapGroupCertificateAuthorityId  :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GroupCertificateAuthorityProperties' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcapGroupCertificateAuthorityARN' - The ARN of the certificate authority for the group.+--+-- * 'gcapGroupCertificateAuthorityId' - The ID of the certificate authority for the group.+groupCertificateAuthorityProperties+    :: GroupCertificateAuthorityProperties+groupCertificateAuthorityProperties =+  GroupCertificateAuthorityProperties'+    { _gcapGroupCertificateAuthorityARN = Nothing+    , _gcapGroupCertificateAuthorityId = Nothing+    }+++-- | The ARN of the certificate authority for the group.+gcapGroupCertificateAuthorityARN :: Lens' GroupCertificateAuthorityProperties (Maybe Text)+gcapGroupCertificateAuthorityARN = lens _gcapGroupCertificateAuthorityARN (\ s a -> s{_gcapGroupCertificateAuthorityARN = a})++-- | The ID of the certificate authority for the group.+gcapGroupCertificateAuthorityId :: Lens' GroupCertificateAuthorityProperties (Maybe Text)+gcapGroupCertificateAuthorityId = lens _gcapGroupCertificateAuthorityId (\ s a -> s{_gcapGroupCertificateAuthorityId = a})++instance FromJSON GroupCertificateAuthorityProperties+         where+        parseJSON+          = withObject "GroupCertificateAuthorityProperties"+              (\ x ->+                 GroupCertificateAuthorityProperties' <$>+                   (x .:? "GroupCertificateAuthorityArn") <*>+                     (x .:? "GroupCertificateAuthorityId"))++instance Hashable GroupCertificateAuthorityProperties+         where++instance NFData GroupCertificateAuthorityProperties+         where++-- | Information about a group.+--+-- /See:/ 'groupInformation' smart constructor.+data GroupInformation = GroupInformation'+  { _giLatestVersionARN     :: !(Maybe Text)+  , _giARN                  :: !(Maybe Text)+  , _giName                 :: !(Maybe Text)+  , _giCreationTimestamp    :: !(Maybe Text)+  , _giId                   :: !(Maybe Text)+  , _giLatestVersion        :: !(Maybe Text)+  , _giLastUpdatedTimestamp :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GroupInformation' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'giLatestVersionARN' - The ARN of the latest version of the group.+--+-- * 'giARN' - The ARN of the group.+--+-- * 'giName' - The name of the group.+--+-- * 'giCreationTimestamp' - The time, in milliseconds since the epoch, when the group was created.+--+-- * 'giId' - The ID of the group.+--+-- * 'giLatestVersion' - The latest version of the group.+--+-- * 'giLastUpdatedTimestamp' - The time, in milliseconds since the epoch, when the group was last updated.+groupInformation+    :: GroupInformation+groupInformation =+  GroupInformation'+    { _giLatestVersionARN = Nothing+    , _giARN = Nothing+    , _giName = Nothing+    , _giCreationTimestamp = Nothing+    , _giId = Nothing+    , _giLatestVersion = Nothing+    , _giLastUpdatedTimestamp = Nothing+    }+++-- | The ARN of the latest version of the group.+giLatestVersionARN :: Lens' GroupInformation (Maybe Text)+giLatestVersionARN = lens _giLatestVersionARN (\ s a -> s{_giLatestVersionARN = a})++-- | The ARN of the group.+giARN :: Lens' GroupInformation (Maybe Text)+giARN = lens _giARN (\ s a -> s{_giARN = a})++-- | The name of the group.+giName :: Lens' GroupInformation (Maybe Text)+giName = lens _giName (\ s a -> s{_giName = a})++-- | The time, in milliseconds since the epoch, when the group was created.+giCreationTimestamp :: Lens' GroupInformation (Maybe Text)+giCreationTimestamp = lens _giCreationTimestamp (\ s a -> s{_giCreationTimestamp = a})++-- | The ID of the group.+giId :: Lens' GroupInformation (Maybe Text)+giId = lens _giId (\ s a -> s{_giId = a})++-- | The latest version of the group.+giLatestVersion :: Lens' GroupInformation (Maybe Text)+giLatestVersion = lens _giLatestVersion (\ s a -> s{_giLatestVersion = a})++-- | The time, in milliseconds since the epoch, when the group was last updated.+giLastUpdatedTimestamp :: Lens' GroupInformation (Maybe Text)+giLastUpdatedTimestamp = lens _giLastUpdatedTimestamp (\ s a -> s{_giLastUpdatedTimestamp = a})++instance FromJSON GroupInformation where+        parseJSON+          = withObject "GroupInformation"+              (\ x ->+                 GroupInformation' <$>+                   (x .:? "LatestVersionArn") <*> (x .:? "Arn") <*>+                     (x .:? "Name")+                     <*> (x .:? "CreationTimestamp")+                     <*> (x .:? "Id")+                     <*> (x .:? "LatestVersion")+                     <*> (x .:? "LastUpdatedTimestamp"))++instance Hashable GroupInformation where++instance NFData GroupInformation where++-- | Group owner related settings for local resources.+--+-- /See:/ 'groupOwnerSetting' smart constructor.+data GroupOwnerSetting = GroupOwnerSetting'+  { _gosAutoAddGroupOwner :: !(Maybe Bool)+  , _gosGroupOwner        :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GroupOwnerSetting' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gosAutoAddGroupOwner' - If true, GreenGrass automatically adds the specified Linux OS group owner of the resource to the Lambda process privileges. Thus the Lambda process will have the file access permissions of the added Linux group.+--+-- * 'gosGroupOwner' - The name of the Linux OS group whose privileges will be added to the Lambda process. This field is optional.+groupOwnerSetting+    :: GroupOwnerSetting+groupOwnerSetting =+  GroupOwnerSetting' {_gosAutoAddGroupOwner = Nothing, _gosGroupOwner = Nothing}+++-- | If true, GreenGrass automatically adds the specified Linux OS group owner of the resource to the Lambda process privileges. Thus the Lambda process will have the file access permissions of the added Linux group.+gosAutoAddGroupOwner :: Lens' GroupOwnerSetting (Maybe Bool)+gosAutoAddGroupOwner = lens _gosAutoAddGroupOwner (\ s a -> s{_gosAutoAddGroupOwner = a})++-- | The name of the Linux OS group whose privileges will be added to the Lambda process. This field is optional.+gosGroupOwner :: Lens' GroupOwnerSetting (Maybe Text)+gosGroupOwner = lens _gosGroupOwner (\ s a -> s{_gosGroupOwner = a})++instance FromJSON GroupOwnerSetting where+        parseJSON+          = withObject "GroupOwnerSetting"+              (\ x ->+                 GroupOwnerSetting' <$>+                   (x .:? "AutoAddGroupOwner") <*> (x .:? "GroupOwner"))++instance Hashable GroupOwnerSetting where++instance NFData GroupOwnerSetting where++instance ToJSON GroupOwnerSetting where+        toJSON GroupOwnerSetting'{..}+          = object+              (catMaybes+                 [("AutoAddGroupOwner" .=) <$> _gosAutoAddGroupOwner,+                  ("GroupOwner" .=) <$> _gosGroupOwner])++-- | Information about a group version.+--+-- /See:/ 'groupVersion' smart constructor.+data GroupVersion = GroupVersion'+  { _gvResourceDefinitionVersionARN     :: !(Maybe Text)+  , _gvSubscriptionDefinitionVersionARN :: !(Maybe Text)+  , _gvCoreDefinitionVersionARN         :: !(Maybe Text)+  , _gvDeviceDefinitionVersionARN       :: !(Maybe Text)+  , _gvFunctionDefinitionVersionARN     :: !(Maybe Text)+  , _gvLoggerDefinitionVersionARN       :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GroupVersion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gvResourceDefinitionVersionARN' - The resource definition version ARN for this group.+--+-- * 'gvSubscriptionDefinitionVersionARN' - The ARN of the subscription definition version for this group.+--+-- * 'gvCoreDefinitionVersionARN' - The ARN of the core definition version for this group.+--+-- * 'gvDeviceDefinitionVersionARN' - The ARN of the device definition version for this group.+--+-- * 'gvFunctionDefinitionVersionARN' - The ARN of the function definition version for this group.+--+-- * 'gvLoggerDefinitionVersionARN' - The ARN of the logger definition version for this group.+groupVersion+    :: GroupVersion+groupVersion =+  GroupVersion'+    { _gvResourceDefinitionVersionARN = Nothing+    , _gvSubscriptionDefinitionVersionARN = Nothing+    , _gvCoreDefinitionVersionARN = Nothing+    , _gvDeviceDefinitionVersionARN = Nothing+    , _gvFunctionDefinitionVersionARN = Nothing+    , _gvLoggerDefinitionVersionARN = Nothing+    }+++-- | The resource definition version ARN for this group.+gvResourceDefinitionVersionARN :: Lens' GroupVersion (Maybe Text)+gvResourceDefinitionVersionARN = lens _gvResourceDefinitionVersionARN (\ s a -> s{_gvResourceDefinitionVersionARN = a})++-- | The ARN of the subscription definition version for this group.+gvSubscriptionDefinitionVersionARN :: Lens' GroupVersion (Maybe Text)+gvSubscriptionDefinitionVersionARN = lens _gvSubscriptionDefinitionVersionARN (\ s a -> s{_gvSubscriptionDefinitionVersionARN = a})++-- | The ARN of the core definition version for this group.+gvCoreDefinitionVersionARN :: Lens' GroupVersion (Maybe Text)+gvCoreDefinitionVersionARN = lens _gvCoreDefinitionVersionARN (\ s a -> s{_gvCoreDefinitionVersionARN = a})++-- | The ARN of the device definition version for this group.+gvDeviceDefinitionVersionARN :: Lens' GroupVersion (Maybe Text)+gvDeviceDefinitionVersionARN = lens _gvDeviceDefinitionVersionARN (\ s a -> s{_gvDeviceDefinitionVersionARN = a})++-- | The ARN of the function definition version for this group.+gvFunctionDefinitionVersionARN :: Lens' GroupVersion (Maybe Text)+gvFunctionDefinitionVersionARN = lens _gvFunctionDefinitionVersionARN (\ s a -> s{_gvFunctionDefinitionVersionARN = a})++-- | The ARN of the logger definition version for this group.+gvLoggerDefinitionVersionARN :: Lens' GroupVersion (Maybe Text)+gvLoggerDefinitionVersionARN = lens _gvLoggerDefinitionVersionARN (\ s a -> s{_gvLoggerDefinitionVersionARN = a})++instance FromJSON GroupVersion where+        parseJSON+          = withObject "GroupVersion"+              (\ x ->+                 GroupVersion' <$>+                   (x .:? "ResourceDefinitionVersionArn") <*>+                     (x .:? "SubscriptionDefinitionVersionArn")+                     <*> (x .:? "CoreDefinitionVersionArn")+                     <*> (x .:? "DeviceDefinitionVersionArn")+                     <*> (x .:? "FunctionDefinitionVersionArn")+                     <*> (x .:? "LoggerDefinitionVersionArn"))++instance Hashable GroupVersion where++instance NFData GroupVersion where++instance ToJSON GroupVersion where+        toJSON GroupVersion'{..}+          = object+              (catMaybes+                 [("ResourceDefinitionVersionArn" .=) <$>+                    _gvResourceDefinitionVersionARN,+                  ("SubscriptionDefinitionVersionArn" .=) <$>+                    _gvSubscriptionDefinitionVersionARN,+                  ("CoreDefinitionVersionArn" .=) <$>+                    _gvCoreDefinitionVersionARN,+                  ("DeviceDefinitionVersionArn" .=) <$>+                    _gvDeviceDefinitionVersionARN,+                  ("FunctionDefinitionVersionArn" .=) <$>+                    _gvFunctionDefinitionVersionARN,+                  ("LoggerDefinitionVersionArn" .=) <$>+                    _gvLoggerDefinitionVersionARN])++-- | Attributes that define a local device resource.+--+-- /See:/ 'localDeviceResourceData' smart constructor.+data LocalDeviceResourceData = LocalDeviceResourceData'+  { _ldrdGroupOwnerSetting :: !(Maybe GroupOwnerSetting)+  , _ldrdSourcePath        :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LocalDeviceResourceData' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ldrdGroupOwnerSetting' - Group/owner related settings for local resources.+--+-- * 'ldrdSourcePath' - The local absolute path of the device resource. The source path for a device resource can refer only to a character device or block device under ''/dev''.+localDeviceResourceData+    :: LocalDeviceResourceData+localDeviceResourceData =+  LocalDeviceResourceData'+    {_ldrdGroupOwnerSetting = Nothing, _ldrdSourcePath = Nothing}+++-- | Group/owner related settings for local resources.+ldrdGroupOwnerSetting :: Lens' LocalDeviceResourceData (Maybe GroupOwnerSetting)+ldrdGroupOwnerSetting = lens _ldrdGroupOwnerSetting (\ s a -> s{_ldrdGroupOwnerSetting = a})++-- | The local absolute path of the device resource. The source path for a device resource can refer only to a character device or block device under ''/dev''.+ldrdSourcePath :: Lens' LocalDeviceResourceData (Maybe Text)+ldrdSourcePath = lens _ldrdSourcePath (\ s a -> s{_ldrdSourcePath = a})++instance FromJSON LocalDeviceResourceData where+        parseJSON+          = withObject "LocalDeviceResourceData"+              (\ x ->+                 LocalDeviceResourceData' <$>+                   (x .:? "GroupOwnerSetting") <*> (x .:? "SourcePath"))++instance Hashable LocalDeviceResourceData where++instance NFData LocalDeviceResourceData where++instance ToJSON LocalDeviceResourceData where+        toJSON LocalDeviceResourceData'{..}+          = object+              (catMaybes+                 [("GroupOwnerSetting" .=) <$> _ldrdGroupOwnerSetting,+                  ("SourcePath" .=) <$> _ldrdSourcePath])++-- | Attributes that define a local volume resource.+--+-- /See:/ 'localVolumeResourceData' smart constructor.+data LocalVolumeResourceData = LocalVolumeResourceData'+  { _lvrdGroupOwnerSetting :: !(Maybe GroupOwnerSetting)+  , _lvrdDestinationPath   :: !(Maybe Text)+  , _lvrdSourcePath        :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LocalVolumeResourceData' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lvrdGroupOwnerSetting' - Allows you to configure additional group privileges for the Lambda process. This field is optional.+--+-- * 'lvrdDestinationPath' - The absolute local path of the resource inside the lambda environment.+--+-- * 'lvrdSourcePath' - The local absolute path of the volume resource on the host. The source path for a volume resource type cannot start with ''/proc'' or ''/sys''.+localVolumeResourceData+    :: LocalVolumeResourceData+localVolumeResourceData =+  LocalVolumeResourceData'+    { _lvrdGroupOwnerSetting = Nothing+    , _lvrdDestinationPath = Nothing+    , _lvrdSourcePath = Nothing+    }+++-- | Allows you to configure additional group privileges for the Lambda process. This field is optional.+lvrdGroupOwnerSetting :: Lens' LocalVolumeResourceData (Maybe GroupOwnerSetting)+lvrdGroupOwnerSetting = lens _lvrdGroupOwnerSetting (\ s a -> s{_lvrdGroupOwnerSetting = a})++-- | The absolute local path of the resource inside the lambda environment.+lvrdDestinationPath :: Lens' LocalVolumeResourceData (Maybe Text)+lvrdDestinationPath = lens _lvrdDestinationPath (\ s a -> s{_lvrdDestinationPath = a})++-- | The local absolute path of the volume resource on the host. The source path for a volume resource type cannot start with ''/proc'' or ''/sys''.+lvrdSourcePath :: Lens' LocalVolumeResourceData (Maybe Text)+lvrdSourcePath = lens _lvrdSourcePath (\ s a -> s{_lvrdSourcePath = a})++instance FromJSON LocalVolumeResourceData where+        parseJSON+          = withObject "LocalVolumeResourceData"+              (\ x ->+                 LocalVolumeResourceData' <$>+                   (x .:? "GroupOwnerSetting") <*>+                     (x .:? "DestinationPath")+                     <*> (x .:? "SourcePath"))++instance Hashable LocalVolumeResourceData where++instance NFData LocalVolumeResourceData where++instance ToJSON LocalVolumeResourceData where+        toJSON LocalVolumeResourceData'{..}+          = object+              (catMaybes+                 [("GroupOwnerSetting" .=) <$> _lvrdGroupOwnerSetting,+                  ("DestinationPath" .=) <$> _lvrdDestinationPath,+                  ("SourcePath" .=) <$> _lvrdSourcePath])++-- | Information about a logger definition version.+--+-- /See:/ 'loggerDefinitionVersion' smart constructor.+newtype LoggerDefinitionVersion = LoggerDefinitionVersion'+  { _ldvLoggers :: Maybe [GreengrassLogger]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LoggerDefinitionVersion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ldvLoggers' - A list of loggers.+loggerDefinitionVersion+    :: LoggerDefinitionVersion+loggerDefinitionVersion = LoggerDefinitionVersion' {_ldvLoggers = Nothing}+++-- | A list of loggers.+ldvLoggers :: Lens' LoggerDefinitionVersion [GreengrassLogger]+ldvLoggers = lens _ldvLoggers (\ s a -> s{_ldvLoggers = a}) . _Default . _Coerce++instance FromJSON LoggerDefinitionVersion where+        parseJSON+          = withObject "LoggerDefinitionVersion"+              (\ x ->+                 LoggerDefinitionVersion' <$>+                   (x .:? "Loggers" .!= mempty))++instance Hashable LoggerDefinitionVersion where++instance NFData LoggerDefinitionVersion where++instance ToJSON LoggerDefinitionVersion where+        toJSON LoggerDefinitionVersion'{..}+          = object (catMaybes [("Loggers" .=) <$> _ldvLoggers])++-- | Information about a resource.+--+-- /See:/ 'resource' smart constructor.+data Resource = Resource'+  { _rResourceDataContainer :: !(Maybe ResourceDataContainer)+  , _rName                  :: !(Maybe Text)+  , _rId                    :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Resource' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rResourceDataContainer' - A container of data for all resource types.+--+-- * 'rName' - The descriptive resource name, which is displayed on the Greengrass console. Max length 128 characters with pattern ''[a-zA-Z0-9:_-]+''. This must be unique within a Greengrass group.+--+-- * 'rId' - The resource ID, used to refer to a resource in the Lambda function configuration. Max length is 128 characters with pattern ''[a-zA-Z0-9:_-]+''. This must be unique within a Greengrass group.+resource+    :: Resource+resource =+  Resource'+    {_rResourceDataContainer = Nothing, _rName = Nothing, _rId = Nothing}+++-- | A container of data for all resource types.+rResourceDataContainer :: Lens' Resource (Maybe ResourceDataContainer)+rResourceDataContainer = lens _rResourceDataContainer (\ s a -> s{_rResourceDataContainer = a})++-- | The descriptive resource name, which is displayed on the Greengrass console. Max length 128 characters with pattern ''[a-zA-Z0-9:_-]+''. This must be unique within a Greengrass group.+rName :: Lens' Resource (Maybe Text)+rName = lens _rName (\ s a -> s{_rName = a})++-- | The resource ID, used to refer to a resource in the Lambda function configuration. Max length is 128 characters with pattern ''[a-zA-Z0-9:_-]+''. This must be unique within a Greengrass group.+rId :: Lens' Resource (Maybe Text)+rId = lens _rId (\ s a -> s{_rId = a})++instance FromJSON Resource where+        parseJSON+          = withObject "Resource"+              (\ x ->+                 Resource' <$>+                   (x .:? "ResourceDataContainer") <*> (x .:? "Name")+                     <*> (x .:? "Id"))++instance Hashable Resource where++instance NFData Resource where++instance ToJSON Resource where+        toJSON Resource'{..}+          = object+              (catMaybes+                 [("ResourceDataContainer" .=) <$>+                    _rResourceDataContainer,+                  ("Name" .=) <$> _rName, ("Id" .=) <$> _rId])++-- | A policy used by the function to access a resource.+--+-- /See:/ 'resourceAccessPolicy' smart constructor.+data ResourceAccessPolicy = ResourceAccessPolicy'+  { _rapResourceId :: !(Maybe Text)+  , _rapPermission :: !(Maybe Permission)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ResourceAccessPolicy' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rapResourceId' - The ID of the resource. (This ID is assigned to the resource when you create the resource definiton.)+--+-- * 'rapPermission' - The permissions that the Lambda function has to the resource. Can be one of ''rw'' (read/write) or ''ro'' (read-only).+resourceAccessPolicy+    :: ResourceAccessPolicy+resourceAccessPolicy =+  ResourceAccessPolicy' {_rapResourceId = Nothing, _rapPermission = Nothing}+++-- | The ID of the resource. (This ID is assigned to the resource when you create the resource definiton.)+rapResourceId :: Lens' ResourceAccessPolicy (Maybe Text)+rapResourceId = lens _rapResourceId (\ s a -> s{_rapResourceId = a})++-- | The permissions that the Lambda function has to the resource. Can be one of ''rw'' (read/write) or ''ro'' (read-only).+rapPermission :: Lens' ResourceAccessPolicy (Maybe Permission)+rapPermission = lens _rapPermission (\ s a -> s{_rapPermission = a})++instance FromJSON ResourceAccessPolicy where+        parseJSON+          = withObject "ResourceAccessPolicy"+              (\ x ->+                 ResourceAccessPolicy' <$>+                   (x .:? "ResourceId") <*> (x .:? "Permission"))++instance Hashable ResourceAccessPolicy where++instance NFData ResourceAccessPolicy where++instance ToJSON ResourceAccessPolicy where+        toJSON ResourceAccessPolicy'{..}+          = object+              (catMaybes+                 [("ResourceId" .=) <$> _rapResourceId,+                  ("Permission" .=) <$> _rapPermission])++-- | A container for resource data. The container takes only one of the following supported resource data types: ''LocalDeviceResourceData'', ''LocalVolumeResourceData'', ''SageMakerMachineLearningModelResourceData'', ''S3MachineLearningModelResourceData''.+--+-- /See:/ 'resourceDataContainer' smart constructor.+data ResourceDataContainer = ResourceDataContainer'+  { _rdcS3MachineLearningModelResourceData :: !(Maybe S3MachineLearningModelResourceData)+  , _rdcSageMakerMachineLearningModelResourceData :: !(Maybe SageMakerMachineLearningModelResourceData)+  , _rdcLocalVolumeResourceData :: !(Maybe LocalVolumeResourceData)+  , _rdcLocalDeviceResourceData :: !(Maybe LocalDeviceResourceData)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ResourceDataContainer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rdcS3MachineLearningModelResourceData' - Attributes that define an S3 machine learning resource.+--+-- * 'rdcSageMakerMachineLearningModelResourceData' - Attributes that define an SageMaker machine learning resource.+--+-- * 'rdcLocalVolumeResourceData' - Attributes that define the local volume resource.+--+-- * 'rdcLocalDeviceResourceData' - Attributes that define the local device resource.+resourceDataContainer+    :: ResourceDataContainer+resourceDataContainer =+  ResourceDataContainer'+    { _rdcS3MachineLearningModelResourceData = Nothing+    , _rdcSageMakerMachineLearningModelResourceData = Nothing+    , _rdcLocalVolumeResourceData = Nothing+    , _rdcLocalDeviceResourceData = Nothing+    }+++-- | Attributes that define an S3 machine learning resource.+rdcS3MachineLearningModelResourceData :: Lens' ResourceDataContainer (Maybe S3MachineLearningModelResourceData)+rdcS3MachineLearningModelResourceData = lens _rdcS3MachineLearningModelResourceData (\ s a -> s{_rdcS3MachineLearningModelResourceData = a})++-- | Attributes that define an SageMaker machine learning resource.+rdcSageMakerMachineLearningModelResourceData :: Lens' ResourceDataContainer (Maybe SageMakerMachineLearningModelResourceData)+rdcSageMakerMachineLearningModelResourceData = lens _rdcSageMakerMachineLearningModelResourceData (\ s a -> s{_rdcSageMakerMachineLearningModelResourceData = a})++-- | Attributes that define the local volume resource.+rdcLocalVolumeResourceData :: Lens' ResourceDataContainer (Maybe LocalVolumeResourceData)+rdcLocalVolumeResourceData = lens _rdcLocalVolumeResourceData (\ s a -> s{_rdcLocalVolumeResourceData = a})++-- | Attributes that define the local device resource.+rdcLocalDeviceResourceData :: Lens' ResourceDataContainer (Maybe LocalDeviceResourceData)+rdcLocalDeviceResourceData = lens _rdcLocalDeviceResourceData (\ s a -> s{_rdcLocalDeviceResourceData = a})++instance FromJSON ResourceDataContainer where+        parseJSON+          = withObject "ResourceDataContainer"+              (\ x ->+                 ResourceDataContainer' <$>+                   (x .:? "S3MachineLearningModelResourceData") <*>+                     (x .:? "SageMakerMachineLearningModelResourceData")+                     <*> (x .:? "LocalVolumeResourceData")+                     <*> (x .:? "LocalDeviceResourceData"))++instance Hashable ResourceDataContainer where++instance NFData ResourceDataContainer where++instance ToJSON ResourceDataContainer where+        toJSON ResourceDataContainer'{..}+          = object+              (catMaybes+                 [("S3MachineLearningModelResourceData" .=) <$>+                    _rdcS3MachineLearningModelResourceData,+                  ("SageMakerMachineLearningModelResourceData" .=) <$>+                    _rdcSageMakerMachineLearningModelResourceData,+                  ("LocalVolumeResourceData" .=) <$>+                    _rdcLocalVolumeResourceData,+                  ("LocalDeviceResourceData" .=) <$>+                    _rdcLocalDeviceResourceData])++-- | Information about a resource definition version.+--+-- /See:/ 'resourceDefinitionVersion' smart constructor.+newtype ResourceDefinitionVersion = ResourceDefinitionVersion'+  { _rdvResources :: Maybe [Resource]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ResourceDefinitionVersion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rdvResources' - A list of resources.+resourceDefinitionVersion+    :: ResourceDefinitionVersion+resourceDefinitionVersion = ResourceDefinitionVersion' {_rdvResources = Nothing}+++-- | A list of resources.+rdvResources :: Lens' ResourceDefinitionVersion [Resource]+rdvResources = lens _rdvResources (\ s a -> s{_rdvResources = a}) . _Default . _Coerce++instance FromJSON ResourceDefinitionVersion where+        parseJSON+          = withObject "ResourceDefinitionVersion"+              (\ x ->+                 ResourceDefinitionVersion' <$>+                   (x .:? "Resources" .!= mempty))++instance Hashable ResourceDefinitionVersion where++instance NFData ResourceDefinitionVersion where++instance ToJSON ResourceDefinitionVersion where+        toJSON ResourceDefinitionVersion'{..}+          = object+              (catMaybes [("Resources" .=) <$> _rdvResources])++-- | Attributes that define an S3 machine learning resource.+--+-- /See:/ 's3MachineLearningModelResourceData' smart constructor.+data S3MachineLearningModelResourceData = S3MachineLearningModelResourceData'+  { _smlmrdDestinationPath :: !(Maybe Text)+  , _smlmrdS3URI           :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'S3MachineLearningModelResourceData' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'smlmrdDestinationPath' - The absolute local path of the resource inside the Lambda environment.+--+-- * 'smlmrdS3URI' - The URI of the source model in an S3 bucket. The model package must be in tar.gz or .zip format.+s3MachineLearningModelResourceData+    :: S3MachineLearningModelResourceData+s3MachineLearningModelResourceData =+  S3MachineLearningModelResourceData'+    {_smlmrdDestinationPath = Nothing, _smlmrdS3URI = Nothing}+++-- | The absolute local path of the resource inside the Lambda environment.+smlmrdDestinationPath :: Lens' S3MachineLearningModelResourceData (Maybe Text)+smlmrdDestinationPath = lens _smlmrdDestinationPath (\ s a -> s{_smlmrdDestinationPath = a})++-- | The URI of the source model in an S3 bucket. The model package must be in tar.gz or .zip format.+smlmrdS3URI :: Lens' S3MachineLearningModelResourceData (Maybe Text)+smlmrdS3URI = lens _smlmrdS3URI (\ s a -> s{_smlmrdS3URI = a})++instance FromJSON S3MachineLearningModelResourceData+         where+        parseJSON+          = withObject "S3MachineLearningModelResourceData"+              (\ x ->+                 S3MachineLearningModelResourceData' <$>+                   (x .:? "DestinationPath") <*> (x .:? "S3Uri"))++instance Hashable S3MachineLearningModelResourceData+         where++instance NFData S3MachineLearningModelResourceData+         where++instance ToJSON S3MachineLearningModelResourceData+         where+        toJSON S3MachineLearningModelResourceData'{..}+          = object+              (catMaybes+                 [("DestinationPath" .=) <$> _smlmrdDestinationPath,+                  ("S3Uri" .=) <$> _smlmrdS3URI])++-- | Attributes that define an SageMaker machine learning resource.+--+-- /See:/ 'sageMakerMachineLearningModelResourceData' smart constructor.+data SageMakerMachineLearningModelResourceData = SageMakerMachineLearningModelResourceData'+  { _smmlmrdSageMakerJobARN :: !(Maybe Text)+  , _smmlmrdDestinationPath :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SageMakerMachineLearningModelResourceData' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'smmlmrdSageMakerJobARN' - The ARN of the SageMaker training job that represents the source model.+--+-- * 'smmlmrdDestinationPath' - The absolute local path of the resource inside the Lambda environment.+sageMakerMachineLearningModelResourceData+    :: SageMakerMachineLearningModelResourceData+sageMakerMachineLearningModelResourceData =+  SageMakerMachineLearningModelResourceData'+    {_smmlmrdSageMakerJobARN = Nothing, _smmlmrdDestinationPath = Nothing}+++-- | The ARN of the SageMaker training job that represents the source model.+smmlmrdSageMakerJobARN :: Lens' SageMakerMachineLearningModelResourceData (Maybe Text)+smmlmrdSageMakerJobARN = lens _smmlmrdSageMakerJobARN (\ s a -> s{_smmlmrdSageMakerJobARN = a})++-- | The absolute local path of the resource inside the Lambda environment.+smmlmrdDestinationPath :: Lens' SageMakerMachineLearningModelResourceData (Maybe Text)+smmlmrdDestinationPath = lens _smmlmrdDestinationPath (\ s a -> s{_smmlmrdDestinationPath = a})++instance FromJSON+           SageMakerMachineLearningModelResourceData+         where+        parseJSON+          = withObject+              "SageMakerMachineLearningModelResourceData"+              (\ x ->+                 SageMakerMachineLearningModelResourceData' <$>+                   (x .:? "SageMakerJobArn") <*>+                     (x .:? "DestinationPath"))++instance Hashable+           SageMakerMachineLearningModelResourceData+         where++instance NFData+           SageMakerMachineLearningModelResourceData+         where++instance ToJSON+           SageMakerMachineLearningModelResourceData+         where+        toJSON SageMakerMachineLearningModelResourceData'{..}+          = object+              (catMaybes+                 [("SageMakerJobArn" .=) <$> _smmlmrdSageMakerJobARN,+                  ("DestinationPath" .=) <$> _smmlmrdDestinationPath])++-- | Information about a subscription.+--+-- /See:/ 'subscription' smart constructor.+data Subscription = Subscription'+  { _sSubject :: !(Maybe Text)+  , _sSource  :: !(Maybe Text)+  , _sId      :: !(Maybe Text)+  , _sTarget  :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Subscription' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sSubject' - The subject of the message.+--+-- * 'sSource' - The source of the subscription. Can be a thing ARN, a Lambda function ARN, 'cloud' (which represents the IoT cloud), or 'GGShadowService'.+--+-- * 'sId' - The id of the subscription.+--+-- * 'sTarget' - Where the message is sent to. Can be a thing ARN, a Lambda function ARN, 'cloud' (which represents the IoT cloud), or 'GGShadowService'.+subscription+    :: Subscription+subscription =+  Subscription'+    { _sSubject = Nothing+    , _sSource = Nothing+    , _sId = Nothing+    , _sTarget = Nothing+    }+++-- | The subject of the message.+sSubject :: Lens' Subscription (Maybe Text)+sSubject = lens _sSubject (\ s a -> s{_sSubject = a})++-- | The source of the subscription. Can be a thing ARN, a Lambda function ARN, 'cloud' (which represents the IoT cloud), or 'GGShadowService'.+sSource :: Lens' Subscription (Maybe Text)+sSource = lens _sSource (\ s a -> s{_sSource = a})++-- | The id of the subscription.+sId :: Lens' Subscription (Maybe Text)+sId = lens _sId (\ s a -> s{_sId = a})++-- | Where the message is sent to. Can be a thing ARN, a Lambda function ARN, 'cloud' (which represents the IoT cloud), or 'GGShadowService'.+sTarget :: Lens' Subscription (Maybe Text)+sTarget = lens _sTarget (\ s a -> s{_sTarget = a})++instance FromJSON Subscription where+        parseJSON+          = withObject "Subscription"+              (\ x ->+                 Subscription' <$>+                   (x .:? "Subject") <*> (x .:? "Source") <*>+                     (x .:? "Id")+                     <*> (x .:? "Target"))++instance Hashable Subscription where++instance NFData Subscription where++instance ToJSON Subscription where+        toJSON Subscription'{..}+          = object+              (catMaybes+                 [("Subject" .=) <$> _sSubject,+                  ("Source" .=) <$> _sSource, ("Id" .=) <$> _sId,+                  ("Target" .=) <$> _sTarget])++-- | Information about a subscription definition version.+--+-- /See:/ 'subscriptionDefinitionVersion' smart constructor.+newtype SubscriptionDefinitionVersion = SubscriptionDefinitionVersion'+  { _sdvSubscriptions :: Maybe [Subscription]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SubscriptionDefinitionVersion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sdvSubscriptions' - A list of subscriptions.+subscriptionDefinitionVersion+    :: SubscriptionDefinitionVersion+subscriptionDefinitionVersion =+  SubscriptionDefinitionVersion' {_sdvSubscriptions = Nothing}+++-- | A list of subscriptions.+sdvSubscriptions :: Lens' SubscriptionDefinitionVersion [Subscription]+sdvSubscriptions = lens _sdvSubscriptions (\ s a -> s{_sdvSubscriptions = a}) . _Default . _Coerce++instance FromJSON SubscriptionDefinitionVersion where+        parseJSON+          = withObject "SubscriptionDefinitionVersion"+              (\ x ->+                 SubscriptionDefinitionVersion' <$>+                   (x .:? "Subscriptions" .!= mempty))++instance Hashable SubscriptionDefinitionVersion where++instance NFData SubscriptionDefinitionVersion where++instance ToJSON SubscriptionDefinitionVersion where+        toJSON SubscriptionDefinitionVersion'{..}+          = object+              (catMaybes+                 [("Subscriptions" .=) <$> _sdvSubscriptions])++-- | Information about a version.+--+-- /See:/ 'versionInformation' smart constructor.+data VersionInformation = VersionInformation'+  { _viARN               :: !(Maybe Text)+  , _viCreationTimestamp :: !(Maybe Text)+  , _viVersion           :: !(Maybe Text)+  , _viId                :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'VersionInformation' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'viARN' - The ARN of the version.+--+-- * 'viCreationTimestamp' - The time, in milliseconds since the epoch, when the version was created.+--+-- * 'viVersion' - The unique ID of the version.+--+-- * 'viId' - The ID of the version.+versionInformation+    :: VersionInformation+versionInformation =+  VersionInformation'+    { _viARN = Nothing+    , _viCreationTimestamp = Nothing+    , _viVersion = Nothing+    , _viId = Nothing+    }+++-- | The ARN of the version.+viARN :: Lens' VersionInformation (Maybe Text)+viARN = lens _viARN (\ s a -> s{_viARN = a})++-- | The time, in milliseconds since the epoch, when the version was created.+viCreationTimestamp :: Lens' VersionInformation (Maybe Text)+viCreationTimestamp = lens _viCreationTimestamp (\ s a -> s{_viCreationTimestamp = a})++-- | The unique ID of the version.+viVersion :: Lens' VersionInformation (Maybe Text)+viVersion = lens _viVersion (\ s a -> s{_viVersion = a})++-- | The ID of the version.+viId :: Lens' VersionInformation (Maybe Text)+viId = lens _viId (\ s a -> s{_viId = a})  instance FromJSON VersionInformation where         parseJSON
gen/Network/AWS/Greengrass/Types/Sum.hs view
@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.Greengrass.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -55,6 +55,36 @@ instance FromJSON DeploymentType where     parseJSON = parseJSONText "DeploymentType" +data EncodingType+  = Binary+  | JSON+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText EncodingType where+    parser = takeLowerText >>= \case+        "binary" -> pure Binary+        "json" -> pure JSON+        e -> fromTextError $ "Failure parsing EncodingType from value: '" <> e+           <> "'. Accepted values: binary, json"++instance ToText EncodingType where+    toText = \case+        Binary -> "binary"+        JSON -> "json"++instance Hashable     EncodingType+instance NFData       EncodingType+instance ToByteString EncodingType+instance ToQuery      EncodingType+instance ToHeader     EncodingType++instance ToJSON EncodingType where+    toJSON = toJSONText++instance FromJSON EncodingType where+    parseJSON = parseJSONText "EncodingType"+ data LoggerComponent   = GreengrassSystem   | Lambda@@ -153,3 +183,170 @@  instance FromJSON LoggerType where     parseJSON = parseJSONText "LoggerType"++-- | The type of permission a function has to access a resource.+data Permission+  = RO+  | RW+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText Permission where+    parser = takeLowerText >>= \case+        "ro" -> pure RO+        "rw" -> pure RW+        e -> fromTextError $ "Failure parsing Permission from value: '" <> e+           <> "'. Accepted values: ro, rw"++instance ToText Permission where+    toText = \case+        RO -> "ro"+        RW -> "rw"++instance Hashable     Permission+instance NFData       Permission+instance ToByteString Permission+instance ToQuery      Permission+instance ToHeader     Permission++instance ToJSON Permission where+    toJSON = toJSONText++instance FromJSON Permission where+    parseJSON = parseJSONText "Permission"++-- | The piece of software on the Greengrass core that will be updated.+data SoftwareToUpdate+  = Core+  | OtaAgent+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText SoftwareToUpdate where+    parser = takeLowerText >>= \case+        "core" -> pure Core+        "ota_agent" -> pure OtaAgent+        e -> fromTextError $ "Failure parsing SoftwareToUpdate from value: '" <> e+           <> "'. Accepted values: core, ota_agent"++instance ToText SoftwareToUpdate where+    toText = \case+        Core -> "core"+        OtaAgent -> "ota_agent"++instance Hashable     SoftwareToUpdate+instance NFData       SoftwareToUpdate+instance ToByteString SoftwareToUpdate+instance ToQuery      SoftwareToUpdate+instance ToHeader     SoftwareToUpdate++instance ToJSON SoftwareToUpdate where+    toJSON = toJSONText++-- | The minimum level of log statements that should be logged by the OTA Agent during an update.+data UpdateAgentLogLevel+  = UALLDebug+  | UALLError'+  | UALLFatal+  | UALLInfo+  | UALLNone+  | UALLTrace+  | UALLVerbose+  | UALLWarn+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText UpdateAgentLogLevel where+    parser = takeLowerText >>= \case+        "debug" -> pure UALLDebug+        "error" -> pure UALLError'+        "fatal" -> pure UALLFatal+        "info" -> pure UALLInfo+        "none" -> pure UALLNone+        "trace" -> pure UALLTrace+        "verbose" -> pure UALLVerbose+        "warn" -> pure UALLWarn+        e -> fromTextError $ "Failure parsing UpdateAgentLogLevel from value: '" <> e+           <> "'. Accepted values: debug, error, fatal, info, none, trace, verbose, warn"++instance ToText UpdateAgentLogLevel where+    toText = \case+        UALLDebug -> "DEBUG"+        UALLError' -> "ERROR"+        UALLFatal -> "FATAL"+        UALLInfo -> "INFO"+        UALLNone -> "NONE"+        UALLTrace -> "TRACE"+        UALLVerbose -> "VERBOSE"+        UALLWarn -> "WARN"++instance Hashable     UpdateAgentLogLevel+instance NFData       UpdateAgentLogLevel+instance ToByteString UpdateAgentLogLevel+instance ToQuery      UpdateAgentLogLevel+instance ToHeader     UpdateAgentLogLevel++instance ToJSON UpdateAgentLogLevel where+    toJSON = toJSONText++-- | The architecture of the cores which are the targets of an update.+data UpdateTargetsArchitecture+  = AARCH64+  | Armv7l+  | X86_64+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText UpdateTargetsArchitecture where+    parser = takeLowerText >>= \case+        "aarch64" -> pure AARCH64+        "armv7l" -> pure Armv7l+        "x86_64" -> pure X86_64+        e -> fromTextError $ "Failure parsing UpdateTargetsArchitecture from value: '" <> e+           <> "'. Accepted values: aarch64, armv7l, x86_64"++instance ToText UpdateTargetsArchitecture where+    toText = \case+        AARCH64 -> "aarch64"+        Armv7l -> "armv7l"+        X86_64 -> "x86_64"++instance Hashable     UpdateTargetsArchitecture+instance NFData       UpdateTargetsArchitecture+instance ToByteString UpdateTargetsArchitecture+instance ToQuery      UpdateTargetsArchitecture+instance ToHeader     UpdateTargetsArchitecture++instance ToJSON UpdateTargetsArchitecture where+    toJSON = toJSONText++-- | The operating system of the cores which are the targets of an update.+data UpdateTargetsOperatingSystem+  = AmazonLinux+  | Raspbian+  | Ubuntu+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText UpdateTargetsOperatingSystem where+    parser = takeLowerText >>= \case+        "amazon_linux" -> pure AmazonLinux+        "raspbian" -> pure Raspbian+        "ubuntu" -> pure Ubuntu+        e -> fromTextError $ "Failure parsing UpdateTargetsOperatingSystem from value: '" <> e+           <> "'. Accepted values: amazon_linux, raspbian, ubuntu"++instance ToText UpdateTargetsOperatingSystem where+    toText = \case+        AmazonLinux -> "amazon_linux"+        Raspbian -> "raspbian"+        Ubuntu -> "ubuntu"++instance Hashable     UpdateTargetsOperatingSystem+instance NFData       UpdateTargetsOperatingSystem+instance ToByteString UpdateTargetsOperatingSystem+instance ToQuery      UpdateTargetsOperatingSystem+instance ToHeader     UpdateTargetsOperatingSystem++instance ToJSON UpdateTargetsOperatingSystem where+    toJSON = toJSONText
gen/Network/AWS/Greengrass/UpdateConnectivityInfo.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.UpdateConnectivityInfo--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -44,7 +44,7 @@ import Network.AWS.Request import Network.AWS.Response --- | connectivity info request+-- | Connectivity information. -- -- /See:/ 'updateConnectivityInfo' smart constructor. data UpdateConnectivityInfo = UpdateConnectivityInfo'@@ -57,24 +57,24 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'uciConnectivityInfo' - Connectivity info list+-- * 'uciConnectivityInfo' - A list of connectivity info. ----- * 'uciThingName' - Thing Name+-- * 'uciThingName' - The thing name. updateConnectivityInfo     :: Text -- ^ 'uciThingName'     -> UpdateConnectivityInfo updateConnectivityInfo pThingName_ =   UpdateConnectivityInfo'-  {_uciConnectivityInfo = Nothing, _uciThingName = pThingName_}+    {_uciConnectivityInfo = Nothing, _uciThingName = pThingName_}  --- | Connectivity info list+-- | A list of connectivity info. uciConnectivityInfo :: Lens' UpdateConnectivityInfo [ConnectivityInfo]-uciConnectivityInfo = lens _uciConnectivityInfo (\ s a -> s{_uciConnectivityInfo = a}) . _Default . _Coerce;+uciConnectivityInfo = lens _uciConnectivityInfo (\ s a -> s{_uciConnectivityInfo = a}) . _Default . _Coerce --- | Thing Name+-- | The thing name. uciThingName :: Lens' UpdateConnectivityInfo Text-uciThingName = lens _uciThingName (\ s a -> s{_uciThingName = a});+uciThingName = lens _uciThingName (\ s a -> s{_uciThingName = a})  instance AWSRequest UpdateConnectivityInfo where         type Rs UpdateConnectivityInfo =@@ -125,9 +125,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ucirsVersion' - New Version+-- * 'ucirsVersion' - The new version of the connectivity info. ----- * 'ucirsMessage' - Response Text+-- * 'ucirsMessage' - A message about the connectivity info update request. -- -- * 'ucirsResponseStatus' - -- | The response status code. updateConnectivityInfoResponse@@ -135,22 +135,22 @@     -> UpdateConnectivityInfoResponse updateConnectivityInfoResponse pResponseStatus_ =   UpdateConnectivityInfoResponse'-  { _ucirsVersion = Nothing-  , _ucirsMessage = Nothing-  , _ucirsResponseStatus = pResponseStatus_-  }+    { _ucirsVersion = Nothing+    , _ucirsMessage = Nothing+    , _ucirsResponseStatus = pResponseStatus_+    }  --- | New Version+-- | The new version of the connectivity info. ucirsVersion :: Lens' UpdateConnectivityInfoResponse (Maybe Text)-ucirsVersion = lens _ucirsVersion (\ s a -> s{_ucirsVersion = a});+ucirsVersion = lens _ucirsVersion (\ s a -> s{_ucirsVersion = a}) --- | Response Text+-- | A message about the connectivity info update request. ucirsMessage :: Lens' UpdateConnectivityInfoResponse (Maybe Text)-ucirsMessage = lens _ucirsMessage (\ s a -> s{_ucirsMessage = a});+ucirsMessage = lens _ucirsMessage (\ s a -> s{_ucirsMessage = a})  -- | -- | The response status code. ucirsResponseStatus :: Lens' UpdateConnectivityInfoResponse Int-ucirsResponseStatus = lens _ucirsResponseStatus (\ s a -> s{_ucirsResponseStatus = a});+ucirsResponseStatus = lens _ucirsResponseStatus (\ s a -> s{_ucirsResponseStatus = a})  instance NFData UpdateConnectivityInfoResponse where
gen/Network/AWS/Greengrass/UpdateCoreDefinition.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.UpdateCoreDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -53,24 +53,24 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ucdName' - name of the definition+-- * 'ucdName' - The name of the definition. ----- * 'ucdCoreDefinitionId' - core definition Id+-- * 'ucdCoreDefinitionId' - The ID of the core definition. updateCoreDefinition     :: Text -- ^ 'ucdCoreDefinitionId'     -> UpdateCoreDefinition updateCoreDefinition pCoreDefinitionId_ =   UpdateCoreDefinition'-  {_ucdName = Nothing, _ucdCoreDefinitionId = pCoreDefinitionId_}+    {_ucdName = Nothing, _ucdCoreDefinitionId = pCoreDefinitionId_}  --- | name of the definition+-- | The name of the definition. ucdName :: Lens' UpdateCoreDefinition (Maybe Text)-ucdName = lens _ucdName (\ s a -> s{_ucdName = a});+ucdName = lens _ucdName (\ s a -> s{_ucdName = a}) --- | core definition Id+-- | The ID of the core definition. ucdCoreDefinitionId :: Lens' UpdateCoreDefinition Text-ucdCoreDefinitionId = lens _ucdCoreDefinitionId (\ s a -> s{_ucdCoreDefinitionId = a});+ucdCoreDefinitionId = lens _ucdCoreDefinitionId (\ s a -> s{_ucdCoreDefinitionId = a})  instance AWSRequest UpdateCoreDefinition where         type Rs UpdateCoreDefinition =@@ -126,6 +126,6 @@  -- | -- | The response status code. ucdrsResponseStatus :: Lens' UpdateCoreDefinitionResponse Int-ucdrsResponseStatus = lens _ucdrsResponseStatus (\ s a -> s{_ucdrsResponseStatus = a});+ucdrsResponseStatus = lens _ucdrsResponseStatus (\ s a -> s{_ucdrsResponseStatus = a})  instance NFData UpdateCoreDefinitionResponse where
gen/Network/AWS/Greengrass/UpdateDeviceDefinition.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.UpdateDeviceDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -53,24 +53,24 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'uddName' - name of the definition+-- * 'uddName' - The name of the definition. ----- * 'uddDeviceDefinitionId' - device definition Id+-- * 'uddDeviceDefinitionId' - The ID of the device definition. updateDeviceDefinition     :: Text -- ^ 'uddDeviceDefinitionId'     -> UpdateDeviceDefinition updateDeviceDefinition pDeviceDefinitionId_ =   UpdateDeviceDefinition'-  {_uddName = Nothing, _uddDeviceDefinitionId = pDeviceDefinitionId_}+    {_uddName = Nothing, _uddDeviceDefinitionId = pDeviceDefinitionId_}  --- | name of the definition+-- | The name of the definition. uddName :: Lens' UpdateDeviceDefinition (Maybe Text)-uddName = lens _uddName (\ s a -> s{_uddName = a});+uddName = lens _uddName (\ s a -> s{_uddName = a}) --- | device definition Id+-- | The ID of the device definition. uddDeviceDefinitionId :: Lens' UpdateDeviceDefinition Text-uddDeviceDefinitionId = lens _uddDeviceDefinitionId (\ s a -> s{_uddDeviceDefinitionId = a});+uddDeviceDefinitionId = lens _uddDeviceDefinitionId (\ s a -> s{_uddDeviceDefinitionId = a})  instance AWSRequest UpdateDeviceDefinition where         type Rs UpdateDeviceDefinition =@@ -126,6 +126,6 @@  -- | -- | The response status code. uddrsResponseStatus :: Lens' UpdateDeviceDefinitionResponse Int-uddrsResponseStatus = lens _uddrsResponseStatus (\ s a -> s{_uddrsResponseStatus = a});+uddrsResponseStatus = lens _uddrsResponseStatus (\ s a -> s{_uddrsResponseStatus = a})  instance NFData UpdateDeviceDefinitionResponse where
gen/Network/AWS/Greengrass/UpdateFunctionDefinition.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.UpdateFunctionDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -53,24 +53,24 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ufdName' - name of the definition+-- * 'ufdName' - The name of the definition. ----- * 'ufdFunctionDefinitionId' - the unique Id of the lambda definition+-- * 'ufdFunctionDefinitionId' - The ID of the Lambda function definition. updateFunctionDefinition     :: Text -- ^ 'ufdFunctionDefinitionId'     -> UpdateFunctionDefinition updateFunctionDefinition pFunctionDefinitionId_ =   UpdateFunctionDefinition'-  {_ufdName = Nothing, _ufdFunctionDefinitionId = pFunctionDefinitionId_}+    {_ufdName = Nothing, _ufdFunctionDefinitionId = pFunctionDefinitionId_}  --- | name of the definition+-- | The name of the definition. ufdName :: Lens' UpdateFunctionDefinition (Maybe Text)-ufdName = lens _ufdName (\ s a -> s{_ufdName = a});+ufdName = lens _ufdName (\ s a -> s{_ufdName = a}) --- | the unique Id of the lambda definition+-- | The ID of the Lambda function definition. ufdFunctionDefinitionId :: Lens' UpdateFunctionDefinition Text-ufdFunctionDefinitionId = lens _ufdFunctionDefinitionId (\ s a -> s{_ufdFunctionDefinitionId = a});+ufdFunctionDefinitionId = lens _ufdFunctionDefinitionId (\ s a -> s{_ufdFunctionDefinitionId = a})  instance AWSRequest UpdateFunctionDefinition where         type Rs UpdateFunctionDefinition =@@ -126,7 +126,7 @@  -- | -- | The response status code. ufdrsResponseStatus :: Lens' UpdateFunctionDefinitionResponse Int-ufdrsResponseStatus = lens _ufdrsResponseStatus (\ s a -> s{_ufdrsResponseStatus = a});+ufdrsResponseStatus = lens _ufdrsResponseStatus (\ s a -> s{_ufdrsResponseStatus = a})  instance NFData UpdateFunctionDefinitionResponse          where
gen/Network/AWS/Greengrass/UpdateGroup.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.UpdateGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -53,22 +53,22 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ugName' - name of the definition+-- * 'ugName' - The name of the definition. ----- * 'ugGroupId' - The unique Id of the AWS Greengrass Group+-- * 'ugGroupId' - The ID of the AWS Greengrass group. updateGroup     :: Text -- ^ 'ugGroupId'     -> UpdateGroup updateGroup pGroupId_ = UpdateGroup' {_ugName = Nothing, _ugGroupId = pGroupId_}  --- | name of the definition+-- | The name of the definition. ugName :: Lens' UpdateGroup (Maybe Text)-ugName = lens _ugName (\ s a -> s{_ugName = a});+ugName = lens _ugName (\ s a -> s{_ugName = a}) --- | The unique Id of the AWS Greengrass Group+-- | The ID of the AWS Greengrass group. ugGroupId :: Lens' UpdateGroup Text-ugGroupId = lens _ugGroupId (\ s a -> s{_ugGroupId = a});+ugGroupId = lens _ugGroupId (\ s a -> s{_ugGroupId = a})  instance AWSRequest UpdateGroup where         type Rs UpdateGroup = UpdateGroupResponse@@ -120,6 +120,6 @@  -- | -- | The response status code. ugrsResponseStatus :: Lens' UpdateGroupResponse Int-ugrsResponseStatus = lens _ugrsResponseStatus (\ s a -> s{_ugrsResponseStatus = a});+ugrsResponseStatus = lens _ugrsResponseStatus (\ s a -> s{_ugrsResponseStatus = a})  instance NFData UpdateGroupResponse where
gen/Network/AWS/Greengrass/UpdateGroupCertificateConfiguration.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Greengrass.UpdateGroupCertificateConfiguration--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Updates the Cert expiry time for a group.+-- Updates the Certificate expiry time for a group. module Network.AWS.Greengrass.UpdateGroupCertificateConfiguration     (     -- * Creating a Request@@ -56,24 +56,24 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ugccCertificateExpiryInMilliseconds' - Amount of time when the certificate expires in milliseconds.+-- * 'ugccCertificateExpiryInMilliseconds' - The amount of time remaining before the certificate expires, in milliseconds. ----- * 'ugccGroupId' - The unique Id of the AWS Greengrass Group+-- * 'ugccGroupId' - The ID of the AWS Greengrass group. updateGroupCertificateConfiguration     :: Text -- ^ 'ugccGroupId'     -> UpdateGroupCertificateConfiguration updateGroupCertificateConfiguration pGroupId_ =   UpdateGroupCertificateConfiguration'-  {_ugccCertificateExpiryInMilliseconds = Nothing, _ugccGroupId = pGroupId_}+    {_ugccCertificateExpiryInMilliseconds = Nothing, _ugccGroupId = pGroupId_}  --- | Amount of time when the certificate expires in milliseconds.+-- | The amount of time remaining before the certificate expires, in milliseconds. ugccCertificateExpiryInMilliseconds :: Lens' UpdateGroupCertificateConfiguration (Maybe Text)-ugccCertificateExpiryInMilliseconds = lens _ugccCertificateExpiryInMilliseconds (\ s a -> s{_ugccCertificateExpiryInMilliseconds = a});+ugccCertificateExpiryInMilliseconds = lens _ugccCertificateExpiryInMilliseconds (\ s a -> s{_ugccCertificateExpiryInMilliseconds = a}) --- | The unique Id of the AWS Greengrass Group+-- | The ID of the AWS Greengrass group. ugccGroupId :: Lens' UpdateGroupCertificateConfiguration Text-ugccGroupId = lens _ugccGroupId (\ s a -> s{_ugccGroupId = a});+ugccGroupId = lens _ugccGroupId (\ s a -> s{_ugccGroupId = a})  instance AWSRequest            UpdateGroupCertificateConfiguration@@ -137,11 +137,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ugccrsCertificateAuthorityExpiryInMilliseconds' - Amount of time when the certificate authority expires in milliseconds.+-- * 'ugccrsCertificateAuthorityExpiryInMilliseconds' - The amount of time remaining before the certificate authority expires, in milliseconds. ----- * 'ugccrsGroupId' - Id of the group the certificate configuration belongs to.+-- * 'ugccrsGroupId' - The ID of the group certificate configuration. ----- * 'ugccrsCertificateExpiryInMilliseconds' - Amount of time when the certificate expires in milliseconds.+-- * 'ugccrsCertificateExpiryInMilliseconds' - The amount of time remaining before the certificate expires, in milliseconds. -- -- * 'ugccrsResponseStatus' - -- | The response status code. updateGroupCertificateConfigurationResponse@@ -149,28 +149,28 @@     -> UpdateGroupCertificateConfigurationResponse updateGroupCertificateConfigurationResponse pResponseStatus_ =   UpdateGroupCertificateConfigurationResponse'-  { _ugccrsCertificateAuthorityExpiryInMilliseconds = Nothing-  , _ugccrsGroupId = Nothing-  , _ugccrsCertificateExpiryInMilliseconds = Nothing-  , _ugccrsResponseStatus = pResponseStatus_-  }+    { _ugccrsCertificateAuthorityExpiryInMilliseconds = Nothing+    , _ugccrsGroupId = Nothing+    , _ugccrsCertificateExpiryInMilliseconds = Nothing+    , _ugccrsResponseStatus = pResponseStatus_+    }  --- | Amount of time when the certificate authority expires in milliseconds.+-- | The amount of time remaining before the certificate authority expires, in milliseconds. ugccrsCertificateAuthorityExpiryInMilliseconds :: Lens' UpdateGroupCertificateConfigurationResponse (Maybe Text)-ugccrsCertificateAuthorityExpiryInMilliseconds = lens _ugccrsCertificateAuthorityExpiryInMilliseconds (\ s a -> s{_ugccrsCertificateAuthorityExpiryInMilliseconds = a});+ugccrsCertificateAuthorityExpiryInMilliseconds = lens _ugccrsCertificateAuthorityExpiryInMilliseconds (\ s a -> s{_ugccrsCertificateAuthorityExpiryInMilliseconds = a}) --- | Id of the group the certificate configuration belongs to.+-- | The ID of the group certificate configuration. ugccrsGroupId :: Lens' UpdateGroupCertificateConfigurationResponse (Maybe Text)-ugccrsGroupId = lens _ugccrsGroupId (\ s a -> s{_ugccrsGroupId = a});+ugccrsGroupId = lens _ugccrsGroupId (\ s a -> s{_ugccrsGroupId = a}) --- | Amount of time when the certificate expires in milliseconds.+-- | The amount of time remaining before the certificate expires, in milliseconds. ugccrsCertificateExpiryInMilliseconds :: Lens' UpdateGroupCertificateConfigurationResponse (Maybe Text)-ugccrsCertificateExpiryInMilliseconds = lens _ugccrsCertificateExpiryInMilliseconds (\ s a -> s{_ugccrsCertificateExpiryInMilliseconds = a});+ugccrsCertificateExpiryInMilliseconds = lens _ugccrsCertificateExpiryInMilliseconds (\ s a -> s{_ugccrsCertificateExpiryInMilliseconds = a})  -- | -- | The response status code. ugccrsResponseStatus :: Lens' UpdateGroupCertificateConfigurationResponse Int-ugccrsResponseStatus = lens _ugccrsResponseStatus (\ s a -> s{_ugccrsResponseStatus = a});+ugccrsResponseStatus = lens _ugccrsResponseStatus (\ s a -> s{_ugccrsResponseStatus = a})  instance NFData            UpdateGroupCertificateConfigurationResponse
gen/Network/AWS/Greengrass/UpdateLoggerDefinition.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.UpdateLoggerDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -53,24 +53,24 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'uldName' - name of the definition+-- * 'uldName' - The name of the definition. ----- * 'uldLoggerDefinitionId' - logger definition Id+-- * 'uldLoggerDefinitionId' - The ID of the logger definition. updateLoggerDefinition     :: Text -- ^ 'uldLoggerDefinitionId'     -> UpdateLoggerDefinition updateLoggerDefinition pLoggerDefinitionId_ =   UpdateLoggerDefinition'-  {_uldName = Nothing, _uldLoggerDefinitionId = pLoggerDefinitionId_}+    {_uldName = Nothing, _uldLoggerDefinitionId = pLoggerDefinitionId_}  --- | name of the definition+-- | The name of the definition. uldName :: Lens' UpdateLoggerDefinition (Maybe Text)-uldName = lens _uldName (\ s a -> s{_uldName = a});+uldName = lens _uldName (\ s a -> s{_uldName = a}) --- | logger definition Id+-- | The ID of the logger definition. uldLoggerDefinitionId :: Lens' UpdateLoggerDefinition Text-uldLoggerDefinitionId = lens _uldLoggerDefinitionId (\ s a -> s{_uldLoggerDefinitionId = a});+uldLoggerDefinitionId = lens _uldLoggerDefinitionId (\ s a -> s{_uldLoggerDefinitionId = a})  instance AWSRequest UpdateLoggerDefinition where         type Rs UpdateLoggerDefinition =@@ -126,6 +126,6 @@  -- | -- | The response status code. uldrsResponseStatus :: Lens' UpdateLoggerDefinitionResponse Int-uldrsResponseStatus = lens _uldrsResponseStatus (\ s a -> s{_uldrsResponseStatus = a});+uldrsResponseStatus = lens _uldrsResponseStatus (\ s a -> s{_uldrsResponseStatus = a})  instance NFData UpdateLoggerDefinitionResponse where
+ gen/Network/AWS/Greengrass/UpdateResourceDefinition.hs view
@@ -0,0 +1,132 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Greengrass.UpdateResourceDefinition+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a resource definition.+module Network.AWS.Greengrass.UpdateResourceDefinition+    (+    -- * Creating a Request+      updateResourceDefinition+    , UpdateResourceDefinition+    -- * Request Lenses+    , urdName+    , urdResourceDefinitionId++    -- * Destructuring the Response+    , updateResourceDefinitionResponse+    , UpdateResourceDefinitionResponse+    -- * Response Lenses+    , urdrsResponseStatus+    ) where++import Network.AWS.Greengrass.Types+import Network.AWS.Greengrass.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'updateResourceDefinition' smart constructor.+data UpdateResourceDefinition = UpdateResourceDefinition'+  { _urdName                 :: !(Maybe Text)+  , _urdResourceDefinitionId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateResourceDefinition' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'urdName' - The name of the definition.+--+-- * 'urdResourceDefinitionId' - The ID of the resource definition.+updateResourceDefinition+    :: Text -- ^ 'urdResourceDefinitionId'+    -> UpdateResourceDefinition+updateResourceDefinition pResourceDefinitionId_ =+  UpdateResourceDefinition'+    {_urdName = Nothing, _urdResourceDefinitionId = pResourceDefinitionId_}+++-- | The name of the definition.+urdName :: Lens' UpdateResourceDefinition (Maybe Text)+urdName = lens _urdName (\ s a -> s{_urdName = a})++-- | The ID of the resource definition.+urdResourceDefinitionId :: Lens' UpdateResourceDefinition Text+urdResourceDefinitionId = lens _urdResourceDefinitionId (\ s a -> s{_urdResourceDefinitionId = a})++instance AWSRequest UpdateResourceDefinition where+        type Rs UpdateResourceDefinition =+             UpdateResourceDefinitionResponse+        request = putJSON greengrass+        response+          = receiveEmpty+              (\ s h x ->+                 UpdateResourceDefinitionResponse' <$>+                   (pure (fromEnum s)))++instance Hashable UpdateResourceDefinition where++instance NFData UpdateResourceDefinition where++instance ToHeaders UpdateResourceDefinition where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON UpdateResourceDefinition where+        toJSON UpdateResourceDefinition'{..}+          = object (catMaybes [("Name" .=) <$> _urdName])++instance ToPath UpdateResourceDefinition where+        toPath UpdateResourceDefinition'{..}+          = mconcat+              ["/greengrass/definition/resources/",+               toBS _urdResourceDefinitionId]++instance ToQuery UpdateResourceDefinition where+        toQuery = const mempty++-- | /See:/ 'updateResourceDefinitionResponse' smart constructor.+newtype UpdateResourceDefinitionResponse = UpdateResourceDefinitionResponse'+  { _urdrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpdateResourceDefinitionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'urdrsResponseStatus' - -- | The response status code.+updateResourceDefinitionResponse+    :: Int -- ^ 'urdrsResponseStatus'+    -> UpdateResourceDefinitionResponse+updateResourceDefinitionResponse pResponseStatus_ =+  UpdateResourceDefinitionResponse' {_urdrsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+urdrsResponseStatus :: Lens' UpdateResourceDefinitionResponse Int+urdrsResponseStatus = lens _urdrsResponseStatus (\ s a -> s{_urdrsResponseStatus = a})++instance NFData UpdateResourceDefinitionResponse+         where
gen/Network/AWS/Greengrass/UpdateSubscriptionDefinition.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Greengrass.UpdateSubscriptionDefinition--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -53,26 +53,26 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'usdName' - name of the definition+-- * 'usdName' - The name of the definition. ----- * 'usdSubscriptionDefinitionId' - subscription definition Id+-- * 'usdSubscriptionDefinitionId' - The ID of the subscription definition. updateSubscriptionDefinition     :: Text -- ^ 'usdSubscriptionDefinitionId'     -> UpdateSubscriptionDefinition updateSubscriptionDefinition pSubscriptionDefinitionId_ =   UpdateSubscriptionDefinition'-  { _usdName = Nothing-  , _usdSubscriptionDefinitionId = pSubscriptionDefinitionId_-  }+    { _usdName = Nothing+    , _usdSubscriptionDefinitionId = pSubscriptionDefinitionId_+    }  --- | name of the definition+-- | The name of the definition. usdName :: Lens' UpdateSubscriptionDefinition (Maybe Text)-usdName = lens _usdName (\ s a -> s{_usdName = a});+usdName = lens _usdName (\ s a -> s{_usdName = a}) --- | subscription definition Id+-- | The ID of the subscription definition. usdSubscriptionDefinitionId :: Lens' UpdateSubscriptionDefinition Text-usdSubscriptionDefinitionId = lens _usdSubscriptionDefinitionId (\ s a -> s{_usdSubscriptionDefinitionId = a});+usdSubscriptionDefinitionId = lens _usdSubscriptionDefinitionId (\ s a -> s{_usdSubscriptionDefinitionId = a})  instance AWSRequest UpdateSubscriptionDefinition          where@@ -125,12 +125,12 @@     -> UpdateSubscriptionDefinitionResponse updateSubscriptionDefinitionResponse pResponseStatus_ =   UpdateSubscriptionDefinitionResponse'-  {_usdrsResponseStatus = pResponseStatus_}+    {_usdrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. usdrsResponseStatus :: Lens' UpdateSubscriptionDefinitionResponse Int-usdrsResponseStatus = lens _usdrsResponseStatus (\ s a -> s{_usdrsResponseStatus = a});+usdrsResponseStatus = lens _usdrsResponseStatus (\ s a -> s{_usdrsResponseStatus = a})  instance NFData UpdateSubscriptionDefinitionResponse          where
gen/Network/AWS/Greengrass/Waiters.hs view
@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.Greengrass.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
test/Main.hs view
@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
test/Test/AWS/Gen/Greengrass.hs view
@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.Greengrass--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -94,6 +94,9 @@ --         , requestGetServiceRoleForAccount $ --             getServiceRoleForAccount --+--         , requestCreateSoftwareUpdateJob $+--             createSoftwareUpdateJob+-- --         , requestCreateLoggerDefinition $ --             createLoggerDefinition --@@ -118,12 +121,30 @@ --         , requestGetDeploymentStatus $ --             getDeploymentStatus --+--         , requestCreateResourceDefinition $+--             createResourceDefinition+--+--         , requestGetResourceDefinitionVersion $+--             getResourceDefinitionVersion+-- --         , requestUpdateFunctionDefinition $ --             updateFunctionDefinition -- --         , requestDeleteFunctionDefinition $ --             deleteFunctionDefinition --+--         , requestListResourceDefinitions $+--             listResourceDefinitions+--+--         , requestCreateResourceDefinitionVersion $+--             createResourceDefinitionVersion+--+--         , requestGetResourceDefinition $+--             getResourceDefinition+--+--         , requestListResourceDefinitionVersions $+--             listResourceDefinitionVersions+-- --         , requestDisassociateServiceRoleFromAccount $ --             disassociateServiceRoleFromAccount --@@ -199,6 +220,12 @@ --         , requestListGroups $ --             listGroups --+--         , requestDeleteResourceDefinition $+--             deleteResourceDefinition+--+--         , requestUpdateResourceDefinition $+--             updateResourceDefinition+-- --         , requestListDeviceDefinitionVersions $ --             listDeviceDefinitionVersions --@@ -292,6 +319,9 @@ --         , responseGetServiceRoleForAccount $ --             getServiceRoleForAccountResponse --+--         , responseCreateSoftwareUpdateJob $+--             createSoftwareUpdateJobResponse+-- --         , responseCreateLoggerDefinition $ --             createLoggerDefinitionResponse --@@ -316,12 +346,30 @@ --         , responseGetDeploymentStatus $ --             getDeploymentStatusResponse --+--         , responseCreateResourceDefinition $+--             createResourceDefinitionResponse+--+--         , responseGetResourceDefinitionVersion $+--             getResourceDefinitionVersionResponse+-- --         , responseUpdateFunctionDefinition $ --             updateFunctionDefinitionResponse -- --         , responseDeleteFunctionDefinition $ --             deleteFunctionDefinitionResponse --+--         , responseListResourceDefinitions $+--             listResourceDefinitionsResponse+--+--         , responseCreateResourceDefinitionVersion $+--             createResourceDefinitionVersionResponse+--+--         , responseGetResourceDefinition $+--             getResourceDefinitionResponse+--+--         , responseListResourceDefinitionVersions $+--             listResourceDefinitionVersionsResponse+-- --         , responseDisassociateServiceRoleFromAccount $ --             disassociateServiceRoleFromAccountResponse --@@ -397,6 +445,12 @@ --         , responseListGroups $ --             listGroupsResponse --+--         , responseDeleteResourceDefinition $+--             deleteResourceDefinitionResponse+--+--         , responseUpdateResourceDefinition $+--             updateResourceDefinitionResponse+-- --         , responseListDeviceDefinitionVersions $ --             listDeviceDefinitionVersionsResponse --@@ -536,6 +590,11 @@     "GetServiceRoleForAccount"     "fixture/GetServiceRoleForAccount.yaml" +requestCreateSoftwareUpdateJob :: CreateSoftwareUpdateJob -> TestTree+requestCreateSoftwareUpdateJob = req+    "CreateSoftwareUpdateJob"+    "fixture/CreateSoftwareUpdateJob.yaml"+ requestCreateLoggerDefinition :: CreateLoggerDefinition -> TestTree requestCreateLoggerDefinition = req     "CreateLoggerDefinition"@@ -576,6 +635,16 @@     "GetDeploymentStatus"     "fixture/GetDeploymentStatus.yaml" +requestCreateResourceDefinition :: CreateResourceDefinition -> TestTree+requestCreateResourceDefinition = req+    "CreateResourceDefinition"+    "fixture/CreateResourceDefinition.yaml"++requestGetResourceDefinitionVersion :: GetResourceDefinitionVersion -> TestTree+requestGetResourceDefinitionVersion = req+    "GetResourceDefinitionVersion"+    "fixture/GetResourceDefinitionVersion.yaml"+ requestUpdateFunctionDefinition :: UpdateFunctionDefinition -> TestTree requestUpdateFunctionDefinition = req     "UpdateFunctionDefinition"@@ -586,6 +655,26 @@     "DeleteFunctionDefinition"     "fixture/DeleteFunctionDefinition.yaml" +requestListResourceDefinitions :: ListResourceDefinitions -> TestTree+requestListResourceDefinitions = req+    "ListResourceDefinitions"+    "fixture/ListResourceDefinitions.yaml"++requestCreateResourceDefinitionVersion :: CreateResourceDefinitionVersion -> TestTree+requestCreateResourceDefinitionVersion = req+    "CreateResourceDefinitionVersion"+    "fixture/CreateResourceDefinitionVersion.yaml"++requestGetResourceDefinition :: GetResourceDefinition -> TestTree+requestGetResourceDefinition = req+    "GetResourceDefinition"+    "fixture/GetResourceDefinition.yaml"++requestListResourceDefinitionVersions :: ListResourceDefinitionVersions -> TestTree+requestListResourceDefinitionVersions = req+    "ListResourceDefinitionVersions"+    "fixture/ListResourceDefinitionVersions.yaml"+ requestDisassociateServiceRoleFromAccount :: DisassociateServiceRoleFromAccount -> TestTree requestDisassociateServiceRoleFromAccount = req     "DisassociateServiceRoleFromAccount"@@ -711,6 +800,16 @@     "ListGroups"     "fixture/ListGroups.yaml" +requestDeleteResourceDefinition :: DeleteResourceDefinition -> TestTree+requestDeleteResourceDefinition = req+    "DeleteResourceDefinition"+    "fixture/DeleteResourceDefinition.yaml"++requestUpdateResourceDefinition :: UpdateResourceDefinition -> TestTree+requestUpdateResourceDefinition = req+    "UpdateResourceDefinition"+    "fixture/UpdateResourceDefinition.yaml"+ requestListDeviceDefinitionVersions :: ListDeviceDefinitionVersions -> TestTree requestListDeviceDefinitionVersions = req     "ListDeviceDefinitionVersions"@@ -907,6 +1006,13 @@     greengrass     (Proxy :: Proxy GetServiceRoleForAccount) +responseCreateSoftwareUpdateJob :: CreateSoftwareUpdateJobResponse -> TestTree+responseCreateSoftwareUpdateJob = res+    "CreateSoftwareUpdateJobResponse"+    "fixture/CreateSoftwareUpdateJobResponse.proto"+    greengrass+    (Proxy :: Proxy CreateSoftwareUpdateJob)+ responseCreateLoggerDefinition :: CreateLoggerDefinitionResponse -> TestTree responseCreateLoggerDefinition = res     "CreateLoggerDefinitionResponse"@@ -963,6 +1069,20 @@     greengrass     (Proxy :: Proxy GetDeploymentStatus) +responseCreateResourceDefinition :: CreateResourceDefinitionResponse -> TestTree+responseCreateResourceDefinition = res+    "CreateResourceDefinitionResponse"+    "fixture/CreateResourceDefinitionResponse.proto"+    greengrass+    (Proxy :: Proxy CreateResourceDefinition)++responseGetResourceDefinitionVersion :: GetResourceDefinitionVersionResponse -> TestTree+responseGetResourceDefinitionVersion = res+    "GetResourceDefinitionVersionResponse"+    "fixture/GetResourceDefinitionVersionResponse.proto"+    greengrass+    (Proxy :: Proxy GetResourceDefinitionVersion)+ responseUpdateFunctionDefinition :: UpdateFunctionDefinitionResponse -> TestTree responseUpdateFunctionDefinition = res     "UpdateFunctionDefinitionResponse"@@ -977,6 +1097,34 @@     greengrass     (Proxy :: Proxy DeleteFunctionDefinition) +responseListResourceDefinitions :: ListResourceDefinitionsResponse -> TestTree+responseListResourceDefinitions = res+    "ListResourceDefinitionsResponse"+    "fixture/ListResourceDefinitionsResponse.proto"+    greengrass+    (Proxy :: Proxy ListResourceDefinitions)++responseCreateResourceDefinitionVersion :: CreateResourceDefinitionVersionResponse -> TestTree+responseCreateResourceDefinitionVersion = res+    "CreateResourceDefinitionVersionResponse"+    "fixture/CreateResourceDefinitionVersionResponse.proto"+    greengrass+    (Proxy :: Proxy CreateResourceDefinitionVersion)++responseGetResourceDefinition :: GetResourceDefinitionResponse -> TestTree+responseGetResourceDefinition = res+    "GetResourceDefinitionResponse"+    "fixture/GetResourceDefinitionResponse.proto"+    greengrass+    (Proxy :: Proxy GetResourceDefinition)++responseListResourceDefinitionVersions :: ListResourceDefinitionVersionsResponse -> TestTree+responseListResourceDefinitionVersions = res+    "ListResourceDefinitionVersionsResponse"+    "fixture/ListResourceDefinitionVersionsResponse.proto"+    greengrass+    (Proxy :: Proxy ListResourceDefinitionVersions)+ responseDisassociateServiceRoleFromAccount :: DisassociateServiceRoleFromAccountResponse -> TestTree responseDisassociateServiceRoleFromAccount = res     "DisassociateServiceRoleFromAccountResponse"@@ -1151,6 +1299,20 @@     "fixture/ListGroupsResponse.proto"     greengrass     (Proxy :: Proxy ListGroups)++responseDeleteResourceDefinition :: DeleteResourceDefinitionResponse -> TestTree+responseDeleteResourceDefinition = res+    "DeleteResourceDefinitionResponse"+    "fixture/DeleteResourceDefinitionResponse.proto"+    greengrass+    (Proxy :: Proxy DeleteResourceDefinition)++responseUpdateResourceDefinition :: UpdateResourceDefinitionResponse -> TestTree+responseUpdateResourceDefinition = res+    "UpdateResourceDefinitionResponse"+    "fixture/UpdateResourceDefinitionResponse.proto"+    greengrass+    (Proxy :: Proxy UpdateResourceDefinition)  responseListDeviceDefinitionVersions :: ListDeviceDefinitionVersionsResponse -> TestTree responseListDeviceDefinitionVersions = res
test/Test/AWS/Greengrass.hs view
@@ -1,6 +1,6 @@ -- | -- Module      : Test.AWS.Greengrass--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated
test/Test/AWS/Greengrass/Internal.hs view
@@ -1,6 +1,6 @@ -- | -- Module      : Test.AWS.Greengrass.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated