amazonka-resourcegroups 1.6.1 → 2.0

raw patch · 83 files changed

+7224/−2746 lines, 83 filesdep +case-insensitivedep ~amazonka-coredep ~amazonka-testdep ~basesetup-changedPVP ok

version bump matches the API change (PVP)

Dependencies added: case-insensitive

Dependency ranges changed: amazonka-core, amazonka-test, base

API changes (from Hackage documentation)

Files

• README.md +3/−4
• Setup.hs +0/−2
• amazonka-resourcegroups.cabal +109/−86
• fixture/DeleteGroup.yaml +1/−1
• fixture/GetGroup.yaml +1/−1
• fixture/GetGroupConfiguration.yaml +10/−0
• fixture/GetGroupConfigurationResponse.proto +0/−0
• fixture/GetGroupQuery.yaml +1/−1
• fixture/GroupResources.yaml +10/−0
• fixture/GroupResourcesResponse.proto +0/−0
• fixture/ListGroupResources.yaml +1/−1
• fixture/ListGroups.yaml +1/−1
• fixture/PutGroupConfiguration.yaml +10/−0
• fixture/PutGroupConfigurationResponse.proto +0/−0
• fixture/UngroupResources.yaml +10/−0
• fixture/UngroupResourcesResponse.proto +0/−0
• fixture/UpdateGroup.yaml +1/−1
• fixture/UpdateGroupQuery.yaml +1/−1
• gen/Amazonka/ResourceGroups.hs +308/−0
• gen/Amazonka/ResourceGroups/CreateGroup.hs +323/−0
• gen/Amazonka/ResourceGroups/DeleteGroup.hs +177/−0
• gen/Amazonka/ResourceGroups/GetGroup.hs +175/−0
• gen/Amazonka/ResourceGroups/GetGroupConfiguration.hs +168/−0
• gen/Amazonka/ResourceGroups/GetGroupQuery.hs +186/−0
• gen/Amazonka/ResourceGroups/GetTags.hs +166/−0
• gen/Amazonka/ResourceGroups/GroupResources.hs +226/−0
• gen/Amazonka/ResourceGroups/Lens.hs +233/−0
• gen/Amazonka/ResourceGroups/ListGroupResources.hs +434/−0
• gen/Amazonka/ResourceGroups/ListGroups.hs +346/−0
• gen/Amazonka/ResourceGroups/PutGroupConfiguration.hs +199/−0
• gen/Amazonka/ResourceGroups/SearchResources.hs +319/−0
• gen/Amazonka/ResourceGroups/Tag.hs +195/−0
• gen/Amazonka/ResourceGroups/Types.hs +296/−0
• gen/Amazonka/ResourceGroups/Types/FailedResource.hs +96/−0
• gen/Amazonka/ResourceGroups/Types/Group.hs +112/−0
• gen/Amazonka/ResourceGroups/Types/GroupConfiguration.hs +126/−0
• gen/Amazonka/ResourceGroups/Types/GroupConfigurationItem.hs +118/−0
• gen/Amazonka/ResourceGroups/Types/GroupConfigurationParameter.hs +109/−0
• gen/Amazonka/ResourceGroups/Types/GroupConfigurationStatus.hs +76/−0
• gen/Amazonka/ResourceGroups/Types/GroupFilter.hs +91/−0
• gen/Amazonka/ResourceGroups/Types/GroupFilterName.hs +71/−0
• gen/Amazonka/ResourceGroups/Types/GroupIdentifier.hs +84/−0
• gen/Amazonka/ResourceGroups/Types/GroupQuery.hs +96/−0
• gen/Amazonka/ResourceGroups/Types/ListGroupResourcesItem.hs +100/−0
• gen/Amazonka/ResourceGroups/Types/PendingResource.hs +74/−0
• gen/Amazonka/ResourceGroups/Types/QueryError.hs +106/−0
• gen/Amazonka/ResourceGroups/Types/QueryErrorCode.hs +71/−0
• gen/Amazonka/ResourceGroups/Types/QueryType.hs +71/−0
• gen/Amazonka/ResourceGroups/Types/ResourceFilter.hs +91/−0
• gen/Amazonka/ResourceGroups/Types/ResourceFilterName.hs +66/−0
• gen/Amazonka/ResourceGroups/Types/ResourceIdentifier.hs +84/−0
• gen/Amazonka/ResourceGroups/Types/ResourceQuery.hs +291/−0
• gen/Amazonka/ResourceGroups/Types/ResourceStatus.hs +71/−0
• gen/Amazonka/ResourceGroups/Types/ResourceStatusValue.hs +66/−0
• gen/Amazonka/ResourceGroups/UngroupResources.hs +226/−0
• gen/Amazonka/ResourceGroups/Untag.hs +191/−0
• gen/Amazonka/ResourceGroups/UpdateGroup.hs +195/−0
• gen/Amazonka/ResourceGroups/UpdateGroupQuery.hs +211/−0
• gen/Amazonka/ResourceGroups/Waiters.hs +24/−0
• gen/Network/AWS/ResourceGroups.hs +0/−181
• gen/Network/AWS/ResourceGroups/CreateGroup.hs +0/−181
• gen/Network/AWS/ResourceGroups/DeleteGroup.hs +0/−121
• gen/Network/AWS/ResourceGroups/GetGroup.hs +0/−121
• gen/Network/AWS/ResourceGroups/GetGroupQuery.hs +0/−121
• gen/Network/AWS/ResourceGroups/GetTags.hs +0/−133
• gen/Network/AWS/ResourceGroups/ListGroupResources.hs +0/−171
• gen/Network/AWS/ResourceGroups/ListGroups.hs +0/−152
• gen/Network/AWS/ResourceGroups/SearchResources.hs +0/−172
• gen/Network/AWS/ResourceGroups/Tag.hs +0/−145
• gen/Network/AWS/ResourceGroups/Types.hs +0/−156
• gen/Network/AWS/ResourceGroups/Types/Product.hs +0/−214
• gen/Network/AWS/ResourceGroups/Types/Sum.hs +0/−47
• gen/Network/AWS/ResourceGroups/Untag.hs +0/−145
• gen/Network/AWS/ResourceGroups/UpdateGroup.hs +0/−135
• gen/Network/AWS/ResourceGroups/UpdateGroupQuery.hs +0/−138
• gen/Network/AWS/ResourceGroups/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/Gen/ResourceGroups.hs +0/−255
• test/Test/AWS/ResourceGroups.hs +0/−20
• test/Test/AWS/ResourceGroups/Internal.hs +0/−9
• test/Test/Amazonka/Gen/ResourceGroups.hs +358/−0
• test/Test/Amazonka/ResourceGroups.hs +20/−0
• test/Test/Amazonka/ResourceGroups/Internal.hs +8/−0

@@ -7,9 +7,8 @@   ## Version--`1.6.1`-+ +`2.0` - Derived from API version @2017-11-27@ of the AWS service descriptions, licensed under Apache 2.0.  ## Description @@ -26,7 +25,7 @@ The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core). -See [Network.AWS.ResourceGroups](http://hackage.haskell.org/package/amazonka-resourcegroups/docs/Network-AWS-ResourceGroups.html)+See [Amazonka.ResourceGroups](http://hackage.haskell.org/package/amazonka-resourcegroups/docs/Amazonka-ResourceGroups.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.  

@@ -1,2 +0,0 @@-import           Distribution.Simple-main = defaultMain

@@ -1,97 +1,120 @@-name:                  amazonka-resourcegroups-version:               1.6.1-synopsis:              Amazon Resource Groups SDK.-homepage:              https://github.com/brendanhay/amazonka-bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               MPL-2.0-license-file:          LICENSE-author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2018 Brendan Hay-category:              Network, AWS, Cloud, Distributed Computing-build-type:            Simple-cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep+cabal-version:      2.2+name:               amazonka-resourcegroups+version:            2.0+synopsis:           Amazon Resource Groups SDK.+homepage:           https://github.com/brendanhay/amazonka+bug-reports:        https://github.com/brendanhay/amazonka/issues+license:            MPL-2.0+license-file:       LICENSE+author:             Brendan Hay+maintainer:+  Brendan Hay <brendan.g.hay+amazonka@gmail.com>, Jack Kelly <jack@jackkelly.name>++copyright:          Copyright (c) 2013-2023 Brendan Hay+category:           AWS+build-type:         Simple+extra-source-files:+  fixture/*.proto+  fixture/*.yaml+  README.md+  src/.gitkeep+ description:-    The types from this library are intended to be used with-    <http://hackage.haskell.org/package/amazonka amazonka>, which provides-    mechanisms for specifying AuthN/AuthZ information, sending requests,-    and receiving responses.-    .-    Lenses are used for constructing and manipulating types,-    due to the depth of nesting of AWS types and transparency regarding-    de/serialisation into more palatable Haskell values.-    The provided lenses should be compatible with any of the major lens libraries-    such as <http://hackage.haskell.org/package/lens lens> or-    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.-    .-    See "Network.AWS.ResourceGroups" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2017-11-27@ of the AWS service descriptions, licensed under Apache 2.0.+  .+  The types from this library are intended to be used with <http://hackage.haskell.org/package/amazonka amazonka>,+  which provides mechanisms for specifying AuthN/AuthZ information, sending requests, and receiving responses.+  .+  It is recommended to use generic lenses or optics from packages such as <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify optional fields and deconstruct responses.+  .+  Generated lenses can be found in "Amazonka.ResourceGroups.Lens" and are+  suitable for use with a lens package such as <http://hackage.haskell.org/package/lens lens> or <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+  .+  See "Amazonka.ResourceGroups" and the <https://aws.amazon.com/documentation/ AWS documentation> to get started.  source-repository head-    type:              git-    location:          git://github.com/brendanhay/amazonka.git-    subdir:            amazonka-resourcegroups+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-resourcegroups  library-    default-language:  Haskell2010-    hs-source-dirs:    src gen--    ghc-options:-        -Wall-        -fwarn-incomplete-uni-patterns-        -fwarn-incomplete-record-updates-        -funbox-strict-fields--    exposed-modules:-          Network.AWS.ResourceGroups-        , Network.AWS.ResourceGroups.CreateGroup-        , Network.AWS.ResourceGroups.DeleteGroup-        , Network.AWS.ResourceGroups.GetGroup-        , Network.AWS.ResourceGroups.GetGroupQuery-        , Network.AWS.ResourceGroups.GetTags-        , Network.AWS.ResourceGroups.ListGroupResources-        , Network.AWS.ResourceGroups.ListGroups-        , Network.AWS.ResourceGroups.SearchResources-        , Network.AWS.ResourceGroups.Tag-        , Network.AWS.ResourceGroups.Types-        , Network.AWS.ResourceGroups.Untag-        , Network.AWS.ResourceGroups.UpdateGroup-        , Network.AWS.ResourceGroups.UpdateGroupQuery-        , Network.AWS.ResourceGroups.Waiters+  default-language: Haskell2010+  hs-source-dirs:   src gen+  ghc-options:+    -Wall -fwarn-incomplete-uni-patterns+    -fwarn-incomplete-record-updates -funbox-strict-fields -    other-modules:-          Network.AWS.ResourceGroups.Types.Product-        , Network.AWS.ResourceGroups.Types.Sum+  exposed-modules:+    Amazonka.ResourceGroups+    Amazonka.ResourceGroups.CreateGroup+    Amazonka.ResourceGroups.DeleteGroup+    Amazonka.ResourceGroups.GetGroup+    Amazonka.ResourceGroups.GetGroupConfiguration+    Amazonka.ResourceGroups.GetGroupQuery+    Amazonka.ResourceGroups.GetTags+    Amazonka.ResourceGroups.GroupResources+    Amazonka.ResourceGroups.Lens+    Amazonka.ResourceGroups.ListGroupResources+    Amazonka.ResourceGroups.ListGroups+    Amazonka.ResourceGroups.PutGroupConfiguration+    Amazonka.ResourceGroups.SearchResources+    Amazonka.ResourceGroups.Tag+    Amazonka.ResourceGroups.Types+    Amazonka.ResourceGroups.Types.FailedResource+    Amazonka.ResourceGroups.Types.Group+    Amazonka.ResourceGroups.Types.GroupConfiguration+    Amazonka.ResourceGroups.Types.GroupConfigurationItem+    Amazonka.ResourceGroups.Types.GroupConfigurationParameter+    Amazonka.ResourceGroups.Types.GroupConfigurationStatus+    Amazonka.ResourceGroups.Types.GroupFilter+    Amazonka.ResourceGroups.Types.GroupFilterName+    Amazonka.ResourceGroups.Types.GroupIdentifier+    Amazonka.ResourceGroups.Types.GroupQuery+    Amazonka.ResourceGroups.Types.ListGroupResourcesItem+    Amazonka.ResourceGroups.Types.PendingResource+    Amazonka.ResourceGroups.Types.QueryError+    Amazonka.ResourceGroups.Types.QueryErrorCode+    Amazonka.ResourceGroups.Types.QueryType+    Amazonka.ResourceGroups.Types.ResourceFilter+    Amazonka.ResourceGroups.Types.ResourceFilterName+    Amazonka.ResourceGroups.Types.ResourceIdentifier+    Amazonka.ResourceGroups.Types.ResourceQuery+    Amazonka.ResourceGroups.Types.ResourceStatus+    Amazonka.ResourceGroups.Types.ResourceStatusValue+    Amazonka.ResourceGroups.UngroupResources+    Amazonka.ResourceGroups.Untag+    Amazonka.ResourceGroups.UpdateGroup+    Amazonka.ResourceGroups.UpdateGroupQuery+    Amazonka.ResourceGroups.Waiters -    build-depends:-          amazonka-core == 1.6.1.*-        , base          >= 4.7     && < 5+  build-depends:+    , amazonka-core  >=2.0  && <2.1+    , base           >=4.12 && <5  test-suite amazonka-resourcegroups-test-    type:              exitcode-stdio-1.0-    default-language:  Haskell2010-    hs-source-dirs:    test-    main-is:           Main.hs--    ghc-options:       -Wall -threaded+  type:             exitcode-stdio-1.0+  default-language: Haskell2010+  hs-source-dirs:   test+  main-is:          Main.hs+  ghc-options:      -Wall -threaded -    -- This section is encoded by the template and any modules added by-    -- hand outside these namespaces will not correctly be added to the-    -- distribution package.-    other-modules:-          Test.AWS.ResourceGroups-        , Test.AWS.Gen.ResourceGroups-        , Test.AWS.ResourceGroups.Internal+  -- This section is encoded by the template and any modules added by+  -- hand outside these namespaces will not correctly be added to the+  -- distribution package.+  other-modules:+    Test.Amazonka.Gen.ResourceGroups+    Test.Amazonka.ResourceGroups+    Test.Amazonka.ResourceGroups.Internal -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-resourcegroups-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core            >=2.0 && <2.1+    , amazonka-resourcegroups+    , amazonka-test            >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

@@ -1,5 +1,5 @@ ----method: DELETE+method: POST headers:   Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/resource-groups/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?   Host:                  resource-groups.us-east-1.amazonaws.com

@@ -1,5 +1,5 @@ ----method: GET+method: POST headers:   Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/resource-groups/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?   Host:                  resource-groups.us-east-1.amazonaws.com

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/resource-groups/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  resource-groups.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:+  ''

@@ -1,5 +1,5 @@ ----method: GET+method: POST headers:   Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/resource-groups/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?   Host:                  resource-groups.us-east-1.amazonaws.com

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/resource-groups/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  resource-groups.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:+  ''

@@ -1,5 +1,5 @@ ----method: GET+method: POST headers:   Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/resource-groups/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?   Host:                  resource-groups.us-east-1.amazonaws.com

@@ -1,5 +1,5 @@ ----method: GET+method: POST headers:   Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/resource-groups/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?   Host:                  resource-groups.us-east-1.amazonaws.com

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/resource-groups/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  resource-groups.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:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/resource-groups/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  resource-groups.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:+  ''

@@ -1,5 +1,5 @@ ----method: PUT+method: POST headers:   Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/resource-groups/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?   Host:                  resource-groups.us-east-1.amazonaws.com

@@ -1,5 +1,5 @@ ----method: PUT+method: POST headers:   Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/resource-groups/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?   Host:                  resource-groups.us-east-1.amazonaws.com

@@ -0,0 +1,308 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.ResourceGroups+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Derived from API version @2017-11-27@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- AWS Resource Groups+--+-- AWS Resource Groups lets you organize AWS resources such as Amazon EC2+-- instances, Amazon Relational Database Service databases, and Amazon S3+-- buckets into groups using criteria that you define as tags. A resource+-- group is a collection of resources that match the resource types+-- specified in a query, and share one or more tags or portions of tags.+-- You can create a group of resources based on their roles in your cloud+-- infrastructure, lifecycle stages, regions, application layers, or+-- virtually any criteria. Resource Groups enable you to automate+-- management tasks, such as those in AWS Systems Manager Automation+-- documents, on tag-related resources in AWS Systems Manager. Groups of+-- tagged resources also let you quickly view a custom console in AWS+-- Systems Manager that shows AWS Config compliance and other monitoring+-- data about member resources.+--+-- To create a resource group, build a resource query, and specify tags+-- that identify the criteria that members of the group have in common.+-- Tags are key-value pairs.+--+-- For more information about Resource Groups, see the+-- <https://docs.aws.amazon.com/ARG/latest/userguide/welcome.html AWS Resource Groups User Guide>.+--+-- AWS Resource Groups uses a REST-compliant API that you can use to+-- perform the following types of operations.+--+-- -   Create, Read, Update, and Delete (CRUD) operations on resource+--     groups and resource query entities+--+-- -   Applying, editing, and removing tags from resource groups+--+-- -   Resolving resource group member ARNs so they can be returned as+--     search results+--+-- -   Getting data about resources that are members of a group+--+-- -   Searching AWS resources based on a resource query+module Amazonka.ResourceGroups+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** BadRequestException+    _BadRequestException,++    -- ** ForbiddenException+    _ForbiddenException,++    -- ** InternalServerErrorException+    _InternalServerErrorException,++    -- ** MethodNotAllowedException+    _MethodNotAllowedException,++    -- ** NotFoundException+    _NotFoundException,++    -- ** TooManyRequestsException+    _TooManyRequestsException,++    -- ** UnauthorizedException+    _UnauthorizedException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** CreateGroup+    CreateGroup (CreateGroup'),+    newCreateGroup,+    CreateGroupResponse (CreateGroupResponse'),+    newCreateGroupResponse,++    -- ** DeleteGroup+    DeleteGroup (DeleteGroup'),+    newDeleteGroup,+    DeleteGroupResponse (DeleteGroupResponse'),+    newDeleteGroupResponse,++    -- ** GetGroup+    GetGroup (GetGroup'),+    newGetGroup,+    GetGroupResponse (GetGroupResponse'),+    newGetGroupResponse,++    -- ** GetGroupConfiguration+    GetGroupConfiguration (GetGroupConfiguration'),+    newGetGroupConfiguration,+    GetGroupConfigurationResponse (GetGroupConfigurationResponse'),+    newGetGroupConfigurationResponse,++    -- ** GetGroupQuery+    GetGroupQuery (GetGroupQuery'),+    newGetGroupQuery,+    GetGroupQueryResponse (GetGroupQueryResponse'),+    newGetGroupQueryResponse,++    -- ** GetTags+    GetTags (GetTags'),+    newGetTags,+    GetTagsResponse (GetTagsResponse'),+    newGetTagsResponse,++    -- ** GroupResources+    GroupResources (GroupResources'),+    newGroupResources,+    GroupResourcesResponse (GroupResourcesResponse'),+    newGroupResourcesResponse,++    -- ** ListGroupResources (Paginated)+    ListGroupResources (ListGroupResources'),+    newListGroupResources,+    ListGroupResourcesResponse (ListGroupResourcesResponse'),+    newListGroupResourcesResponse,++    -- ** ListGroups (Paginated)+    ListGroups (ListGroups'),+    newListGroups,+    ListGroupsResponse (ListGroupsResponse'),+    newListGroupsResponse,++    -- ** PutGroupConfiguration+    PutGroupConfiguration (PutGroupConfiguration'),+    newPutGroupConfiguration,+    PutGroupConfigurationResponse (PutGroupConfigurationResponse'),+    newPutGroupConfigurationResponse,++    -- ** SearchResources (Paginated)+    SearchResources (SearchResources'),+    newSearchResources,+    SearchResourcesResponse (SearchResourcesResponse'),+    newSearchResourcesResponse,++    -- ** Tag+    Tag (Tag'),+    newTag,+    TagResponse (TagResponse'),+    newTagResponse,++    -- ** UngroupResources+    UngroupResources (UngroupResources'),+    newUngroupResources,+    UngroupResourcesResponse (UngroupResourcesResponse'),+    newUngroupResourcesResponse,++    -- ** Untag+    Untag (Untag'),+    newUntag,+    UntagResponse (UntagResponse'),+    newUntagResponse,++    -- ** UpdateGroup+    UpdateGroup (UpdateGroup'),+    newUpdateGroup,+    UpdateGroupResponse (UpdateGroupResponse'),+    newUpdateGroupResponse,++    -- ** UpdateGroupQuery+    UpdateGroupQuery (UpdateGroupQuery'),+    newUpdateGroupQuery,+    UpdateGroupQueryResponse (UpdateGroupQueryResponse'),+    newUpdateGroupQueryResponse,++    -- * Types++    -- ** GroupConfigurationStatus+    GroupConfigurationStatus (..),++    -- ** GroupFilterName+    GroupFilterName (..),++    -- ** QueryErrorCode+    QueryErrorCode (..),++    -- ** QueryType+    QueryType (..),++    -- ** ResourceFilterName+    ResourceFilterName (..),++    -- ** ResourceStatusValue+    ResourceStatusValue (..),++    -- ** FailedResource+    FailedResource (FailedResource'),+    newFailedResource,++    -- ** Group+    Group (Group'),+    newGroup,++    -- ** GroupConfiguration+    GroupConfiguration (GroupConfiguration'),+    newGroupConfiguration,++    -- ** GroupConfigurationItem+    GroupConfigurationItem (GroupConfigurationItem'),+    newGroupConfigurationItem,++    -- ** GroupConfigurationParameter+    GroupConfigurationParameter (GroupConfigurationParameter'),+    newGroupConfigurationParameter,++    -- ** GroupFilter+    GroupFilter (GroupFilter'),+    newGroupFilter,++    -- ** GroupIdentifier+    GroupIdentifier (GroupIdentifier'),+    newGroupIdentifier,++    -- ** GroupQuery+    GroupQuery (GroupQuery'),+    newGroupQuery,++    -- ** ListGroupResourcesItem+    ListGroupResourcesItem (ListGroupResourcesItem'),+    newListGroupResourcesItem,++    -- ** PendingResource+    PendingResource (PendingResource'),+    newPendingResource,++    -- ** QueryError+    QueryError (QueryError'),+    newQueryError,++    -- ** ResourceFilter+    ResourceFilter (ResourceFilter'),+    newResourceFilter,++    -- ** ResourceIdentifier+    ResourceIdentifier (ResourceIdentifier'),+    newResourceIdentifier,++    -- ** ResourceQuery+    ResourceQuery (ResourceQuery'),+    newResourceQuery,++    -- ** ResourceStatus+    ResourceStatus (ResourceStatus'),+    newResourceStatus,+  )+where++import Amazonka.ResourceGroups.CreateGroup+import Amazonka.ResourceGroups.DeleteGroup+import Amazonka.ResourceGroups.GetGroup+import Amazonka.ResourceGroups.GetGroupConfiguration+import Amazonka.ResourceGroups.GetGroupQuery+import Amazonka.ResourceGroups.GetTags+import Amazonka.ResourceGroups.GroupResources+import Amazonka.ResourceGroups.Lens+import Amazonka.ResourceGroups.ListGroupResources+import Amazonka.ResourceGroups.ListGroups+import Amazonka.ResourceGroups.PutGroupConfiguration+import Amazonka.ResourceGroups.SearchResources+import Amazonka.ResourceGroups.Tag+import Amazonka.ResourceGroups.Types+import Amazonka.ResourceGroups.UngroupResources+import Amazonka.ResourceGroups.Untag+import Amazonka.ResourceGroups.UpdateGroup+import Amazonka.ResourceGroups.UpdateGroupQuery+import Amazonka.ResourceGroups.Waiters++-- $errors+-- Error matchers are designed for use with the functions provided by+-- <http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+-- This allows catching (and rethrowing) service specific errors returned+-- by 'ResourceGroups'.++-- $operations+-- Some AWS operations return results that are incomplete and require subsequent+-- requests in order to obtain the entire result set. The process of sending+-- subsequent requests to continue where a previous request left off is called+-- pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+-- 1000 objects at a time, and you must send subsequent requests with the+-- appropriate Marker in order to retrieve the next page of results.+--+-- Operations that have an 'AWSPager' instance can transparently perform subsequent+-- requests, correctly setting Markers and other request facets to iterate through+-- the entire result set of a truncated API operation. Operations which support+-- this have an additional note in the documentation.+--+-- Many operations have the ability to filter results on the server side. See the+-- individual operation parameters for details.++-- $waiters+-- Waiters poll by repeatedly sending a request until some remote success condition+-- configured by the 'Wait' specification is fulfilled. The 'Wait' specification+-- determines how many attempts should be made, in addition to delay and retry strategies.

@@ -0,0 +1,323 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.CreateGroup+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a resource group with the specified name and description. You+-- can optionally include a resource query, or a service configuration. For+-- more information about constructing a resource query, see+-- <https://docs.aws.amazon.com/ARG/latest/userguide/gettingstarted-query.html#gettingstarted-query-cli-tag Create a tag-based group in Resource Groups>.+-- For more information about service configurations, see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html Service configurations for resource groups>.+--+-- __Minimum permissions__+--+-- To run this command, you must have the following permissions:+--+-- -   @resource-groups:CreateGroup@+module Amazonka.ResourceGroups.CreateGroup+  ( -- * Creating a Request+    CreateGroup (..),+    newCreateGroup,++    -- * Request Lenses+    createGroup_configuration,+    createGroup_description,+    createGroup_resourceQuery,+    createGroup_tags,+    createGroup_name,++    -- * Destructuring the Response+    CreateGroupResponse (..),+    newCreateGroupResponse,++    -- * Response Lenses+    createGroupResponse_group,+    createGroupResponse_groupConfiguration,+    createGroupResponse_resourceQuery,+    createGroupResponse_tags,+    createGroupResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import Amazonka.ResourceGroups.Types+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateGroup' smart constructor.+data CreateGroup = CreateGroup'+  { -- | A configuration associates the resource group with an AWS service and+    -- specifies how the service can interact with the resources in the group.+    -- A configuration is an array of GroupConfigurationItem elements. For+    -- details about the syntax of service configurations, see+    -- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html Service configurations for resource groups>.+    --+    -- A resource group can contain either a @Configuration@ or a+    -- @ResourceQuery@, but not both.+    configuration :: Prelude.Maybe [GroupConfigurationItem],+    -- | The description of the resource group. Descriptions can consist of+    -- letters, numbers, hyphens, underscores, periods, and spaces.+    description :: Prelude.Maybe Prelude.Text,+    -- | The resource query that determines which AWS resources are members of+    -- this group. For more information about resource queries, see+    -- <https://docs.aws.amazon.com/ARG/latest/userguide/gettingstarted-query.html#gettingstarted-query-cli-tag Create a tag-based group in Resource Groups>.+    --+    -- A resource group can contain either a @ResourceQuery@ or a+    -- @Configuration@, but not both.+    resourceQuery :: Prelude.Maybe ResourceQuery,+    -- | The tags to add to the group. A tag is key-value pair string.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The name of the group, which is the identifier of the group in other+    -- operations. You can\'t change the name of a resource group after you+    -- create it. A resource group name can consist of letters, numbers,+    -- hyphens, periods, and underscores. The name cannot start with @AWS@ or+    -- @aws@; these are reserved. A resource group name must be unique within+    -- each AWS Region in your AWS account.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateGroup' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'configuration', 'createGroup_configuration' - A configuration associates the resource group with an AWS service and+-- specifies how the service can interact with the resources in the group.+-- A configuration is an array of GroupConfigurationItem elements. For+-- details about the syntax of service configurations, see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html Service configurations for resource groups>.+--+-- A resource group can contain either a @Configuration@ or a+-- @ResourceQuery@, but not both.+--+-- 'description', 'createGroup_description' - The description of the resource group. Descriptions can consist of+-- letters, numbers, hyphens, underscores, periods, and spaces.+--+-- 'resourceQuery', 'createGroup_resourceQuery' - The resource query that determines which AWS resources are members of+-- this group. For more information about resource queries, see+-- <https://docs.aws.amazon.com/ARG/latest/userguide/gettingstarted-query.html#gettingstarted-query-cli-tag Create a tag-based group in Resource Groups>.+--+-- A resource group can contain either a @ResourceQuery@ or a+-- @Configuration@, but not both.+--+-- 'tags', 'createGroup_tags' - The tags to add to the group. A tag is key-value pair string.+--+-- 'name', 'createGroup_name' - The name of the group, which is the identifier of the group in other+-- operations. You can\'t change the name of a resource group after you+-- create it. A resource group name can consist of letters, numbers,+-- hyphens, periods, and underscores. The name cannot start with @AWS@ or+-- @aws@; these are reserved. A resource group name must be unique within+-- each AWS Region in your AWS account.+newCreateGroup ::+  -- | 'name'+  Prelude.Text ->+  CreateGroup+newCreateGroup pName_ =+  CreateGroup'+    { configuration = Prelude.Nothing,+      description = Prelude.Nothing,+      resourceQuery = Prelude.Nothing,+      tags = Prelude.Nothing,+      name = pName_+    }++-- | A configuration associates the resource group with an AWS service and+-- specifies how the service can interact with the resources in the group.+-- A configuration is an array of GroupConfigurationItem elements. For+-- details about the syntax of service configurations, see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html Service configurations for resource groups>.+--+-- A resource group can contain either a @Configuration@ or a+-- @ResourceQuery@, but not both.+createGroup_configuration :: Lens.Lens' CreateGroup (Prelude.Maybe [GroupConfigurationItem])+createGroup_configuration = Lens.lens (\CreateGroup' {configuration} -> configuration) (\s@CreateGroup' {} a -> s {configuration = a} :: CreateGroup) Prelude.. Lens.mapping Lens.coerced++-- | The description of the resource group. Descriptions can consist of+-- letters, numbers, hyphens, underscores, periods, and spaces.+createGroup_description :: Lens.Lens' CreateGroup (Prelude.Maybe Prelude.Text)+createGroup_description = Lens.lens (\CreateGroup' {description} -> description) (\s@CreateGroup' {} a -> s {description = a} :: CreateGroup)++-- | The resource query that determines which AWS resources are members of+-- this group. For more information about resource queries, see+-- <https://docs.aws.amazon.com/ARG/latest/userguide/gettingstarted-query.html#gettingstarted-query-cli-tag Create a tag-based group in Resource Groups>.+--+-- A resource group can contain either a @ResourceQuery@ or a+-- @Configuration@, but not both.+createGroup_resourceQuery :: Lens.Lens' CreateGroup (Prelude.Maybe ResourceQuery)+createGroup_resourceQuery = Lens.lens (\CreateGroup' {resourceQuery} -> resourceQuery) (\s@CreateGroup' {} a -> s {resourceQuery = a} :: CreateGroup)++-- | The tags to add to the group. A tag is key-value pair string.+createGroup_tags :: Lens.Lens' CreateGroup (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+createGroup_tags = Lens.lens (\CreateGroup' {tags} -> tags) (\s@CreateGroup' {} a -> s {tags = a} :: CreateGroup) Prelude.. Lens.mapping Lens.coerced++-- | The name of the group, which is the identifier of the group in other+-- operations. You can\'t change the name of a resource group after you+-- create it. A resource group name can consist of letters, numbers,+-- hyphens, periods, and underscores. The name cannot start with @AWS@ or+-- @aws@; these are reserved. A resource group name must be unique within+-- each AWS Region in your AWS account.+createGroup_name :: Lens.Lens' CreateGroup Prelude.Text+createGroup_name = Lens.lens (\CreateGroup' {name} -> name) (\s@CreateGroup' {} a -> s {name = a} :: CreateGroup)++instance Core.AWSRequest CreateGroup where+  type AWSResponse CreateGroup = CreateGroupResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateGroupResponse'+            Prelude.<$> (x Data..?> "Group")+            Prelude.<*> (x Data..?> "GroupConfiguration")+            Prelude.<*> (x Data..?> "ResourceQuery")+            Prelude.<*> (x Data..?> "Tags" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateGroup where+  hashWithSalt _salt CreateGroup' {..} =+    _salt+      `Prelude.hashWithSalt` configuration+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` resourceQuery+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` name++instance Prelude.NFData CreateGroup where+  rnf CreateGroup' {..} =+    Prelude.rnf configuration+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf resourceQuery+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf name++instance Data.ToHeaders CreateGroup where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON CreateGroup where+  toJSON CreateGroup' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Configuration" Data..=) Prelude.<$> configuration,+            ("Description" Data..=) Prelude.<$> description,+            ("ResourceQuery" Data..=) Prelude.<$> resourceQuery,+            ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("Name" Data..= name)+          ]+      )++instance Data.ToPath CreateGroup where+  toPath = Prelude.const "/groups"++instance Data.ToQuery CreateGroup where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateGroupResponse' smart constructor.+data CreateGroupResponse = CreateGroupResponse'+  { -- | The description of the resource group.+    group' :: Prelude.Maybe Group,+    -- | The service configuration associated with the resource group. For+    -- details about the syntax of a service configuration, see+    -- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html Service configurations for resource groups>.+    groupConfiguration :: Prelude.Maybe GroupConfiguration,+    -- | The resource query associated with the group. For more information about+    -- resource queries, see+    -- <https://docs.aws.amazon.com/ARG/latest/userguide/gettingstarted-query.html#gettingstarted-query-cli-tag Create a tag-based group in Resource Groups>.+    resourceQuery :: Prelude.Maybe ResourceQuery,+    -- | The tags associated with the group.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateGroupResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'group'', 'createGroupResponse_group' - The description of the resource group.+--+-- 'groupConfiguration', 'createGroupResponse_groupConfiguration' - The service configuration associated with the resource group. For+-- details about the syntax of a service configuration, see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html Service configurations for resource groups>.+--+-- 'resourceQuery', 'createGroupResponse_resourceQuery' - The resource query associated with the group. For more information about+-- resource queries, see+-- <https://docs.aws.amazon.com/ARG/latest/userguide/gettingstarted-query.html#gettingstarted-query-cli-tag Create a tag-based group in Resource Groups>.+--+-- 'tags', 'createGroupResponse_tags' - The tags associated with the group.+--+-- 'httpStatus', 'createGroupResponse_httpStatus' - The response's http status code.+newCreateGroupResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateGroupResponse+newCreateGroupResponse pHttpStatus_ =+  CreateGroupResponse'+    { group' = Prelude.Nothing,+      groupConfiguration = Prelude.Nothing,+      resourceQuery = Prelude.Nothing,+      tags = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The description of the resource group.+createGroupResponse_group :: Lens.Lens' CreateGroupResponse (Prelude.Maybe Group)+createGroupResponse_group = Lens.lens (\CreateGroupResponse' {group'} -> group') (\s@CreateGroupResponse' {} a -> s {group' = a} :: CreateGroupResponse)++-- | The service configuration associated with the resource group. For+-- details about the syntax of a service configuration, see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html Service configurations for resource groups>.+createGroupResponse_groupConfiguration :: Lens.Lens' CreateGroupResponse (Prelude.Maybe GroupConfiguration)+createGroupResponse_groupConfiguration = Lens.lens (\CreateGroupResponse' {groupConfiguration} -> groupConfiguration) (\s@CreateGroupResponse' {} a -> s {groupConfiguration = a} :: CreateGroupResponse)++-- | The resource query associated with the group. For more information about+-- resource queries, see+-- <https://docs.aws.amazon.com/ARG/latest/userguide/gettingstarted-query.html#gettingstarted-query-cli-tag Create a tag-based group in Resource Groups>.+createGroupResponse_resourceQuery :: Lens.Lens' CreateGroupResponse (Prelude.Maybe ResourceQuery)+createGroupResponse_resourceQuery = Lens.lens (\CreateGroupResponse' {resourceQuery} -> resourceQuery) (\s@CreateGroupResponse' {} a -> s {resourceQuery = a} :: CreateGroupResponse)++-- | The tags associated with the group.+createGroupResponse_tags :: Lens.Lens' CreateGroupResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+createGroupResponse_tags = Lens.lens (\CreateGroupResponse' {tags} -> tags) (\s@CreateGroupResponse' {} a -> s {tags = a} :: CreateGroupResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+createGroupResponse_httpStatus :: Lens.Lens' CreateGroupResponse Prelude.Int+createGroupResponse_httpStatus = Lens.lens (\CreateGroupResponse' {httpStatus} -> httpStatus) (\s@CreateGroupResponse' {} a -> s {httpStatus = a} :: CreateGroupResponse)++instance Prelude.NFData CreateGroupResponse where+  rnf CreateGroupResponse' {..} =+    Prelude.rnf group'+      `Prelude.seq` Prelude.rnf groupConfiguration+      `Prelude.seq` Prelude.rnf resourceQuery+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,177 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.DeleteGroup+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified resource group. Deleting a resource group does not+-- delete any resources that are members of the group; it only deletes the+-- group structure.+--+-- __Minimum permissions__+--+-- To run this command, you must have the following permissions:+--+-- -   @resource-groups:DeleteGroup@+module Amazonka.ResourceGroups.DeleteGroup+  ( -- * Creating a Request+    DeleteGroup (..),+    newDeleteGroup,++    -- * Request Lenses+    deleteGroup_group,+    deleteGroup_groupName,++    -- * Destructuring the Response+    DeleteGroupResponse (..),+    newDeleteGroupResponse,++    -- * Response Lenses+    deleteGroupResponse_group,+    deleteGroupResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import Amazonka.ResourceGroups.Types+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteGroup' smart constructor.+data DeleteGroup = DeleteGroup'+  { -- | The name or the ARN of the resource group to delete.+    group' :: Prelude.Maybe Prelude.Text,+    -- | Deprecated - don\'t use this parameter. Use @Group@ instead.+    groupName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteGroup' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'group'', 'deleteGroup_group' - The name or the ARN of the resource group to delete.+--+-- 'groupName', 'deleteGroup_groupName' - Deprecated - don\'t use this parameter. Use @Group@ instead.+newDeleteGroup ::+  DeleteGroup+newDeleteGroup =+  DeleteGroup'+    { group' = Prelude.Nothing,+      groupName = Prelude.Nothing+    }++-- | The name or the ARN of the resource group to delete.+deleteGroup_group :: Lens.Lens' DeleteGroup (Prelude.Maybe Prelude.Text)+deleteGroup_group = Lens.lens (\DeleteGroup' {group'} -> group') (\s@DeleteGroup' {} a -> s {group' = a} :: DeleteGroup)++-- | Deprecated - don\'t use this parameter. Use @Group@ instead.+deleteGroup_groupName :: Lens.Lens' DeleteGroup (Prelude.Maybe Prelude.Text)+deleteGroup_groupName = Lens.lens (\DeleteGroup' {groupName} -> groupName) (\s@DeleteGroup' {} a -> s {groupName = a} :: DeleteGroup)++instance Core.AWSRequest DeleteGroup where+  type AWSResponse DeleteGroup = DeleteGroupResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteGroupResponse'+            Prelude.<$> (x Data..?> "Group")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteGroup where+  hashWithSalt _salt DeleteGroup' {..} =+    _salt+      `Prelude.hashWithSalt` group'+      `Prelude.hashWithSalt` groupName++instance Prelude.NFData DeleteGroup where+  rnf DeleteGroup' {..} =+    Prelude.rnf group'+      `Prelude.seq` Prelude.rnf groupName++instance Data.ToHeaders DeleteGroup where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON DeleteGroup where+  toJSON DeleteGroup' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Group" Data..=) Prelude.<$> group',+            ("GroupName" Data..=) Prelude.<$> groupName+          ]+      )++instance Data.ToPath DeleteGroup where+  toPath = Prelude.const "/delete-group"++instance Data.ToQuery DeleteGroup where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteGroupResponse' smart constructor.+data DeleteGroupResponse = DeleteGroupResponse'+  { -- | A full description of the deleted resource group.+    group' :: Prelude.Maybe Group,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteGroupResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'group'', 'deleteGroupResponse_group' - A full description of the deleted resource group.+--+-- 'httpStatus', 'deleteGroupResponse_httpStatus' - The response's http status code.+newDeleteGroupResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteGroupResponse+newDeleteGroupResponse pHttpStatus_ =+  DeleteGroupResponse'+    { group' = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A full description of the deleted resource group.+deleteGroupResponse_group :: Lens.Lens' DeleteGroupResponse (Prelude.Maybe Group)+deleteGroupResponse_group = Lens.lens (\DeleteGroupResponse' {group'} -> group') (\s@DeleteGroupResponse' {} a -> s {group' = a} :: DeleteGroupResponse)++-- | The response's http status code.+deleteGroupResponse_httpStatus :: Lens.Lens' DeleteGroupResponse Prelude.Int+deleteGroupResponse_httpStatus = Lens.lens (\DeleteGroupResponse' {httpStatus} -> httpStatus) (\s@DeleteGroupResponse' {} a -> s {httpStatus = a} :: DeleteGroupResponse)++instance Prelude.NFData DeleteGroupResponse where+  rnf DeleteGroupResponse' {..} =+    Prelude.rnf group'+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,175 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.GetGroup+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about a specified resource group.+--+-- __Minimum permissions__+--+-- To run this command, you must have the following permissions:+--+-- -   @resource-groups:GetGroup@+module Amazonka.ResourceGroups.GetGroup+  ( -- * Creating a Request+    GetGroup (..),+    newGetGroup,++    -- * Request Lenses+    getGroup_group,+    getGroup_groupName,++    -- * Destructuring the Response+    GetGroupResponse (..),+    newGetGroupResponse,++    -- * Response Lenses+    getGroupResponse_group,+    getGroupResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import Amazonka.ResourceGroups.Types+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetGroup' smart constructor.+data GetGroup = GetGroup'+  { -- | The name or the ARN of the resource group to retrieve.+    group' :: Prelude.Maybe Prelude.Text,+    -- | Deprecated - don\'t use this parameter. Use @Group@ instead.+    groupName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetGroup' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'group'', 'getGroup_group' - The name or the ARN of the resource group to retrieve.+--+-- 'groupName', 'getGroup_groupName' - Deprecated - don\'t use this parameter. Use @Group@ instead.+newGetGroup ::+  GetGroup+newGetGroup =+  GetGroup'+    { group' = Prelude.Nothing,+      groupName = Prelude.Nothing+    }++-- | The name or the ARN of the resource group to retrieve.+getGroup_group :: Lens.Lens' GetGroup (Prelude.Maybe Prelude.Text)+getGroup_group = Lens.lens (\GetGroup' {group'} -> group') (\s@GetGroup' {} a -> s {group' = a} :: GetGroup)++-- | Deprecated - don\'t use this parameter. Use @Group@ instead.+getGroup_groupName :: Lens.Lens' GetGroup (Prelude.Maybe Prelude.Text)+getGroup_groupName = Lens.lens (\GetGroup' {groupName} -> groupName) (\s@GetGroup' {} a -> s {groupName = a} :: GetGroup)++instance Core.AWSRequest GetGroup where+  type AWSResponse GetGroup = GetGroupResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetGroupResponse'+            Prelude.<$> (x Data..?> "Group")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetGroup where+  hashWithSalt _salt GetGroup' {..} =+    _salt+      `Prelude.hashWithSalt` group'+      `Prelude.hashWithSalt` groupName++instance Prelude.NFData GetGroup where+  rnf GetGroup' {..} =+    Prelude.rnf group'+      `Prelude.seq` Prelude.rnf groupName++instance Data.ToHeaders GetGroup where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON GetGroup where+  toJSON GetGroup' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Group" Data..=) Prelude.<$> group',+            ("GroupName" Data..=) Prelude.<$> groupName+          ]+      )++instance Data.ToPath GetGroup where+  toPath = Prelude.const "/get-group"++instance Data.ToQuery GetGroup where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetGroupResponse' smart constructor.+data GetGroupResponse = GetGroupResponse'+  { -- | A full description of the resource group.+    group' :: Prelude.Maybe Group,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetGroupResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'group'', 'getGroupResponse_group' - A full description of the resource group.+--+-- 'httpStatus', 'getGroupResponse_httpStatus' - The response's http status code.+newGetGroupResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetGroupResponse+newGetGroupResponse pHttpStatus_ =+  GetGroupResponse'+    { group' = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A full description of the resource group.+getGroupResponse_group :: Lens.Lens' GetGroupResponse (Prelude.Maybe Group)+getGroupResponse_group = Lens.lens (\GetGroupResponse' {group'} -> group') (\s@GetGroupResponse' {} a -> s {group' = a} :: GetGroupResponse)++-- | The response's http status code.+getGroupResponse_httpStatus :: Lens.Lens' GetGroupResponse Prelude.Int+getGroupResponse_httpStatus = Lens.lens (\GetGroupResponse' {httpStatus} -> httpStatus) (\s@GetGroupResponse' {} a -> s {httpStatus = a} :: GetGroupResponse)++instance Prelude.NFData GetGroupResponse where+  rnf GetGroupResponse' {..} =+    Prelude.rnf group'+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,168 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.GetGroupConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the service configuration associated with the specified resource+-- group. For details about the service configuration syntax, see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html Service configurations for resource groups>.+--+-- __Minimum permissions__+--+-- To run this command, you must have the following permissions:+--+-- -   @resource-groups:GetGroupConfiguration@+module Amazonka.ResourceGroups.GetGroupConfiguration+  ( -- * Creating a Request+    GetGroupConfiguration (..),+    newGetGroupConfiguration,++    -- * Request Lenses+    getGroupConfiguration_group,++    -- * Destructuring the Response+    GetGroupConfigurationResponse (..),+    newGetGroupConfigurationResponse,++    -- * Response Lenses+    getGroupConfigurationResponse_groupConfiguration,+    getGroupConfigurationResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import Amazonka.ResourceGroups.Types+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetGroupConfiguration' smart constructor.+data GetGroupConfiguration = GetGroupConfiguration'+  { -- | The name or the ARN of the resource group.+    group' :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetGroupConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'group'', 'getGroupConfiguration_group' - The name or the ARN of the resource group.+newGetGroupConfiguration ::+  GetGroupConfiguration+newGetGroupConfiguration =+  GetGroupConfiguration' {group' = Prelude.Nothing}++-- | The name or the ARN of the resource group.+getGroupConfiguration_group :: Lens.Lens' GetGroupConfiguration (Prelude.Maybe Prelude.Text)+getGroupConfiguration_group = Lens.lens (\GetGroupConfiguration' {group'} -> group') (\s@GetGroupConfiguration' {} a -> s {group' = a} :: GetGroupConfiguration)++instance Core.AWSRequest GetGroupConfiguration where+  type+    AWSResponse GetGroupConfiguration =+      GetGroupConfigurationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetGroupConfigurationResponse'+            Prelude.<$> (x Data..?> "GroupConfiguration")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetGroupConfiguration where+  hashWithSalt _salt GetGroupConfiguration' {..} =+    _salt `Prelude.hashWithSalt` group'++instance Prelude.NFData GetGroupConfiguration where+  rnf GetGroupConfiguration' {..} = Prelude.rnf group'++instance Data.ToHeaders GetGroupConfiguration where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON GetGroupConfiguration where+  toJSON GetGroupConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [("Group" Data..=) Prelude.<$> group']+      )++instance Data.ToPath GetGroupConfiguration where+  toPath = Prelude.const "/get-group-configuration"++instance Data.ToQuery GetGroupConfiguration where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetGroupConfigurationResponse' smart constructor.+data GetGroupConfigurationResponse = GetGroupConfigurationResponse'+  { -- | The service configuration associated with the specified group. For+    -- details about the service configuration syntax, see+    -- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html Service configurations for resource groups>.+    groupConfiguration :: Prelude.Maybe GroupConfiguration,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetGroupConfigurationResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'groupConfiguration', 'getGroupConfigurationResponse_groupConfiguration' - The service configuration associated with the specified group. For+-- details about the service configuration syntax, see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html Service configurations for resource groups>.+--+-- 'httpStatus', 'getGroupConfigurationResponse_httpStatus' - The response's http status code.+newGetGroupConfigurationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetGroupConfigurationResponse+newGetGroupConfigurationResponse pHttpStatus_ =+  GetGroupConfigurationResponse'+    { groupConfiguration =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The service configuration associated with the specified group. For+-- details about the service configuration syntax, see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html Service configurations for resource groups>.+getGroupConfigurationResponse_groupConfiguration :: Lens.Lens' GetGroupConfigurationResponse (Prelude.Maybe GroupConfiguration)+getGroupConfigurationResponse_groupConfiguration = Lens.lens (\GetGroupConfigurationResponse' {groupConfiguration} -> groupConfiguration) (\s@GetGroupConfigurationResponse' {} a -> s {groupConfiguration = a} :: GetGroupConfigurationResponse)++-- | The response's http status code.+getGroupConfigurationResponse_httpStatus :: Lens.Lens' GetGroupConfigurationResponse Prelude.Int+getGroupConfigurationResponse_httpStatus = Lens.lens (\GetGroupConfigurationResponse' {httpStatus} -> httpStatus) (\s@GetGroupConfigurationResponse' {} a -> s {httpStatus = a} :: GetGroupConfigurationResponse)++instance Prelude.NFData GetGroupConfigurationResponse where+  rnf GetGroupConfigurationResponse' {..} =+    Prelude.rnf groupConfiguration+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,186 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.GetGroupQuery+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves the resource query associated with the specified resource+-- group. For more information about resource queries, see+-- <https://docs.aws.amazon.com/ARG/latest/userguide/gettingstarted-query.html#gettingstarted-query-cli-tag Create a tag-based group in Resource Groups>.+--+-- __Minimum permissions__+--+-- To run this command, you must have the following permissions:+--+-- -   @resource-groups:GetGroupQuery@+module Amazonka.ResourceGroups.GetGroupQuery+  ( -- * Creating a Request+    GetGroupQuery (..),+    newGetGroupQuery,++    -- * Request Lenses+    getGroupQuery_group,+    getGroupQuery_groupName,++    -- * Destructuring the Response+    GetGroupQueryResponse (..),+    newGetGroupQueryResponse,++    -- * Response Lenses+    getGroupQueryResponse_groupQuery,+    getGroupQueryResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import Amazonka.ResourceGroups.Types+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetGroupQuery' smart constructor.+data GetGroupQuery = GetGroupQuery'+  { -- | The name or the ARN of the resource group to query.+    group' :: Prelude.Maybe Prelude.Text,+    -- | Don\'t use this parameter. Use @Group@ instead.+    groupName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetGroupQuery' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'group'', 'getGroupQuery_group' - The name or the ARN of the resource group to query.+--+-- 'groupName', 'getGroupQuery_groupName' - Don\'t use this parameter. Use @Group@ instead.+newGetGroupQuery ::+  GetGroupQuery+newGetGroupQuery =+  GetGroupQuery'+    { group' = Prelude.Nothing,+      groupName = Prelude.Nothing+    }++-- | The name or the ARN of the resource group to query.+getGroupQuery_group :: Lens.Lens' GetGroupQuery (Prelude.Maybe Prelude.Text)+getGroupQuery_group = Lens.lens (\GetGroupQuery' {group'} -> group') (\s@GetGroupQuery' {} a -> s {group' = a} :: GetGroupQuery)++-- | Don\'t use this parameter. Use @Group@ instead.+getGroupQuery_groupName :: Lens.Lens' GetGroupQuery (Prelude.Maybe Prelude.Text)+getGroupQuery_groupName = Lens.lens (\GetGroupQuery' {groupName} -> groupName) (\s@GetGroupQuery' {} a -> s {groupName = a} :: GetGroupQuery)++instance Core.AWSRequest GetGroupQuery where+  type+    AWSResponse GetGroupQuery =+      GetGroupQueryResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetGroupQueryResponse'+            Prelude.<$> (x Data..?> "GroupQuery")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetGroupQuery where+  hashWithSalt _salt GetGroupQuery' {..} =+    _salt+      `Prelude.hashWithSalt` group'+      `Prelude.hashWithSalt` groupName++instance Prelude.NFData GetGroupQuery where+  rnf GetGroupQuery' {..} =+    Prelude.rnf group'+      `Prelude.seq` Prelude.rnf groupName++instance Data.ToHeaders GetGroupQuery where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON GetGroupQuery where+  toJSON GetGroupQuery' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Group" Data..=) Prelude.<$> group',+            ("GroupName" Data..=) Prelude.<$> groupName+          ]+      )++instance Data.ToPath GetGroupQuery where+  toPath = Prelude.const "/get-group-query"++instance Data.ToQuery GetGroupQuery where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetGroupQueryResponse' smart constructor.+data GetGroupQueryResponse = GetGroupQueryResponse'+  { -- | The resource query associated with the specified group. For more+    -- information about resource queries, see+    -- <https://docs.aws.amazon.com/ARG/latest/userguide/gettingstarted-query.html#gettingstarted-query-cli-tag Create a tag-based group in Resource Groups>.+    groupQuery :: Prelude.Maybe GroupQuery,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetGroupQueryResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'groupQuery', 'getGroupQueryResponse_groupQuery' - The resource query associated with the specified group. For more+-- information about resource queries, see+-- <https://docs.aws.amazon.com/ARG/latest/userguide/gettingstarted-query.html#gettingstarted-query-cli-tag Create a tag-based group in Resource Groups>.+--+-- 'httpStatus', 'getGroupQueryResponse_httpStatus' - The response's http status code.+newGetGroupQueryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetGroupQueryResponse+newGetGroupQueryResponse pHttpStatus_ =+  GetGroupQueryResponse'+    { groupQuery =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The resource query associated with the specified group. For more+-- information about resource queries, see+-- <https://docs.aws.amazon.com/ARG/latest/userguide/gettingstarted-query.html#gettingstarted-query-cli-tag Create a tag-based group in Resource Groups>.+getGroupQueryResponse_groupQuery :: Lens.Lens' GetGroupQueryResponse (Prelude.Maybe GroupQuery)+getGroupQueryResponse_groupQuery = Lens.lens (\GetGroupQueryResponse' {groupQuery} -> groupQuery) (\s@GetGroupQueryResponse' {} a -> s {groupQuery = a} :: GetGroupQueryResponse)++-- | The response's http status code.+getGroupQueryResponse_httpStatus :: Lens.Lens' GetGroupQueryResponse Prelude.Int+getGroupQueryResponse_httpStatus = Lens.lens (\GetGroupQueryResponse' {httpStatus} -> httpStatus) (\s@GetGroupQueryResponse' {} a -> s {httpStatus = a} :: GetGroupQueryResponse)++instance Prelude.NFData GetGroupQueryResponse where+  rnf GetGroupQueryResponse' {..} =+    Prelude.rnf groupQuery+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,166 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.GetTags+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of tags that are associated with a resource group,+-- specified by an ARN.+--+-- __Minimum permissions__+--+-- To run this command, you must have the following permissions:+--+-- -   @resource-groups:GetTags@+module Amazonka.ResourceGroups.GetTags+  ( -- * Creating a Request+    GetTags (..),+    newGetTags,++    -- * Request Lenses+    getTags_arn,++    -- * Destructuring the Response+    GetTagsResponse (..),+    newGetTagsResponse,++    -- * Response Lenses+    getTagsResponse_arn,+    getTagsResponse_tags,+    getTagsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import Amazonka.ResourceGroups.Types+import qualified Amazonka.Response as Response++-- | /See:/ 'newGetTags' smart constructor.+data GetTags = GetTags'+  { -- | The ARN of the resource group whose tags you want to retrieve.+    arn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetTags' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'getTags_arn' - The ARN of the resource group whose tags you want to retrieve.+newGetTags ::+  -- | 'arn'+  Prelude.Text ->+  GetTags+newGetTags pArn_ = GetTags' {arn = pArn_}++-- | The ARN of the resource group whose tags you want to retrieve.+getTags_arn :: Lens.Lens' GetTags Prelude.Text+getTags_arn = Lens.lens (\GetTags' {arn} -> arn) (\s@GetTags' {} a -> s {arn = a} :: GetTags)++instance Core.AWSRequest GetTags where+  type AWSResponse GetTags = GetTagsResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetTagsResponse'+            Prelude.<$> (x Data..?> "Arn")+            Prelude.<*> (x Data..?> "Tags" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetTags where+  hashWithSalt _salt GetTags' {..} =+    _salt `Prelude.hashWithSalt` arn++instance Prelude.NFData GetTags where+  rnf GetTags' {..} = Prelude.rnf arn++instance Data.ToHeaders GetTags where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath GetTags where+  toPath GetTags' {..} =+    Prelude.mconcat+      ["/resources/", Data.toBS arn, "/tags"]++instance Data.ToQuery GetTags where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetTagsResponse' smart constructor.+data GetTagsResponse = GetTagsResponse'+  { -- | The ARN of the tagged resource group.+    arn :: Prelude.Maybe Prelude.Text,+    -- | The tags associated with the specified resource group.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetTagsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'getTagsResponse_arn' - The ARN of the tagged resource group.+--+-- 'tags', 'getTagsResponse_tags' - The tags associated with the specified resource group.+--+-- 'httpStatus', 'getTagsResponse_httpStatus' - The response's http status code.+newGetTagsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetTagsResponse+newGetTagsResponse pHttpStatus_ =+  GetTagsResponse'+    { arn = Prelude.Nothing,+      tags = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The ARN of the tagged resource group.+getTagsResponse_arn :: Lens.Lens' GetTagsResponse (Prelude.Maybe Prelude.Text)+getTagsResponse_arn = Lens.lens (\GetTagsResponse' {arn} -> arn) (\s@GetTagsResponse' {} a -> s {arn = a} :: GetTagsResponse)++-- | The tags associated with the specified resource group.+getTagsResponse_tags :: Lens.Lens' GetTagsResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+getTagsResponse_tags = Lens.lens (\GetTagsResponse' {tags} -> tags) (\s@GetTagsResponse' {} a -> s {tags = a} :: GetTagsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+getTagsResponse_httpStatus :: Lens.Lens' GetTagsResponse Prelude.Int+getTagsResponse_httpStatus = Lens.lens (\GetTagsResponse' {httpStatus} -> httpStatus) (\s@GetTagsResponse' {} a -> s {httpStatus = a} :: GetTagsResponse)++instance Prelude.NFData GetTagsResponse where+  rnf GetTagsResponse' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,226 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.GroupResources+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds the specified resources to the specified group.+--+-- __Minimum permissions__+--+-- To run this command, you must have the following permissions:+--+-- -   @resource-groups:GroupResources@+module Amazonka.ResourceGroups.GroupResources+  ( -- * Creating a Request+    GroupResources (..),+    newGroupResources,++    -- * Request Lenses+    groupResources_group,+    groupResources_resourceArns,++    -- * Destructuring the Response+    GroupResourcesResponse (..),+    newGroupResourcesResponse,++    -- * Response Lenses+    groupResourcesResponse_failed,+    groupResourcesResponse_pending,+    groupResourcesResponse_succeeded,+    groupResourcesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import Amazonka.ResourceGroups.Types+import qualified Amazonka.Response as Response++-- | /See:/ 'newGroupResources' smart constructor.+data GroupResources = GroupResources'+  { -- | The name or the ARN of the resource group to add resources to.+    group' :: Prelude.Text,+    -- | The list of ARNs for resources to be added to the group.+    resourceArns :: Prelude.NonEmpty Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GroupResources' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'group'', 'groupResources_group' - The name or the ARN of the resource group to add resources to.+--+-- 'resourceArns', 'groupResources_resourceArns' - The list of ARNs for resources to be added to the group.+newGroupResources ::+  -- | 'group''+  Prelude.Text ->+  -- | 'resourceArns'+  Prelude.NonEmpty Prelude.Text ->+  GroupResources+newGroupResources pGroup_ pResourceArns_ =+  GroupResources'+    { group' = pGroup_,+      resourceArns = Lens.coerced Lens.# pResourceArns_+    }++-- | The name or the ARN of the resource group to add resources to.+groupResources_group :: Lens.Lens' GroupResources Prelude.Text+groupResources_group = Lens.lens (\GroupResources' {group'} -> group') (\s@GroupResources' {} a -> s {group' = a} :: GroupResources)++-- | The list of ARNs for resources to be added to the group.+groupResources_resourceArns :: Lens.Lens' GroupResources (Prelude.NonEmpty Prelude.Text)+groupResources_resourceArns = Lens.lens (\GroupResources' {resourceArns} -> resourceArns) (\s@GroupResources' {} a -> s {resourceArns = a} :: GroupResources) Prelude.. Lens.coerced++instance Core.AWSRequest GroupResources where+  type+    AWSResponse GroupResources =+      GroupResourcesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GroupResourcesResponse'+            Prelude.<$> (x Data..?> "Failed" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "Pending" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "Succeeded")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GroupResources where+  hashWithSalt _salt GroupResources' {..} =+    _salt+      `Prelude.hashWithSalt` group'+      `Prelude.hashWithSalt` resourceArns++instance Prelude.NFData GroupResources where+  rnf GroupResources' {..} =+    Prelude.rnf group'+      `Prelude.seq` Prelude.rnf resourceArns++instance Data.ToHeaders GroupResources where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON GroupResources where+  toJSON GroupResources' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("Group" Data..= group'),+            Prelude.Just ("ResourceArns" Data..= resourceArns)+          ]+      )++instance Data.ToPath GroupResources where+  toPath = Prelude.const "/group-resources"++instance Data.ToQuery GroupResources where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGroupResourcesResponse' smart constructor.+data GroupResourcesResponse = GroupResourcesResponse'+  { -- | A list of ARNs of any resources that failed to be added to the group by+    -- this operation.+    failed :: Prelude.Maybe [FailedResource],+    -- | A list of ARNs of any resources that are still in the process of being+    -- added to the group by this operation. These pending additions continue+    -- asynchronously. You can check the status of pending additions by using+    -- the @ @@ListGroupResources@@ @ operation, and checking the @Resources@+    -- array in the response and the @Status@ field of each object in that+    -- array.+    pending :: Prelude.Maybe [PendingResource],+    -- | A list of ARNs of resources that were successfully added to the group by+    -- this operation.+    succeeded :: Prelude.Maybe (Prelude.NonEmpty Prelude.Text),+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GroupResourcesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'failed', 'groupResourcesResponse_failed' - A list of ARNs of any resources that failed to be added to the group by+-- this operation.+--+-- 'pending', 'groupResourcesResponse_pending' - A list of ARNs of any resources that are still in the process of being+-- added to the group by this operation. These pending additions continue+-- asynchronously. You can check the status of pending additions by using+-- the @ @@ListGroupResources@@ @ operation, and checking the @Resources@+-- array in the response and the @Status@ field of each object in that+-- array.+--+-- 'succeeded', 'groupResourcesResponse_succeeded' - A list of ARNs of resources that were successfully added to the group by+-- this operation.+--+-- 'httpStatus', 'groupResourcesResponse_httpStatus' - The response's http status code.+newGroupResourcesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GroupResourcesResponse+newGroupResourcesResponse pHttpStatus_ =+  GroupResourcesResponse'+    { failed = Prelude.Nothing,+      pending = Prelude.Nothing,+      succeeded = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A list of ARNs of any resources that failed to be added to the group by+-- this operation.+groupResourcesResponse_failed :: Lens.Lens' GroupResourcesResponse (Prelude.Maybe [FailedResource])+groupResourcesResponse_failed = Lens.lens (\GroupResourcesResponse' {failed} -> failed) (\s@GroupResourcesResponse' {} a -> s {failed = a} :: GroupResourcesResponse) Prelude.. Lens.mapping Lens.coerced++-- | A list of ARNs of any resources that are still in the process of being+-- added to the group by this operation. These pending additions continue+-- asynchronously. You can check the status of pending additions by using+-- the @ @@ListGroupResources@@ @ operation, and checking the @Resources@+-- array in the response and the @Status@ field of each object in that+-- array.+groupResourcesResponse_pending :: Lens.Lens' GroupResourcesResponse (Prelude.Maybe [PendingResource])+groupResourcesResponse_pending = Lens.lens (\GroupResourcesResponse' {pending} -> pending) (\s@GroupResourcesResponse' {} a -> s {pending = a} :: GroupResourcesResponse) Prelude.. Lens.mapping Lens.coerced++-- | A list of ARNs of resources that were successfully added to the group by+-- this operation.+groupResourcesResponse_succeeded :: Lens.Lens' GroupResourcesResponse (Prelude.Maybe (Prelude.NonEmpty Prelude.Text))+groupResourcesResponse_succeeded = Lens.lens (\GroupResourcesResponse' {succeeded} -> succeeded) (\s@GroupResourcesResponse' {} a -> s {succeeded = a} :: GroupResourcesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+groupResourcesResponse_httpStatus :: Lens.Lens' GroupResourcesResponse Prelude.Int+groupResourcesResponse_httpStatus = Lens.lens (\GroupResourcesResponse' {httpStatus} -> httpStatus) (\s@GroupResourcesResponse' {} a -> s {httpStatus = a} :: GroupResourcesResponse)++instance Prelude.NFData GroupResourcesResponse where+  rnf GroupResourcesResponse' {..} =+    Prelude.rnf failed+      `Prelude.seq` Prelude.rnf pending+      `Prelude.seq` Prelude.rnf succeeded+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,233 @@+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Lens+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Lens+  ( -- * Operations++    -- ** CreateGroup+    createGroup_configuration,+    createGroup_description,+    createGroup_resourceQuery,+    createGroup_tags,+    createGroup_name,+    createGroupResponse_group,+    createGroupResponse_groupConfiguration,+    createGroupResponse_resourceQuery,+    createGroupResponse_tags,+    createGroupResponse_httpStatus,++    -- ** DeleteGroup+    deleteGroup_group,+    deleteGroup_groupName,+    deleteGroupResponse_group,+    deleteGroupResponse_httpStatus,++    -- ** GetGroup+    getGroup_group,+    getGroup_groupName,+    getGroupResponse_group,+    getGroupResponse_httpStatus,++    -- ** GetGroupConfiguration+    getGroupConfiguration_group,+    getGroupConfigurationResponse_groupConfiguration,+    getGroupConfigurationResponse_httpStatus,++    -- ** GetGroupQuery+    getGroupQuery_group,+    getGroupQuery_groupName,+    getGroupQueryResponse_groupQuery,+    getGroupQueryResponse_httpStatus,++    -- ** GetTags+    getTags_arn,+    getTagsResponse_arn,+    getTagsResponse_tags,+    getTagsResponse_httpStatus,++    -- ** GroupResources+    groupResources_group,+    groupResources_resourceArns,+    groupResourcesResponse_failed,+    groupResourcesResponse_pending,+    groupResourcesResponse_succeeded,+    groupResourcesResponse_httpStatus,++    -- ** ListGroupResources+    listGroupResources_filters,+    listGroupResources_group,+    listGroupResources_groupName,+    listGroupResources_maxResults,+    listGroupResources_nextToken,+    listGroupResourcesResponse_nextToken,+    listGroupResourcesResponse_queryErrors,+    listGroupResourcesResponse_resourceIdentifiers,+    listGroupResourcesResponse_resources,+    listGroupResourcesResponse_httpStatus,++    -- ** ListGroups+    listGroups_filters,+    listGroups_maxResults,+    listGroups_nextToken,+    listGroupsResponse_groupIdentifiers,+    listGroupsResponse_groups,+    listGroupsResponse_nextToken,+    listGroupsResponse_httpStatus,++    -- ** PutGroupConfiguration+    putGroupConfiguration_configuration,+    putGroupConfiguration_group,+    putGroupConfigurationResponse_httpStatus,++    -- ** SearchResources+    searchResources_maxResults,+    searchResources_nextToken,+    searchResources_resourceQuery,+    searchResourcesResponse_nextToken,+    searchResourcesResponse_queryErrors,+    searchResourcesResponse_resourceIdentifiers,+    searchResourcesResponse_httpStatus,++    -- ** Tag+    tag_arn,+    tag_tags,+    tagResponse_arn,+    tagResponse_tags,+    tagResponse_httpStatus,++    -- ** UngroupResources+    ungroupResources_group,+    ungroupResources_resourceArns,+    ungroupResourcesResponse_failed,+    ungroupResourcesResponse_pending,+    ungroupResourcesResponse_succeeded,+    ungroupResourcesResponse_httpStatus,++    -- ** Untag+    untag_arn,+    untag_keys,+    untagResponse_arn,+    untagResponse_keys,+    untagResponse_httpStatus,++    -- ** UpdateGroup+    updateGroup_description,+    updateGroup_group,+    updateGroup_groupName,+    updateGroupResponse_group,+    updateGroupResponse_httpStatus,++    -- ** UpdateGroupQuery+    updateGroupQuery_group,+    updateGroupQuery_groupName,+    updateGroupQuery_resourceQuery,+    updateGroupQueryResponse_groupQuery,+    updateGroupQueryResponse_httpStatus,++    -- * Types++    -- ** FailedResource+    failedResource_errorCode,+    failedResource_errorMessage,+    failedResource_resourceArn,++    -- ** Group+    group_description,+    group_groupArn,+    group_name,++    -- ** GroupConfiguration+    groupConfiguration_configuration,+    groupConfiguration_failureReason,+    groupConfiguration_proposedConfiguration,+    groupConfiguration_status,++    -- ** GroupConfigurationItem+    groupConfigurationItem_parameters,+    groupConfigurationItem_type,++    -- ** GroupConfigurationParameter+    groupConfigurationParameter_values,+    groupConfigurationParameter_name,++    -- ** GroupFilter+    groupFilter_name,+    groupFilter_values,++    -- ** GroupIdentifier+    groupIdentifier_groupArn,+    groupIdentifier_groupName,++    -- ** GroupQuery+    groupQuery_groupName,+    groupQuery_resourceQuery,++    -- ** ListGroupResourcesItem+    listGroupResourcesItem_identifier,+    listGroupResourcesItem_status,++    -- ** PendingResource+    pendingResource_resourceArn,++    -- ** QueryError+    queryError_errorCode,+    queryError_message,++    -- ** ResourceFilter+    resourceFilter_name,+    resourceFilter_values,++    -- ** ResourceIdentifier+    resourceIdentifier_resourceArn,+    resourceIdentifier_resourceType,++    -- ** ResourceQuery+    resourceQuery_type,+    resourceQuery_searchQuery,++    -- ** ResourceStatus+    resourceStatus_name,+  )+where++import Amazonka.ResourceGroups.CreateGroup+import Amazonka.ResourceGroups.DeleteGroup+import Amazonka.ResourceGroups.GetGroup+import Amazonka.ResourceGroups.GetGroupConfiguration+import Amazonka.ResourceGroups.GetGroupQuery+import Amazonka.ResourceGroups.GetTags+import Amazonka.ResourceGroups.GroupResources+import Amazonka.ResourceGroups.ListGroupResources+import Amazonka.ResourceGroups.ListGroups+import Amazonka.ResourceGroups.PutGroupConfiguration+import Amazonka.ResourceGroups.SearchResources+import Amazonka.ResourceGroups.Tag+import Amazonka.ResourceGroups.Types.FailedResource+import Amazonka.ResourceGroups.Types.Group+import Amazonka.ResourceGroups.Types.GroupConfiguration+import Amazonka.ResourceGroups.Types.GroupConfigurationItem+import Amazonka.ResourceGroups.Types.GroupConfigurationParameter+import Amazonka.ResourceGroups.Types.GroupFilter+import Amazonka.ResourceGroups.Types.GroupIdentifier+import Amazonka.ResourceGroups.Types.GroupQuery+import Amazonka.ResourceGroups.Types.ListGroupResourcesItem+import Amazonka.ResourceGroups.Types.PendingResource+import Amazonka.ResourceGroups.Types.QueryError+import Amazonka.ResourceGroups.Types.ResourceFilter+import Amazonka.ResourceGroups.Types.ResourceIdentifier+import Amazonka.ResourceGroups.Types.ResourceQuery+import Amazonka.ResourceGroups.Types.ResourceStatus+import Amazonka.ResourceGroups.UngroupResources+import Amazonka.ResourceGroups.Untag+import Amazonka.ResourceGroups.UpdateGroup+import Amazonka.ResourceGroups.UpdateGroupQuery

@@ -0,0 +1,434 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.ListGroupResources+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of ARNs of the resources that are members of a specified+-- resource group.+--+-- __Minimum permissions__+--+-- To run this command, you must have the following permissions:+--+-- -   @resource-groups:ListGroupResources@+--+-- -   @cloudformation:DescribeStacks@+--+-- -   @cloudformation:ListStackResources@+--+-- -   @tag:GetResources@+--+-- This operation returns paginated results.+module Amazonka.ResourceGroups.ListGroupResources+  ( -- * Creating a Request+    ListGroupResources (..),+    newListGroupResources,++    -- * Request Lenses+    listGroupResources_filters,+    listGroupResources_group,+    listGroupResources_groupName,+    listGroupResources_maxResults,+    listGroupResources_nextToken,++    -- * Destructuring the Response+    ListGroupResourcesResponse (..),+    newListGroupResourcesResponse,++    -- * Response Lenses+    listGroupResourcesResponse_nextToken,+    listGroupResourcesResponse_queryErrors,+    listGroupResourcesResponse_resourceIdentifiers,+    listGroupResourcesResponse_resources,+    listGroupResourcesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import Amazonka.ResourceGroups.Types+import qualified Amazonka.Response as Response++-- | /See:/ 'newListGroupResources' smart constructor.+data ListGroupResources = ListGroupResources'+  { -- | Filters, formatted as ResourceFilter objects, that you want to apply to+    -- a @ListGroupResources@ operation. Filters the results to include only+    -- those of the specified resource types.+    --+    -- -   @resource-type@ - Filter resources by their type. Specify up to five+    --     resource types in the format @AWS::ServiceCode::ResourceType@. For+    --     example, @AWS::EC2::Instance@, or @AWS::S3::Bucket@.+    --+    -- When you specify a @resource-type@ filter for @ListGroupResources@, AWS+    -- Resource Groups validates your filter resource types against the types+    -- that are defined in the query associated with the group. For example, if+    -- a group contains only S3 buckets because its query specifies only that+    -- resource type, but your @resource-type@ filter includes EC2 instances,+    -- AWS Resource Groups does not filter for EC2 instances. In this case, a+    -- @ListGroupResources@ request returns a @BadRequestException@ error with+    -- a message similar to the following:+    --+    -- @The resource types specified as filters in the request are not valid.@+    --+    -- The error includes a list of resource types that failed the validation+    -- because they are not part of the query associated with the group. This+    -- validation doesn\'t occur when the group query specifies+    -- @AWS::AllSupported@, because a group based on such a query can contain+    -- any of the allowed resource types for the query type (tag-based or AWS+    -- CloudFormation stack-based queries).+    filters :: Prelude.Maybe [ResourceFilter],+    -- | The name or the ARN of the resource group+    group' :: Prelude.Maybe Prelude.Text,+    -- | /__Deprecated - don\'t use this parameter. Use the @Group@ request field+    -- instead.__/+    groupName :: Prelude.Maybe Prelude.Text,+    -- | The total number of results that you want included on each page of the+    -- response. If you do not include this parameter, it defaults to a value+    -- that is specific to the operation. If additional items exist beyond the+    -- maximum you specify, the @NextToken@ response element is present and has+    -- a value (is not null). Include that value as the @NextToken@ request+    -- parameter in the next call to the operation to get the next part of the+    -- results. Note that the service might return fewer results than the+    -- maximum even when there are more results available. You should check+    -- @NextToken@ after every operation to ensure that you receive all of the+    -- results.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The parameter for receiving additional results if you receive a+    -- @NextToken@ response in a previous request. A @NextToken@ response+    -- indicates that more output is available. Set this parameter to the value+    -- provided by a previous call\'s @NextToken@ response to indicate where+    -- the output should continue from.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListGroupResources' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'filters', 'listGroupResources_filters' - Filters, formatted as ResourceFilter objects, that you want to apply to+-- a @ListGroupResources@ operation. Filters the results to include only+-- those of the specified resource types.+--+-- -   @resource-type@ - Filter resources by their type. Specify up to five+--     resource types in the format @AWS::ServiceCode::ResourceType@. For+--     example, @AWS::EC2::Instance@, or @AWS::S3::Bucket@.+--+-- When you specify a @resource-type@ filter for @ListGroupResources@, AWS+-- Resource Groups validates your filter resource types against the types+-- that are defined in the query associated with the group. For example, if+-- a group contains only S3 buckets because its query specifies only that+-- resource type, but your @resource-type@ filter includes EC2 instances,+-- AWS Resource Groups does not filter for EC2 instances. In this case, a+-- @ListGroupResources@ request returns a @BadRequestException@ error with+-- a message similar to the following:+--+-- @The resource types specified as filters in the request are not valid.@+--+-- The error includes a list of resource types that failed the validation+-- because they are not part of the query associated with the group. This+-- validation doesn\'t occur when the group query specifies+-- @AWS::AllSupported@, because a group based on such a query can contain+-- any of the allowed resource types for the query type (tag-based or AWS+-- CloudFormation stack-based queries).+--+-- 'group'', 'listGroupResources_group' - The name or the ARN of the resource group+--+-- 'groupName', 'listGroupResources_groupName' - /__Deprecated - don\'t use this parameter. Use the @Group@ request field+-- instead.__/+--+-- 'maxResults', 'listGroupResources_maxResults' - The total number of results that you want included on each page of the+-- response. If you do not include this parameter, it defaults to a value+-- that is specific to the operation. If additional items exist beyond the+-- maximum you specify, the @NextToken@ response element is present and has+-- a value (is not null). Include that value as the @NextToken@ request+-- parameter in the next call to the operation to get the next part of the+-- results. Note that the service might return fewer results than the+-- maximum even when there are more results available. You should check+-- @NextToken@ after every operation to ensure that you receive all of the+-- results.+--+-- 'nextToken', 'listGroupResources_nextToken' - The parameter for receiving additional results if you receive a+-- @NextToken@ response in a previous request. A @NextToken@ response+-- indicates that more output is available. Set this parameter to the value+-- provided by a previous call\'s @NextToken@ response to indicate where+-- the output should continue from.+newListGroupResources ::+  ListGroupResources+newListGroupResources =+  ListGroupResources'+    { filters = Prelude.Nothing,+      group' = Prelude.Nothing,+      groupName = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | Filters, formatted as ResourceFilter objects, that you want to apply to+-- a @ListGroupResources@ operation. Filters the results to include only+-- those of the specified resource types.+--+-- -   @resource-type@ - Filter resources by their type. Specify up to five+--     resource types in the format @AWS::ServiceCode::ResourceType@. For+--     example, @AWS::EC2::Instance@, or @AWS::S3::Bucket@.+--+-- When you specify a @resource-type@ filter for @ListGroupResources@, AWS+-- Resource Groups validates your filter resource types against the types+-- that are defined in the query associated with the group. For example, if+-- a group contains only S3 buckets because its query specifies only that+-- resource type, but your @resource-type@ filter includes EC2 instances,+-- AWS Resource Groups does not filter for EC2 instances. In this case, a+-- @ListGroupResources@ request returns a @BadRequestException@ error with+-- a message similar to the following:+--+-- @The resource types specified as filters in the request are not valid.@+--+-- The error includes a list of resource types that failed the validation+-- because they are not part of the query associated with the group. This+-- validation doesn\'t occur when the group query specifies+-- @AWS::AllSupported@, because a group based on such a query can contain+-- any of the allowed resource types for the query type (tag-based or AWS+-- CloudFormation stack-based queries).+listGroupResources_filters :: Lens.Lens' ListGroupResources (Prelude.Maybe [ResourceFilter])+listGroupResources_filters = Lens.lens (\ListGroupResources' {filters} -> filters) (\s@ListGroupResources' {} a -> s {filters = a} :: ListGroupResources) Prelude.. Lens.mapping Lens.coerced++-- | The name or the ARN of the resource group+listGroupResources_group :: Lens.Lens' ListGroupResources (Prelude.Maybe Prelude.Text)+listGroupResources_group = Lens.lens (\ListGroupResources' {group'} -> group') (\s@ListGroupResources' {} a -> s {group' = a} :: ListGroupResources)++-- | /__Deprecated - don\'t use this parameter. Use the @Group@ request field+-- instead.__/+listGroupResources_groupName :: Lens.Lens' ListGroupResources (Prelude.Maybe Prelude.Text)+listGroupResources_groupName = Lens.lens (\ListGroupResources' {groupName} -> groupName) (\s@ListGroupResources' {} a -> s {groupName = a} :: ListGroupResources)++-- | The total number of results that you want included on each page of the+-- response. If you do not include this parameter, it defaults to a value+-- that is specific to the operation. If additional items exist beyond the+-- maximum you specify, the @NextToken@ response element is present and has+-- a value (is not null). Include that value as the @NextToken@ request+-- parameter in the next call to the operation to get the next part of the+-- results. Note that the service might return fewer results than the+-- maximum even when there are more results available. You should check+-- @NextToken@ after every operation to ensure that you receive all of the+-- results.+listGroupResources_maxResults :: Lens.Lens' ListGroupResources (Prelude.Maybe Prelude.Natural)+listGroupResources_maxResults = Lens.lens (\ListGroupResources' {maxResults} -> maxResults) (\s@ListGroupResources' {} a -> s {maxResults = a} :: ListGroupResources)++-- | The parameter for receiving additional results if you receive a+-- @NextToken@ response in a previous request. A @NextToken@ response+-- indicates that more output is available. Set this parameter to the value+-- provided by a previous call\'s @NextToken@ response to indicate where+-- the output should continue from.+listGroupResources_nextToken :: Lens.Lens' ListGroupResources (Prelude.Maybe Prelude.Text)+listGroupResources_nextToken = Lens.lens (\ListGroupResources' {nextToken} -> nextToken) (\s@ListGroupResources' {} a -> s {nextToken = a} :: ListGroupResources)++instance Core.AWSPager ListGroupResources where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listGroupResourcesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listGroupResourcesResponse_resourceIdentifiers+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listGroupResourcesResponse_resources+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listGroupResources_nextToken+          Lens..~ rs+          Lens.^? listGroupResourcesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListGroupResources where+  type+    AWSResponse ListGroupResources =+      ListGroupResourcesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListGroupResourcesResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "QueryErrors" Core..!@ Prelude.mempty)+            Prelude.<*> ( x+                            Data..?> "ResourceIdentifiers"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "Resources" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListGroupResources where+  hashWithSalt _salt ListGroupResources' {..} =+    _salt+      `Prelude.hashWithSalt` filters+      `Prelude.hashWithSalt` group'+      `Prelude.hashWithSalt` groupName+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListGroupResources where+  rnf ListGroupResources' {..} =+    Prelude.rnf filters+      `Prelude.seq` Prelude.rnf group'+      `Prelude.seq` Prelude.rnf groupName+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListGroupResources where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON ListGroupResources where+  toJSON ListGroupResources' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Filters" Data..=) Prelude.<$> filters,+            ("Group" Data..=) Prelude.<$> group',+            ("GroupName" Data..=) Prelude.<$> groupName,+            ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListGroupResources where+  toPath = Prelude.const "/list-group-resources"++instance Data.ToQuery ListGroupResources where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListGroupResourcesResponse' smart constructor.+data ListGroupResourcesResponse = ListGroupResourcesResponse'+  { -- | If present, indicates that more output is available than is included in+    -- the current response. Use this value in the @NextToken@ request+    -- parameter in a subsequent call to the operation to get the next part of+    -- the output. You should repeat this until the @NextToken@ response+    -- element comes back as @null@.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | A list of @QueryError@ objects. Each error is an object that contains+    -- @ErrorCode@ and @Message@ structures. Possible values for @ErrorCode@+    -- are @CLOUDFORMATION_STACK_INACTIVE@ and+    -- @CLOUDFORMATION_STACK_NOT_EXISTING@.+    queryErrors :: Prelude.Maybe [QueryError],+    -- | __/Deprecated - don\'t use this parameter. Use the @Resources@ response+    -- field instead./__+    resourceIdentifiers :: Prelude.Maybe [ResourceIdentifier],+    -- | An array of resources from which you can determine each resource\'s+    -- identity, type, and group membership status.+    resources :: Prelude.Maybe [ListGroupResourcesItem],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListGroupResourcesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listGroupResourcesResponse_nextToken' - If present, indicates that more output is available than is included in+-- the current response. Use this value in the @NextToken@ request+-- parameter in a subsequent call to the operation to get the next part of+-- the output. You should repeat this until the @NextToken@ response+-- element comes back as @null@.+--+-- 'queryErrors', 'listGroupResourcesResponse_queryErrors' - A list of @QueryError@ objects. Each error is an object that contains+-- @ErrorCode@ and @Message@ structures. Possible values for @ErrorCode@+-- are @CLOUDFORMATION_STACK_INACTIVE@ and+-- @CLOUDFORMATION_STACK_NOT_EXISTING@.+--+-- 'resourceIdentifiers', 'listGroupResourcesResponse_resourceIdentifiers' - __/Deprecated - don\'t use this parameter. Use the @Resources@ response+-- field instead./__+--+-- 'resources', 'listGroupResourcesResponse_resources' - An array of resources from which you can determine each resource\'s+-- identity, type, and group membership status.+--+-- 'httpStatus', 'listGroupResourcesResponse_httpStatus' - The response's http status code.+newListGroupResourcesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListGroupResourcesResponse+newListGroupResourcesResponse pHttpStatus_ =+  ListGroupResourcesResponse'+    { nextToken =+        Prelude.Nothing,+      queryErrors = Prelude.Nothing,+      resourceIdentifiers = Prelude.Nothing,+      resources = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If present, indicates that more output is available than is included in+-- the current response. Use this value in the @NextToken@ request+-- parameter in a subsequent call to the operation to get the next part of+-- the output. You should repeat this until the @NextToken@ response+-- element comes back as @null@.+listGroupResourcesResponse_nextToken :: Lens.Lens' ListGroupResourcesResponse (Prelude.Maybe Prelude.Text)+listGroupResourcesResponse_nextToken = Lens.lens (\ListGroupResourcesResponse' {nextToken} -> nextToken) (\s@ListGroupResourcesResponse' {} a -> s {nextToken = a} :: ListGroupResourcesResponse)++-- | A list of @QueryError@ objects. Each error is an object that contains+-- @ErrorCode@ and @Message@ structures. Possible values for @ErrorCode@+-- are @CLOUDFORMATION_STACK_INACTIVE@ and+-- @CLOUDFORMATION_STACK_NOT_EXISTING@.+listGroupResourcesResponse_queryErrors :: Lens.Lens' ListGroupResourcesResponse (Prelude.Maybe [QueryError])+listGroupResourcesResponse_queryErrors = Lens.lens (\ListGroupResourcesResponse' {queryErrors} -> queryErrors) (\s@ListGroupResourcesResponse' {} a -> s {queryErrors = a} :: ListGroupResourcesResponse) Prelude.. Lens.mapping Lens.coerced++-- | __/Deprecated - don\'t use this parameter. Use the @Resources@ response+-- field instead./__+listGroupResourcesResponse_resourceIdentifiers :: Lens.Lens' ListGroupResourcesResponse (Prelude.Maybe [ResourceIdentifier])+listGroupResourcesResponse_resourceIdentifiers = Lens.lens (\ListGroupResourcesResponse' {resourceIdentifiers} -> resourceIdentifiers) (\s@ListGroupResourcesResponse' {} a -> s {resourceIdentifiers = a} :: ListGroupResourcesResponse) Prelude.. Lens.mapping Lens.coerced++-- | An array of resources from which you can determine each resource\'s+-- identity, type, and group membership status.+listGroupResourcesResponse_resources :: Lens.Lens' ListGroupResourcesResponse (Prelude.Maybe [ListGroupResourcesItem])+listGroupResourcesResponse_resources = Lens.lens (\ListGroupResourcesResponse' {resources} -> resources) (\s@ListGroupResourcesResponse' {} a -> s {resources = a} :: ListGroupResourcesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listGroupResourcesResponse_httpStatus :: Lens.Lens' ListGroupResourcesResponse Prelude.Int+listGroupResourcesResponse_httpStatus = Lens.lens (\ListGroupResourcesResponse' {httpStatus} -> httpStatus) (\s@ListGroupResourcesResponse' {} a -> s {httpStatus = a} :: ListGroupResourcesResponse)++instance Prelude.NFData ListGroupResourcesResponse where+  rnf ListGroupResourcesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf queryErrors+      `Prelude.seq` Prelude.rnf resourceIdentifiers+      `Prelude.seq` Prelude.rnf resources+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,346 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.ListGroups+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of existing resource groups in your account.+--+-- __Minimum permissions__+--+-- To run this command, you must have the following permissions:+--+-- -   @resource-groups:ListGroups@+--+-- This operation returns paginated results.+module Amazonka.ResourceGroups.ListGroups+  ( -- * Creating a Request+    ListGroups (..),+    newListGroups,++    -- * Request Lenses+    listGroups_filters,+    listGroups_maxResults,+    listGroups_nextToken,++    -- * Destructuring the Response+    ListGroupsResponse (..),+    newListGroupsResponse,++    -- * Response Lenses+    listGroupsResponse_groupIdentifiers,+    listGroupsResponse_groups,+    listGroupsResponse_nextToken,+    listGroupsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import Amazonka.ResourceGroups.Types+import qualified Amazonka.Response as Response++-- | /See:/ 'newListGroups' smart constructor.+data ListGroups = ListGroups'+  { -- | Filters, formatted as GroupFilter objects, that you want to apply to a+    -- @ListGroups@ operation.+    --+    -- -   @resource-type@ - Filter the results to include only those of the+    --     specified resource types. Specify up to five resource types in the+    --     format @AWS::@/@ServiceCode@/@::@/@ResourceType@/@ @. For example,+    --     @AWS::EC2::Instance@, or @AWS::S3::Bucket@.+    --+    -- -   @configuration-type@ - Filter the results to include only those+    --     groups that have the specified configuration types attached. The+    --     current supported values are:+    --+    --     -   @AWS:EC2::CapacityReservationPool@+    --+    --     -   @AWS:EC2::HostManagement@+    filters :: Prelude.Maybe [GroupFilter],+    -- | The total number of results that you want included on each page of the+    -- response. If you do not include this parameter, it defaults to a value+    -- that is specific to the operation. If additional items exist beyond the+    -- maximum you specify, the @NextToken@ response element is present and has+    -- a value (is not null). Include that value as the @NextToken@ request+    -- parameter in the next call to the operation to get the next part of the+    -- results. Note that the service might return fewer results than the+    -- maximum even when there are more results available. You should check+    -- @NextToken@ after every operation to ensure that you receive all of the+    -- results.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The parameter for receiving additional results if you receive a+    -- @NextToken@ response in a previous request. A @NextToken@ response+    -- indicates that more output is available. Set this parameter to the value+    -- provided by a previous call\'s @NextToken@ response to indicate where+    -- the output should continue from.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListGroups' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'filters', 'listGroups_filters' - Filters, formatted as GroupFilter objects, that you want to apply to a+-- @ListGroups@ operation.+--+-- -   @resource-type@ - Filter the results to include only those of the+--     specified resource types. Specify up to five resource types in the+--     format @AWS::@/@ServiceCode@/@::@/@ResourceType@/@ @. For example,+--     @AWS::EC2::Instance@, or @AWS::S3::Bucket@.+--+-- -   @configuration-type@ - Filter the results to include only those+--     groups that have the specified configuration types attached. The+--     current supported values are:+--+--     -   @AWS:EC2::CapacityReservationPool@+--+--     -   @AWS:EC2::HostManagement@+--+-- 'maxResults', 'listGroups_maxResults' - The total number of results that you want included on each page of the+-- response. If you do not include this parameter, it defaults to a value+-- that is specific to the operation. If additional items exist beyond the+-- maximum you specify, the @NextToken@ response element is present and has+-- a value (is not null). Include that value as the @NextToken@ request+-- parameter in the next call to the operation to get the next part of the+-- results. Note that the service might return fewer results than the+-- maximum even when there are more results available. You should check+-- @NextToken@ after every operation to ensure that you receive all of the+-- results.+--+-- 'nextToken', 'listGroups_nextToken' - The parameter for receiving additional results if you receive a+-- @NextToken@ response in a previous request. A @NextToken@ response+-- indicates that more output is available. Set this parameter to the value+-- provided by a previous call\'s @NextToken@ response to indicate where+-- the output should continue from.+newListGroups ::+  ListGroups+newListGroups =+  ListGroups'+    { filters = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | Filters, formatted as GroupFilter objects, that you want to apply to a+-- @ListGroups@ operation.+--+-- -   @resource-type@ - Filter the results to include only those of the+--     specified resource types. Specify up to five resource types in the+--     format @AWS::@/@ServiceCode@/@::@/@ResourceType@/@ @. For example,+--     @AWS::EC2::Instance@, or @AWS::S3::Bucket@.+--+-- -   @configuration-type@ - Filter the results to include only those+--     groups that have the specified configuration types attached. The+--     current supported values are:+--+--     -   @AWS:EC2::CapacityReservationPool@+--+--     -   @AWS:EC2::HostManagement@+listGroups_filters :: Lens.Lens' ListGroups (Prelude.Maybe [GroupFilter])+listGroups_filters = Lens.lens (\ListGroups' {filters} -> filters) (\s@ListGroups' {} a -> s {filters = a} :: ListGroups) Prelude.. Lens.mapping Lens.coerced++-- | The total number of results that you want included on each page of the+-- response. If you do not include this parameter, it defaults to a value+-- that is specific to the operation. If additional items exist beyond the+-- maximum you specify, the @NextToken@ response element is present and has+-- a value (is not null). Include that value as the @NextToken@ request+-- parameter in the next call to the operation to get the next part of the+-- results. Note that the service might return fewer results than the+-- maximum even when there are more results available. You should check+-- @NextToken@ after every operation to ensure that you receive all of the+-- results.+listGroups_maxResults :: Lens.Lens' ListGroups (Prelude.Maybe Prelude.Natural)+listGroups_maxResults = Lens.lens (\ListGroups' {maxResults} -> maxResults) (\s@ListGroups' {} a -> s {maxResults = a} :: ListGroups)++-- | The parameter for receiving additional results if you receive a+-- @NextToken@ response in a previous request. A @NextToken@ response+-- indicates that more output is available. Set this parameter to the value+-- provided by a previous call\'s @NextToken@ response to indicate where+-- the output should continue from.+listGroups_nextToken :: Lens.Lens' ListGroups (Prelude.Maybe Prelude.Text)+listGroups_nextToken = Lens.lens (\ListGroups' {nextToken} -> nextToken) (\s@ListGroups' {} a -> s {nextToken = a} :: ListGroups)++instance Core.AWSPager ListGroups where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listGroupsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listGroupsResponse_groupIdentifiers+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listGroupsResponse_groups+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listGroups_nextToken+          Lens..~ rs+          Lens.^? listGroupsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListGroups where+  type AWSResponse ListGroups = ListGroupsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListGroupsResponse'+            Prelude.<$> ( x+                            Data..?> "GroupIdentifiers"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "Groups" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListGroups where+  hashWithSalt _salt ListGroups' {..} =+    _salt+      `Prelude.hashWithSalt` filters+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListGroups where+  rnf ListGroups' {..} =+    Prelude.rnf filters+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListGroups where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON ListGroups where+  toJSON ListGroups' {..} =+    Data.object+      ( Prelude.catMaybes+          [("Filters" Data..=) Prelude.<$> filters]+      )++instance Data.ToPath ListGroups where+  toPath = Prelude.const "/groups-list"++instance Data.ToQuery ListGroups where+  toQuery ListGroups' {..} =+    Prelude.mconcat+      [ "maxResults" Data.=: maxResults,+        "nextToken" Data.=: nextToken+      ]++-- | /See:/ 'newListGroupsResponse' smart constructor.+data ListGroupsResponse = ListGroupsResponse'+  { -- | A list of GroupIdentifier objects. Each identifier is an object that+    -- contains both the @Name@ and the @GroupArn@.+    groupIdentifiers :: Prelude.Maybe [GroupIdentifier],+    -- | /__Deprecated - don\'t use this field. Use the @GroupIdentifiers@+    -- response field instead.__/+    groups :: Prelude.Maybe [Group],+    -- | If present, indicates that more output is available than is included in+    -- the current response. Use this value in the @NextToken@ request+    -- parameter in a subsequent call to the operation to get the next part of+    -- the output. You should repeat this until the @NextToken@ response+    -- element comes back as @null@.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListGroupsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'groupIdentifiers', 'listGroupsResponse_groupIdentifiers' - A list of GroupIdentifier objects. Each identifier is an object that+-- contains both the @Name@ and the @GroupArn@.+--+-- 'groups', 'listGroupsResponse_groups' - /__Deprecated - don\'t use this field. Use the @GroupIdentifiers@+-- response field instead.__/+--+-- 'nextToken', 'listGroupsResponse_nextToken' - If present, indicates that more output is available than is included in+-- the current response. Use this value in the @NextToken@ request+-- parameter in a subsequent call to the operation to get the next part of+-- the output. You should repeat this until the @NextToken@ response+-- element comes back as @null@.+--+-- 'httpStatus', 'listGroupsResponse_httpStatus' - The response's http status code.+newListGroupsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListGroupsResponse+newListGroupsResponse pHttpStatus_ =+  ListGroupsResponse'+    { groupIdentifiers =+        Prelude.Nothing,+      groups = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A list of GroupIdentifier objects. Each identifier is an object that+-- contains both the @Name@ and the @GroupArn@.+listGroupsResponse_groupIdentifiers :: Lens.Lens' ListGroupsResponse (Prelude.Maybe [GroupIdentifier])+listGroupsResponse_groupIdentifiers = Lens.lens (\ListGroupsResponse' {groupIdentifiers} -> groupIdentifiers) (\s@ListGroupsResponse' {} a -> s {groupIdentifiers = a} :: ListGroupsResponse) Prelude.. Lens.mapping Lens.coerced++-- | /__Deprecated - don\'t use this field. Use the @GroupIdentifiers@+-- response field instead.__/+listGroupsResponse_groups :: Lens.Lens' ListGroupsResponse (Prelude.Maybe [Group])+listGroupsResponse_groups = Lens.lens (\ListGroupsResponse' {groups} -> groups) (\s@ListGroupsResponse' {} a -> s {groups = a} :: ListGroupsResponse) Prelude.. Lens.mapping Lens.coerced++-- | If present, indicates that more output is available than is included in+-- the current response. Use this value in the @NextToken@ request+-- parameter in a subsequent call to the operation to get the next part of+-- the output. You should repeat this until the @NextToken@ response+-- element comes back as @null@.+listGroupsResponse_nextToken :: Lens.Lens' ListGroupsResponse (Prelude.Maybe Prelude.Text)+listGroupsResponse_nextToken = Lens.lens (\ListGroupsResponse' {nextToken} -> nextToken) (\s@ListGroupsResponse' {} a -> s {nextToken = a} :: ListGroupsResponse)++-- | The response's http status code.+listGroupsResponse_httpStatus :: Lens.Lens' ListGroupsResponse Prelude.Int+listGroupsResponse_httpStatus = Lens.lens (\ListGroupsResponse' {httpStatus} -> httpStatus) (\s@ListGroupsResponse' {} a -> s {httpStatus = a} :: ListGroupsResponse)++instance Prelude.NFData ListGroupsResponse where+  rnf ListGroupsResponse' {..} =+    Prelude.rnf groupIdentifiers+      `Prelude.seq` Prelude.rnf groups+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,199 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.PutGroupConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Attaches a service configuration to the specified group. This occurs+-- asynchronously, and can take time to complete. You can use+-- GetGroupConfiguration to check the status of the update.+--+-- __Minimum permissions__+--+-- To run this command, you must have the following permissions:+--+-- -   @resource-groups:PutGroupConfiguration@+module Amazonka.ResourceGroups.PutGroupConfiguration+  ( -- * Creating a Request+    PutGroupConfiguration (..),+    newPutGroupConfiguration,++    -- * Request Lenses+    putGroupConfiguration_configuration,+    putGroupConfiguration_group,++    -- * Destructuring the Response+    PutGroupConfigurationResponse (..),+    newPutGroupConfigurationResponse,++    -- * Response Lenses+    putGroupConfigurationResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import Amazonka.ResourceGroups.Types+import qualified Amazonka.Response as Response++-- | /See:/ 'newPutGroupConfiguration' smart constructor.+data PutGroupConfiguration = PutGroupConfiguration'+  { -- | The new configuration to associate with the specified group. A+    -- configuration associates the resource group with an AWS service and+    -- specifies how the service can interact with the resources in the group.+    -- A configuration is an array of GroupConfigurationItem elements.+    --+    -- For information about the syntax of a service configuration, see+    -- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html Service configurations for resource groups>.+    --+    -- A resource group can contain either a @Configuration@ or a+    -- @ResourceQuery@, but not both.+    configuration :: Prelude.Maybe [GroupConfigurationItem],+    -- | The name or ARN of the resource group with the configuration that you+    -- want to update.+    group' :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutGroupConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'configuration', 'putGroupConfiguration_configuration' - The new configuration to associate with the specified group. A+-- configuration associates the resource group with an AWS service and+-- specifies how the service can interact with the resources in the group.+-- A configuration is an array of GroupConfigurationItem elements.+--+-- For information about the syntax of a service configuration, see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html Service configurations for resource groups>.+--+-- A resource group can contain either a @Configuration@ or a+-- @ResourceQuery@, but not both.+--+-- 'group'', 'putGroupConfiguration_group' - The name or ARN of the resource group with the configuration that you+-- want to update.+newPutGroupConfiguration ::+  PutGroupConfiguration+newPutGroupConfiguration =+  PutGroupConfiguration'+    { configuration =+        Prelude.Nothing,+      group' = Prelude.Nothing+    }++-- | The new configuration to associate with the specified group. A+-- configuration associates the resource group with an AWS service and+-- specifies how the service can interact with the resources in the group.+-- A configuration is an array of GroupConfigurationItem elements.+--+-- For information about the syntax of a service configuration, see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html Service configurations for resource groups>.+--+-- A resource group can contain either a @Configuration@ or a+-- @ResourceQuery@, but not both.+putGroupConfiguration_configuration :: Lens.Lens' PutGroupConfiguration (Prelude.Maybe [GroupConfigurationItem])+putGroupConfiguration_configuration = Lens.lens (\PutGroupConfiguration' {configuration} -> configuration) (\s@PutGroupConfiguration' {} a -> s {configuration = a} :: PutGroupConfiguration) Prelude.. Lens.mapping Lens.coerced++-- | The name or ARN of the resource group with the configuration that you+-- want to update.+putGroupConfiguration_group :: Lens.Lens' PutGroupConfiguration (Prelude.Maybe Prelude.Text)+putGroupConfiguration_group = Lens.lens (\PutGroupConfiguration' {group'} -> group') (\s@PutGroupConfiguration' {} a -> s {group' = a} :: PutGroupConfiguration)++instance Core.AWSRequest PutGroupConfiguration where+  type+    AWSResponse PutGroupConfiguration =+      PutGroupConfigurationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          PutGroupConfigurationResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable PutGroupConfiguration where+  hashWithSalt _salt PutGroupConfiguration' {..} =+    _salt+      `Prelude.hashWithSalt` configuration+      `Prelude.hashWithSalt` group'++instance Prelude.NFData PutGroupConfiguration where+  rnf PutGroupConfiguration' {..} =+    Prelude.rnf configuration+      `Prelude.seq` Prelude.rnf group'++instance Data.ToHeaders PutGroupConfiguration where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON PutGroupConfiguration where+  toJSON PutGroupConfiguration' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Configuration" Data..=) Prelude.<$> configuration,+            ("Group" Data..=) Prelude.<$> group'+          ]+      )++instance Data.ToPath PutGroupConfiguration where+  toPath = Prelude.const "/put-group-configuration"++instance Data.ToQuery PutGroupConfiguration where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newPutGroupConfigurationResponse' smart constructor.+data PutGroupConfigurationResponse = PutGroupConfigurationResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PutGroupConfigurationResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'putGroupConfigurationResponse_httpStatus' - The response's http status code.+newPutGroupConfigurationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  PutGroupConfigurationResponse+newPutGroupConfigurationResponse pHttpStatus_ =+  PutGroupConfigurationResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+putGroupConfigurationResponse_httpStatus :: Lens.Lens' PutGroupConfigurationResponse Prelude.Int+putGroupConfigurationResponse_httpStatus = Lens.lens (\PutGroupConfigurationResponse' {httpStatus} -> httpStatus) (\s@PutGroupConfigurationResponse' {} a -> s {httpStatus = a} :: PutGroupConfigurationResponse)++instance Prelude.NFData PutGroupConfigurationResponse where+  rnf PutGroupConfigurationResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,319 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.SearchResources+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of AWS resource identifiers that matches the specified+-- query. The query uses the same format as a resource query in a+-- CreateGroup or UpdateGroupQuery operation.+--+-- __Minimum permissions__+--+-- To run this command, you must have the following permissions:+--+-- -   @resource-groups:SearchResources@+--+-- -   @cloudformation:DescribeStacks@+--+-- -   @cloudformation:ListStackResources@+--+-- -   @tag:GetResources@+--+-- This operation returns paginated results.+module Amazonka.ResourceGroups.SearchResources+  ( -- * Creating a Request+    SearchResources (..),+    newSearchResources,++    -- * Request Lenses+    searchResources_maxResults,+    searchResources_nextToken,+    searchResources_resourceQuery,++    -- * Destructuring the Response+    SearchResourcesResponse (..),+    newSearchResourcesResponse,++    -- * Response Lenses+    searchResourcesResponse_nextToken,+    searchResourcesResponse_queryErrors,+    searchResourcesResponse_resourceIdentifiers,+    searchResourcesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import Amazonka.ResourceGroups.Types+import qualified Amazonka.Response as Response++-- | /See:/ 'newSearchResources' smart constructor.+data SearchResources = SearchResources'+  { -- | The total number of results that you want included on each page of the+    -- response. If you do not include this parameter, it defaults to a value+    -- that is specific to the operation. If additional items exist beyond the+    -- maximum you specify, the @NextToken@ response element is present and has+    -- a value (is not null). Include that value as the @NextToken@ request+    -- parameter in the next call to the operation to get the next part of the+    -- results. Note that the service might return fewer results than the+    -- maximum even when there are more results available. You should check+    -- @NextToken@ after every operation to ensure that you receive all of the+    -- results.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The parameter for receiving additional results if you receive a+    -- @NextToken@ response in a previous request. A @NextToken@ response+    -- indicates that more output is available. Set this parameter to the value+    -- provided by a previous call\'s @NextToken@ response to indicate where+    -- the output should continue from.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The search query, using the same formats that are supported for resource+    -- group definition. For more information, see CreateGroup.+    resourceQuery :: ResourceQuery+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SearchResources' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'searchResources_maxResults' - The total number of results that you want included on each page of the+-- response. If you do not include this parameter, it defaults to a value+-- that is specific to the operation. If additional items exist beyond the+-- maximum you specify, the @NextToken@ response element is present and has+-- a value (is not null). Include that value as the @NextToken@ request+-- parameter in the next call to the operation to get the next part of the+-- results. Note that the service might return fewer results than the+-- maximum even when there are more results available. You should check+-- @NextToken@ after every operation to ensure that you receive all of the+-- results.+--+-- 'nextToken', 'searchResources_nextToken' - The parameter for receiving additional results if you receive a+-- @NextToken@ response in a previous request. A @NextToken@ response+-- indicates that more output is available. Set this parameter to the value+-- provided by a previous call\'s @NextToken@ response to indicate where+-- the output should continue from.+--+-- 'resourceQuery', 'searchResources_resourceQuery' - The search query, using the same formats that are supported for resource+-- group definition. For more information, see CreateGroup.+newSearchResources ::+  -- | 'resourceQuery'+  ResourceQuery ->+  SearchResources+newSearchResources pResourceQuery_ =+  SearchResources'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      resourceQuery = pResourceQuery_+    }++-- | The total number of results that you want included on each page of the+-- response. If you do not include this parameter, it defaults to a value+-- that is specific to the operation. If additional items exist beyond the+-- maximum you specify, the @NextToken@ response element is present and has+-- a value (is not null). Include that value as the @NextToken@ request+-- parameter in the next call to the operation to get the next part of the+-- results. Note that the service might return fewer results than the+-- maximum even when there are more results available. You should check+-- @NextToken@ after every operation to ensure that you receive all of the+-- results.+searchResources_maxResults :: Lens.Lens' SearchResources (Prelude.Maybe Prelude.Natural)+searchResources_maxResults = Lens.lens (\SearchResources' {maxResults} -> maxResults) (\s@SearchResources' {} a -> s {maxResults = a} :: SearchResources)++-- | The parameter for receiving additional results if you receive a+-- @NextToken@ response in a previous request. A @NextToken@ response+-- indicates that more output is available. Set this parameter to the value+-- provided by a previous call\'s @NextToken@ response to indicate where+-- the output should continue from.+searchResources_nextToken :: Lens.Lens' SearchResources (Prelude.Maybe Prelude.Text)+searchResources_nextToken = Lens.lens (\SearchResources' {nextToken} -> nextToken) (\s@SearchResources' {} a -> s {nextToken = a} :: SearchResources)++-- | The search query, using the same formats that are supported for resource+-- group definition. For more information, see CreateGroup.+searchResources_resourceQuery :: Lens.Lens' SearchResources ResourceQuery+searchResources_resourceQuery = Lens.lens (\SearchResources' {resourceQuery} -> resourceQuery) (\s@SearchResources' {} a -> s {resourceQuery = a} :: SearchResources)++instance Core.AWSPager SearchResources where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? searchResourcesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? searchResourcesResponse_resourceIdentifiers+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& searchResources_nextToken+          Lens..~ rs+          Lens.^? searchResourcesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest SearchResources where+  type+    AWSResponse SearchResources =+      SearchResourcesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          SearchResourcesResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "QueryErrors" Core..!@ Prelude.mempty)+            Prelude.<*> ( x+                            Data..?> "ResourceIdentifiers"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable SearchResources where+  hashWithSalt _salt SearchResources' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` resourceQuery++instance Prelude.NFData SearchResources where+  rnf SearchResources' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf resourceQuery++instance Data.ToHeaders SearchResources where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON SearchResources where+  toJSON SearchResources' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just+              ("ResourceQuery" Data..= resourceQuery)+          ]+      )++instance Data.ToPath SearchResources where+  toPath = Prelude.const "/resources/search"++instance Data.ToQuery SearchResources where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newSearchResourcesResponse' smart constructor.+data SearchResourcesResponse = SearchResourcesResponse'+  { -- | If present, indicates that more output is available than is included in+    -- the current response. Use this value in the @NextToken@ request+    -- parameter in a subsequent call to the operation to get the next part of+    -- the output. You should repeat this until the @NextToken@ response+    -- element comes back as @null@.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | A list of @QueryError@ objects. Each error is an object that contains+    -- @ErrorCode@ and @Message@ structures. Possible values for @ErrorCode@+    -- are @CLOUDFORMATION_STACK_INACTIVE@ and+    -- @CLOUDFORMATION_STACK_NOT_EXISTING@.+    queryErrors :: Prelude.Maybe [QueryError],+    -- | The ARNs and resource types of resources that are members of the group+    -- that you specified.+    resourceIdentifiers :: Prelude.Maybe [ResourceIdentifier],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SearchResourcesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'searchResourcesResponse_nextToken' - If present, indicates that more output is available than is included in+-- the current response. Use this value in the @NextToken@ request+-- parameter in a subsequent call to the operation to get the next part of+-- the output. You should repeat this until the @NextToken@ response+-- element comes back as @null@.+--+-- 'queryErrors', 'searchResourcesResponse_queryErrors' - A list of @QueryError@ objects. Each error is an object that contains+-- @ErrorCode@ and @Message@ structures. Possible values for @ErrorCode@+-- are @CLOUDFORMATION_STACK_INACTIVE@ and+-- @CLOUDFORMATION_STACK_NOT_EXISTING@.+--+-- 'resourceIdentifiers', 'searchResourcesResponse_resourceIdentifiers' - The ARNs and resource types of resources that are members of the group+-- that you specified.+--+-- 'httpStatus', 'searchResourcesResponse_httpStatus' - The response's http status code.+newSearchResourcesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  SearchResourcesResponse+newSearchResourcesResponse pHttpStatus_ =+  SearchResourcesResponse'+    { nextToken =+        Prelude.Nothing,+      queryErrors = Prelude.Nothing,+      resourceIdentifiers = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If present, indicates that more output is available than is included in+-- the current response. Use this value in the @NextToken@ request+-- parameter in a subsequent call to the operation to get the next part of+-- the output. You should repeat this until the @NextToken@ response+-- element comes back as @null@.+searchResourcesResponse_nextToken :: Lens.Lens' SearchResourcesResponse (Prelude.Maybe Prelude.Text)+searchResourcesResponse_nextToken = Lens.lens (\SearchResourcesResponse' {nextToken} -> nextToken) (\s@SearchResourcesResponse' {} a -> s {nextToken = a} :: SearchResourcesResponse)++-- | A list of @QueryError@ objects. Each error is an object that contains+-- @ErrorCode@ and @Message@ structures. Possible values for @ErrorCode@+-- are @CLOUDFORMATION_STACK_INACTIVE@ and+-- @CLOUDFORMATION_STACK_NOT_EXISTING@.+searchResourcesResponse_queryErrors :: Lens.Lens' SearchResourcesResponse (Prelude.Maybe [QueryError])+searchResourcesResponse_queryErrors = Lens.lens (\SearchResourcesResponse' {queryErrors} -> queryErrors) (\s@SearchResourcesResponse' {} a -> s {queryErrors = a} :: SearchResourcesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The ARNs and resource types of resources that are members of the group+-- that you specified.+searchResourcesResponse_resourceIdentifiers :: Lens.Lens' SearchResourcesResponse (Prelude.Maybe [ResourceIdentifier])+searchResourcesResponse_resourceIdentifiers = Lens.lens (\SearchResourcesResponse' {resourceIdentifiers} -> resourceIdentifiers) (\s@SearchResourcesResponse' {} a -> s {resourceIdentifiers = a} :: SearchResourcesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+searchResourcesResponse_httpStatus :: Lens.Lens' SearchResourcesResponse Prelude.Int+searchResourcesResponse_httpStatus = Lens.lens (\SearchResourcesResponse' {httpStatus} -> httpStatus) (\s@SearchResourcesResponse' {} a -> s {httpStatus = a} :: SearchResourcesResponse)++instance Prelude.NFData SearchResourcesResponse where+  rnf SearchResourcesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf queryErrors+      `Prelude.seq` Prelude.rnf resourceIdentifiers+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,195 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Tag+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds tags to a resource group with the specified ARN. Existing tags on a+-- resource group are not changed if they are not specified in the request+-- parameters.+--+-- Do not store personally identifiable information (PII) or other+-- confidential or sensitive information in tags. We use tags to provide+-- you with billing and administration services. Tags are not intended to+-- be used for private or sensitive data.+--+-- __Minimum permissions__+--+-- To run this command, you must have the following permissions:+--+-- -   @resource-groups:Tag@+module Amazonka.ResourceGroups.Tag+  ( -- * Creating a Request+    Tag (..),+    newTag,++    -- * Request Lenses+    tag_arn,+    tag_tags,++    -- * Destructuring the Response+    TagResponse (..),+    newTagResponse,++    -- * Response Lenses+    tagResponse_arn,+    tagResponse_tags,+    tagResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import Amazonka.ResourceGroups.Types+import qualified Amazonka.Response as Response++-- | /See:/ 'newTag' smart constructor.+data Tag = Tag'+  { -- | The ARN of the resource group to which to add tags.+    arn :: Prelude.Text,+    -- | The tags to add to the specified resource group. A tag is a+    -- string-to-string map of key-value pairs.+    tags :: Prelude.HashMap Prelude.Text Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Tag' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'tag_arn' - The ARN of the resource group to which to add tags.+--+-- 'tags', 'tag_tags' - The tags to add to the specified resource group. A tag is a+-- string-to-string map of key-value pairs.+newTag ::+  -- | 'arn'+  Prelude.Text ->+  Tag+newTag pArn_ =+  Tag' {arn = pArn_, tags = Prelude.mempty}++-- | The ARN of the resource group to which to add tags.+tag_arn :: Lens.Lens' Tag Prelude.Text+tag_arn = Lens.lens (\Tag' {arn} -> arn) (\s@Tag' {} a -> s {arn = a} :: Tag)++-- | The tags to add to the specified resource group. A tag is a+-- string-to-string map of key-value pairs.+tag_tags :: Lens.Lens' Tag (Prelude.HashMap Prelude.Text Prelude.Text)+tag_tags = Lens.lens (\Tag' {tags} -> tags) (\s@Tag' {} a -> s {tags = a} :: Tag) Prelude.. Lens.coerced++instance Core.AWSRequest Tag where+  type AWSResponse Tag = TagResponse+  request overrides =+    Request.putJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          TagResponse'+            Prelude.<$> (x Data..?> "Arn")+            Prelude.<*> (x Data..?> "Tags" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable Tag where+  hashWithSalt _salt Tag' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` tags++instance Prelude.NFData Tag where+  rnf Tag' {..} =+    Prelude.rnf arn `Prelude.seq` Prelude.rnf tags++instance Data.ToHeaders Tag where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON Tag where+  toJSON Tag' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("Tags" Data..= tags)]+      )++instance Data.ToPath Tag where+  toPath Tag' {..} =+    Prelude.mconcat+      ["/resources/", Data.toBS arn, "/tags"]++instance Data.ToQuery Tag where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newTagResponse' smart constructor.+data TagResponse = TagResponse'+  { -- | The ARN of the tagged resource.+    arn :: Prelude.Maybe Prelude.Text,+    -- | The tags that have been added to the specified resource group.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'TagResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'arn', 'tagResponse_arn' - The ARN of the tagged resource.+--+-- 'tags', 'tagResponse_tags' - The tags that have been added to the specified resource group.+--+-- 'httpStatus', 'tagResponse_httpStatus' - The response's http status code.+newTagResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  TagResponse+newTagResponse pHttpStatus_ =+  TagResponse'+    { arn = Prelude.Nothing,+      tags = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The ARN of the tagged resource.+tagResponse_arn :: Lens.Lens' TagResponse (Prelude.Maybe Prelude.Text)+tagResponse_arn = Lens.lens (\TagResponse' {arn} -> arn) (\s@TagResponse' {} a -> s {arn = a} :: TagResponse)++-- | The tags that have been added to the specified resource group.+tagResponse_tags :: Lens.Lens' TagResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+tagResponse_tags = Lens.lens (\TagResponse' {tags} -> tags) (\s@TagResponse' {} a -> s {tags = a} :: TagResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+tagResponse_httpStatus :: Lens.Lens' TagResponse Prelude.Int+tagResponse_httpStatus = Lens.lens (\TagResponse' {httpStatus} -> httpStatus) (\s@TagResponse' {} a -> s {httpStatus = a} :: TagResponse)++instance Prelude.NFData TagResponse where+  rnf TagResponse' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,296 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _BadRequestException,+    _ForbiddenException,+    _InternalServerErrorException,+    _MethodNotAllowedException,+    _NotFoundException,+    _TooManyRequestsException,+    _UnauthorizedException,++    -- * GroupConfigurationStatus+    GroupConfigurationStatus (..),++    -- * GroupFilterName+    GroupFilterName (..),++    -- * QueryErrorCode+    QueryErrorCode (..),++    -- * QueryType+    QueryType (..),++    -- * ResourceFilterName+    ResourceFilterName (..),++    -- * ResourceStatusValue+    ResourceStatusValue (..),++    -- * FailedResource+    FailedResource (..),+    newFailedResource,+    failedResource_errorCode,+    failedResource_errorMessage,+    failedResource_resourceArn,++    -- * Group+    Group (..),+    newGroup,+    group_description,+    group_groupArn,+    group_name,++    -- * GroupConfiguration+    GroupConfiguration (..),+    newGroupConfiguration,+    groupConfiguration_configuration,+    groupConfiguration_failureReason,+    groupConfiguration_proposedConfiguration,+    groupConfiguration_status,++    -- * GroupConfigurationItem+    GroupConfigurationItem (..),+    newGroupConfigurationItem,+    groupConfigurationItem_parameters,+    groupConfigurationItem_type,++    -- * GroupConfigurationParameter+    GroupConfigurationParameter (..),+    newGroupConfigurationParameter,+    groupConfigurationParameter_values,+    groupConfigurationParameter_name,++    -- * GroupFilter+    GroupFilter (..),+    newGroupFilter,+    groupFilter_name,+    groupFilter_values,++    -- * GroupIdentifier+    GroupIdentifier (..),+    newGroupIdentifier,+    groupIdentifier_groupArn,+    groupIdentifier_groupName,++    -- * GroupQuery+    GroupQuery (..),+    newGroupQuery,+    groupQuery_groupName,+    groupQuery_resourceQuery,++    -- * ListGroupResourcesItem+    ListGroupResourcesItem (..),+    newListGroupResourcesItem,+    listGroupResourcesItem_identifier,+    listGroupResourcesItem_status,++    -- * PendingResource+    PendingResource (..),+    newPendingResource,+    pendingResource_resourceArn,++    -- * QueryError+    QueryError (..),+    newQueryError,+    queryError_errorCode,+    queryError_message,++    -- * ResourceFilter+    ResourceFilter (..),+    newResourceFilter,+    resourceFilter_name,+    resourceFilter_values,++    -- * ResourceIdentifier+    ResourceIdentifier (..),+    newResourceIdentifier,+    resourceIdentifier_resourceArn,+    resourceIdentifier_resourceType,++    -- * ResourceQuery+    ResourceQuery (..),+    newResourceQuery,+    resourceQuery_type,+    resourceQuery_searchQuery,++    -- * ResourceStatus+    ResourceStatus (..),+    newResourceStatus,+    resourceStatus_name,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Prelude as Prelude+import Amazonka.ResourceGroups.Types.FailedResource+import Amazonka.ResourceGroups.Types.Group+import Amazonka.ResourceGroups.Types.GroupConfiguration+import Amazonka.ResourceGroups.Types.GroupConfigurationItem+import Amazonka.ResourceGroups.Types.GroupConfigurationParameter+import Amazonka.ResourceGroups.Types.GroupConfigurationStatus+import Amazonka.ResourceGroups.Types.GroupFilter+import Amazonka.ResourceGroups.Types.GroupFilterName+import Amazonka.ResourceGroups.Types.GroupIdentifier+import Amazonka.ResourceGroups.Types.GroupQuery+import Amazonka.ResourceGroups.Types.ListGroupResourcesItem+import Amazonka.ResourceGroups.Types.PendingResource+import Amazonka.ResourceGroups.Types.QueryError+import Amazonka.ResourceGroups.Types.QueryErrorCode+import Amazonka.ResourceGroups.Types.QueryType+import Amazonka.ResourceGroups.Types.ResourceFilter+import Amazonka.ResourceGroups.Types.ResourceFilterName+import Amazonka.ResourceGroups.Types.ResourceIdentifier+import Amazonka.ResourceGroups.Types.ResourceQuery+import Amazonka.ResourceGroups.Types.ResourceStatus+import Amazonka.ResourceGroups.Types.ResourceStatusValue+import qualified Amazonka.Sign.V4 as Sign++-- | API version @2017-11-27@ of the Amazon Resource Groups SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "ResourceGroups",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "resource-groups",+      Core.signingName = "resource-groups",+      Core.version = "2017-11-27",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error = Core.parseJSONError "ResourceGroups",+      Core.retry = retry+    }+  where+    retry =+      Core.Exponential+        { Core.base = 5.0e-2,+          Core.growth = 2,+          Core.attempts = 5,+          Core.check = check+        }+    check e+      | Lens.has (Core.hasStatus 502) e =+          Prelude.Just "bad_gateway"+      | Lens.has (Core.hasStatus 504) e =+          Prelude.Just "gateway_timeout"+      | Lens.has (Core.hasStatus 500) e =+          Prelude.Just "general_server_error"+      | Lens.has (Core.hasStatus 509) e =+          Prelude.Just "limit_exceeded"+      | Lens.has+          ( Core.hasCode "RequestThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "request_throttled_exception"+      | Lens.has (Core.hasStatus 503) e =+          Prelude.Just "service_unavailable"+      | Lens.has+          ( Core.hasCode "ThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttled_exception"+      | Lens.has+          ( Core.hasCode "Throttling"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling"+      | Lens.has+          ( Core.hasCode "ThrottlingException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling_exception"+      | Lens.has+          ( Core.hasCode+              "ProvisionedThroughputExceededException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throughput_exceeded"+      | Lens.has (Core.hasStatus 429) e =+          Prelude.Just "too_many_requests"+      | Prelude.otherwise = Prelude.Nothing++-- | The request includes one or more parameters that violate validation+-- rules.+_BadRequestException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_BadRequestException =+  Core._MatchServiceError+    defaultService+    "BadRequestException"+    Prelude.. Core.hasStatus 400++-- | The caller isn\'t authorized to make the request. Check permissions.+_ForbiddenException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ForbiddenException =+  Core._MatchServiceError+    defaultService+    "ForbiddenException"+    Prelude.. Core.hasStatus 403++-- | An internal error occurred while processing the request. Try again+-- later.+_InternalServerErrorException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InternalServerErrorException =+  Core._MatchServiceError+    defaultService+    "InternalServerErrorException"+    Prelude.. Core.hasStatus 500++-- | The request uses an HTTP method that isn\'t allowed for the specified+-- resource.+_MethodNotAllowedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_MethodNotAllowedException =+  Core._MatchServiceError+    defaultService+    "MethodNotAllowedException"+    Prelude.. Core.hasStatus 405++-- | One or more of the specified resources don\'t exist.+_NotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_NotFoundException =+  Core._MatchServiceError+    defaultService+    "NotFoundException"+    Prelude.. Core.hasStatus 404++-- | You\'ve exceeded throttling limits by making too many requests in a+-- period of time.+_TooManyRequestsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_TooManyRequestsException =+  Core._MatchServiceError+    defaultService+    "TooManyRequestsException"+    Prelude.. Core.hasStatus 429++-- | The request was rejected because it doesn\'t have valid credentials for+-- the target resource.+_UnauthorizedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_UnauthorizedException =+  Core._MatchServiceError+    defaultService+    "UnauthorizedException"+    Prelude.. Core.hasStatus 401

@@ -0,0 +1,96 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types.FailedResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types.FailedResource where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | A resource that failed to be added to or removed from a group.+--+-- /See:/ 'newFailedResource' smart constructor.+data FailedResource = FailedResource'+  { -- | The error code associated with the failure.+    errorCode :: Prelude.Maybe Prelude.Text,+    -- | The error message text associated with the failure.+    errorMessage :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the resource that failed to be added or removed.+    resourceArn :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'FailedResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'errorCode', 'failedResource_errorCode' - The error code associated with the failure.+--+-- 'errorMessage', 'failedResource_errorMessage' - The error message text associated with the failure.+--+-- 'resourceArn', 'failedResource_resourceArn' - The ARN of the resource that failed to be added or removed.+newFailedResource ::+  FailedResource+newFailedResource =+  FailedResource'+    { errorCode = Prelude.Nothing,+      errorMessage = Prelude.Nothing,+      resourceArn = Prelude.Nothing+    }++-- | The error code associated with the failure.+failedResource_errorCode :: Lens.Lens' FailedResource (Prelude.Maybe Prelude.Text)+failedResource_errorCode = Lens.lens (\FailedResource' {errorCode} -> errorCode) (\s@FailedResource' {} a -> s {errorCode = a} :: FailedResource)++-- | The error message text associated with the failure.+failedResource_errorMessage :: Lens.Lens' FailedResource (Prelude.Maybe Prelude.Text)+failedResource_errorMessage = Lens.lens (\FailedResource' {errorMessage} -> errorMessage) (\s@FailedResource' {} a -> s {errorMessage = a} :: FailedResource)++-- | The ARN of the resource that failed to be added or removed.+failedResource_resourceArn :: Lens.Lens' FailedResource (Prelude.Maybe Prelude.Text)+failedResource_resourceArn = Lens.lens (\FailedResource' {resourceArn} -> resourceArn) (\s@FailedResource' {} a -> s {resourceArn = a} :: FailedResource)++instance Data.FromJSON FailedResource where+  parseJSON =+    Data.withObject+      "FailedResource"+      ( \x ->+          FailedResource'+            Prelude.<$> (x Data..:? "ErrorCode")+            Prelude.<*> (x Data..:? "ErrorMessage")+            Prelude.<*> (x Data..:? "ResourceArn")+      )++instance Prelude.Hashable FailedResource where+  hashWithSalt _salt FailedResource' {..} =+    _salt+      `Prelude.hashWithSalt` errorCode+      `Prelude.hashWithSalt` errorMessage+      `Prelude.hashWithSalt` resourceArn++instance Prelude.NFData FailedResource where+  rnf FailedResource' {..} =+    Prelude.rnf errorCode+      `Prelude.seq` Prelude.rnf errorMessage+      `Prelude.seq` Prelude.rnf resourceArn

@@ -0,0 +1,112 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types.Group+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types.Group where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | A resource group that contains AWS resources. You can assign resources+-- to the group by associating either of the following elements with the+-- group:+--+-- -   ResourceQuery - Use a resource query to specify a set of tag keys+--     and values. All resources in the same AWS Region and AWS account+--     that have those keys with the same values are included in the group.+--     You can add a resource query when you create the group, or later by+--     using the PutGroupConfiguration operation.+--+-- -   GroupConfiguration - Use a service configuration to associate the+--     group with an AWS service. The configuration specifies which+--     resource types can be included in the group.+--+-- /See:/ 'newGroup' smart constructor.+data Group = Group'+  { -- | The description of the resource group.+    description :: Prelude.Maybe Prelude.Text,+    -- | The ARN of the resource group.+    groupArn :: Prelude.Text,+    -- | The name of the resource group.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Group' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'group_description' - The description of the resource group.+--+-- 'groupArn', 'group_groupArn' - The ARN of the resource group.+--+-- 'name', 'group_name' - The name of the resource group.+newGroup ::+  -- | 'groupArn'+  Prelude.Text ->+  -- | 'name'+  Prelude.Text ->+  Group+newGroup pGroupArn_ pName_ =+  Group'+    { description = Prelude.Nothing,+      groupArn = pGroupArn_,+      name = pName_+    }++-- | The description of the resource group.+group_description :: Lens.Lens' Group (Prelude.Maybe Prelude.Text)+group_description = Lens.lens (\Group' {description} -> description) (\s@Group' {} a -> s {description = a} :: Group)++-- | The ARN of the resource group.+group_groupArn :: Lens.Lens' Group Prelude.Text+group_groupArn = Lens.lens (\Group' {groupArn} -> groupArn) (\s@Group' {} a -> s {groupArn = a} :: Group)++-- | The name of the resource group.+group_name :: Lens.Lens' Group Prelude.Text+group_name = Lens.lens (\Group' {name} -> name) (\s@Group' {} a -> s {name = a} :: Group)++instance Data.FromJSON Group where+  parseJSON =+    Data.withObject+      "Group"+      ( \x ->+          Group'+            Prelude.<$> (x Data..:? "Description")+            Prelude.<*> (x Data..: "GroupArn")+            Prelude.<*> (x Data..: "Name")+      )++instance Prelude.Hashable Group where+  hashWithSalt _salt Group' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` groupArn+      `Prelude.hashWithSalt` name++instance Prelude.NFData Group where+  rnf Group' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf groupArn+      `Prelude.seq` Prelude.rnf name

@@ -0,0 +1,126 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types.GroupConfiguration+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types.GroupConfiguration where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.ResourceGroups.Types.GroupConfigurationItem+import Amazonka.ResourceGroups.Types.GroupConfigurationStatus++-- | A service configuration associated with a resource group. The+-- configuration options are determined by the AWS service that defines the+-- @Type@, and specifies which resources can be included in the group. You+-- can add a service configuration when you create the group by using+-- CreateGroup, or later by using the PutGroupConfiguration operation. For+-- details about group service configuration syntax, see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html Service configurations for resource groups>.+--+-- /See:/ 'newGroupConfiguration' smart constructor.+data GroupConfiguration = GroupConfiguration'+  { -- | The configuration currently associated with the group and in effect.+    configuration :: Prelude.Maybe [GroupConfigurationItem],+    -- | If present, the reason why a request to update the group configuration+    -- failed.+    failureReason :: Prelude.Maybe Prelude.Text,+    -- | If present, the new configuration that is in the process of being+    -- applied to the group.+    proposedConfiguration :: Prelude.Maybe [GroupConfigurationItem],+    -- | The current status of an attempt to update the group configuration.+    status :: Prelude.Maybe GroupConfigurationStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GroupConfiguration' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'configuration', 'groupConfiguration_configuration' - The configuration currently associated with the group and in effect.+--+-- 'failureReason', 'groupConfiguration_failureReason' - If present, the reason why a request to update the group configuration+-- failed.+--+-- 'proposedConfiguration', 'groupConfiguration_proposedConfiguration' - If present, the new configuration that is in the process of being+-- applied to the group.+--+-- 'status', 'groupConfiguration_status' - The current status of an attempt to update the group configuration.+newGroupConfiguration ::+  GroupConfiguration+newGroupConfiguration =+  GroupConfiguration'+    { configuration =+        Prelude.Nothing,+      failureReason = Prelude.Nothing,+      proposedConfiguration = Prelude.Nothing,+      status = Prelude.Nothing+    }++-- | The configuration currently associated with the group and in effect.+groupConfiguration_configuration :: Lens.Lens' GroupConfiguration (Prelude.Maybe [GroupConfigurationItem])+groupConfiguration_configuration = Lens.lens (\GroupConfiguration' {configuration} -> configuration) (\s@GroupConfiguration' {} a -> s {configuration = a} :: GroupConfiguration) Prelude.. Lens.mapping Lens.coerced++-- | If present, the reason why a request to update the group configuration+-- failed.+groupConfiguration_failureReason :: Lens.Lens' GroupConfiguration (Prelude.Maybe Prelude.Text)+groupConfiguration_failureReason = Lens.lens (\GroupConfiguration' {failureReason} -> failureReason) (\s@GroupConfiguration' {} a -> s {failureReason = a} :: GroupConfiguration)++-- | If present, the new configuration that is in the process of being+-- applied to the group.+groupConfiguration_proposedConfiguration :: Lens.Lens' GroupConfiguration (Prelude.Maybe [GroupConfigurationItem])+groupConfiguration_proposedConfiguration = Lens.lens (\GroupConfiguration' {proposedConfiguration} -> proposedConfiguration) (\s@GroupConfiguration' {} a -> s {proposedConfiguration = a} :: GroupConfiguration) Prelude.. Lens.mapping Lens.coerced++-- | The current status of an attempt to update the group configuration.+groupConfiguration_status :: Lens.Lens' GroupConfiguration (Prelude.Maybe GroupConfigurationStatus)+groupConfiguration_status = Lens.lens (\GroupConfiguration' {status} -> status) (\s@GroupConfiguration' {} a -> s {status = a} :: GroupConfiguration)++instance Data.FromJSON GroupConfiguration where+  parseJSON =+    Data.withObject+      "GroupConfiguration"+      ( \x ->+          GroupConfiguration'+            Prelude.<$> (x Data..:? "Configuration" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "FailureReason")+            Prelude.<*> ( x+                            Data..:? "ProposedConfiguration"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "Status")+      )++instance Prelude.Hashable GroupConfiguration where+  hashWithSalt _salt GroupConfiguration' {..} =+    _salt+      `Prelude.hashWithSalt` configuration+      `Prelude.hashWithSalt` failureReason+      `Prelude.hashWithSalt` proposedConfiguration+      `Prelude.hashWithSalt` status++instance Prelude.NFData GroupConfiguration where+  rnf GroupConfiguration' {..} =+    Prelude.rnf configuration+      `Prelude.seq` Prelude.rnf failureReason+      `Prelude.seq` Prelude.rnf proposedConfiguration+      `Prelude.seq` Prelude.rnf status

@@ -0,0 +1,118 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types.GroupConfigurationItem+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types.GroupConfigurationItem where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.ResourceGroups.Types.GroupConfigurationParameter++-- | An item in a group configuration. A group service configuration can have+-- one or more items. For details about group service configuration syntax,+-- see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html Service configurations for resource groups>.+--+-- /See:/ 'newGroupConfigurationItem' smart constructor.+data GroupConfigurationItem = GroupConfigurationItem'+  { -- | A collection of parameters for this group configuration item. For the+    -- list of parameters that you can use with each configuration item type,+    -- see+    -- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html#about-slg-types Supported resource types and parameters>.+    parameters :: Prelude.Maybe [GroupConfigurationParameter],+    -- | Specifies the type of group configuration item. Each item must have a+    -- unique value for @type@. For the list of types that you can specify for+    -- a configuration item, see+    -- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html#about-slg-types Supported resource types and parameters>.+    type' :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GroupConfigurationItem' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'parameters', 'groupConfigurationItem_parameters' - A collection of parameters for this group configuration item. For the+-- list of parameters that you can use with each configuration item type,+-- see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html#about-slg-types Supported resource types and parameters>.+--+-- 'type'', 'groupConfigurationItem_type' - Specifies the type of group configuration item. Each item must have a+-- unique value for @type@. For the list of types that you can specify for+-- a configuration item, see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html#about-slg-types Supported resource types and parameters>.+newGroupConfigurationItem ::+  -- | 'type''+  Prelude.Text ->+  GroupConfigurationItem+newGroupConfigurationItem pType_ =+  GroupConfigurationItem'+    { parameters =+        Prelude.Nothing,+      type' = pType_+    }++-- | A collection of parameters for this group configuration item. For the+-- list of parameters that you can use with each configuration item type,+-- see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html#about-slg-types Supported resource types and parameters>.+groupConfigurationItem_parameters :: Lens.Lens' GroupConfigurationItem (Prelude.Maybe [GroupConfigurationParameter])+groupConfigurationItem_parameters = Lens.lens (\GroupConfigurationItem' {parameters} -> parameters) (\s@GroupConfigurationItem' {} a -> s {parameters = a} :: GroupConfigurationItem) Prelude.. Lens.mapping Lens.coerced++-- | Specifies the type of group configuration item. Each item must have a+-- unique value for @type@. For the list of types that you can specify for+-- a configuration item, see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html#about-slg-types Supported resource types and parameters>.+groupConfigurationItem_type :: Lens.Lens' GroupConfigurationItem Prelude.Text+groupConfigurationItem_type = Lens.lens (\GroupConfigurationItem' {type'} -> type') (\s@GroupConfigurationItem' {} a -> s {type' = a} :: GroupConfigurationItem)++instance Data.FromJSON GroupConfigurationItem where+  parseJSON =+    Data.withObject+      "GroupConfigurationItem"+      ( \x ->+          GroupConfigurationItem'+            Prelude.<$> (x Data..:? "Parameters" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..: "Type")+      )++instance Prelude.Hashable GroupConfigurationItem where+  hashWithSalt _salt GroupConfigurationItem' {..} =+    _salt+      `Prelude.hashWithSalt` parameters+      `Prelude.hashWithSalt` type'++instance Prelude.NFData GroupConfigurationItem where+  rnf GroupConfigurationItem' {..} =+    Prelude.rnf parameters+      `Prelude.seq` Prelude.rnf type'++instance Data.ToJSON GroupConfigurationItem where+  toJSON GroupConfigurationItem' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Parameters" Data..=) Prelude.<$> parameters,+            Prelude.Just ("Type" Data..= type')+          ]+      )

@@ -0,0 +1,109 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types.GroupConfigurationParameter+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types.GroupConfigurationParameter where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | A parameter for a group configuration item. For details about group+-- service configuration syntax, see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html Service configurations for resource groups>.+--+-- /See:/ 'newGroupConfigurationParameter' smart constructor.+data GroupConfigurationParameter = GroupConfigurationParameter'+  { -- | The value or values to be used for the specified parameter. For the list+    -- of values you can use with each parameter, see+    -- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html#about-slg-types Supported resource types and parameters>.+    values :: Prelude.Maybe [Prelude.Text],+    -- | The name of the group configuration parameter. For the list of+    -- parameters that you can use with each configuration item type, see+    -- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html#about-slg-types Supported resource types and parameters>.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GroupConfigurationParameter' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'values', 'groupConfigurationParameter_values' - The value or values to be used for the specified parameter. For the list+-- of values you can use with each parameter, see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html#about-slg-types Supported resource types and parameters>.+--+-- 'name', 'groupConfigurationParameter_name' - The name of the group configuration parameter. For the list of+-- parameters that you can use with each configuration item type, see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html#about-slg-types Supported resource types and parameters>.+newGroupConfigurationParameter ::+  -- | 'name'+  Prelude.Text ->+  GroupConfigurationParameter+newGroupConfigurationParameter pName_ =+  GroupConfigurationParameter'+    { values =+        Prelude.Nothing,+      name = pName_+    }++-- | The value or values to be used for the specified parameter. For the list+-- of values you can use with each parameter, see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html#about-slg-types Supported resource types and parameters>.+groupConfigurationParameter_values :: Lens.Lens' GroupConfigurationParameter (Prelude.Maybe [Prelude.Text])+groupConfigurationParameter_values = Lens.lens (\GroupConfigurationParameter' {values} -> values) (\s@GroupConfigurationParameter' {} a -> s {values = a} :: GroupConfigurationParameter) Prelude.. Lens.mapping Lens.coerced++-- | The name of the group configuration parameter. For the list of+-- parameters that you can use with each configuration item type, see+-- <https://docs.aws.amazon.com/ARG/latest/APIReference/about-slg.html#about-slg-types Supported resource types and parameters>.+groupConfigurationParameter_name :: Lens.Lens' GroupConfigurationParameter Prelude.Text+groupConfigurationParameter_name = Lens.lens (\GroupConfigurationParameter' {name} -> name) (\s@GroupConfigurationParameter' {} a -> s {name = a} :: GroupConfigurationParameter)++instance Data.FromJSON GroupConfigurationParameter where+  parseJSON =+    Data.withObject+      "GroupConfigurationParameter"+      ( \x ->+          GroupConfigurationParameter'+            Prelude.<$> (x Data..:? "Values" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..: "Name")+      )++instance Prelude.Hashable GroupConfigurationParameter where+  hashWithSalt _salt GroupConfigurationParameter' {..} =+    _salt+      `Prelude.hashWithSalt` values+      `Prelude.hashWithSalt` name++instance Prelude.NFData GroupConfigurationParameter where+  rnf GroupConfigurationParameter' {..} =+    Prelude.rnf values `Prelude.seq` Prelude.rnf name++instance Data.ToJSON GroupConfigurationParameter where+  toJSON GroupConfigurationParameter' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Values" Data..=) Prelude.<$> values,+            Prelude.Just ("Name" Data..= name)+          ]+      )

@@ -0,0 +1,76 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types.GroupConfigurationStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types.GroupConfigurationStatus+  ( GroupConfigurationStatus+      ( ..,+        GroupConfigurationStatus_UPDATE_COMPLETE,+        GroupConfigurationStatus_UPDATE_FAILED,+        GroupConfigurationStatus_UPDATING+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype GroupConfigurationStatus = GroupConfigurationStatus'+  { fromGroupConfigurationStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern GroupConfigurationStatus_UPDATE_COMPLETE :: GroupConfigurationStatus+pattern GroupConfigurationStatus_UPDATE_COMPLETE = GroupConfigurationStatus' "UPDATE_COMPLETE"++pattern GroupConfigurationStatus_UPDATE_FAILED :: GroupConfigurationStatus+pattern GroupConfigurationStatus_UPDATE_FAILED = GroupConfigurationStatus' "UPDATE_FAILED"++pattern GroupConfigurationStatus_UPDATING :: GroupConfigurationStatus+pattern GroupConfigurationStatus_UPDATING = GroupConfigurationStatus' "UPDATING"++{-# COMPLETE+  GroupConfigurationStatus_UPDATE_COMPLETE,+  GroupConfigurationStatus_UPDATE_FAILED,+  GroupConfigurationStatus_UPDATING,+  GroupConfigurationStatus'+  #-}

@@ -0,0 +1,91 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types.GroupFilter+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types.GroupFilter where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.ResourceGroups.Types.GroupFilterName++-- | A filter collection that you can use to restrict the results from a+-- @List@ operation to only those you want to include.+--+-- /See:/ 'newGroupFilter' smart constructor.+data GroupFilter = GroupFilter'+  { -- | The name of the filter. Filter names are case-sensitive.+    name :: GroupFilterName,+    -- | One or more filter values. Allowed filter values vary by group filter+    -- name, and are case-sensitive.+    values :: Prelude.NonEmpty Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GroupFilter' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'groupFilter_name' - The name of the filter. Filter names are case-sensitive.+--+-- 'values', 'groupFilter_values' - One or more filter values. Allowed filter values vary by group filter+-- name, and are case-sensitive.+newGroupFilter ::+  -- | 'name'+  GroupFilterName ->+  -- | 'values'+  Prelude.NonEmpty Prelude.Text ->+  GroupFilter+newGroupFilter pName_ pValues_ =+  GroupFilter'+    { name = pName_,+      values = Lens.coerced Lens.# pValues_+    }++-- | The name of the filter. Filter names are case-sensitive.+groupFilter_name :: Lens.Lens' GroupFilter GroupFilterName+groupFilter_name = Lens.lens (\GroupFilter' {name} -> name) (\s@GroupFilter' {} a -> s {name = a} :: GroupFilter)++-- | One or more filter values. Allowed filter values vary by group filter+-- name, and are case-sensitive.+groupFilter_values :: Lens.Lens' GroupFilter (Prelude.NonEmpty Prelude.Text)+groupFilter_values = Lens.lens (\GroupFilter' {values} -> values) (\s@GroupFilter' {} a -> s {values = a} :: GroupFilter) Prelude.. Lens.coerced++instance Prelude.Hashable GroupFilter where+  hashWithSalt _salt GroupFilter' {..} =+    _salt+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` values++instance Prelude.NFData GroupFilter where+  rnf GroupFilter' {..} =+    Prelude.rnf name `Prelude.seq` Prelude.rnf values++instance Data.ToJSON GroupFilter where+  toJSON GroupFilter' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("Name" Data..= name),+            Prelude.Just ("Values" Data..= values)+          ]+      )

@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types.GroupFilterName+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types.GroupFilterName+  ( GroupFilterName+      ( ..,+        GroupFilterName_Configuration_type,+        GroupFilterName_Resource_type+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype GroupFilterName = GroupFilterName'+  { fromGroupFilterName ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern GroupFilterName_Configuration_type :: GroupFilterName+pattern GroupFilterName_Configuration_type = GroupFilterName' "configuration-type"++pattern GroupFilterName_Resource_type :: GroupFilterName+pattern GroupFilterName_Resource_type = GroupFilterName' "resource-type"++{-# COMPLETE+  GroupFilterName_Configuration_type,+  GroupFilterName_Resource_type,+  GroupFilterName'+  #-}

@@ -0,0 +1,84 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types.GroupIdentifier+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types.GroupIdentifier where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | The unique identifiers for a resource group.+--+-- /See:/ 'newGroupIdentifier' smart constructor.+data GroupIdentifier = GroupIdentifier'+  { -- | The ARN of the resource group.+    groupArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the resource group.+    groupName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GroupIdentifier' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'groupArn', 'groupIdentifier_groupArn' - The ARN of the resource group.+--+-- 'groupName', 'groupIdentifier_groupName' - The name of the resource group.+newGroupIdentifier ::+  GroupIdentifier+newGroupIdentifier =+  GroupIdentifier'+    { groupArn = Prelude.Nothing,+      groupName = Prelude.Nothing+    }++-- | The ARN of the resource group.+groupIdentifier_groupArn :: Lens.Lens' GroupIdentifier (Prelude.Maybe Prelude.Text)+groupIdentifier_groupArn = Lens.lens (\GroupIdentifier' {groupArn} -> groupArn) (\s@GroupIdentifier' {} a -> s {groupArn = a} :: GroupIdentifier)++-- | The name of the resource group.+groupIdentifier_groupName :: Lens.Lens' GroupIdentifier (Prelude.Maybe Prelude.Text)+groupIdentifier_groupName = Lens.lens (\GroupIdentifier' {groupName} -> groupName) (\s@GroupIdentifier' {} a -> s {groupName = a} :: GroupIdentifier)++instance Data.FromJSON GroupIdentifier where+  parseJSON =+    Data.withObject+      "GroupIdentifier"+      ( \x ->+          GroupIdentifier'+            Prelude.<$> (x Data..:? "GroupArn")+            Prelude.<*> (x Data..:? "GroupName")+      )++instance Prelude.Hashable GroupIdentifier where+  hashWithSalt _salt GroupIdentifier' {..} =+    _salt+      `Prelude.hashWithSalt` groupArn+      `Prelude.hashWithSalt` groupName++instance Prelude.NFData GroupIdentifier where+  rnf GroupIdentifier' {..} =+    Prelude.rnf groupArn+      `Prelude.seq` Prelude.rnf groupName

@@ -0,0 +1,96 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types.GroupQuery+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types.GroupQuery where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.ResourceGroups.Types.ResourceQuery++-- | A mapping of a query attached to a resource group that determines the+-- AWS resources that are members of the group.+--+-- /See:/ 'newGroupQuery' smart constructor.+data GroupQuery = GroupQuery'+  { -- | The name of the resource group that is associated with the specified+    -- resource query.+    groupName :: Prelude.Text,+    -- | The resource query that determines which AWS resources are members of+    -- the associated resource group.+    resourceQuery :: ResourceQuery+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GroupQuery' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'groupName', 'groupQuery_groupName' - The name of the resource group that is associated with the specified+-- resource query.+--+-- 'resourceQuery', 'groupQuery_resourceQuery' - The resource query that determines which AWS resources are members of+-- the associated resource group.+newGroupQuery ::+  -- | 'groupName'+  Prelude.Text ->+  -- | 'resourceQuery'+  ResourceQuery ->+  GroupQuery+newGroupQuery pGroupName_ pResourceQuery_ =+  GroupQuery'+    { groupName = pGroupName_,+      resourceQuery = pResourceQuery_+    }++-- | The name of the resource group that is associated with the specified+-- resource query.+groupQuery_groupName :: Lens.Lens' GroupQuery Prelude.Text+groupQuery_groupName = Lens.lens (\GroupQuery' {groupName} -> groupName) (\s@GroupQuery' {} a -> s {groupName = a} :: GroupQuery)++-- | The resource query that determines which AWS resources are members of+-- the associated resource group.+groupQuery_resourceQuery :: Lens.Lens' GroupQuery ResourceQuery+groupQuery_resourceQuery = Lens.lens (\GroupQuery' {resourceQuery} -> resourceQuery) (\s@GroupQuery' {} a -> s {resourceQuery = a} :: GroupQuery)++instance Data.FromJSON GroupQuery where+  parseJSON =+    Data.withObject+      "GroupQuery"+      ( \x ->+          GroupQuery'+            Prelude.<$> (x Data..: "GroupName")+            Prelude.<*> (x Data..: "ResourceQuery")+      )++instance Prelude.Hashable GroupQuery where+  hashWithSalt _salt GroupQuery' {..} =+    _salt+      `Prelude.hashWithSalt` groupName+      `Prelude.hashWithSalt` resourceQuery++instance Prelude.NFData GroupQuery where+  rnf GroupQuery' {..} =+    Prelude.rnf groupName+      `Prelude.seq` Prelude.rnf resourceQuery

@@ -0,0 +1,100 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types.ListGroupResourcesItem+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types.ListGroupResourcesItem where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.ResourceGroups.Types.ResourceIdentifier+import Amazonka.ResourceGroups.Types.ResourceStatus++-- | A structure returned by the ListGroupResources operation that contains+-- identity and group membership status information for one of the+-- resources in the group.+--+-- /See:/ 'newListGroupResourcesItem' smart constructor.+data ListGroupResourcesItem = ListGroupResourcesItem'+  { identifier :: Prelude.Maybe ResourceIdentifier,+    -- | A structure that contains the status of this resource\'s membership in+    -- the group.+    --+    -- This field is present in the response only if the group is of type+    -- @AWS::EC2::HostManagement@.+    status :: Prelude.Maybe ResourceStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListGroupResourcesItem' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'identifier', 'listGroupResourcesItem_identifier' - Undocumented member.+--+-- 'status', 'listGroupResourcesItem_status' - A structure that contains the status of this resource\'s membership in+-- the group.+--+-- This field is present in the response only if the group is of type+-- @AWS::EC2::HostManagement@.+newListGroupResourcesItem ::+  ListGroupResourcesItem+newListGroupResourcesItem =+  ListGroupResourcesItem'+    { identifier =+        Prelude.Nothing,+      status = Prelude.Nothing+    }++-- | Undocumented member.+listGroupResourcesItem_identifier :: Lens.Lens' ListGroupResourcesItem (Prelude.Maybe ResourceIdentifier)+listGroupResourcesItem_identifier = Lens.lens (\ListGroupResourcesItem' {identifier} -> identifier) (\s@ListGroupResourcesItem' {} a -> s {identifier = a} :: ListGroupResourcesItem)++-- | A structure that contains the status of this resource\'s membership in+-- the group.+--+-- This field is present in the response only if the group is of type+-- @AWS::EC2::HostManagement@.+listGroupResourcesItem_status :: Lens.Lens' ListGroupResourcesItem (Prelude.Maybe ResourceStatus)+listGroupResourcesItem_status = Lens.lens (\ListGroupResourcesItem' {status} -> status) (\s@ListGroupResourcesItem' {} a -> s {status = a} :: ListGroupResourcesItem)++instance Data.FromJSON ListGroupResourcesItem where+  parseJSON =+    Data.withObject+      "ListGroupResourcesItem"+      ( \x ->+          ListGroupResourcesItem'+            Prelude.<$> (x Data..:? "Identifier")+            Prelude.<*> (x Data..:? "Status")+      )++instance Prelude.Hashable ListGroupResourcesItem where+  hashWithSalt _salt ListGroupResourcesItem' {..} =+    _salt+      `Prelude.hashWithSalt` identifier+      `Prelude.hashWithSalt` status++instance Prelude.NFData ListGroupResourcesItem where+  rnf ListGroupResourcesItem' {..} =+    Prelude.rnf identifier+      `Prelude.seq` Prelude.rnf status

@@ -0,0 +1,74 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types.PendingResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types.PendingResource where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | A structure that identifies a resource that is currently pending+-- addition to the group as a member. Adding a resource to a resource group+-- happens asynchronously as a background task and this one isn\'t+-- completed yet.+--+-- /See:/ 'newPendingResource' smart constructor.+data PendingResource = PendingResource'+  { -- | The Amazon resource name (ARN) of the resource that\'s in a pending+    -- state.+    resourceArn :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'PendingResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceArn', 'pendingResource_resourceArn' - The Amazon resource name (ARN) of the resource that\'s in a pending+-- state.+newPendingResource ::+  PendingResource+newPendingResource =+  PendingResource' {resourceArn = Prelude.Nothing}++-- | The Amazon resource name (ARN) of the resource that\'s in a pending+-- state.+pendingResource_resourceArn :: Lens.Lens' PendingResource (Prelude.Maybe Prelude.Text)+pendingResource_resourceArn = Lens.lens (\PendingResource' {resourceArn} -> resourceArn) (\s@PendingResource' {} a -> s {resourceArn = a} :: PendingResource)++instance Data.FromJSON PendingResource where+  parseJSON =+    Data.withObject+      "PendingResource"+      ( \x ->+          PendingResource'+            Prelude.<$> (x Data..:? "ResourceArn")+      )++instance Prelude.Hashable PendingResource where+  hashWithSalt _salt PendingResource' {..} =+    _salt `Prelude.hashWithSalt` resourceArn++instance Prelude.NFData PendingResource where+  rnf PendingResource' {..} = Prelude.rnf resourceArn

@@ -0,0 +1,106 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types.QueryError+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types.QueryError where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.ResourceGroups.Types.QueryErrorCode++-- | A two-part error structure that can occur in @ListGroupResources@ or+-- @SearchResources@ operations on CloudFormation stack-based queries. The+-- error occurs if the CloudFormation stack on which the query is based+-- either does not exist, or has a status that renders the stack inactive.+-- A @QueryError@ occurrence does not necessarily mean that AWS Resource+-- Groups could not complete the operation, but the resulting group might+-- have no member resources.+--+-- /See:/ 'newQueryError' smart constructor.+data QueryError = QueryError'+  { -- | Possible values are @CLOUDFORMATION_STACK_INACTIVE@ and+    -- @CLOUDFORMATION_STACK_NOT_EXISTING@.+    errorCode :: Prelude.Maybe QueryErrorCode,+    -- | A message that explains the @ErrorCode@ value. Messages might state that+    -- the specified CloudFormation stack does not exist (or no longer exists).+    -- For @CLOUDFORMATION_STACK_INACTIVE@, the message typically states that+    -- the CloudFormation stack has a status that is not (or no longer) active,+    -- such as @CREATE_FAILED@.+    message :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'QueryError' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'errorCode', 'queryError_errorCode' - Possible values are @CLOUDFORMATION_STACK_INACTIVE@ and+-- @CLOUDFORMATION_STACK_NOT_EXISTING@.+--+-- 'message', 'queryError_message' - A message that explains the @ErrorCode@ value. Messages might state that+-- the specified CloudFormation stack does not exist (or no longer exists).+-- For @CLOUDFORMATION_STACK_INACTIVE@, the message typically states that+-- the CloudFormation stack has a status that is not (or no longer) active,+-- such as @CREATE_FAILED@.+newQueryError ::+  QueryError+newQueryError =+  QueryError'+    { errorCode = Prelude.Nothing,+      message = Prelude.Nothing+    }++-- | Possible values are @CLOUDFORMATION_STACK_INACTIVE@ and+-- @CLOUDFORMATION_STACK_NOT_EXISTING@.+queryError_errorCode :: Lens.Lens' QueryError (Prelude.Maybe QueryErrorCode)+queryError_errorCode = Lens.lens (\QueryError' {errorCode} -> errorCode) (\s@QueryError' {} a -> s {errorCode = a} :: QueryError)++-- | A message that explains the @ErrorCode@ value. Messages might state that+-- the specified CloudFormation stack does not exist (or no longer exists).+-- For @CLOUDFORMATION_STACK_INACTIVE@, the message typically states that+-- the CloudFormation stack has a status that is not (or no longer) active,+-- such as @CREATE_FAILED@.+queryError_message :: Lens.Lens' QueryError (Prelude.Maybe Prelude.Text)+queryError_message = Lens.lens (\QueryError' {message} -> message) (\s@QueryError' {} a -> s {message = a} :: QueryError)++instance Data.FromJSON QueryError where+  parseJSON =+    Data.withObject+      "QueryError"+      ( \x ->+          QueryError'+            Prelude.<$> (x Data..:? "ErrorCode")+            Prelude.<*> (x Data..:? "Message")+      )++instance Prelude.Hashable QueryError where+  hashWithSalt _salt QueryError' {..} =+    _salt+      `Prelude.hashWithSalt` errorCode+      `Prelude.hashWithSalt` message++instance Prelude.NFData QueryError where+  rnf QueryError' {..} =+    Prelude.rnf errorCode+      `Prelude.seq` Prelude.rnf message

@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types.QueryErrorCode+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types.QueryErrorCode+  ( QueryErrorCode+      ( ..,+        QueryErrorCode_CLOUDFORMATION_STACK_INACTIVE,+        QueryErrorCode_CLOUDFORMATION_STACK_NOT_EXISTING+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype QueryErrorCode = QueryErrorCode'+  { fromQueryErrorCode ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern QueryErrorCode_CLOUDFORMATION_STACK_INACTIVE :: QueryErrorCode+pattern QueryErrorCode_CLOUDFORMATION_STACK_INACTIVE = QueryErrorCode' "CLOUDFORMATION_STACK_INACTIVE"++pattern QueryErrorCode_CLOUDFORMATION_STACK_NOT_EXISTING :: QueryErrorCode+pattern QueryErrorCode_CLOUDFORMATION_STACK_NOT_EXISTING = QueryErrorCode' "CLOUDFORMATION_STACK_NOT_EXISTING"++{-# COMPLETE+  QueryErrorCode_CLOUDFORMATION_STACK_INACTIVE,+  QueryErrorCode_CLOUDFORMATION_STACK_NOT_EXISTING,+  QueryErrorCode'+  #-}

@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types.QueryType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types.QueryType+  ( QueryType+      ( ..,+        QueryType_CLOUDFORMATION_STACK_1_0,+        QueryType_TAG_FILTERS_1_0+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype QueryType = QueryType'+  { fromQueryType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern QueryType_CLOUDFORMATION_STACK_1_0 :: QueryType+pattern QueryType_CLOUDFORMATION_STACK_1_0 = QueryType' "CLOUDFORMATION_STACK_1_0"++pattern QueryType_TAG_FILTERS_1_0 :: QueryType+pattern QueryType_TAG_FILTERS_1_0 = QueryType' "TAG_FILTERS_1_0"++{-# COMPLETE+  QueryType_CLOUDFORMATION_STACK_1_0,+  QueryType_TAG_FILTERS_1_0,+  QueryType'+  #-}

@@ -0,0 +1,91 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types.ResourceFilter+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types.ResourceFilter where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.ResourceGroups.Types.ResourceFilterName++-- | A filter name and value pair that is used to obtain more specific+-- results from a list of resources.+--+-- /See:/ 'newResourceFilter' smart constructor.+data ResourceFilter = ResourceFilter'+  { -- | The name of the filter. Filter names are case-sensitive.+    name :: ResourceFilterName,+    -- | One or more filter values. Allowed filter values vary by resource filter+    -- name, and are case-sensitive.+    values :: Prelude.NonEmpty Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ResourceFilter' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'resourceFilter_name' - The name of the filter. Filter names are case-sensitive.+--+-- 'values', 'resourceFilter_values' - One or more filter values. Allowed filter values vary by resource filter+-- name, and are case-sensitive.+newResourceFilter ::+  -- | 'name'+  ResourceFilterName ->+  -- | 'values'+  Prelude.NonEmpty Prelude.Text ->+  ResourceFilter+newResourceFilter pName_ pValues_ =+  ResourceFilter'+    { name = pName_,+      values = Lens.coerced Lens.# pValues_+    }++-- | The name of the filter. Filter names are case-sensitive.+resourceFilter_name :: Lens.Lens' ResourceFilter ResourceFilterName+resourceFilter_name = Lens.lens (\ResourceFilter' {name} -> name) (\s@ResourceFilter' {} a -> s {name = a} :: ResourceFilter)++-- | One or more filter values. Allowed filter values vary by resource filter+-- name, and are case-sensitive.+resourceFilter_values :: Lens.Lens' ResourceFilter (Prelude.NonEmpty Prelude.Text)+resourceFilter_values = Lens.lens (\ResourceFilter' {values} -> values) (\s@ResourceFilter' {} a -> s {values = a} :: ResourceFilter) Prelude.. Lens.coerced++instance Prelude.Hashable ResourceFilter where+  hashWithSalt _salt ResourceFilter' {..} =+    _salt+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` values++instance Prelude.NFData ResourceFilter where+  rnf ResourceFilter' {..} =+    Prelude.rnf name `Prelude.seq` Prelude.rnf values++instance Data.ToJSON ResourceFilter where+  toJSON ResourceFilter' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("Name" Data..= name),+            Prelude.Just ("Values" Data..= values)+          ]+      )

@@ -0,0 +1,66 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types.ResourceFilterName+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types.ResourceFilterName+  ( ResourceFilterName+      ( ..,+        ResourceFilterName_Resource_type+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ResourceFilterName = ResourceFilterName'+  { fromResourceFilterName ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ResourceFilterName_Resource_type :: ResourceFilterName+pattern ResourceFilterName_Resource_type = ResourceFilterName' "resource-type"++{-# COMPLETE+  ResourceFilterName_Resource_type,+  ResourceFilterName'+  #-}

@@ -0,0 +1,84 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types.ResourceIdentifier+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types.ResourceIdentifier where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | A structure that contains the ARN of a resource and its resource type.+--+-- /See:/ 'newResourceIdentifier' smart constructor.+data ResourceIdentifier = ResourceIdentifier'+  { -- | The ARN of a resource.+    resourceArn :: Prelude.Maybe Prelude.Text,+    -- | The resource type of a resource, such as @AWS::EC2::Instance@.+    resourceType :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ResourceIdentifier' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceArn', 'resourceIdentifier_resourceArn' - The ARN of a resource.+--+-- 'resourceType', 'resourceIdentifier_resourceType' - The resource type of a resource, such as @AWS::EC2::Instance@.+newResourceIdentifier ::+  ResourceIdentifier+newResourceIdentifier =+  ResourceIdentifier'+    { resourceArn = Prelude.Nothing,+      resourceType = Prelude.Nothing+    }++-- | The ARN of a resource.+resourceIdentifier_resourceArn :: Lens.Lens' ResourceIdentifier (Prelude.Maybe Prelude.Text)+resourceIdentifier_resourceArn = Lens.lens (\ResourceIdentifier' {resourceArn} -> resourceArn) (\s@ResourceIdentifier' {} a -> s {resourceArn = a} :: ResourceIdentifier)++-- | The resource type of a resource, such as @AWS::EC2::Instance@.+resourceIdentifier_resourceType :: Lens.Lens' ResourceIdentifier (Prelude.Maybe Prelude.Text)+resourceIdentifier_resourceType = Lens.lens (\ResourceIdentifier' {resourceType} -> resourceType) (\s@ResourceIdentifier' {} a -> s {resourceType = a} :: ResourceIdentifier)++instance Data.FromJSON ResourceIdentifier where+  parseJSON =+    Data.withObject+      "ResourceIdentifier"+      ( \x ->+          ResourceIdentifier'+            Prelude.<$> (x Data..:? "ResourceArn")+            Prelude.<*> (x Data..:? "ResourceType")+      )++instance Prelude.Hashable ResourceIdentifier where+  hashWithSalt _salt ResourceIdentifier' {..} =+    _salt+      `Prelude.hashWithSalt` resourceArn+      `Prelude.hashWithSalt` resourceType++instance Prelude.NFData ResourceIdentifier where+  rnf ResourceIdentifier' {..} =+    Prelude.rnf resourceArn+      `Prelude.seq` Prelude.rnf resourceType

@@ -0,0 +1,291 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.ResourceGroups.Types.ResourceQuery+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.ResourceGroups.Types.ResourceQuery where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import Amazonka.ResourceGroups.Types.QueryType++-- | The query that is used to define a resource group or a search for+-- resources. A query specifies both a query type and a query string as a+-- JSON object. See the examples section for example JSON strings.+--+-- The examples that follow are shown as standard JSON strings. If you+-- include such a string as a parameter to the AWS CLI or an SDK API, you+-- might need to \'escape\' the string into a single line. For example, see+-- the+-- <https://docs.aws.amazon.com/cli/latest/userguide/cli-usage-parameters-quoting-strings.html Quoting strings>+-- in the /AWS CLI User Guide/.+--+-- __Example 1__+--+-- The following generic example shows a resource query JSON string that+-- includes only resources that meet the following criteria:+--+-- -   The resource type must be either @resource_type1@ or+--     @resource_type2@.+--+-- -   The resource must have a tag @Key1@ with a value of either @ValueA@+--     or @ValueB@.+--+-- -   The resource must have a tag @Key2@ with a value of either @ValueC@+--     or @ValueD@.+--+-- @{ \"Type\": \"TAG_FILTERS_1_0\", \"Query\": { \"ResourceTypeFilters\": [ \"resource_type1\", \"resource_type2\"], \"TagFilters\": [ { \"Key\": \"Key1\", \"Values\": [\"ValueA\",\"ValueB\"] }, { \"Key\":\"Key2\", \"Values\":[\"ValueC\",\"ValueD\"] } ] } }@+--+-- This has the equivalent \"shortcut\" syntax of the following:+--+-- @{ \"Type\": \"TAG_FILTERS_1_0\", \"Query\": { \"ResourceTypeFilters\": [ \"resource_type1\", \"resource_type2\"], \"TagFilters\": [ { \"Key1\": [\"ValueA\",\"ValueB\"] }, { \"Key2\": [\"ValueC\",\"ValueD\"] } ] } }@+--+-- __Example 2__+--+-- The following example shows a resource query JSON string that includes+-- only Amazon EC2 instances that are tagged @Stage@ with a value of+-- @Test@.+--+-- @{ \"Type\": \"TAG_FILTERS_1_0\", \"Query\": \"{ \"ResourceTypeFilters\": \"AWS::EC2::Instance\", \"TagFilters\": { \"Stage\": \"Test\" } } }@+--+-- __Example 3__+--+-- The following example shows a resource query JSON string that includes+-- resource of any supported type as long as it is tagged @Stage@ with a+-- value of @Prod@.+--+-- @{ \"Type\": \"TAG_FILTERS_1_0\", \"Query\": { \"ResourceTypeFilters\": \"AWS::AllSupported\", \"TagFilters\": { \"Stage\": \"Prod\" } } }@+--+-- __Example 4__+--+-- The following example shows a resource query JSON string that includes+-- only Amazon EC2 instances and Amazon S3 buckets that are part of the+-- specified AWS CloudFormation stack.+--+-- @{ \"Type\": \"CLOUDFORMATION_STACK_1_0\", \"Query\": { \"ResourceTypeFilters\": [ \"AWS::EC2::Instance\", \"AWS::S3::Bucket\" ], \"StackIdentifier\": \"arn:aws:cloudformation:us-west-2:123456789012:stack\/AWStestuseraccount\/fb0d5000-aba8-00e8-aa9e-50d5cEXAMPLE\" } }@+--+-- /See:/ 'newResourceQuery' smart constructor.+data ResourceQuery = ResourceQuery'+  { -- | The type of the query. You can use the following values:+    --+    -- -   /@CLOUDFORMATION_STACK_1_0:@/ Specifies that the @Query@ contains an+    --     ARN for a CloudFormation stack.+    --+    -- -   /@TAG_FILTERS_1_0:@/ Specifies that the @Query@ parameter contains a+    --     JSON string that represents a collection of simple tag filters for+    --     resource types and tags. The JSON string uses a syntax similar to+    --     the+    --     @ @<https://docs.aws.amazon.com/resourcegroupstagging/latest/APIReference/API_GetResources.html GetResources>@ @+    --     operation, but uses only the+    --     @ @<https://docs.aws.amazon.com/resourcegroupstagging/latest/APIReference/API_GetResources.html#resourcegrouptagging-GetResources-request-ResourceTypeFilters ResourceTypeFilters>@ @+    --     and+    --     @ @<https://docs.aws.amazon.com/resourcegroupstagging/latest/APIReference/API_GetResources.html#resourcegrouptagging-GetResources-request-TagFiltersTagFilters TagFilters>@ @+    --     fields. If you specify more than one tag key, only resources that+    --     match all tag keys, and at least one value of each specified tag+    --     key, are returned in your query. If you specify more than one value+    --     for a tag key, a resource matches the filter if it has a tag key+    --     value that matches /any/ of the specified values.+    --+    --     For example, consider the following sample query for resources that+    --     have two tags, @Stage@ and @Version@, with two values each:+    --+    --     @[{\"Stage\":[\"Test\",\"Deploy\"]},{\"Version\":[\"1\",\"2\"]}]@+    --+    --     The results of this query could include the following.+    --+    --     -   An EC2 instance that has the following two tags:+    --         @{\"Stage\":\"Deploy\"}@, and @{\"Version\":\"2\"}@+    --+    --     -   An S3 bucket that has the following two tags:+    --         @{\"Stage\":\"Test\"}@, and @{\"Version\":\"1\"}@+    --+    --     The query would not include the following items in the results,+    --     however.+    --+    --     -   An EC2 instance that has only the following tag:+    --         @{\"Stage\":\"Deploy\"}@.+    --+    --         The instance does not have __all__ of the tag keys specified in+    --         the filter, so it is excluded from the results.+    --+    --     -   An RDS database that has the following two tags:+    --         @{\"Stage\":\"Archived\"}@ and @{\"Version\":\"4\"}@+    --+    --         The database has all of the tag keys, but none of those keys has+    --         an associated value that matches at least one of the specified+    --         values in the filter.+    type' :: QueryType,+    -- | The query that defines a group or a search.+    query :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ResourceQuery' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'type'', 'resourceQuery_type' - The type of the query. You can use the following values:+--+-- -   /@CLOUDFORMATION_STACK_1_0:@/ Specifies that the @Query@ contains an+--     ARN for a CloudFormation stack.+--+-- -   /@TAG_FILTERS_1_0:@/ Specifies that the @Query@ parameter contains a+--     JSON string that represents a collection of simple tag filters for+--     resource types and tags. The JSON string uses a syntax similar to+--     the+--     @ @<https://docs.aws.amazon.com/resourcegroupstagging/latest/APIReference/API_GetResources.html GetResources>@ @+--     operation, but uses only the+--     @ @<https://docs.aws.amazon.com/resourcegroupstagging/latest/APIReference/API_GetResources.html#resourcegrouptagging-GetResources-request-ResourceTypeFilters ResourceTypeFilters>@ @+--     and+--     @ @<https://docs.aws.amazon.com/resourcegroupstagging/latest/APIReference/API_GetResources.html#resourcegrouptagging-GetResources-request-TagFiltersTagFilters TagFilters>@ @+--     fields. If you specify more than one tag key, only resources that+--     match all tag keys, and at least one value of each specified tag+--     key, are returned in your query. If you specify more than one value+--     for a tag key, a resource matches the filter if it has a tag key+--     value that matches /any/ of the specified values.+--+--     For example, consider the following sample query for resources that+--     have two tags, @Stage@ and @Version@, with two values each:+--+--     @[{\"Stage\":[\"Test\",\"Deploy\"]},{\"Version\":[\"1\",\"2\"]}]@+--+--     The results of this query could include the following.+--+--     -   An EC2 instance that has the following two tags:+--         @{\"Stage\":\"Deploy\"}@, and @{\"Version\":\"2\"}@+--+--     -   An S3 bucket that has the following two tags:+--         @{\"Stage\":\"Test\"}@, and @{\"Version\":\"1\"}@+--+--     The query would not include the following items in the results,+--     however.+--+--     -   An EC2 instance that has only the following tag:+--         @{\"Stage\":\"Deploy\"}@.+--+--         The instance does not have __all__ of the tag keys specified in+--         the filter, so it is excluded from the results.+--+--     -   An RDS database that has the following two tags:+--         @{\"Stage\":\"Archived\"}@ and @{\"Version\":\"4\"}@+--+--         The database has all of the tag keys, but none of those keys has+--         an associated value that matches at least one of the specified+--         values in the filter.+--+-- 'query', 'resourceQuery_searchQuery' - The query that defines a group or a search.+newResourceQuery ::+  -- | 'type''+  QueryType ->+  -- | 'query'+  Prelude.Text ->+  ResourceQuery+newResourceQuery pType_ pSearchQuery_ =+  ResourceQuery'+    { type' = pType_,+      query = pSearchQuery_+    }++-- | The type of the query. You can use the following values:+--+-- -   /@CLOUDFORMATION_STACK_1_0:@/ Specifies that the @Query@ contains an+--     ARN for a CloudFormation stack.+--+-- -   /@TAG_FILTERS_1_0:@/ Specifies that the @Query@ parameter contains a+--     JSON string that represents a collection of simple tag filters for+--     resource types and tags. The JSON string uses a syntax similar to+--     the+--     @ @<https://docs.aws.amazon.com/resourcegroupstagging/latest/APIReference/API_GetResources.html GetResources>@ @+--     operation, but uses only the+--     @ @<https://docs.aws.amazon.com/resourcegroupstagging/latest/APIReference/API_GetResources.html#resourcegrouptagging-GetResources-request-ResourceTypeFilters ResourceTypeFilters>@ @+--     and+--     @ @<https://docs.aws.amazon.com/resourcegroupstagging/latest/APIReference/API_GetResources.html#resourcegrouptagging-GetResources-request-TagFiltersTagFilters TagFilters>@ @+--     fields. If you specify more than one tag key, only resources that+--     match all tag keys, and at least one value of each specified tag+--     key, are returned in your query. If you specify more than one value+--     for a tag key, a resource matches the filter if it has a tag key+--     value that matches /any/ of the specified values.+--+--     For example, consider the following sample query for resources that+--     have two tags, @Stage@ and @Version@, with two values each:+--+--     @[{\"Stage\":[\"Test\",\"Deploy\"]},{\"Version\":[\"1\",\"2\"]}]@+--+--     The results of this query could include the following.+--+--     -   An EC2 instance that has the following two tags:+--         @{\"Stage\":\"Deploy\"}@, and @{\"Version\":\"2\"}@+--+--     -   An S3 bucket that has the following two tags:+--         @{\"Stage\":\"Test\"}@, and @{\"Version\":\"1\"}@+--+--     The query would not include the following items in the results,+--     however.+--+--     -   An EC2 instance that has only the following tag:+--         @{\"Stage\":\"Deploy\"}@.+--+--         The instance does not have __all__ of the tag keys specified in+--         the filter, so it is excluded from the results.+--+--     -   An RDS database that has the following two tags:+--         @{\"Stage\":\"Archived\"}@ and @{\"Version\":\"4\"}@+--+--         The database has all of the tag keys, but none of those keys has+--         an associated value that matches at least one of the specified+--         values in the filter.+resourceQuery_type :: Lens.Lens' ResourceQuery QueryType+resourceQuery_type = Lens.lens (\ResourceQuery' {type'} -> type') (\s@ResourceQuery' {} a -> s {type' = a} :: ResourceQuery)++-- | The query that defines a group or a search.+resourceQuery_searchQuery :: Lens.Lens' ResourceQuery Prelude.Text+resourceQuery_searchQuery = Lens.lens (\ResourceQuery' {query} -> query) (\s@ResourceQuery' {} a -> s {query = a} :: ResourceQuery)++instance Data.FromJSON ResourceQuery where+  parseJSON =+    Data.withObject+      "ResourceQuery"+      ( \x ->+          ResourceQuery'+            Prelude.<$> (x Data..: "Type")+            Prelude.<*> (x Data..: "Query")+      )++instance Prelude.Hashable ResourceQuery where+  hashWithSalt _salt ResourceQuery' {..} =+    _salt+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` query++instance Prelude.NFData ResourceQuery where+  rnf ResourceQuery' {..} =+    Prelude.rnf type' `Prelude.seq` Prelude.rnf query++instance Data.ToJSON ResourceQuery where+  toJSON ResourceQuery' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("Type" Data..= type'),+            Prelude.Just ("Query" Data..= query)+          ]+      )