amazonka-budgets 1.6.1 → 2.0

raw patch · 110 files changed

+12044/−3928 lines, 110 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-budgets.cabal +130/−87
• fixture/CreateBudgetAction.yaml +10/−0
• fixture/CreateBudgetActionResponse.proto +0/−0
• fixture/DeleteBudgetAction.yaml +10/−0
• fixture/DeleteBudgetActionResponse.proto +0/−0
• fixture/DescribeBudgetAction.yaml +10/−0
• fixture/DescribeBudgetActionHistories.yaml +10/−0
• fixture/DescribeBudgetActionHistoriesResponse.proto +0/−0
• fixture/DescribeBudgetActionResponse.proto +0/−0
• fixture/DescribeBudgetActionsForAccount.yaml +10/−0
• fixture/DescribeBudgetActionsForAccountResponse.proto +0/−0
• fixture/DescribeBudgetActionsForBudget.yaml +10/−0
• fixture/DescribeBudgetActionsForBudgetResponse.proto +0/−0
• fixture/DescribeBudgetNotificationsForAccount.yaml +10/−0
• fixture/DescribeBudgetNotificationsForAccountResponse.proto +0/−0
• fixture/DescribeBudgetPerformanceHistory.yaml +10/−0
• fixture/DescribeBudgetPerformanceHistoryResponse.proto +0/−0
• fixture/ExecuteBudgetAction.yaml +10/−0
• fixture/ExecuteBudgetActionResponse.proto +0/−0
• fixture/UpdateBudgetAction.yaml +10/−0
• fixture/UpdateBudgetActionResponse.proto +0/−0
• gen/Amazonka/Budgets.hs +423/−0
• gen/Amazonka/Budgets/CreateBudget.hs +209/−0
• gen/Amazonka/Budgets/CreateBudgetAction.hs +340/−0
• gen/Amazonka/Budgets/CreateNotification.hs +227/−0
• gen/Amazonka/Budgets/CreateSubscriber.hs +221/−0
• gen/Amazonka/Budgets/DeleteBudget.hs +181/−0
• gen/Amazonka/Budgets/DeleteBudgetAction.hs +235/−0
• gen/Amazonka/Budgets/DeleteNotification.hs +204/−0
• gen/Amazonka/Budgets/DeleteSubscriber.hs +220/−0
• gen/Amazonka/Budgets/DescribeBudget.hs +199/−0
• gen/Amazonka/Budgets/DescribeBudgetAction.hs +236/−0
• gen/Amazonka/Budgets/DescribeBudgetActionHistories.hs +287/−0
• gen/Amazonka/Budgets/DescribeBudgetActionsForAccount.hs +252/−0
• gen/Amazonka/Budgets/DescribeBudgetActionsForBudget.hs +265/−0
• gen/Amazonka/Budgets/DescribeBudgetNotificationsForAccount.hs +272/−0
• gen/Amazonka/Budgets/DescribeBudgetPerformanceHistory.hs +307/−0
• gen/Amazonka/Budgets/DescribeBudgets.hs +255/−0
• gen/Amazonka/Budgets/DescribeNotificationsForBudget.hs +287/−0
• gen/Amazonka/Budgets/DescribeSubscribersForNotification.hs +316/−0
• gen/Amazonka/Budgets/ExecuteBudgetAction.hs +268/−0
• gen/Amazonka/Budgets/Lens.hs +386/−0
• gen/Amazonka/Budgets/Types.hs +426/−0
• gen/Amazonka/Budgets/Types/Action.hs +223/−0
• gen/Amazonka/Budgets/Types/ActionHistory.hs +126/−0
• gen/Amazonka/Budgets/Types/ActionHistoryDetails.hs +88/−0
• gen/Amazonka/Budgets/Types/ActionStatus.hs +111/−0
• gen/Amazonka/Budgets/Types/ActionSubType.hs +71/−0
• gen/Amazonka/Budgets/Types/ActionThreshold.hs +103/−0
• gen/Amazonka/Budgets/Types/ActionType.hs +76/−0
• gen/Amazonka/Budgets/Types/ApprovalModel.hs +71/−0
• gen/Amazonka/Budgets/Types/AutoAdjustData.hs +121/−0
• gen/Amazonka/Budgets/Types/AutoAdjustType.hs +71/−0
• gen/Amazonka/Budgets/Types/Budget.hs +473/−0
• gen/Amazonka/Budgets/Types/BudgetNotificationsForAccount.hs +87/−0
• gen/Amazonka/Budgets/Types/BudgetPerformanceHistory.hs +147/−0
• gen/Amazonka/Budgets/Types/BudgetType.hs +95/−0
• gen/Amazonka/Budgets/Types/BudgetedAndActualAmounts.hs +100/−0
• gen/Amazonka/Budgets/Types/CalculatedSpend.hs +110/−0
• gen/Amazonka/Budgets/Types/ComparisonOperator.hs +80/−0
• gen/Amazonka/Budgets/Types/CostTypes.hs +289/−0
• gen/Amazonka/Budgets/Types/Definition.hs +112/−0
• gen/Amazonka/Budgets/Types/EventType.hs +86/−0
• gen/Amazonka/Budgets/Types/ExecutionType.hs +81/−0
• gen/Amazonka/Budgets/Types/HistoricalOptions.hs +170/−0
• gen/Amazonka/Budgets/Types/IamActionDefinition.hs +121/−0
• gen/Amazonka/Budgets/Types/Notification.hs +207/−0
• gen/Amazonka/Budgets/Types/NotificationState.hs +71/−0
• gen/Amazonka/Budgets/Types/NotificationType.hs +72/−0
• gen/Amazonka/Budgets/Types/NotificationWithSubscribers.hs +95/−0
• gen/Amazonka/Budgets/Types/ScpActionDefinition.hs +97/−0
• gen/Amazonka/Budgets/Types/Spend.hs +106/−0
• gen/Amazonka/Budgets/Types/SsmActionDefinition.hs +118/−0
• gen/Amazonka/Budgets/Types/Subscriber.hs +118/−0
• gen/Amazonka/Budgets/Types/SubscriptionType.hs +72/−0
• gen/Amazonka/Budgets/Types/ThresholdType.hs +72/−0
• gen/Amazonka/Budgets/Types/TimePeriod.hs +139/−0
• gen/Amazonka/Budgets/Types/TimeUnit.hs +82/−0
• gen/Amazonka/Budgets/UpdateBudget.hs +188/−0
• gen/Amazonka/Budgets/UpdateBudgetAction.hs +332/−0
• gen/Amazonka/Budgets/UpdateNotification.hs +219/−0
• gen/Amazonka/Budgets/UpdateSubscriber.hs +234/−0
• gen/Amazonka/Budgets/Waiters.hs +24/−0
• gen/Network/AWS/Budgets.hs +0/−241
• gen/Network/AWS/Budgets/CreateBudget.hs +0/−156
• gen/Network/AWS/Budgets/CreateNotification.hs +0/−168
• gen/Network/AWS/Budgets/CreateSubscriber.hs +0/−167
• gen/Network/AWS/Budgets/DeleteBudget.hs +0/−144
• gen/Network/AWS/Budgets/DeleteNotification.hs +0/−159
• gen/Network/AWS/Budgets/DeleteSubscriber.hs +0/−169
• gen/Network/AWS/Budgets/DescribeBudget.hs +0/−152
• gen/Network/AWS/Budgets/DescribeBudgets.hs +0/−176
• gen/Network/AWS/Budgets/DescribeNotificationsForBudget.hs +0/−194
• gen/Network/AWS/Budgets/DescribeSubscribersForNotification.hs +0/−209
• gen/Network/AWS/Budgets/Types.hs +0/−208
• gen/Network/AWS/Budgets/Types/Product.hs +0/−639
• gen/Network/AWS/Budgets/Types/Sum.hs +0/−233
• gen/Network/AWS/Budgets/UpdateBudget.hs +0/−142
• gen/Network/AWS/Budgets/UpdateNotification.hs +0/−168
• gen/Network/AWS/Budgets/UpdateSubscriber.hs +0/−178
• gen/Network/AWS/Budgets/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/Budgets.hs +0/−20
• test/Test/AWS/Budgets/Internal.hs +0/−9
• test/Test/AWS/Gen/Budgets.hs +0/−273
• test/Test/Amazonka/Budgets.hs +20/−0
• test/Test/Amazonka/Budgets/Internal.hs +8/−0
• test/Test/Amazonka/Gen/Budgets.hs +498/−0

@@ -7,9 +7,8 @@   ## Version--`1.6.1`-+ +`2.0` - Derived from API version @2016-10-20@ 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.Budgets](http://hackage.haskell.org/package/amazonka-budgets/docs/Network-AWS-Budgets.html)+See [Amazonka.Budgets](http://hackage.haskell.org/package/amazonka-budgets/docs/Amazonka-Budgets.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.  

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

@@ -1,98 +1,141 @@-name:                  amazonka-budgets-version:               1.6.1-synopsis:              Amazon Budgets 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-budgets+version:            2.0+synopsis:           Amazon Budgets 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.Budgets" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2016-10-20@ 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.Budgets.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.Budgets" 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-budgets+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-budgets  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.Budgets-        , Network.AWS.Budgets.CreateBudget-        , Network.AWS.Budgets.CreateNotification-        , Network.AWS.Budgets.CreateSubscriber-        , Network.AWS.Budgets.DeleteBudget-        , Network.AWS.Budgets.DeleteNotification-        , Network.AWS.Budgets.DeleteSubscriber-        , Network.AWS.Budgets.DescribeBudget-        , Network.AWS.Budgets.DescribeBudgets-        , Network.AWS.Budgets.DescribeNotificationsForBudget-        , Network.AWS.Budgets.DescribeSubscribersForNotification-        , Network.AWS.Budgets.Types-        , Network.AWS.Budgets.UpdateBudget-        , Network.AWS.Budgets.UpdateNotification-        , Network.AWS.Budgets.UpdateSubscriber-        , Network.AWS.Budgets.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.Budgets.Types.Product-        , Network.AWS.Budgets.Types.Sum+  exposed-modules:+    Amazonka.Budgets+    Amazonka.Budgets.CreateBudget+    Amazonka.Budgets.CreateBudgetAction+    Amazonka.Budgets.CreateNotification+    Amazonka.Budgets.CreateSubscriber+    Amazonka.Budgets.DeleteBudget+    Amazonka.Budgets.DeleteBudgetAction+    Amazonka.Budgets.DeleteNotification+    Amazonka.Budgets.DeleteSubscriber+    Amazonka.Budgets.DescribeBudget+    Amazonka.Budgets.DescribeBudgetAction+    Amazonka.Budgets.DescribeBudgetActionHistories+    Amazonka.Budgets.DescribeBudgetActionsForAccount+    Amazonka.Budgets.DescribeBudgetActionsForBudget+    Amazonka.Budgets.DescribeBudgetNotificationsForAccount+    Amazonka.Budgets.DescribeBudgetPerformanceHistory+    Amazonka.Budgets.DescribeBudgets+    Amazonka.Budgets.DescribeNotificationsForBudget+    Amazonka.Budgets.DescribeSubscribersForNotification+    Amazonka.Budgets.ExecuteBudgetAction+    Amazonka.Budgets.Lens+    Amazonka.Budgets.Types+    Amazonka.Budgets.Types.Action+    Amazonka.Budgets.Types.ActionHistory+    Amazonka.Budgets.Types.ActionHistoryDetails+    Amazonka.Budgets.Types.ActionStatus+    Amazonka.Budgets.Types.ActionSubType+    Amazonka.Budgets.Types.ActionThreshold+    Amazonka.Budgets.Types.ActionType+    Amazonka.Budgets.Types.ApprovalModel+    Amazonka.Budgets.Types.AutoAdjustData+    Amazonka.Budgets.Types.AutoAdjustType+    Amazonka.Budgets.Types.Budget+    Amazonka.Budgets.Types.BudgetedAndActualAmounts+    Amazonka.Budgets.Types.BudgetNotificationsForAccount+    Amazonka.Budgets.Types.BudgetPerformanceHistory+    Amazonka.Budgets.Types.BudgetType+    Amazonka.Budgets.Types.CalculatedSpend+    Amazonka.Budgets.Types.ComparisonOperator+    Amazonka.Budgets.Types.CostTypes+    Amazonka.Budgets.Types.Definition+    Amazonka.Budgets.Types.EventType+    Amazonka.Budgets.Types.ExecutionType+    Amazonka.Budgets.Types.HistoricalOptions+    Amazonka.Budgets.Types.IamActionDefinition+    Amazonka.Budgets.Types.Notification+    Amazonka.Budgets.Types.NotificationState+    Amazonka.Budgets.Types.NotificationType+    Amazonka.Budgets.Types.NotificationWithSubscribers+    Amazonka.Budgets.Types.ScpActionDefinition+    Amazonka.Budgets.Types.Spend+    Amazonka.Budgets.Types.SsmActionDefinition+    Amazonka.Budgets.Types.Subscriber+    Amazonka.Budgets.Types.SubscriptionType+    Amazonka.Budgets.Types.ThresholdType+    Amazonka.Budgets.Types.TimePeriod+    Amazonka.Budgets.Types.TimeUnit+    Amazonka.Budgets.UpdateBudget+    Amazonka.Budgets.UpdateBudgetAction+    Amazonka.Budgets.UpdateNotification+    Amazonka.Budgets.UpdateSubscriber+    Amazonka.Budgets.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-budgets-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.Budgets-        , Test.AWS.Gen.Budgets-        , Test.AWS.Budgets.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.Budgets+    Test.Amazonka.Budgets.Internal+    Test.Amazonka.Gen.Budgets -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-budgets-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-budgets+    , amazonka-core         >=2.0 && <2.1+    , amazonka-test         >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/budgets/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  budgets.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/budgets/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  budgets.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/budgets/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  budgets.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/budgets/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  budgets.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/budgets/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  budgets.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/budgets/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  budgets.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/budgets/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  budgets.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/budgets/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  budgets.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/budgets/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  budgets.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/budgets/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  budgets.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,423 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.Budgets+-- 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 @2016-10-20@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Use the Amazon Web Services Budgets API to plan your service usage,+-- service costs, and instance reservations. This API reference provides+-- descriptions, syntax, and usage examples for each of the actions and+-- data types for the Amazon Web Services Budgets feature.+--+-- Budgets provide you with a way to see the following information:+--+-- -   How close your plan is to your budgeted amount or to the free tier+--     limits+--+-- -   Your usage-to-date, including how much you\'ve used of your Reserved+--     Instances (RIs)+--+-- -   Your current estimated charges from Amazon Web Services, and how+--     much your predicted usage will accrue in charges by the end of the+--     month+--+-- -   How much of your budget has been used+--+-- Amazon Web Services updates your budget status several times a day.+-- Budgets track your unblended costs, subscriptions, refunds, and RIs. You+-- can create the following types of budgets:+--+-- -   __Cost budgets__ - Plan how much you want to spend on a service.+--+-- -   __Usage budgets__ - Plan how much you want to use one or more+--     services.+--+-- -   __RI utilization budgets__ - Define a utilization threshold, and+--     receive alerts when your RI usage falls below that threshold. This+--     lets you see if your RIs are unused or under-utilized.+--+-- -   __RI coverage budgets__ - Define a coverage threshold, and receive+--     alerts when the number of your instance hours that are covered by+--     RIs fall below that threshold. This lets you see how much of your+--     instance usage is covered by a reservation.+--+-- Service Endpoint+--+-- The Amazon Web Services Budgets API provides the following endpoint:+--+-- -   https:\/\/budgets.amazonaws.com+--+-- For information about costs that are associated with the Amazon Web+-- Services Budgets API, see+-- <https://aws.amazon.com/aws-cost-management/pricing/ Amazon Web Services Cost Management Pricing>.+module Amazonka.Budgets+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** AccessDeniedException+    _AccessDeniedException,++    -- ** CreationLimitExceededException+    _CreationLimitExceededException,++    -- ** DuplicateRecordException+    _DuplicateRecordException,++    -- ** ExpiredNextTokenException+    _ExpiredNextTokenException,++    -- ** InternalErrorException+    _InternalErrorException,++    -- ** InvalidNextTokenException+    _InvalidNextTokenException,++    -- ** InvalidParameterException+    _InvalidParameterException,++    -- ** NotFoundException+    _NotFoundException,++    -- ** ResourceLockedException+    _ResourceLockedException,++    -- ** ThrottlingException+    _ThrottlingException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** CreateBudget+    CreateBudget (CreateBudget'),+    newCreateBudget,+    CreateBudgetResponse (CreateBudgetResponse'),+    newCreateBudgetResponse,++    -- ** CreateBudgetAction+    CreateBudgetAction (CreateBudgetAction'),+    newCreateBudgetAction,+    CreateBudgetActionResponse (CreateBudgetActionResponse'),+    newCreateBudgetActionResponse,++    -- ** CreateNotification+    CreateNotification (CreateNotification'),+    newCreateNotification,+    CreateNotificationResponse (CreateNotificationResponse'),+    newCreateNotificationResponse,++    -- ** CreateSubscriber+    CreateSubscriber (CreateSubscriber'),+    newCreateSubscriber,+    CreateSubscriberResponse (CreateSubscriberResponse'),+    newCreateSubscriberResponse,++    -- ** DeleteBudget+    DeleteBudget (DeleteBudget'),+    newDeleteBudget,+    DeleteBudgetResponse (DeleteBudgetResponse'),+    newDeleteBudgetResponse,++    -- ** DeleteBudgetAction+    DeleteBudgetAction (DeleteBudgetAction'),+    newDeleteBudgetAction,+    DeleteBudgetActionResponse (DeleteBudgetActionResponse'),+    newDeleteBudgetActionResponse,++    -- ** DeleteNotification+    DeleteNotification (DeleteNotification'),+    newDeleteNotification,+    DeleteNotificationResponse (DeleteNotificationResponse'),+    newDeleteNotificationResponse,++    -- ** DeleteSubscriber+    DeleteSubscriber (DeleteSubscriber'),+    newDeleteSubscriber,+    DeleteSubscriberResponse (DeleteSubscriberResponse'),+    newDeleteSubscriberResponse,++    -- ** DescribeBudget+    DescribeBudget (DescribeBudget'),+    newDescribeBudget,+    DescribeBudgetResponse (DescribeBudgetResponse'),+    newDescribeBudgetResponse,++    -- ** DescribeBudgetAction+    DescribeBudgetAction (DescribeBudgetAction'),+    newDescribeBudgetAction,+    DescribeBudgetActionResponse (DescribeBudgetActionResponse'),+    newDescribeBudgetActionResponse,++    -- ** DescribeBudgetActionHistories (Paginated)+    DescribeBudgetActionHistories (DescribeBudgetActionHistories'),+    newDescribeBudgetActionHistories,+    DescribeBudgetActionHistoriesResponse (DescribeBudgetActionHistoriesResponse'),+    newDescribeBudgetActionHistoriesResponse,++    -- ** DescribeBudgetActionsForAccount (Paginated)+    DescribeBudgetActionsForAccount (DescribeBudgetActionsForAccount'),+    newDescribeBudgetActionsForAccount,+    DescribeBudgetActionsForAccountResponse (DescribeBudgetActionsForAccountResponse'),+    newDescribeBudgetActionsForAccountResponse,++    -- ** DescribeBudgetActionsForBudget (Paginated)+    DescribeBudgetActionsForBudget (DescribeBudgetActionsForBudget'),+    newDescribeBudgetActionsForBudget,+    DescribeBudgetActionsForBudgetResponse (DescribeBudgetActionsForBudgetResponse'),+    newDescribeBudgetActionsForBudgetResponse,++    -- ** DescribeBudgetNotificationsForAccount (Paginated)+    DescribeBudgetNotificationsForAccount (DescribeBudgetNotificationsForAccount'),+    newDescribeBudgetNotificationsForAccount,+    DescribeBudgetNotificationsForAccountResponse (DescribeBudgetNotificationsForAccountResponse'),+    newDescribeBudgetNotificationsForAccountResponse,++    -- ** DescribeBudgetPerformanceHistory (Paginated)+    DescribeBudgetPerformanceHistory (DescribeBudgetPerformanceHistory'),+    newDescribeBudgetPerformanceHistory,+    DescribeBudgetPerformanceHistoryResponse (DescribeBudgetPerformanceHistoryResponse'),+    newDescribeBudgetPerformanceHistoryResponse,++    -- ** DescribeBudgets (Paginated)+    DescribeBudgets (DescribeBudgets'),+    newDescribeBudgets,+    DescribeBudgetsResponse (DescribeBudgetsResponse'),+    newDescribeBudgetsResponse,++    -- ** DescribeNotificationsForBudget (Paginated)+    DescribeNotificationsForBudget (DescribeNotificationsForBudget'),+    newDescribeNotificationsForBudget,+    DescribeNotificationsForBudgetResponse (DescribeNotificationsForBudgetResponse'),+    newDescribeNotificationsForBudgetResponse,++    -- ** DescribeSubscribersForNotification (Paginated)+    DescribeSubscribersForNotification (DescribeSubscribersForNotification'),+    newDescribeSubscribersForNotification,+    DescribeSubscribersForNotificationResponse (DescribeSubscribersForNotificationResponse'),+    newDescribeSubscribersForNotificationResponse,++    -- ** ExecuteBudgetAction+    ExecuteBudgetAction (ExecuteBudgetAction'),+    newExecuteBudgetAction,+    ExecuteBudgetActionResponse (ExecuteBudgetActionResponse'),+    newExecuteBudgetActionResponse,++    -- ** UpdateBudget+    UpdateBudget (UpdateBudget'),+    newUpdateBudget,+    UpdateBudgetResponse (UpdateBudgetResponse'),+    newUpdateBudgetResponse,++    -- ** UpdateBudgetAction+    UpdateBudgetAction (UpdateBudgetAction'),+    newUpdateBudgetAction,+    UpdateBudgetActionResponse (UpdateBudgetActionResponse'),+    newUpdateBudgetActionResponse,++    -- ** UpdateNotification+    UpdateNotification (UpdateNotification'),+    newUpdateNotification,+    UpdateNotificationResponse (UpdateNotificationResponse'),+    newUpdateNotificationResponse,++    -- ** UpdateSubscriber+    UpdateSubscriber (UpdateSubscriber'),+    newUpdateSubscriber,+    UpdateSubscriberResponse (UpdateSubscriberResponse'),+    newUpdateSubscriberResponse,++    -- * Types++    -- ** ActionStatus+    ActionStatus (..),++    -- ** ActionSubType+    ActionSubType (..),++    -- ** ActionType+    ActionType (..),++    -- ** ApprovalModel+    ApprovalModel (..),++    -- ** AutoAdjustType+    AutoAdjustType (..),++    -- ** BudgetType+    BudgetType (..),++    -- ** ComparisonOperator+    ComparisonOperator (..),++    -- ** EventType+    EventType (..),++    -- ** ExecutionType+    ExecutionType (..),++    -- ** NotificationState+    NotificationState (..),++    -- ** NotificationType+    NotificationType (..),++    -- ** SubscriptionType+    SubscriptionType (..),++    -- ** ThresholdType+    ThresholdType (..),++    -- ** TimeUnit+    TimeUnit (..),++    -- ** Action+    Action (Action'),+    newAction,++    -- ** ActionHistory+    ActionHistory (ActionHistory'),+    newActionHistory,++    -- ** ActionHistoryDetails+    ActionHistoryDetails (ActionHistoryDetails'),+    newActionHistoryDetails,++    -- ** ActionThreshold+    ActionThreshold (ActionThreshold'),+    newActionThreshold,++    -- ** AutoAdjustData+    AutoAdjustData (AutoAdjustData'),+    newAutoAdjustData,++    -- ** Budget+    Budget (Budget'),+    newBudget,++    -- ** BudgetNotificationsForAccount+    BudgetNotificationsForAccount (BudgetNotificationsForAccount'),+    newBudgetNotificationsForAccount,++    -- ** BudgetPerformanceHistory+    BudgetPerformanceHistory (BudgetPerformanceHistory'),+    newBudgetPerformanceHistory,++    -- ** BudgetedAndActualAmounts+    BudgetedAndActualAmounts (BudgetedAndActualAmounts'),+    newBudgetedAndActualAmounts,++    -- ** CalculatedSpend+    CalculatedSpend (CalculatedSpend'),+    newCalculatedSpend,++    -- ** CostTypes+    CostTypes (CostTypes'),+    newCostTypes,++    -- ** Definition+    Definition (Definition'),+    newDefinition,++    -- ** HistoricalOptions+    HistoricalOptions (HistoricalOptions'),+    newHistoricalOptions,++    -- ** IamActionDefinition+    IamActionDefinition (IamActionDefinition'),+    newIamActionDefinition,++    -- ** Notification+    Notification (Notification'),+    newNotification,++    -- ** NotificationWithSubscribers+    NotificationWithSubscribers (NotificationWithSubscribers'),+    newNotificationWithSubscribers,++    -- ** ScpActionDefinition+    ScpActionDefinition (ScpActionDefinition'),+    newScpActionDefinition,++    -- ** Spend+    Spend (Spend'),+    newSpend,++    -- ** SsmActionDefinition+    SsmActionDefinition (SsmActionDefinition'),+    newSsmActionDefinition,++    -- ** Subscriber+    Subscriber (Subscriber'),+    newSubscriber,++    -- ** TimePeriod+    TimePeriod (TimePeriod'),+    newTimePeriod,+  )+where++import Amazonka.Budgets.CreateBudget+import Amazonka.Budgets.CreateBudgetAction+import Amazonka.Budgets.CreateNotification+import Amazonka.Budgets.CreateSubscriber+import Amazonka.Budgets.DeleteBudget+import Amazonka.Budgets.DeleteBudgetAction+import Amazonka.Budgets.DeleteNotification+import Amazonka.Budgets.DeleteSubscriber+import Amazonka.Budgets.DescribeBudget+import Amazonka.Budgets.DescribeBudgetAction+import Amazonka.Budgets.DescribeBudgetActionHistories+import Amazonka.Budgets.DescribeBudgetActionsForAccount+import Amazonka.Budgets.DescribeBudgetActionsForBudget+import Amazonka.Budgets.DescribeBudgetNotificationsForAccount+import Amazonka.Budgets.DescribeBudgetPerformanceHistory+import Amazonka.Budgets.DescribeBudgets+import Amazonka.Budgets.DescribeNotificationsForBudget+import Amazonka.Budgets.DescribeSubscribersForNotification+import Amazonka.Budgets.ExecuteBudgetAction+import Amazonka.Budgets.Lens+import Amazonka.Budgets.Types+import Amazonka.Budgets.UpdateBudget+import Amazonka.Budgets.UpdateBudgetAction+import Amazonka.Budgets.UpdateNotification+import Amazonka.Budgets.UpdateSubscriber+import Amazonka.Budgets.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 'Budgets'.++-- $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,209 @@+{-# 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.Budgets.CreateBudget+-- 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 budget and, if included, notifications and subscribers.+--+-- Only one of @BudgetLimit@ or @PlannedBudgetLimits@ can be present in the+-- syntax at one time. Use the syntax that matches your case. The Request+-- Syntax section shows the @BudgetLimit@ syntax. For+-- @PlannedBudgetLimits@, see the+-- <https://docs.aws.amazon.com/aws-cost-management/latest/APIReference/API_budgets_CreateBudget.html#API_CreateBudget_Examples Examples>+-- section.+module Amazonka.Budgets.CreateBudget+  ( -- * Creating a Request+    CreateBudget (..),+    newCreateBudget,++    -- * Request Lenses+    createBudget_notificationsWithSubscribers,+    createBudget_accountId,+    createBudget_budget,++    -- * Destructuring the Response+    CreateBudgetResponse (..),+    newCreateBudgetResponse,++    -- * Response Lenses+    createBudgetResponse_httpStatus,+  )+where++import Amazonka.Budgets.Types+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 qualified Amazonka.Response as Response++-- | Request of CreateBudget+--+-- /See:/ 'newCreateBudget' smart constructor.+data CreateBudget = CreateBudget'+  { -- | A notification that you want to associate with a budget. A budget can+    -- have up to five notifications, and each notification can have one SNS+    -- subscriber and up to 10 email subscribers. If you include notifications+    -- and subscribers in your @CreateBudget@ call, Amazon Web Services creates+    -- the notifications and subscribers for you.+    notificationsWithSubscribers :: Prelude.Maybe [NotificationWithSubscribers],+    -- | The @accountId@ that is associated with the budget.+    accountId :: Prelude.Text,+    -- | The budget object that you want to create.+    budget :: Budget+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateBudget' 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:+--+-- 'notificationsWithSubscribers', 'createBudget_notificationsWithSubscribers' - A notification that you want to associate with a budget. A budget can+-- have up to five notifications, and each notification can have one SNS+-- subscriber and up to 10 email subscribers. If you include notifications+-- and subscribers in your @CreateBudget@ call, Amazon Web Services creates+-- the notifications and subscribers for you.+--+-- 'accountId', 'createBudget_accountId' - The @accountId@ that is associated with the budget.+--+-- 'budget', 'createBudget_budget' - The budget object that you want to create.+newCreateBudget ::+  -- | 'accountId'+  Prelude.Text ->+  -- | 'budget'+  Budget ->+  CreateBudget+newCreateBudget pAccountId_ pBudget_ =+  CreateBudget'+    { notificationsWithSubscribers =+        Prelude.Nothing,+      accountId = pAccountId_,+      budget = pBudget_+    }++-- | A notification that you want to associate with a budget. A budget can+-- have up to five notifications, and each notification can have one SNS+-- subscriber and up to 10 email subscribers. If you include notifications+-- and subscribers in your @CreateBudget@ call, Amazon Web Services creates+-- the notifications and subscribers for you.+createBudget_notificationsWithSubscribers :: Lens.Lens' CreateBudget (Prelude.Maybe [NotificationWithSubscribers])+createBudget_notificationsWithSubscribers = Lens.lens (\CreateBudget' {notificationsWithSubscribers} -> notificationsWithSubscribers) (\s@CreateBudget' {} a -> s {notificationsWithSubscribers = a} :: CreateBudget) Prelude.. Lens.mapping Lens.coerced++-- | The @accountId@ that is associated with the budget.+createBudget_accountId :: Lens.Lens' CreateBudget Prelude.Text+createBudget_accountId = Lens.lens (\CreateBudget' {accountId} -> accountId) (\s@CreateBudget' {} a -> s {accountId = a} :: CreateBudget)++-- | The budget object that you want to create.+createBudget_budget :: Lens.Lens' CreateBudget Budget+createBudget_budget = Lens.lens (\CreateBudget' {budget} -> budget) (\s@CreateBudget' {} a -> s {budget = a} :: CreateBudget)++instance Core.AWSRequest CreateBudget where+  type AWSResponse CreateBudget = CreateBudgetResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          CreateBudgetResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateBudget where+  hashWithSalt _salt CreateBudget' {..} =+    _salt+      `Prelude.hashWithSalt` notificationsWithSubscribers+      `Prelude.hashWithSalt` accountId+      `Prelude.hashWithSalt` budget++instance Prelude.NFData CreateBudget where+  rnf CreateBudget' {..} =+    Prelude.rnf notificationsWithSubscribers+      `Prelude.seq` Prelude.rnf accountId+      `Prelude.seq` Prelude.rnf budget++instance Data.ToHeaders CreateBudget where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSBudgetServiceGateway.CreateBudget" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateBudget where+  toJSON CreateBudget' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("NotificationsWithSubscribers" Data..=)+              Prelude.<$> notificationsWithSubscribers,+            Prelude.Just ("AccountId" Data..= accountId),+            Prelude.Just ("Budget" Data..= budget)+          ]+      )++instance Data.ToPath CreateBudget where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateBudget where+  toQuery = Prelude.const Prelude.mempty++-- | Response of CreateBudget+--+-- /See:/ 'newCreateBudgetResponse' smart constructor.+data CreateBudgetResponse = CreateBudgetResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateBudgetResponse' 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', 'createBudgetResponse_httpStatus' - The response's http status code.+newCreateBudgetResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateBudgetResponse+newCreateBudgetResponse pHttpStatus_ =+  CreateBudgetResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+createBudgetResponse_httpStatus :: Lens.Lens' CreateBudgetResponse Prelude.Int+createBudgetResponse_httpStatus = Lens.lens (\CreateBudgetResponse' {httpStatus} -> httpStatus) (\s@CreateBudgetResponse' {} a -> s {httpStatus = a} :: CreateBudgetResponse)++instance Prelude.NFData CreateBudgetResponse where+  rnf CreateBudgetResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,340 @@+{-# 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.Budgets.CreateBudgetAction+-- 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 budget action.+module Amazonka.Budgets.CreateBudgetAction+  ( -- * Creating a Request+    CreateBudgetAction (..),+    newCreateBudgetAction,++    -- * Request Lenses+    createBudgetAction_accountId,+    createBudgetAction_budgetName,+    createBudgetAction_notificationType,+    createBudgetAction_actionType,+    createBudgetAction_actionThreshold,+    createBudgetAction_definition,+    createBudgetAction_executionRoleArn,+    createBudgetAction_approvalModel,+    createBudgetAction_subscribers,++    -- * Destructuring the Response+    CreateBudgetActionResponse (..),+    newCreateBudgetActionResponse,++    -- * Response Lenses+    createBudgetActionResponse_httpStatus,+    createBudgetActionResponse_accountId,+    createBudgetActionResponse_budgetName,+    createBudgetActionResponse_actionId,+  )+where++import Amazonka.Budgets.Types+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 qualified Amazonka.Response as Response++-- | /See:/ 'newCreateBudgetAction' smart constructor.+data CreateBudgetAction = CreateBudgetAction'+  { accountId :: Prelude.Text,+    budgetName :: Prelude.Text,+    notificationType :: NotificationType,+    -- | The type of action. This defines the type of tasks that can be carried+    -- out by this action. This field also determines the format for+    -- definition.+    actionType :: ActionType,+    actionThreshold :: ActionThreshold,+    definition :: Definition,+    -- | The role passed for action execution and reversion. Roles and actions+    -- must be in the same account.+    executionRoleArn :: Prelude.Text,+    -- | This specifies if the action needs manual or automatic approval.+    approvalModel :: ApprovalModel,+    subscribers :: Prelude.NonEmpty Subscriber+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateBudgetAction' 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:+--+-- 'accountId', 'createBudgetAction_accountId' - Undocumented member.+--+-- 'budgetName', 'createBudgetAction_budgetName' - Undocumented member.+--+-- 'notificationType', 'createBudgetAction_notificationType' - Undocumented member.+--+-- 'actionType', 'createBudgetAction_actionType' - The type of action. This defines the type of tasks that can be carried+-- out by this action. This field also determines the format for+-- definition.+--+-- 'actionThreshold', 'createBudgetAction_actionThreshold' - Undocumented member.+--+-- 'definition', 'createBudgetAction_definition' - Undocumented member.+--+-- 'executionRoleArn', 'createBudgetAction_executionRoleArn' - The role passed for action execution and reversion. Roles and actions+-- must be in the same account.+--+-- 'approvalModel', 'createBudgetAction_approvalModel' - This specifies if the action needs manual or automatic approval.+--+-- 'subscribers', 'createBudgetAction_subscribers' - Undocumented member.+newCreateBudgetAction ::+  -- | 'accountId'+  Prelude.Text ->+  -- | 'budgetName'+  Prelude.Text ->+  -- | 'notificationType'+  NotificationType ->+  -- | 'actionType'+  ActionType ->+  -- | 'actionThreshold'+  ActionThreshold ->+  -- | 'definition'+  Definition ->+  -- | 'executionRoleArn'+  Prelude.Text ->+  -- | 'approvalModel'+  ApprovalModel ->+  -- | 'subscribers'+  Prelude.NonEmpty Subscriber ->+  CreateBudgetAction+newCreateBudgetAction+  pAccountId_+  pBudgetName_+  pNotificationType_+  pActionType_+  pActionThreshold_+  pDefinition_+  pExecutionRoleArn_+  pApprovalModel_+  pSubscribers_ =+    CreateBudgetAction'+      { accountId = pAccountId_,+        budgetName = pBudgetName_,+        notificationType = pNotificationType_,+        actionType = pActionType_,+        actionThreshold = pActionThreshold_,+        definition = pDefinition_,+        executionRoleArn = pExecutionRoleArn_,+        approvalModel = pApprovalModel_,+        subscribers = Lens.coerced Lens.# pSubscribers_+      }++-- | Undocumented member.+createBudgetAction_accountId :: Lens.Lens' CreateBudgetAction Prelude.Text+createBudgetAction_accountId = Lens.lens (\CreateBudgetAction' {accountId} -> accountId) (\s@CreateBudgetAction' {} a -> s {accountId = a} :: CreateBudgetAction)++-- | Undocumented member.+createBudgetAction_budgetName :: Lens.Lens' CreateBudgetAction Prelude.Text+createBudgetAction_budgetName = Lens.lens (\CreateBudgetAction' {budgetName} -> budgetName) (\s@CreateBudgetAction' {} a -> s {budgetName = a} :: CreateBudgetAction)++-- | Undocumented member.+createBudgetAction_notificationType :: Lens.Lens' CreateBudgetAction NotificationType+createBudgetAction_notificationType = Lens.lens (\CreateBudgetAction' {notificationType} -> notificationType) (\s@CreateBudgetAction' {} a -> s {notificationType = a} :: CreateBudgetAction)++-- | The type of action. This defines the type of tasks that can be carried+-- out by this action. This field also determines the format for+-- definition.+createBudgetAction_actionType :: Lens.Lens' CreateBudgetAction ActionType+createBudgetAction_actionType = Lens.lens (\CreateBudgetAction' {actionType} -> actionType) (\s@CreateBudgetAction' {} a -> s {actionType = a} :: CreateBudgetAction)++-- | Undocumented member.+createBudgetAction_actionThreshold :: Lens.Lens' CreateBudgetAction ActionThreshold+createBudgetAction_actionThreshold = Lens.lens (\CreateBudgetAction' {actionThreshold} -> actionThreshold) (\s@CreateBudgetAction' {} a -> s {actionThreshold = a} :: CreateBudgetAction)++-- | Undocumented member.+createBudgetAction_definition :: Lens.Lens' CreateBudgetAction Definition+createBudgetAction_definition = Lens.lens (\CreateBudgetAction' {definition} -> definition) (\s@CreateBudgetAction' {} a -> s {definition = a} :: CreateBudgetAction)++-- | The role passed for action execution and reversion. Roles and actions+-- must be in the same account.+createBudgetAction_executionRoleArn :: Lens.Lens' CreateBudgetAction Prelude.Text+createBudgetAction_executionRoleArn = Lens.lens (\CreateBudgetAction' {executionRoleArn} -> executionRoleArn) (\s@CreateBudgetAction' {} a -> s {executionRoleArn = a} :: CreateBudgetAction)++-- | This specifies if the action needs manual or automatic approval.+createBudgetAction_approvalModel :: Lens.Lens' CreateBudgetAction ApprovalModel+createBudgetAction_approvalModel = Lens.lens (\CreateBudgetAction' {approvalModel} -> approvalModel) (\s@CreateBudgetAction' {} a -> s {approvalModel = a} :: CreateBudgetAction)++-- | Undocumented member.+createBudgetAction_subscribers :: Lens.Lens' CreateBudgetAction (Prelude.NonEmpty Subscriber)+createBudgetAction_subscribers = Lens.lens (\CreateBudgetAction' {subscribers} -> subscribers) (\s@CreateBudgetAction' {} a -> s {subscribers = a} :: CreateBudgetAction) Prelude.. Lens.coerced++instance Core.AWSRequest CreateBudgetAction where+  type+    AWSResponse CreateBudgetAction =+      CreateBudgetActionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateBudgetActionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "AccountId")+            Prelude.<*> (x Data..:> "BudgetName")+            Prelude.<*> (x Data..:> "ActionId")+      )++instance Prelude.Hashable CreateBudgetAction where+  hashWithSalt _salt CreateBudgetAction' {..} =+    _salt+      `Prelude.hashWithSalt` accountId+      `Prelude.hashWithSalt` budgetName+      `Prelude.hashWithSalt` notificationType+      `Prelude.hashWithSalt` actionType+      `Prelude.hashWithSalt` actionThreshold+      `Prelude.hashWithSalt` definition+      `Prelude.hashWithSalt` executionRoleArn+      `Prelude.hashWithSalt` approvalModel+      `Prelude.hashWithSalt` subscribers++instance Prelude.NFData CreateBudgetAction where+  rnf CreateBudgetAction' {..} =+    Prelude.rnf accountId+      `Prelude.seq` Prelude.rnf budgetName+      `Prelude.seq` Prelude.rnf notificationType+      `Prelude.seq` Prelude.rnf actionType+      `Prelude.seq` Prelude.rnf actionThreshold+      `Prelude.seq` Prelude.rnf definition+      `Prelude.seq` Prelude.rnf executionRoleArn+      `Prelude.seq` Prelude.rnf approvalModel+      `Prelude.seq` Prelude.rnf subscribers++instance Data.ToHeaders CreateBudgetAction where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSBudgetServiceGateway.CreateBudgetAction" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateBudgetAction where+  toJSON CreateBudgetAction' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("AccountId" Data..= accountId),+            Prelude.Just ("BudgetName" Data..= budgetName),+            Prelude.Just+              ("NotificationType" Data..= notificationType),+            Prelude.Just ("ActionType" Data..= actionType),+            Prelude.Just+              ("ActionThreshold" Data..= actionThreshold),+            Prelude.Just ("Definition" Data..= definition),+            Prelude.Just+              ("ExecutionRoleArn" Data..= executionRoleArn),+            Prelude.Just ("ApprovalModel" Data..= approvalModel),+            Prelude.Just ("Subscribers" Data..= subscribers)+          ]+      )++instance Data.ToPath CreateBudgetAction where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateBudgetAction where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateBudgetActionResponse' smart constructor.+data CreateBudgetActionResponse = CreateBudgetActionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    accountId :: Prelude.Text,+    budgetName :: Prelude.Text,+    -- | A system-generated universally unique identifier (UUID) for the action.+    actionId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateBudgetActionResponse' 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', 'createBudgetActionResponse_httpStatus' - The response's http status code.+--+-- 'accountId', 'createBudgetActionResponse_accountId' - Undocumented member.+--+-- 'budgetName', 'createBudgetActionResponse_budgetName' - Undocumented member.+--+-- 'actionId', 'createBudgetActionResponse_actionId' - A system-generated universally unique identifier (UUID) for the action.+newCreateBudgetActionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'accountId'+  Prelude.Text ->+  -- | 'budgetName'+  Prelude.Text ->+  -- | 'actionId'+  Prelude.Text ->+  CreateBudgetActionResponse+newCreateBudgetActionResponse+  pHttpStatus_+  pAccountId_+  pBudgetName_+  pActionId_ =+    CreateBudgetActionResponse'+      { httpStatus =+          pHttpStatus_,+        accountId = pAccountId_,+        budgetName = pBudgetName_,+        actionId = pActionId_+      }++-- | The response's http status code.+createBudgetActionResponse_httpStatus :: Lens.Lens' CreateBudgetActionResponse Prelude.Int+createBudgetActionResponse_httpStatus = Lens.lens (\CreateBudgetActionResponse' {httpStatus} -> httpStatus) (\s@CreateBudgetActionResponse' {} a -> s {httpStatus = a} :: CreateBudgetActionResponse)++-- | Undocumented member.+createBudgetActionResponse_accountId :: Lens.Lens' CreateBudgetActionResponse Prelude.Text+createBudgetActionResponse_accountId = Lens.lens (\CreateBudgetActionResponse' {accountId} -> accountId) (\s@CreateBudgetActionResponse' {} a -> s {accountId = a} :: CreateBudgetActionResponse)++-- | Undocumented member.+createBudgetActionResponse_budgetName :: Lens.Lens' CreateBudgetActionResponse Prelude.Text+createBudgetActionResponse_budgetName = Lens.lens (\CreateBudgetActionResponse' {budgetName} -> budgetName) (\s@CreateBudgetActionResponse' {} a -> s {budgetName = a} :: CreateBudgetActionResponse)++-- | A system-generated universally unique identifier (UUID) for the action.+createBudgetActionResponse_actionId :: Lens.Lens' CreateBudgetActionResponse Prelude.Text+createBudgetActionResponse_actionId = Lens.lens (\CreateBudgetActionResponse' {actionId} -> actionId) (\s@CreateBudgetActionResponse' {} a -> s {actionId = a} :: CreateBudgetActionResponse)++instance Prelude.NFData CreateBudgetActionResponse where+  rnf CreateBudgetActionResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf accountId+      `Prelude.seq` Prelude.rnf budgetName+      `Prelude.seq` Prelude.rnf actionId

@@ -0,0 +1,227 @@+{-# 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.Budgets.CreateNotification+-- 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 notification. You must create the budget before you create the+-- associated notification.+module Amazonka.Budgets.CreateNotification+  ( -- * Creating a Request+    CreateNotification (..),+    newCreateNotification,++    -- * Request Lenses+    createNotification_accountId,+    createNotification_budgetName,+    createNotification_notification,+    createNotification_subscribers,++    -- * Destructuring the Response+    CreateNotificationResponse (..),+    newCreateNotificationResponse,++    -- * Response Lenses+    createNotificationResponse_httpStatus,+  )+where++import Amazonka.Budgets.Types+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 qualified Amazonka.Response as Response++-- | Request of CreateNotification+--+-- /See:/ 'newCreateNotification' smart constructor.+data CreateNotification = CreateNotification'+  { -- | The @accountId@ that is associated with the budget that you want to+    -- create a notification for.+    accountId :: Prelude.Text,+    -- | The name of the budget that you want Amazon Web Services to notify you+    -- about. Budget names must be unique within an account.+    budgetName :: Prelude.Text,+    -- | The notification that you want to create.+    notification :: Notification,+    -- | A list of subscribers that you want to associate with the notification.+    -- Each notification can have one SNS subscriber and up to 10 email+    -- subscribers.+    subscribers :: Prelude.NonEmpty Subscriber+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateNotification' 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:+--+-- 'accountId', 'createNotification_accountId' - The @accountId@ that is associated with the budget that you want to+-- create a notification for.+--+-- 'budgetName', 'createNotification_budgetName' - The name of the budget that you want Amazon Web Services to notify you+-- about. Budget names must be unique within an account.+--+-- 'notification', 'createNotification_notification' - The notification that you want to create.+--+-- 'subscribers', 'createNotification_subscribers' - A list of subscribers that you want to associate with the notification.+-- Each notification can have one SNS subscriber and up to 10 email+-- subscribers.+newCreateNotification ::+  -- | 'accountId'+  Prelude.Text ->+  -- | 'budgetName'+  Prelude.Text ->+  -- | 'notification'+  Notification ->+  -- | 'subscribers'+  Prelude.NonEmpty Subscriber ->+  CreateNotification+newCreateNotification+  pAccountId_+  pBudgetName_+  pNotification_+  pSubscribers_ =+    CreateNotification'+      { accountId = pAccountId_,+        budgetName = pBudgetName_,+        notification = pNotification_,+        subscribers = Lens.coerced Lens.# pSubscribers_+      }++-- | The @accountId@ that is associated with the budget that you want to+-- create a notification for.+createNotification_accountId :: Lens.Lens' CreateNotification Prelude.Text+createNotification_accountId = Lens.lens (\CreateNotification' {accountId} -> accountId) (\s@CreateNotification' {} a -> s {accountId = a} :: CreateNotification)++-- | The name of the budget that you want Amazon Web Services to notify you+-- about. Budget names must be unique within an account.+createNotification_budgetName :: Lens.Lens' CreateNotification Prelude.Text+createNotification_budgetName = Lens.lens (\CreateNotification' {budgetName} -> budgetName) (\s@CreateNotification' {} a -> s {budgetName = a} :: CreateNotification)++-- | The notification that you want to create.+createNotification_notification :: Lens.Lens' CreateNotification Notification+createNotification_notification = Lens.lens (\CreateNotification' {notification} -> notification) (\s@CreateNotification' {} a -> s {notification = a} :: CreateNotification)++-- | A list of subscribers that you want to associate with the notification.+-- Each notification can have one SNS subscriber and up to 10 email+-- subscribers.+createNotification_subscribers :: Lens.Lens' CreateNotification (Prelude.NonEmpty Subscriber)+createNotification_subscribers = Lens.lens (\CreateNotification' {subscribers} -> subscribers) (\s@CreateNotification' {} a -> s {subscribers = a} :: CreateNotification) Prelude.. Lens.coerced++instance Core.AWSRequest CreateNotification where+  type+    AWSResponse CreateNotification =+      CreateNotificationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          CreateNotificationResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateNotification where+  hashWithSalt _salt CreateNotification' {..} =+    _salt+      `Prelude.hashWithSalt` accountId+      `Prelude.hashWithSalt` budgetName+      `Prelude.hashWithSalt` notification+      `Prelude.hashWithSalt` subscribers++instance Prelude.NFData CreateNotification where+  rnf CreateNotification' {..} =+    Prelude.rnf accountId+      `Prelude.seq` Prelude.rnf budgetName+      `Prelude.seq` Prelude.rnf notification+      `Prelude.seq` Prelude.rnf subscribers++instance Data.ToHeaders CreateNotification where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSBudgetServiceGateway.CreateNotification" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateNotification where+  toJSON CreateNotification' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("AccountId" Data..= accountId),+            Prelude.Just ("BudgetName" Data..= budgetName),+            Prelude.Just ("Notification" Data..= notification),+            Prelude.Just ("Subscribers" Data..= subscribers)+          ]+      )++instance Data.ToPath CreateNotification where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateNotification where+  toQuery = Prelude.const Prelude.mempty++-- | Response of CreateNotification+--+-- /See:/ 'newCreateNotificationResponse' smart constructor.+data CreateNotificationResponse = CreateNotificationResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateNotificationResponse' 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', 'createNotificationResponse_httpStatus' - The response's http status code.+newCreateNotificationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateNotificationResponse+newCreateNotificationResponse pHttpStatus_ =+  CreateNotificationResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+createNotificationResponse_httpStatus :: Lens.Lens' CreateNotificationResponse Prelude.Int+createNotificationResponse_httpStatus = Lens.lens (\CreateNotificationResponse' {httpStatus} -> httpStatus) (\s@CreateNotificationResponse' {} a -> s {httpStatus = a} :: CreateNotificationResponse)++instance Prelude.NFData CreateNotificationResponse where+  rnf CreateNotificationResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,221 @@+{-# 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.Budgets.CreateSubscriber+-- 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 subscriber. You must create the associated budget and+-- notification before you create the subscriber.+module Amazonka.Budgets.CreateSubscriber+  ( -- * Creating a Request+    CreateSubscriber (..),+    newCreateSubscriber,++    -- * Request Lenses+    createSubscriber_accountId,+    createSubscriber_budgetName,+    createSubscriber_notification,+    createSubscriber_subscriber,++    -- * Destructuring the Response+    CreateSubscriberResponse (..),+    newCreateSubscriberResponse,++    -- * Response Lenses+    createSubscriberResponse_httpStatus,+  )+where++import Amazonka.Budgets.Types+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 qualified Amazonka.Response as Response++-- | Request of CreateSubscriber+--+-- /See:/ 'newCreateSubscriber' smart constructor.+data CreateSubscriber = CreateSubscriber'+  { -- | The @accountId@ that is associated with the budget that you want to+    -- create a subscriber for.+    accountId :: Prelude.Text,+    -- | The name of the budget that you want to subscribe to. Budget names must+    -- be unique within an account.+    budgetName :: Prelude.Text,+    -- | The notification that you want to create a subscriber for.+    notification :: Notification,+    -- | The subscriber that you want to associate with a budget notification.+    subscriber :: Subscriber+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateSubscriber' 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:+--+-- 'accountId', 'createSubscriber_accountId' - The @accountId@ that is associated with the budget that you want to+-- create a subscriber for.+--+-- 'budgetName', 'createSubscriber_budgetName' - The name of the budget that you want to subscribe to. Budget names must+-- be unique within an account.+--+-- 'notification', 'createSubscriber_notification' - The notification that you want to create a subscriber for.+--+-- 'subscriber', 'createSubscriber_subscriber' - The subscriber that you want to associate with a budget notification.+newCreateSubscriber ::+  -- | 'accountId'+  Prelude.Text ->+  -- | 'budgetName'+  Prelude.Text ->+  -- | 'notification'+  Notification ->+  -- | 'subscriber'+  Subscriber ->+  CreateSubscriber+newCreateSubscriber+  pAccountId_+  pBudgetName_+  pNotification_+  pSubscriber_ =+    CreateSubscriber'+      { accountId = pAccountId_,+        budgetName = pBudgetName_,+        notification = pNotification_,+        subscriber = pSubscriber_+      }++-- | The @accountId@ that is associated with the budget that you want to+-- create a subscriber for.+createSubscriber_accountId :: Lens.Lens' CreateSubscriber Prelude.Text+createSubscriber_accountId = Lens.lens (\CreateSubscriber' {accountId} -> accountId) (\s@CreateSubscriber' {} a -> s {accountId = a} :: CreateSubscriber)++-- | The name of the budget that you want to subscribe to. Budget names must+-- be unique within an account.+createSubscriber_budgetName :: Lens.Lens' CreateSubscriber Prelude.Text+createSubscriber_budgetName = Lens.lens (\CreateSubscriber' {budgetName} -> budgetName) (\s@CreateSubscriber' {} a -> s {budgetName = a} :: CreateSubscriber)++-- | The notification that you want to create a subscriber for.+createSubscriber_notification :: Lens.Lens' CreateSubscriber Notification+createSubscriber_notification = Lens.lens (\CreateSubscriber' {notification} -> notification) (\s@CreateSubscriber' {} a -> s {notification = a} :: CreateSubscriber)++-- | The subscriber that you want to associate with a budget notification.+createSubscriber_subscriber :: Lens.Lens' CreateSubscriber Subscriber+createSubscriber_subscriber = Lens.lens (\CreateSubscriber' {subscriber} -> subscriber) (\s@CreateSubscriber' {} a -> s {subscriber = a} :: CreateSubscriber)++instance Core.AWSRequest CreateSubscriber where+  type+    AWSResponse CreateSubscriber =+      CreateSubscriberResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          CreateSubscriberResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateSubscriber where+  hashWithSalt _salt CreateSubscriber' {..} =+    _salt+      `Prelude.hashWithSalt` accountId+      `Prelude.hashWithSalt` budgetName+      `Prelude.hashWithSalt` notification+      `Prelude.hashWithSalt` subscriber++instance Prelude.NFData CreateSubscriber where+  rnf CreateSubscriber' {..} =+    Prelude.rnf accountId+      `Prelude.seq` Prelude.rnf budgetName+      `Prelude.seq` Prelude.rnf notification+      `Prelude.seq` Prelude.rnf subscriber++instance Data.ToHeaders CreateSubscriber where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSBudgetServiceGateway.CreateSubscriber" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateSubscriber where+  toJSON CreateSubscriber' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("AccountId" Data..= accountId),+            Prelude.Just ("BudgetName" Data..= budgetName),+            Prelude.Just ("Notification" Data..= notification),+            Prelude.Just ("Subscriber" Data..= subscriber)+          ]+      )++instance Data.ToPath CreateSubscriber where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateSubscriber where+  toQuery = Prelude.const Prelude.mempty++-- | Response of CreateSubscriber+--+-- /See:/ 'newCreateSubscriberResponse' smart constructor.+data CreateSubscriberResponse = CreateSubscriberResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateSubscriberResponse' 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', 'createSubscriberResponse_httpStatus' - The response's http status code.+newCreateSubscriberResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateSubscriberResponse+newCreateSubscriberResponse pHttpStatus_ =+  CreateSubscriberResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+createSubscriberResponse_httpStatus :: Lens.Lens' CreateSubscriberResponse Prelude.Int+createSubscriberResponse_httpStatus = Lens.lens (\CreateSubscriberResponse' {httpStatus} -> httpStatus) (\s@CreateSubscriberResponse' {} a -> s {httpStatus = a} :: CreateSubscriberResponse)++instance Prelude.NFData CreateSubscriberResponse where+  rnf CreateSubscriberResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,181 @@+{-# 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.Budgets.DeleteBudget+-- 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 a budget. You can delete your budget at any time.+--+-- Deleting a budget also deletes the notifications and subscribers that+-- are associated with that budget.+module Amazonka.Budgets.DeleteBudget+  ( -- * Creating a Request+    DeleteBudget (..),+    newDeleteBudget,++    -- * Request Lenses+    deleteBudget_accountId,+    deleteBudget_budgetName,++    -- * Destructuring the Response+    DeleteBudgetResponse (..),+    newDeleteBudgetResponse,++    -- * Response Lenses+    deleteBudgetResponse_httpStatus,+  )+where++import Amazonka.Budgets.Types+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 qualified Amazonka.Response as Response++-- | Request of DeleteBudget+--+-- /See:/ 'newDeleteBudget' smart constructor.+data DeleteBudget = DeleteBudget'+  { -- | The @accountId@ that is associated with the budget that you want to+    -- delete.+    accountId :: Prelude.Text,+    -- | The name of the budget that you want to delete.+    budgetName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteBudget' 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:+--+-- 'accountId', 'deleteBudget_accountId' - The @accountId@ that is associated with the budget that you want to+-- delete.+--+-- 'budgetName', 'deleteBudget_budgetName' - The name of the budget that you want to delete.+newDeleteBudget ::+  -- | 'accountId'+  Prelude.Text ->+  -- | 'budgetName'+  Prelude.Text ->+  DeleteBudget+newDeleteBudget pAccountId_ pBudgetName_ =+  DeleteBudget'+    { accountId = pAccountId_,+      budgetName = pBudgetName_+    }++-- | The @accountId@ that is associated with the budget that you want to+-- delete.+deleteBudget_accountId :: Lens.Lens' DeleteBudget Prelude.Text+deleteBudget_accountId = Lens.lens (\DeleteBudget' {accountId} -> accountId) (\s@DeleteBudget' {} a -> s {accountId = a} :: DeleteBudget)++-- | The name of the budget that you want to delete.+deleteBudget_budgetName :: Lens.Lens' DeleteBudget Prelude.Text+deleteBudget_budgetName = Lens.lens (\DeleteBudget' {budgetName} -> budgetName) (\s@DeleteBudget' {} a -> s {budgetName = a} :: DeleteBudget)++instance Core.AWSRequest DeleteBudget where+  type AWSResponse DeleteBudget = DeleteBudgetResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteBudgetResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteBudget where+  hashWithSalt _salt DeleteBudget' {..} =+    _salt+      `Prelude.hashWithSalt` accountId+      `Prelude.hashWithSalt` budgetName++instance Prelude.NFData DeleteBudget where+  rnf DeleteBudget' {..} =+    Prelude.rnf accountId+      `Prelude.seq` Prelude.rnf budgetName++instance Data.ToHeaders DeleteBudget where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSBudgetServiceGateway.DeleteBudget" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteBudget where+  toJSON DeleteBudget' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("AccountId" Data..= accountId),+            Prelude.Just ("BudgetName" Data..= budgetName)+          ]+      )++instance Data.ToPath DeleteBudget where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteBudget where+  toQuery = Prelude.const Prelude.mempty++-- | Response of DeleteBudget+--+-- /See:/ 'newDeleteBudgetResponse' smart constructor.+data DeleteBudgetResponse = DeleteBudgetResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteBudgetResponse' 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', 'deleteBudgetResponse_httpStatus' - The response's http status code.+newDeleteBudgetResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteBudgetResponse+newDeleteBudgetResponse pHttpStatus_ =+  DeleteBudgetResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+deleteBudgetResponse_httpStatus :: Lens.Lens' DeleteBudgetResponse Prelude.Int+deleteBudgetResponse_httpStatus = Lens.lens (\DeleteBudgetResponse' {httpStatus} -> httpStatus) (\s@DeleteBudgetResponse' {} a -> s {httpStatus = a} :: DeleteBudgetResponse)++instance Prelude.NFData DeleteBudgetResponse where+  rnf DeleteBudgetResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,235 @@+{-# 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.Budgets.DeleteBudgetAction+-- 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 a budget action.+module Amazonka.Budgets.DeleteBudgetAction+  ( -- * Creating a Request+    DeleteBudgetAction (..),+    newDeleteBudgetAction,++    -- * Request Lenses+    deleteBudgetAction_accountId,+    deleteBudgetAction_budgetName,+    deleteBudgetAction_actionId,++    -- * Destructuring the Response+    DeleteBudgetActionResponse (..),+    newDeleteBudgetActionResponse,++    -- * Response Lenses+    deleteBudgetActionResponse_httpStatus,+    deleteBudgetActionResponse_accountId,+    deleteBudgetActionResponse_budgetName,+    deleteBudgetActionResponse_action,+  )+where++import Amazonka.Budgets.Types+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 qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteBudgetAction' smart constructor.+data DeleteBudgetAction = DeleteBudgetAction'+  { accountId :: Prelude.Text,+    budgetName :: Prelude.Text,+    -- | A system-generated universally unique identifier (UUID) for the action.+    actionId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteBudgetAction' 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:+--+-- 'accountId', 'deleteBudgetAction_accountId' - Undocumented member.+--+-- 'budgetName', 'deleteBudgetAction_budgetName' - Undocumented member.+--+-- 'actionId', 'deleteBudgetAction_actionId' - A system-generated universally unique identifier (UUID) for the action.+newDeleteBudgetAction ::+  -- | 'accountId'+  Prelude.Text ->+  -- | 'budgetName'+  Prelude.Text ->+  -- | 'actionId'+  Prelude.Text ->+  DeleteBudgetAction+newDeleteBudgetAction+  pAccountId_+  pBudgetName_+  pActionId_ =+    DeleteBudgetAction'+      { accountId = pAccountId_,+        budgetName = pBudgetName_,+        actionId = pActionId_+      }++-- | Undocumented member.+deleteBudgetAction_accountId :: Lens.Lens' DeleteBudgetAction Prelude.Text+deleteBudgetAction_accountId = Lens.lens (\DeleteBudgetAction' {accountId} -> accountId) (\s@DeleteBudgetAction' {} a -> s {accountId = a} :: DeleteBudgetAction)++-- | Undocumented member.+deleteBudgetAction_budgetName :: Lens.Lens' DeleteBudgetAction Prelude.Text+deleteBudgetAction_budgetName = Lens.lens (\DeleteBudgetAction' {budgetName} -> budgetName) (\s@DeleteBudgetAction' {} a -> s {budgetName = a} :: DeleteBudgetAction)++-- | A system-generated universally unique identifier (UUID) for the action.+deleteBudgetAction_actionId :: Lens.Lens' DeleteBudgetAction Prelude.Text+deleteBudgetAction_actionId = Lens.lens (\DeleteBudgetAction' {actionId} -> actionId) (\s@DeleteBudgetAction' {} a -> s {actionId = a} :: DeleteBudgetAction)++instance Core.AWSRequest DeleteBudgetAction where+  type+    AWSResponse DeleteBudgetAction =+      DeleteBudgetActionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteBudgetActionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "AccountId")+            Prelude.<*> (x Data..:> "BudgetName")+            Prelude.<*> (x Data..:> "Action")+      )++instance Prelude.Hashable DeleteBudgetAction where+  hashWithSalt _salt DeleteBudgetAction' {..} =+    _salt+      `Prelude.hashWithSalt` accountId+      `Prelude.hashWithSalt` budgetName+      `Prelude.hashWithSalt` actionId++instance Prelude.NFData DeleteBudgetAction where+  rnf DeleteBudgetAction' {..} =+    Prelude.rnf accountId+      `Prelude.seq` Prelude.rnf budgetName+      `Prelude.seq` Prelude.rnf actionId++instance Data.ToHeaders DeleteBudgetAction where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSBudgetServiceGateway.DeleteBudgetAction" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteBudgetAction where+  toJSON DeleteBudgetAction' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("AccountId" Data..= accountId),+            Prelude.Just ("BudgetName" Data..= budgetName),+            Prelude.Just ("ActionId" Data..= actionId)+          ]+      )++instance Data.ToPath DeleteBudgetAction where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteBudgetAction where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteBudgetActionResponse' smart constructor.+data DeleteBudgetActionResponse = DeleteBudgetActionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    accountId :: Prelude.Text,+    budgetName :: Prelude.Text,+    action :: Action+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteBudgetActionResponse' 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', 'deleteBudgetActionResponse_httpStatus' - The response's http status code.+--+-- 'accountId', 'deleteBudgetActionResponse_accountId' - Undocumented member.+--+-- 'budgetName', 'deleteBudgetActionResponse_budgetName' - Undocumented member.+--+-- 'action', 'deleteBudgetActionResponse_action' - Undocumented member.+newDeleteBudgetActionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'accountId'+  Prelude.Text ->+  -- | 'budgetName'+  Prelude.Text ->+  -- | 'action'+  Action ->+  DeleteBudgetActionResponse+newDeleteBudgetActionResponse+  pHttpStatus_+  pAccountId_+  pBudgetName_+  pAction_ =+    DeleteBudgetActionResponse'+      { httpStatus =+          pHttpStatus_,+        accountId = pAccountId_,+        budgetName = pBudgetName_,+        action = pAction_+      }++-- | The response's http status code.+deleteBudgetActionResponse_httpStatus :: Lens.Lens' DeleteBudgetActionResponse Prelude.Int+deleteBudgetActionResponse_httpStatus = Lens.lens (\DeleteBudgetActionResponse' {httpStatus} -> httpStatus) (\s@DeleteBudgetActionResponse' {} a -> s {httpStatus = a} :: DeleteBudgetActionResponse)++-- | Undocumented member.+deleteBudgetActionResponse_accountId :: Lens.Lens' DeleteBudgetActionResponse Prelude.Text+deleteBudgetActionResponse_accountId = Lens.lens (\DeleteBudgetActionResponse' {accountId} -> accountId) (\s@DeleteBudgetActionResponse' {} a -> s {accountId = a} :: DeleteBudgetActionResponse)++-- | Undocumented member.+deleteBudgetActionResponse_budgetName :: Lens.Lens' DeleteBudgetActionResponse Prelude.Text+deleteBudgetActionResponse_budgetName = Lens.lens (\DeleteBudgetActionResponse' {budgetName} -> budgetName) (\s@DeleteBudgetActionResponse' {} a -> s {budgetName = a} :: DeleteBudgetActionResponse)++-- | Undocumented member.+deleteBudgetActionResponse_action :: Lens.Lens' DeleteBudgetActionResponse Action+deleteBudgetActionResponse_action = Lens.lens (\DeleteBudgetActionResponse' {action} -> action) (\s@DeleteBudgetActionResponse' {} a -> s {action = a} :: DeleteBudgetActionResponse)++instance Prelude.NFData DeleteBudgetActionResponse where+  rnf DeleteBudgetActionResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf accountId+      `Prelude.seq` Prelude.rnf budgetName+      `Prelude.seq` Prelude.rnf action

@@ -0,0 +1,204 @@+{-# 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.Budgets.DeleteNotification+-- 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 a notification.+--+-- Deleting a notification also deletes the subscribers that are associated+-- with the notification.+module Amazonka.Budgets.DeleteNotification+  ( -- * Creating a Request+    DeleteNotification (..),+    newDeleteNotification,++    -- * Request Lenses+    deleteNotification_accountId,+    deleteNotification_budgetName,+    deleteNotification_notification,++    -- * Destructuring the Response+    DeleteNotificationResponse (..),+    newDeleteNotificationResponse,++    -- * Response Lenses+    deleteNotificationResponse_httpStatus,+  )+where++import Amazonka.Budgets.Types+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 qualified Amazonka.Response as Response++-- | Request of DeleteNotification+--+-- /See:/ 'newDeleteNotification' smart constructor.+data DeleteNotification = DeleteNotification'+  { -- | The @accountId@ that is associated with the budget whose notification+    -- you want to delete.+    accountId :: Prelude.Text,+    -- | The name of the budget whose notification you want to delete.+    budgetName :: Prelude.Text,+    -- | The notification that you want to delete.+    notification :: Notification+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteNotification' 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:+--+-- 'accountId', 'deleteNotification_accountId' - The @accountId@ that is associated with the budget whose notification+-- you want to delete.+--+-- 'budgetName', 'deleteNotification_budgetName' - The name of the budget whose notification you want to delete.+--+-- 'notification', 'deleteNotification_notification' - The notification that you want to delete.+newDeleteNotification ::+  -- | 'accountId'+  Prelude.Text ->+  -- | 'budgetName'+  Prelude.Text ->+  -- | 'notification'+  Notification ->+  DeleteNotification+newDeleteNotification+  pAccountId_+  pBudgetName_+  pNotification_ =+    DeleteNotification'+      { accountId = pAccountId_,+        budgetName = pBudgetName_,+        notification = pNotification_+      }++-- | The @accountId@ that is associated with the budget whose notification+-- you want to delete.+deleteNotification_accountId :: Lens.Lens' DeleteNotification Prelude.Text+deleteNotification_accountId = Lens.lens (\DeleteNotification' {accountId} -> accountId) (\s@DeleteNotification' {} a -> s {accountId = a} :: DeleteNotification)++-- | The name of the budget whose notification you want to delete.+deleteNotification_budgetName :: Lens.Lens' DeleteNotification Prelude.Text+deleteNotification_budgetName = Lens.lens (\DeleteNotification' {budgetName} -> budgetName) (\s@DeleteNotification' {} a -> s {budgetName = a} :: DeleteNotification)++-- | The notification that you want to delete.+deleteNotification_notification :: Lens.Lens' DeleteNotification Notification+deleteNotification_notification = Lens.lens (\DeleteNotification' {notification} -> notification) (\s@DeleteNotification' {} a -> s {notification = a} :: DeleteNotification)++instance Core.AWSRequest DeleteNotification where+  type+    AWSResponse DeleteNotification =+      DeleteNotificationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteNotificationResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteNotification where+  hashWithSalt _salt DeleteNotification' {..} =+    _salt+      `Prelude.hashWithSalt` accountId+      `Prelude.hashWithSalt` budgetName+      `Prelude.hashWithSalt` notification++instance Prelude.NFData DeleteNotification where+  rnf DeleteNotification' {..} =+    Prelude.rnf accountId+      `Prelude.seq` Prelude.rnf budgetName+      `Prelude.seq` Prelude.rnf notification++instance Data.ToHeaders DeleteNotification where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSBudgetServiceGateway.DeleteNotification" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteNotification where+  toJSON DeleteNotification' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("AccountId" Data..= accountId),+            Prelude.Just ("BudgetName" Data..= budgetName),+            Prelude.Just ("Notification" Data..= notification)+          ]+      )++instance Data.ToPath DeleteNotification where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteNotification where+  toQuery = Prelude.const Prelude.mempty++-- | Response of DeleteNotification+--+-- /See:/ 'newDeleteNotificationResponse' smart constructor.+data DeleteNotificationResponse = DeleteNotificationResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteNotificationResponse' 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', 'deleteNotificationResponse_httpStatus' - The response's http status code.+newDeleteNotificationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteNotificationResponse+newDeleteNotificationResponse pHttpStatus_ =+  DeleteNotificationResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteNotificationResponse_httpStatus :: Lens.Lens' DeleteNotificationResponse Prelude.Int+deleteNotificationResponse_httpStatus = Lens.lens (\DeleteNotificationResponse' {httpStatus} -> httpStatus) (\s@DeleteNotificationResponse' {} a -> s {httpStatus = a} :: DeleteNotificationResponse)++instance Prelude.NFData DeleteNotificationResponse where+  rnf DeleteNotificationResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,220 @@+{-# 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.Budgets.DeleteSubscriber+-- 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 a subscriber.+--+-- Deleting the last subscriber to a notification also deletes the+-- notification.+module Amazonka.Budgets.DeleteSubscriber+  ( -- * Creating a Request+    DeleteSubscriber (..),+    newDeleteSubscriber,++    -- * Request Lenses+    deleteSubscriber_accountId,+    deleteSubscriber_budgetName,+    deleteSubscriber_notification,+    deleteSubscriber_subscriber,++    -- * Destructuring the Response+    DeleteSubscriberResponse (..),+    newDeleteSubscriberResponse,++    -- * Response Lenses+    deleteSubscriberResponse_httpStatus,+  )+where++import Amazonka.Budgets.Types+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 qualified Amazonka.Response as Response++-- | Request of DeleteSubscriber+--+-- /See:/ 'newDeleteSubscriber' smart constructor.+data DeleteSubscriber = DeleteSubscriber'+  { -- | The @accountId@ that is associated with the budget whose subscriber you+    -- want to delete.+    accountId :: Prelude.Text,+    -- | The name of the budget whose subscriber you want to delete.+    budgetName :: Prelude.Text,+    -- | The notification whose subscriber you want to delete.+    notification :: Notification,+    -- | The subscriber that you want to delete.+    subscriber :: Subscriber+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSubscriber' 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:+--+-- 'accountId', 'deleteSubscriber_accountId' - The @accountId@ that is associated with the budget whose subscriber you+-- want to delete.+--+-- 'budgetName', 'deleteSubscriber_budgetName' - The name of the budget whose subscriber you want to delete.+--+-- 'notification', 'deleteSubscriber_notification' - The notification whose subscriber you want to delete.+--+-- 'subscriber', 'deleteSubscriber_subscriber' - The subscriber that you want to delete.+newDeleteSubscriber ::+  -- | 'accountId'+  Prelude.Text ->+  -- | 'budgetName'+  Prelude.Text ->+  -- | 'notification'+  Notification ->+  -- | 'subscriber'+  Subscriber ->+  DeleteSubscriber+newDeleteSubscriber+  pAccountId_+  pBudgetName_+  pNotification_+  pSubscriber_ =+    DeleteSubscriber'+      { accountId = pAccountId_,+        budgetName = pBudgetName_,+        notification = pNotification_,+        subscriber = pSubscriber_+      }++-- | The @accountId@ that is associated with the budget whose subscriber you+-- want to delete.+deleteSubscriber_accountId :: Lens.Lens' DeleteSubscriber Prelude.Text+deleteSubscriber_accountId = Lens.lens (\DeleteSubscriber' {accountId} -> accountId) (\s@DeleteSubscriber' {} a -> s {accountId = a} :: DeleteSubscriber)++-- | The name of the budget whose subscriber you want to delete.+deleteSubscriber_budgetName :: Lens.Lens' DeleteSubscriber Prelude.Text+deleteSubscriber_budgetName = Lens.lens (\DeleteSubscriber' {budgetName} -> budgetName) (\s@DeleteSubscriber' {} a -> s {budgetName = a} :: DeleteSubscriber)++-- | The notification whose subscriber you want to delete.+deleteSubscriber_notification :: Lens.Lens' DeleteSubscriber Notification+deleteSubscriber_notification = Lens.lens (\DeleteSubscriber' {notification} -> notification) (\s@DeleteSubscriber' {} a -> s {notification = a} :: DeleteSubscriber)++-- | The subscriber that you want to delete.+deleteSubscriber_subscriber :: Lens.Lens' DeleteSubscriber Subscriber+deleteSubscriber_subscriber = Lens.lens (\DeleteSubscriber' {subscriber} -> subscriber) (\s@DeleteSubscriber' {} a -> s {subscriber = a} :: DeleteSubscriber)++instance Core.AWSRequest DeleteSubscriber where+  type+    AWSResponse DeleteSubscriber =+      DeleteSubscriberResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteSubscriberResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteSubscriber where+  hashWithSalt _salt DeleteSubscriber' {..} =+    _salt+      `Prelude.hashWithSalt` accountId+      `Prelude.hashWithSalt` budgetName+      `Prelude.hashWithSalt` notification+      `Prelude.hashWithSalt` subscriber++instance Prelude.NFData DeleteSubscriber where+  rnf DeleteSubscriber' {..} =+    Prelude.rnf accountId+      `Prelude.seq` Prelude.rnf budgetName+      `Prelude.seq` Prelude.rnf notification+      `Prelude.seq` Prelude.rnf subscriber++instance Data.ToHeaders DeleteSubscriber where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSBudgetServiceGateway.DeleteSubscriber" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteSubscriber where+  toJSON DeleteSubscriber' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("AccountId" Data..= accountId),+            Prelude.Just ("BudgetName" Data..= budgetName),+            Prelude.Just ("Notification" Data..= notification),+            Prelude.Just ("Subscriber" Data..= subscriber)+          ]+      )++instance Data.ToPath DeleteSubscriber where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteSubscriber where+  toQuery = Prelude.const Prelude.mempty++-- | Response of DeleteSubscriber+--+-- /See:/ 'newDeleteSubscriberResponse' smart constructor.+data DeleteSubscriberResponse = DeleteSubscriberResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSubscriberResponse' 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', 'deleteSubscriberResponse_httpStatus' - The response's http status code.+newDeleteSubscriberResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteSubscriberResponse+newDeleteSubscriberResponse pHttpStatus_ =+  DeleteSubscriberResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteSubscriberResponse_httpStatus :: Lens.Lens' DeleteSubscriberResponse Prelude.Int+deleteSubscriberResponse_httpStatus = Lens.lens (\DeleteSubscriberResponse' {httpStatus} -> httpStatus) (\s@DeleteSubscriberResponse' {} a -> s {httpStatus = a} :: DeleteSubscriberResponse)++instance Prelude.NFData DeleteSubscriberResponse where+  rnf DeleteSubscriberResponse' {..} =+    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.Budgets.DescribeBudget+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes a budget.+--+-- The Request Syntax section shows the @BudgetLimit@ syntax. For+-- @PlannedBudgetLimits@, see the+-- <https://docs.aws.amazon.com/aws-cost-management/latest/APIReference/API_budgets_DescribeBudget.html#API_DescribeBudget_Examples Examples>+-- section.+module Amazonka.Budgets.DescribeBudget+  ( -- * Creating a Request+    DescribeBudget (..),+    newDescribeBudget,++    -- * Request Lenses+    describeBudget_accountId,+    describeBudget_budgetName,++    -- * Destructuring the Response+    DescribeBudgetResponse (..),+    newDescribeBudgetResponse,++    -- * Response Lenses+    describeBudgetResponse_budget,+    describeBudgetResponse_httpStatus,+  )+where++import Amazonka.Budgets.Types+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 qualified Amazonka.Response as Response++-- | Request of DescribeBudget+--+-- /See:/ 'newDescribeBudget' smart constructor.+data DescribeBudget = DescribeBudget'+  { -- | The @accountId@ that is associated with the budget that you want a+    -- description of.+    accountId :: Prelude.Text,+    -- | The name of the budget that you want a description of.+    budgetName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBudget' 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:+--+-- 'accountId', 'describeBudget_accountId' - The @accountId@ that is associated with the budget that you want a+-- description of.+--+-- 'budgetName', 'describeBudget_budgetName' - The name of the budget that you want a description of.+newDescribeBudget ::+  -- | 'accountId'+  Prelude.Text ->+  -- | 'budgetName'+  Prelude.Text ->+  DescribeBudget+newDescribeBudget pAccountId_ pBudgetName_ =+  DescribeBudget'+    { accountId = pAccountId_,+      budgetName = pBudgetName_+    }++-- | The @accountId@ that is associated with the budget that you want a+-- description of.+describeBudget_accountId :: Lens.Lens' DescribeBudget Prelude.Text+describeBudget_accountId = Lens.lens (\DescribeBudget' {accountId} -> accountId) (\s@DescribeBudget' {} a -> s {accountId = a} :: DescribeBudget)++-- | The name of the budget that you want a description of.+describeBudget_budgetName :: Lens.Lens' DescribeBudget Prelude.Text+describeBudget_budgetName = Lens.lens (\DescribeBudget' {budgetName} -> budgetName) (\s@DescribeBudget' {} a -> s {budgetName = a} :: DescribeBudget)++instance Core.AWSRequest DescribeBudget where+  type+    AWSResponse DescribeBudget =+      DescribeBudgetResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeBudgetResponse'+            Prelude.<$> (x Data..?> "Budget")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeBudget where+  hashWithSalt _salt DescribeBudget' {..} =+    _salt+      `Prelude.hashWithSalt` accountId+      `Prelude.hashWithSalt` budgetName++instance Prelude.NFData DescribeBudget where+  rnf DescribeBudget' {..} =+    Prelude.rnf accountId+      `Prelude.seq` Prelude.rnf budgetName++instance Data.ToHeaders DescribeBudget where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSBudgetServiceGateway.DescribeBudget" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeBudget where+  toJSON DescribeBudget' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("AccountId" Data..= accountId),+            Prelude.Just ("BudgetName" Data..= budgetName)+          ]+      )++instance Data.ToPath DescribeBudget where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeBudget where+  toQuery = Prelude.const Prelude.mempty++-- | Response of DescribeBudget+--+-- /See:/ 'newDescribeBudgetResponse' smart constructor.+data DescribeBudgetResponse = DescribeBudgetResponse'+  { -- | The description of the budget.+    budget :: Prelude.Maybe Budget,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBudgetResponse' 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:+--+-- 'budget', 'describeBudgetResponse_budget' - The description of the budget.+--+-- 'httpStatus', 'describeBudgetResponse_httpStatus' - The response's http status code.+newDescribeBudgetResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeBudgetResponse+newDescribeBudgetResponse pHttpStatus_ =+  DescribeBudgetResponse'+    { budget = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The description of the budget.+describeBudgetResponse_budget :: Lens.Lens' DescribeBudgetResponse (Prelude.Maybe Budget)+describeBudgetResponse_budget = Lens.lens (\DescribeBudgetResponse' {budget} -> budget) (\s@DescribeBudgetResponse' {} a -> s {budget = a} :: DescribeBudgetResponse)++-- | The response's http status code.+describeBudgetResponse_httpStatus :: Lens.Lens' DescribeBudgetResponse Prelude.Int+describeBudgetResponse_httpStatus = Lens.lens (\DescribeBudgetResponse' {httpStatus} -> httpStatus) (\s@DescribeBudgetResponse' {} a -> s {httpStatus = a} :: DescribeBudgetResponse)++instance Prelude.NFData DescribeBudgetResponse where+  rnf DescribeBudgetResponse' {..} =+    Prelude.rnf budget+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,236 @@+{-# 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.Budgets.DescribeBudgetAction+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes a budget action detail.+module Amazonka.Budgets.DescribeBudgetAction+  ( -- * Creating a Request+    DescribeBudgetAction (..),+    newDescribeBudgetAction,++    -- * Request Lenses+    describeBudgetAction_accountId,+    describeBudgetAction_budgetName,+    describeBudgetAction_actionId,++    -- * Destructuring the Response+    DescribeBudgetActionResponse (..),+    newDescribeBudgetActionResponse,++    -- * Response Lenses+    describeBudgetActionResponse_httpStatus,+    describeBudgetActionResponse_accountId,+    describeBudgetActionResponse_budgetName,+    describeBudgetActionResponse_action,+  )+where++import Amazonka.Budgets.Types+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 qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeBudgetAction' smart constructor.+data DescribeBudgetAction = DescribeBudgetAction'+  { accountId :: Prelude.Text,+    budgetName :: Prelude.Text,+    -- | A system-generated universally unique identifier (UUID) for the action.+    actionId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBudgetAction' 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:+--+-- 'accountId', 'describeBudgetAction_accountId' - Undocumented member.+--+-- 'budgetName', 'describeBudgetAction_budgetName' - Undocumented member.+--+-- 'actionId', 'describeBudgetAction_actionId' - A system-generated universally unique identifier (UUID) for the action.+newDescribeBudgetAction ::+  -- | 'accountId'+  Prelude.Text ->+  -- | 'budgetName'+  Prelude.Text ->+  -- | 'actionId'+  Prelude.Text ->+  DescribeBudgetAction+newDescribeBudgetAction+  pAccountId_+  pBudgetName_+  pActionId_ =+    DescribeBudgetAction'+      { accountId = pAccountId_,+        budgetName = pBudgetName_,+        actionId = pActionId_+      }++-- | Undocumented member.+describeBudgetAction_accountId :: Lens.Lens' DescribeBudgetAction Prelude.Text+describeBudgetAction_accountId = Lens.lens (\DescribeBudgetAction' {accountId} -> accountId) (\s@DescribeBudgetAction' {} a -> s {accountId = a} :: DescribeBudgetAction)++-- | Undocumented member.+describeBudgetAction_budgetName :: Lens.Lens' DescribeBudgetAction Prelude.Text+describeBudgetAction_budgetName = Lens.lens (\DescribeBudgetAction' {budgetName} -> budgetName) (\s@DescribeBudgetAction' {} a -> s {budgetName = a} :: DescribeBudgetAction)++-- | A system-generated universally unique identifier (UUID) for the action.+describeBudgetAction_actionId :: Lens.Lens' DescribeBudgetAction Prelude.Text+describeBudgetAction_actionId = Lens.lens (\DescribeBudgetAction' {actionId} -> actionId) (\s@DescribeBudgetAction' {} a -> s {actionId = a} :: DescribeBudgetAction)++instance Core.AWSRequest DescribeBudgetAction where+  type+    AWSResponse DescribeBudgetAction =+      DescribeBudgetActionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeBudgetActionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "AccountId")+            Prelude.<*> (x Data..:> "BudgetName")+            Prelude.<*> (x Data..:> "Action")+      )++instance Prelude.Hashable DescribeBudgetAction where+  hashWithSalt _salt DescribeBudgetAction' {..} =+    _salt+      `Prelude.hashWithSalt` accountId+      `Prelude.hashWithSalt` budgetName+      `Prelude.hashWithSalt` actionId++instance Prelude.NFData DescribeBudgetAction where+  rnf DescribeBudgetAction' {..} =+    Prelude.rnf accountId+      `Prelude.seq` Prelude.rnf budgetName+      `Prelude.seq` Prelude.rnf actionId++instance Data.ToHeaders DescribeBudgetAction where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSBudgetServiceGateway.DescribeBudgetAction" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeBudgetAction where+  toJSON DescribeBudgetAction' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("AccountId" Data..= accountId),+            Prelude.Just ("BudgetName" Data..= budgetName),+            Prelude.Just ("ActionId" Data..= actionId)+          ]+      )++instance Data.ToPath DescribeBudgetAction where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeBudgetAction where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeBudgetActionResponse' smart constructor.+data DescribeBudgetActionResponse = DescribeBudgetActionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    accountId :: Prelude.Text,+    budgetName :: Prelude.Text,+    -- | A budget action resource.+    action :: Action+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBudgetActionResponse' 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', 'describeBudgetActionResponse_httpStatus' - The response's http status code.+--+-- 'accountId', 'describeBudgetActionResponse_accountId' - Undocumented member.+--+-- 'budgetName', 'describeBudgetActionResponse_budgetName' - Undocumented member.+--+-- 'action', 'describeBudgetActionResponse_action' - A budget action resource.+newDescribeBudgetActionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'accountId'+  Prelude.Text ->+  -- | 'budgetName'+  Prelude.Text ->+  -- | 'action'+  Action ->+  DescribeBudgetActionResponse+newDescribeBudgetActionResponse+  pHttpStatus_+  pAccountId_+  pBudgetName_+  pAction_ =+    DescribeBudgetActionResponse'+      { httpStatus =+          pHttpStatus_,+        accountId = pAccountId_,+        budgetName = pBudgetName_,+        action = pAction_+      }++-- | The response's http status code.+describeBudgetActionResponse_httpStatus :: Lens.Lens' DescribeBudgetActionResponse Prelude.Int+describeBudgetActionResponse_httpStatus = Lens.lens (\DescribeBudgetActionResponse' {httpStatus} -> httpStatus) (\s@DescribeBudgetActionResponse' {} a -> s {httpStatus = a} :: DescribeBudgetActionResponse)++-- | Undocumented member.+describeBudgetActionResponse_accountId :: Lens.Lens' DescribeBudgetActionResponse Prelude.Text+describeBudgetActionResponse_accountId = Lens.lens (\DescribeBudgetActionResponse' {accountId} -> accountId) (\s@DescribeBudgetActionResponse' {} a -> s {accountId = a} :: DescribeBudgetActionResponse)++-- | Undocumented member.+describeBudgetActionResponse_budgetName :: Lens.Lens' DescribeBudgetActionResponse Prelude.Text+describeBudgetActionResponse_budgetName = Lens.lens (\DescribeBudgetActionResponse' {budgetName} -> budgetName) (\s@DescribeBudgetActionResponse' {} a -> s {budgetName = a} :: DescribeBudgetActionResponse)++-- | A budget action resource.+describeBudgetActionResponse_action :: Lens.Lens' DescribeBudgetActionResponse Action+describeBudgetActionResponse_action = Lens.lens (\DescribeBudgetActionResponse' {action} -> action) (\s@DescribeBudgetActionResponse' {} a -> s {action = a} :: DescribeBudgetActionResponse)++instance Prelude.NFData DescribeBudgetActionResponse where+  rnf DescribeBudgetActionResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf accountId+      `Prelude.seq` Prelude.rnf budgetName+      `Prelude.seq` Prelude.rnf action

@@ -0,0 +1,287 @@+{-# 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.Budgets.DescribeBudgetActionHistories+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes a budget action history detail.+--+-- This operation returns paginated results.+module Amazonka.Budgets.DescribeBudgetActionHistories+  ( -- * Creating a Request+    DescribeBudgetActionHistories (..),+    newDescribeBudgetActionHistories,++    -- * Request Lenses+    describeBudgetActionHistories_maxResults,+    describeBudgetActionHistories_nextToken,+    describeBudgetActionHistories_timePeriod,+    describeBudgetActionHistories_accountId,+    describeBudgetActionHistories_budgetName,+    describeBudgetActionHistories_actionId,++    -- * Destructuring the Response+    DescribeBudgetActionHistoriesResponse (..),+    newDescribeBudgetActionHistoriesResponse,++    -- * Response Lenses+    describeBudgetActionHistoriesResponse_nextToken,+    describeBudgetActionHistoriesResponse_httpStatus,+    describeBudgetActionHistoriesResponse_actionHistories,+  )+where++import Amazonka.Budgets.Types+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 qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeBudgetActionHistories' smart constructor.+data DescribeBudgetActionHistories = DescribeBudgetActionHistories'+  { maxResults :: Prelude.Maybe Prelude.Natural,+    nextToken :: Prelude.Maybe Prelude.Text,+    timePeriod :: Prelude.Maybe TimePeriod,+    accountId :: Prelude.Text,+    budgetName :: Prelude.Text,+    -- | A system-generated universally unique identifier (UUID) for the action.+    actionId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBudgetActionHistories' 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', 'describeBudgetActionHistories_maxResults' - Undocumented member.+--+-- 'nextToken', 'describeBudgetActionHistories_nextToken' - Undocumented member.+--+-- 'timePeriod', 'describeBudgetActionHistories_timePeriod' - Undocumented member.+--+-- 'accountId', 'describeBudgetActionHistories_accountId' - Undocumented member.+--+-- 'budgetName', 'describeBudgetActionHistories_budgetName' - Undocumented member.+--+-- 'actionId', 'describeBudgetActionHistories_actionId' - A system-generated universally unique identifier (UUID) for the action.+newDescribeBudgetActionHistories ::+  -- | 'accountId'+  Prelude.Text ->+  -- | 'budgetName'+  Prelude.Text ->+  -- | 'actionId'+  Prelude.Text ->+  DescribeBudgetActionHistories+newDescribeBudgetActionHistories+  pAccountId_+  pBudgetName_+  pActionId_ =+    DescribeBudgetActionHistories'+      { maxResults =+          Prelude.Nothing,+        nextToken = Prelude.Nothing,+        timePeriod = Prelude.Nothing,+        accountId = pAccountId_,+        budgetName = pBudgetName_,+        actionId = pActionId_+      }++-- | Undocumented member.+describeBudgetActionHistories_maxResults :: Lens.Lens' DescribeBudgetActionHistories (Prelude.Maybe Prelude.Natural)+describeBudgetActionHistories_maxResults = Lens.lens (\DescribeBudgetActionHistories' {maxResults} -> maxResults) (\s@DescribeBudgetActionHistories' {} a -> s {maxResults = a} :: DescribeBudgetActionHistories)++-- | Undocumented member.+describeBudgetActionHistories_nextToken :: Lens.Lens' DescribeBudgetActionHistories (Prelude.Maybe Prelude.Text)+describeBudgetActionHistories_nextToken = Lens.lens (\DescribeBudgetActionHistories' {nextToken} -> nextToken) (\s@DescribeBudgetActionHistories' {} a -> s {nextToken = a} :: DescribeBudgetActionHistories)++-- | Undocumented member.+describeBudgetActionHistories_timePeriod :: Lens.Lens' DescribeBudgetActionHistories (Prelude.Maybe TimePeriod)+describeBudgetActionHistories_timePeriod = Lens.lens (\DescribeBudgetActionHistories' {timePeriod} -> timePeriod) (\s@DescribeBudgetActionHistories' {} a -> s {timePeriod = a} :: DescribeBudgetActionHistories)++-- | Undocumented member.+describeBudgetActionHistories_accountId :: Lens.Lens' DescribeBudgetActionHistories Prelude.Text+describeBudgetActionHistories_accountId = Lens.lens (\DescribeBudgetActionHistories' {accountId} -> accountId) (\s@DescribeBudgetActionHistories' {} a -> s {accountId = a} :: DescribeBudgetActionHistories)++-- | Undocumented member.+describeBudgetActionHistories_budgetName :: Lens.Lens' DescribeBudgetActionHistories Prelude.Text+describeBudgetActionHistories_budgetName = Lens.lens (\DescribeBudgetActionHistories' {budgetName} -> budgetName) (\s@DescribeBudgetActionHistories' {} a -> s {budgetName = a} :: DescribeBudgetActionHistories)++-- | A system-generated universally unique identifier (UUID) for the action.+describeBudgetActionHistories_actionId :: Lens.Lens' DescribeBudgetActionHistories Prelude.Text+describeBudgetActionHistories_actionId = Lens.lens (\DescribeBudgetActionHistories' {actionId} -> actionId) (\s@DescribeBudgetActionHistories' {} a -> s {actionId = a} :: DescribeBudgetActionHistories)++instance Core.AWSPager DescribeBudgetActionHistories where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeBudgetActionHistoriesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^. describeBudgetActionHistoriesResponse_actionHistories+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeBudgetActionHistories_nextToken+          Lens..~ rs+          Lens.^? describeBudgetActionHistoriesResponse_nextToken+          Prelude.. Lens._Just++instance+  Core.AWSRequest+    DescribeBudgetActionHistories+  where+  type+    AWSResponse DescribeBudgetActionHistories =+      DescribeBudgetActionHistoriesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeBudgetActionHistoriesResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> ( x+                            Data..?> "ActionHistories"+                            Core..!@ Prelude.mempty+                        )+      )++instance+  Prelude.Hashable+    DescribeBudgetActionHistories+  where+  hashWithSalt _salt DescribeBudgetActionHistories' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` timePeriod+      `Prelude.hashWithSalt` accountId+      `Prelude.hashWithSalt` budgetName+      `Prelude.hashWithSalt` actionId++instance Prelude.NFData DescribeBudgetActionHistories where+  rnf DescribeBudgetActionHistories' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf timePeriod+      `Prelude.seq` Prelude.rnf accountId+      `Prelude.seq` Prelude.rnf budgetName+      `Prelude.seq` Prelude.rnf actionId++instance Data.ToHeaders DescribeBudgetActionHistories where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSBudgetServiceGateway.DescribeBudgetActionHistories" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeBudgetActionHistories where+  toJSON DescribeBudgetActionHistories' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("TimePeriod" Data..=) Prelude.<$> timePeriod,+            Prelude.Just ("AccountId" Data..= accountId),+            Prelude.Just ("BudgetName" Data..= budgetName),+            Prelude.Just ("ActionId" Data..= actionId)+          ]+      )++instance Data.ToPath DescribeBudgetActionHistories where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeBudgetActionHistories where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeBudgetActionHistoriesResponse' smart constructor.+data DescribeBudgetActionHistoriesResponse = DescribeBudgetActionHistoriesResponse'+  { nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The historical record of the budget action resource.+    actionHistories :: [ActionHistory]+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBudgetActionHistoriesResponse' 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', 'describeBudgetActionHistoriesResponse_nextToken' - Undocumented member.+--+-- 'httpStatus', 'describeBudgetActionHistoriesResponse_httpStatus' - The response's http status code.+--+-- 'actionHistories', 'describeBudgetActionHistoriesResponse_actionHistories' - The historical record of the budget action resource.+newDescribeBudgetActionHistoriesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeBudgetActionHistoriesResponse+newDescribeBudgetActionHistoriesResponse pHttpStatus_ =+  DescribeBudgetActionHistoriesResponse'+    { nextToken =+        Prelude.Nothing,+      httpStatus = pHttpStatus_,+      actionHistories = Prelude.mempty+    }++-- | Undocumented member.+describeBudgetActionHistoriesResponse_nextToken :: Lens.Lens' DescribeBudgetActionHistoriesResponse (Prelude.Maybe Prelude.Text)+describeBudgetActionHistoriesResponse_nextToken = Lens.lens (\DescribeBudgetActionHistoriesResponse' {nextToken} -> nextToken) (\s@DescribeBudgetActionHistoriesResponse' {} a -> s {nextToken = a} :: DescribeBudgetActionHistoriesResponse)++-- | The response's http status code.+describeBudgetActionHistoriesResponse_httpStatus :: Lens.Lens' DescribeBudgetActionHistoriesResponse Prelude.Int+describeBudgetActionHistoriesResponse_httpStatus = Lens.lens (\DescribeBudgetActionHistoriesResponse' {httpStatus} -> httpStatus) (\s@DescribeBudgetActionHistoriesResponse' {} a -> s {httpStatus = a} :: DescribeBudgetActionHistoriesResponse)++-- | The historical record of the budget action resource.+describeBudgetActionHistoriesResponse_actionHistories :: Lens.Lens' DescribeBudgetActionHistoriesResponse [ActionHistory]+describeBudgetActionHistoriesResponse_actionHistories = Lens.lens (\DescribeBudgetActionHistoriesResponse' {actionHistories} -> actionHistories) (\s@DescribeBudgetActionHistoriesResponse' {} a -> s {actionHistories = a} :: DescribeBudgetActionHistoriesResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    DescribeBudgetActionHistoriesResponse+  where+  rnf DescribeBudgetActionHistoriesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf actionHistories

@@ -0,0 +1,252 @@+{-# 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.Budgets.DescribeBudgetActionsForAccount+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes all of the budget actions for an account.+--+-- This operation returns paginated results.+module Amazonka.Budgets.DescribeBudgetActionsForAccount+  ( -- * Creating a Request+    DescribeBudgetActionsForAccount (..),+    newDescribeBudgetActionsForAccount,++    -- * Request Lenses+    describeBudgetActionsForAccount_maxResults,+    describeBudgetActionsForAccount_nextToken,+    describeBudgetActionsForAccount_accountId,++    -- * Destructuring the Response+    DescribeBudgetActionsForAccountResponse (..),+    newDescribeBudgetActionsForAccountResponse,++    -- * Response Lenses+    describeBudgetActionsForAccountResponse_nextToken,+    describeBudgetActionsForAccountResponse_httpStatus,+    describeBudgetActionsForAccountResponse_actions,+  )+where++import Amazonka.Budgets.Types+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 qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeBudgetActionsForAccount' smart constructor.+data DescribeBudgetActionsForAccount = DescribeBudgetActionsForAccount'+  { maxResults :: Prelude.Maybe Prelude.Natural,+    nextToken :: Prelude.Maybe Prelude.Text,+    accountId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBudgetActionsForAccount' 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', 'describeBudgetActionsForAccount_maxResults' - Undocumented member.+--+-- 'nextToken', 'describeBudgetActionsForAccount_nextToken' - Undocumented member.+--+-- 'accountId', 'describeBudgetActionsForAccount_accountId' - Undocumented member.+newDescribeBudgetActionsForAccount ::+  -- | 'accountId'+  Prelude.Text ->+  DescribeBudgetActionsForAccount+newDescribeBudgetActionsForAccount pAccountId_ =+  DescribeBudgetActionsForAccount'+    { maxResults =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      accountId = pAccountId_+    }++-- | Undocumented member.+describeBudgetActionsForAccount_maxResults :: Lens.Lens' DescribeBudgetActionsForAccount (Prelude.Maybe Prelude.Natural)+describeBudgetActionsForAccount_maxResults = Lens.lens (\DescribeBudgetActionsForAccount' {maxResults} -> maxResults) (\s@DescribeBudgetActionsForAccount' {} a -> s {maxResults = a} :: DescribeBudgetActionsForAccount)++-- | Undocumented member.+describeBudgetActionsForAccount_nextToken :: Lens.Lens' DescribeBudgetActionsForAccount (Prelude.Maybe Prelude.Text)+describeBudgetActionsForAccount_nextToken = Lens.lens (\DescribeBudgetActionsForAccount' {nextToken} -> nextToken) (\s@DescribeBudgetActionsForAccount' {} a -> s {nextToken = a} :: DescribeBudgetActionsForAccount)++-- | Undocumented member.+describeBudgetActionsForAccount_accountId :: Lens.Lens' DescribeBudgetActionsForAccount Prelude.Text+describeBudgetActionsForAccount_accountId = Lens.lens (\DescribeBudgetActionsForAccount' {accountId} -> accountId) (\s@DescribeBudgetActionsForAccount' {} a -> s {accountId = a} :: DescribeBudgetActionsForAccount)++instance+  Core.AWSPager+    DescribeBudgetActionsForAccount+  where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeBudgetActionsForAccountResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^. describeBudgetActionsForAccountResponse_actions+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeBudgetActionsForAccount_nextToken+          Lens..~ rs+          Lens.^? describeBudgetActionsForAccountResponse_nextToken+          Prelude.. Lens._Just++instance+  Core.AWSRequest+    DescribeBudgetActionsForAccount+  where+  type+    AWSResponse DescribeBudgetActionsForAccount =+      DescribeBudgetActionsForAccountResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeBudgetActionsForAccountResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "Actions" Core..!@ Prelude.mempty)+      )++instance+  Prelude.Hashable+    DescribeBudgetActionsForAccount+  where+  hashWithSalt+    _salt+    DescribeBudgetActionsForAccount' {..} =+      _salt+        `Prelude.hashWithSalt` maxResults+        `Prelude.hashWithSalt` nextToken+        `Prelude.hashWithSalt` accountId++instance+  Prelude.NFData+    DescribeBudgetActionsForAccount+  where+  rnf DescribeBudgetActionsForAccount' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf accountId++instance+  Data.ToHeaders+    DescribeBudgetActionsForAccount+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSBudgetServiceGateway.DescribeBudgetActionsForAccount" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeBudgetActionsForAccount where+  toJSON DescribeBudgetActionsForAccount' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("AccountId" Data..= accountId)+          ]+      )++instance Data.ToPath DescribeBudgetActionsForAccount where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeBudgetActionsForAccount where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeBudgetActionsForAccountResponse' smart constructor.+data DescribeBudgetActionsForAccountResponse = DescribeBudgetActionsForAccountResponse'+  { nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | A list of the budget action resources information.+    actions :: [Action]+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBudgetActionsForAccountResponse' 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', 'describeBudgetActionsForAccountResponse_nextToken' - Undocumented member.+--+-- 'httpStatus', 'describeBudgetActionsForAccountResponse_httpStatus' - The response's http status code.+--+-- 'actions', 'describeBudgetActionsForAccountResponse_actions' - A list of the budget action resources information.+newDescribeBudgetActionsForAccountResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeBudgetActionsForAccountResponse+newDescribeBudgetActionsForAccountResponse+  pHttpStatus_ =+    DescribeBudgetActionsForAccountResponse'+      { nextToken =+          Prelude.Nothing,+        httpStatus = pHttpStatus_,+        actions = Prelude.mempty+      }++-- | Undocumented member.+describeBudgetActionsForAccountResponse_nextToken :: Lens.Lens' DescribeBudgetActionsForAccountResponse (Prelude.Maybe Prelude.Text)+describeBudgetActionsForAccountResponse_nextToken = Lens.lens (\DescribeBudgetActionsForAccountResponse' {nextToken} -> nextToken) (\s@DescribeBudgetActionsForAccountResponse' {} a -> s {nextToken = a} :: DescribeBudgetActionsForAccountResponse)++-- | The response's http status code.+describeBudgetActionsForAccountResponse_httpStatus :: Lens.Lens' DescribeBudgetActionsForAccountResponse Prelude.Int+describeBudgetActionsForAccountResponse_httpStatus = Lens.lens (\DescribeBudgetActionsForAccountResponse' {httpStatus} -> httpStatus) (\s@DescribeBudgetActionsForAccountResponse' {} a -> s {httpStatus = a} :: DescribeBudgetActionsForAccountResponse)++-- | A list of the budget action resources information.+describeBudgetActionsForAccountResponse_actions :: Lens.Lens' DescribeBudgetActionsForAccountResponse [Action]+describeBudgetActionsForAccountResponse_actions = Lens.lens (\DescribeBudgetActionsForAccountResponse' {actions} -> actions) (\s@DescribeBudgetActionsForAccountResponse' {} a -> s {actions = a} :: DescribeBudgetActionsForAccountResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    DescribeBudgetActionsForAccountResponse+  where+  rnf DescribeBudgetActionsForAccountResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf actions

@@ -0,0 +1,265 @@+{-# 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.Budgets.DescribeBudgetActionsForBudget+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes all of the budget actions for a budget.+--+-- This operation returns paginated results.+module Amazonka.Budgets.DescribeBudgetActionsForBudget+  ( -- * Creating a Request+    DescribeBudgetActionsForBudget (..),+    newDescribeBudgetActionsForBudget,++    -- * Request Lenses+    describeBudgetActionsForBudget_maxResults,+    describeBudgetActionsForBudget_nextToken,+    describeBudgetActionsForBudget_accountId,+    describeBudgetActionsForBudget_budgetName,++    -- * Destructuring the Response+    DescribeBudgetActionsForBudgetResponse (..),+    newDescribeBudgetActionsForBudgetResponse,++    -- * Response Lenses+    describeBudgetActionsForBudgetResponse_nextToken,+    describeBudgetActionsForBudgetResponse_httpStatus,+    describeBudgetActionsForBudgetResponse_actions,+  )+where++import Amazonka.Budgets.Types+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 qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeBudgetActionsForBudget' smart constructor.+data DescribeBudgetActionsForBudget = DescribeBudgetActionsForBudget'+  { maxResults :: Prelude.Maybe Prelude.Natural,+    nextToken :: Prelude.Maybe Prelude.Text,+    accountId :: Prelude.Text,+    budgetName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBudgetActionsForBudget' 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', 'describeBudgetActionsForBudget_maxResults' - Undocumented member.+--+-- 'nextToken', 'describeBudgetActionsForBudget_nextToken' - Undocumented member.+--+-- 'accountId', 'describeBudgetActionsForBudget_accountId' - Undocumented member.+--+-- 'budgetName', 'describeBudgetActionsForBudget_budgetName' - Undocumented member.+newDescribeBudgetActionsForBudget ::+  -- | 'accountId'+  Prelude.Text ->+  -- | 'budgetName'+  Prelude.Text ->+  DescribeBudgetActionsForBudget+newDescribeBudgetActionsForBudget+  pAccountId_+  pBudgetName_ =+    DescribeBudgetActionsForBudget'+      { maxResults =+          Prelude.Nothing,+        nextToken = Prelude.Nothing,+        accountId = pAccountId_,+        budgetName = pBudgetName_+      }++-- | Undocumented member.+describeBudgetActionsForBudget_maxResults :: Lens.Lens' DescribeBudgetActionsForBudget (Prelude.Maybe Prelude.Natural)+describeBudgetActionsForBudget_maxResults = Lens.lens (\DescribeBudgetActionsForBudget' {maxResults} -> maxResults) (\s@DescribeBudgetActionsForBudget' {} a -> s {maxResults = a} :: DescribeBudgetActionsForBudget)++-- | Undocumented member.+describeBudgetActionsForBudget_nextToken :: Lens.Lens' DescribeBudgetActionsForBudget (Prelude.Maybe Prelude.Text)+describeBudgetActionsForBudget_nextToken = Lens.lens (\DescribeBudgetActionsForBudget' {nextToken} -> nextToken) (\s@DescribeBudgetActionsForBudget' {} a -> s {nextToken = a} :: DescribeBudgetActionsForBudget)++-- | Undocumented member.+describeBudgetActionsForBudget_accountId :: Lens.Lens' DescribeBudgetActionsForBudget Prelude.Text+describeBudgetActionsForBudget_accountId = Lens.lens (\DescribeBudgetActionsForBudget' {accountId} -> accountId) (\s@DescribeBudgetActionsForBudget' {} a -> s {accountId = a} :: DescribeBudgetActionsForBudget)++-- | Undocumented member.+describeBudgetActionsForBudget_budgetName :: Lens.Lens' DescribeBudgetActionsForBudget Prelude.Text+describeBudgetActionsForBudget_budgetName = Lens.lens (\DescribeBudgetActionsForBudget' {budgetName} -> budgetName) (\s@DescribeBudgetActionsForBudget' {} a -> s {budgetName = a} :: DescribeBudgetActionsForBudget)++instance Core.AWSPager DescribeBudgetActionsForBudget where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeBudgetActionsForBudgetResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^. describeBudgetActionsForBudgetResponse_actions+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeBudgetActionsForBudget_nextToken+          Lens..~ rs+          Lens.^? describeBudgetActionsForBudgetResponse_nextToken+          Prelude.. Lens._Just++instance+  Core.AWSRequest+    DescribeBudgetActionsForBudget+  where+  type+    AWSResponse DescribeBudgetActionsForBudget =+      DescribeBudgetActionsForBudgetResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeBudgetActionsForBudgetResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..?> "Actions" Core..!@ Prelude.mempty)+      )++instance+  Prelude.Hashable+    DescribeBudgetActionsForBudget+  where+  hashWithSalt+    _salt+    DescribeBudgetActionsForBudget' {..} =+      _salt+        `Prelude.hashWithSalt` maxResults+        `Prelude.hashWithSalt` nextToken+        `Prelude.hashWithSalt` accountId+        `Prelude.hashWithSalt` budgetName++instance+  Prelude.NFData+    DescribeBudgetActionsForBudget+  where+  rnf DescribeBudgetActionsForBudget' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf accountId+      `Prelude.seq` Prelude.rnf budgetName++instance+  Data.ToHeaders+    DescribeBudgetActionsForBudget+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSBudgetServiceGateway.DescribeBudgetActionsForBudget" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeBudgetActionsForBudget where+  toJSON DescribeBudgetActionsForBudget' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("AccountId" Data..= accountId),+            Prelude.Just ("BudgetName" Data..= budgetName)+          ]+      )++instance Data.ToPath DescribeBudgetActionsForBudget where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeBudgetActionsForBudget where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeBudgetActionsForBudgetResponse' smart constructor.+data DescribeBudgetActionsForBudgetResponse = DescribeBudgetActionsForBudgetResponse'+  { nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | A list of the budget action resources information.+    actions :: [Action]+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBudgetActionsForBudgetResponse' 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', 'describeBudgetActionsForBudgetResponse_nextToken' - Undocumented member.+--+-- 'httpStatus', 'describeBudgetActionsForBudgetResponse_httpStatus' - The response's http status code.+--+-- 'actions', 'describeBudgetActionsForBudgetResponse_actions' - A list of the budget action resources information.+newDescribeBudgetActionsForBudgetResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeBudgetActionsForBudgetResponse+newDescribeBudgetActionsForBudgetResponse+  pHttpStatus_ =+    DescribeBudgetActionsForBudgetResponse'+      { nextToken =+          Prelude.Nothing,+        httpStatus = pHttpStatus_,+        actions = Prelude.mempty+      }++-- | Undocumented member.+describeBudgetActionsForBudgetResponse_nextToken :: Lens.Lens' DescribeBudgetActionsForBudgetResponse (Prelude.Maybe Prelude.Text)+describeBudgetActionsForBudgetResponse_nextToken = Lens.lens (\DescribeBudgetActionsForBudgetResponse' {nextToken} -> nextToken) (\s@DescribeBudgetActionsForBudgetResponse' {} a -> s {nextToken = a} :: DescribeBudgetActionsForBudgetResponse)++-- | The response's http status code.+describeBudgetActionsForBudgetResponse_httpStatus :: Lens.Lens' DescribeBudgetActionsForBudgetResponse Prelude.Int+describeBudgetActionsForBudgetResponse_httpStatus = Lens.lens (\DescribeBudgetActionsForBudgetResponse' {httpStatus} -> httpStatus) (\s@DescribeBudgetActionsForBudgetResponse' {} a -> s {httpStatus = a} :: DescribeBudgetActionsForBudgetResponse)++-- | A list of the budget action resources information.+describeBudgetActionsForBudgetResponse_actions :: Lens.Lens' DescribeBudgetActionsForBudgetResponse [Action]+describeBudgetActionsForBudgetResponse_actions = Lens.lens (\DescribeBudgetActionsForBudgetResponse' {actions} -> actions) (\s@DescribeBudgetActionsForBudgetResponse' {} a -> s {actions = a} :: DescribeBudgetActionsForBudgetResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    DescribeBudgetActionsForBudgetResponse+  where+  rnf DescribeBudgetActionsForBudgetResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf actions

@@ -0,0 +1,272 @@+{-# 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.Budgets.DescribeBudgetNotificationsForAccount+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the budget names and notifications that are associated with an+-- account.+--+-- This operation returns paginated results.+module Amazonka.Budgets.DescribeBudgetNotificationsForAccount+  ( -- * Creating a Request+    DescribeBudgetNotificationsForAccount (..),+    newDescribeBudgetNotificationsForAccount,++    -- * Request Lenses+    describeBudgetNotificationsForAccount_maxResults,+    describeBudgetNotificationsForAccount_nextToken,+    describeBudgetNotificationsForAccount_accountId,++    -- * Destructuring the Response+    DescribeBudgetNotificationsForAccountResponse (..),+    newDescribeBudgetNotificationsForAccountResponse,++    -- * Response Lenses+    describeBudgetNotificationsForAccountResponse_budgetNotificationsForAccount,+    describeBudgetNotificationsForAccountResponse_nextToken,+    describeBudgetNotificationsForAccountResponse_httpStatus,+  )+where++import Amazonka.Budgets.Types+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 qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeBudgetNotificationsForAccount' smart constructor.+data DescribeBudgetNotificationsForAccount = DescribeBudgetNotificationsForAccount'+  { -- | An integer that shows how many budget name entries a paginated response+    -- contains.+    maxResults :: Prelude.Maybe Prelude.Natural,+    nextToken :: Prelude.Maybe Prelude.Text,+    accountId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBudgetNotificationsForAccount' 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', 'describeBudgetNotificationsForAccount_maxResults' - An integer that shows how many budget name entries a paginated response+-- contains.+--+-- 'nextToken', 'describeBudgetNotificationsForAccount_nextToken' - Undocumented member.+--+-- 'accountId', 'describeBudgetNotificationsForAccount_accountId' - Undocumented member.+newDescribeBudgetNotificationsForAccount ::+  -- | 'accountId'+  Prelude.Text ->+  DescribeBudgetNotificationsForAccount+newDescribeBudgetNotificationsForAccount pAccountId_ =+  DescribeBudgetNotificationsForAccount'+    { maxResults =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      accountId = pAccountId_+    }++-- | An integer that shows how many budget name entries a paginated response+-- contains.+describeBudgetNotificationsForAccount_maxResults :: Lens.Lens' DescribeBudgetNotificationsForAccount (Prelude.Maybe Prelude.Natural)+describeBudgetNotificationsForAccount_maxResults = Lens.lens (\DescribeBudgetNotificationsForAccount' {maxResults} -> maxResults) (\s@DescribeBudgetNotificationsForAccount' {} a -> s {maxResults = a} :: DescribeBudgetNotificationsForAccount)++-- | Undocumented member.+describeBudgetNotificationsForAccount_nextToken :: Lens.Lens' DescribeBudgetNotificationsForAccount (Prelude.Maybe Prelude.Text)+describeBudgetNotificationsForAccount_nextToken = Lens.lens (\DescribeBudgetNotificationsForAccount' {nextToken} -> nextToken) (\s@DescribeBudgetNotificationsForAccount' {} a -> s {nextToken = a} :: DescribeBudgetNotificationsForAccount)++-- | Undocumented member.+describeBudgetNotificationsForAccount_accountId :: Lens.Lens' DescribeBudgetNotificationsForAccount Prelude.Text+describeBudgetNotificationsForAccount_accountId = Lens.lens (\DescribeBudgetNotificationsForAccount' {accountId} -> accountId) (\s@DescribeBudgetNotificationsForAccount' {} a -> s {accountId = a} :: DescribeBudgetNotificationsForAccount)++instance+  Core.AWSPager+    DescribeBudgetNotificationsForAccount+  where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeBudgetNotificationsForAccountResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeBudgetNotificationsForAccountResponse_budgetNotificationsForAccount+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeBudgetNotificationsForAccount_nextToken+          Lens..~ rs+          Lens.^? describeBudgetNotificationsForAccountResponse_nextToken+          Prelude.. Lens._Just++instance+  Core.AWSRequest+    DescribeBudgetNotificationsForAccount+  where+  type+    AWSResponse+      DescribeBudgetNotificationsForAccount =+      DescribeBudgetNotificationsForAccountResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeBudgetNotificationsForAccountResponse'+            Prelude.<$> ( x+                            Data..?> "BudgetNotificationsForAccount"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DescribeBudgetNotificationsForAccount+  where+  hashWithSalt+    _salt+    DescribeBudgetNotificationsForAccount' {..} =+      _salt+        `Prelude.hashWithSalt` maxResults+        `Prelude.hashWithSalt` nextToken+        `Prelude.hashWithSalt` accountId++instance+  Prelude.NFData+    DescribeBudgetNotificationsForAccount+  where+  rnf DescribeBudgetNotificationsForAccount' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf accountId++instance+  Data.ToHeaders+    DescribeBudgetNotificationsForAccount+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSBudgetServiceGateway.DescribeBudgetNotificationsForAccount" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    DescribeBudgetNotificationsForAccount+  where+  toJSON DescribeBudgetNotificationsForAccount' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("AccountId" Data..= accountId)+          ]+      )++instance+  Data.ToPath+    DescribeBudgetNotificationsForAccount+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    DescribeBudgetNotificationsForAccount+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeBudgetNotificationsForAccountResponse' smart constructor.+data DescribeBudgetNotificationsForAccountResponse = DescribeBudgetNotificationsForAccountResponse'+  { -- | A list of budget names and associated notifications for an account.+    budgetNotificationsForAccount :: Prelude.Maybe [BudgetNotificationsForAccount],+    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 'DescribeBudgetNotificationsForAccountResponse' 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:+--+-- 'budgetNotificationsForAccount', 'describeBudgetNotificationsForAccountResponse_budgetNotificationsForAccount' - A list of budget names and associated notifications for an account.+--+-- 'nextToken', 'describeBudgetNotificationsForAccountResponse_nextToken' - Undocumented member.+--+-- 'httpStatus', 'describeBudgetNotificationsForAccountResponse_httpStatus' - The response's http status code.+newDescribeBudgetNotificationsForAccountResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeBudgetNotificationsForAccountResponse+newDescribeBudgetNotificationsForAccountResponse+  pHttpStatus_ =+    DescribeBudgetNotificationsForAccountResponse'+      { budgetNotificationsForAccount =+          Prelude.Nothing,+        nextToken = Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | A list of budget names and associated notifications for an account.+describeBudgetNotificationsForAccountResponse_budgetNotificationsForAccount :: Lens.Lens' DescribeBudgetNotificationsForAccountResponse (Prelude.Maybe [BudgetNotificationsForAccount])+describeBudgetNotificationsForAccountResponse_budgetNotificationsForAccount = Lens.lens (\DescribeBudgetNotificationsForAccountResponse' {budgetNotificationsForAccount} -> budgetNotificationsForAccount) (\s@DescribeBudgetNotificationsForAccountResponse' {} a -> s {budgetNotificationsForAccount = a} :: DescribeBudgetNotificationsForAccountResponse) Prelude.. Lens.mapping Lens.coerced++-- | Undocumented member.+describeBudgetNotificationsForAccountResponse_nextToken :: Lens.Lens' DescribeBudgetNotificationsForAccountResponse (Prelude.Maybe Prelude.Text)+describeBudgetNotificationsForAccountResponse_nextToken = Lens.lens (\DescribeBudgetNotificationsForAccountResponse' {nextToken} -> nextToken) (\s@DescribeBudgetNotificationsForAccountResponse' {} a -> s {nextToken = a} :: DescribeBudgetNotificationsForAccountResponse)++-- | The response's http status code.+describeBudgetNotificationsForAccountResponse_httpStatus :: Lens.Lens' DescribeBudgetNotificationsForAccountResponse Prelude.Int+describeBudgetNotificationsForAccountResponse_httpStatus = Lens.lens (\DescribeBudgetNotificationsForAccountResponse' {httpStatus} -> httpStatus) (\s@DescribeBudgetNotificationsForAccountResponse' {} a -> s {httpStatus = a} :: DescribeBudgetNotificationsForAccountResponse)++instance+  Prelude.NFData+    DescribeBudgetNotificationsForAccountResponse+  where+  rnf+    DescribeBudgetNotificationsForAccountResponse' {..} =+      Prelude.rnf budgetNotificationsForAccount+        `Prelude.seq` Prelude.rnf nextToken+        `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,307 @@+{-# 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.Budgets.DescribeBudgetPerformanceHistory+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes the history for @DAILY@, @MONTHLY@, and @QUARTERLY@ budgets.+-- Budget history isn\'t available for @ANNUAL@ budgets.+--+-- This operation returns paginated results.+module Amazonka.Budgets.DescribeBudgetPerformanceHistory+  ( -- * Creating a Request+    DescribeBudgetPerformanceHistory (..),+    newDescribeBudgetPerformanceHistory,++    -- * Request Lenses+    describeBudgetPerformanceHistory_maxResults,+    describeBudgetPerformanceHistory_nextToken,+    describeBudgetPerformanceHistory_timePeriod,+    describeBudgetPerformanceHistory_accountId,+    describeBudgetPerformanceHistory_budgetName,++    -- * Destructuring the Response+    DescribeBudgetPerformanceHistoryResponse (..),+    newDescribeBudgetPerformanceHistoryResponse,++    -- * Response Lenses+    describeBudgetPerformanceHistoryResponse_budgetPerformanceHistory,+    describeBudgetPerformanceHistoryResponse_nextToken,+    describeBudgetPerformanceHistoryResponse_httpStatus,+  )+where++import Amazonka.Budgets.Types+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 qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeBudgetPerformanceHistory' smart constructor.+data DescribeBudgetPerformanceHistory = DescribeBudgetPerformanceHistory'+  { maxResults :: Prelude.Maybe Prelude.Natural,+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Retrieves how often the budget went into an @ALARM@ state for the+    -- specified time period.+    timePeriod :: Prelude.Maybe TimePeriod,+    accountId :: Prelude.Text,+    budgetName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBudgetPerformanceHistory' 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', 'describeBudgetPerformanceHistory_maxResults' - Undocumented member.+--+-- 'nextToken', 'describeBudgetPerformanceHistory_nextToken' - Undocumented member.+--+-- 'timePeriod', 'describeBudgetPerformanceHistory_timePeriod' - Retrieves how often the budget went into an @ALARM@ state for the+-- specified time period.+--+-- 'accountId', 'describeBudgetPerformanceHistory_accountId' - Undocumented member.+--+-- 'budgetName', 'describeBudgetPerformanceHistory_budgetName' - Undocumented member.+newDescribeBudgetPerformanceHistory ::+  -- | 'accountId'+  Prelude.Text ->+  -- | 'budgetName'+  Prelude.Text ->+  DescribeBudgetPerformanceHistory+newDescribeBudgetPerformanceHistory+  pAccountId_+  pBudgetName_ =+    DescribeBudgetPerformanceHistory'+      { maxResults =+          Prelude.Nothing,+        nextToken = Prelude.Nothing,+        timePeriod = Prelude.Nothing,+        accountId = pAccountId_,+        budgetName = pBudgetName_+      }++-- | Undocumented member.+describeBudgetPerformanceHistory_maxResults :: Lens.Lens' DescribeBudgetPerformanceHistory (Prelude.Maybe Prelude.Natural)+describeBudgetPerformanceHistory_maxResults = Lens.lens (\DescribeBudgetPerformanceHistory' {maxResults} -> maxResults) (\s@DescribeBudgetPerformanceHistory' {} a -> s {maxResults = a} :: DescribeBudgetPerformanceHistory)++-- | Undocumented member.+describeBudgetPerformanceHistory_nextToken :: Lens.Lens' DescribeBudgetPerformanceHistory (Prelude.Maybe Prelude.Text)+describeBudgetPerformanceHistory_nextToken = Lens.lens (\DescribeBudgetPerformanceHistory' {nextToken} -> nextToken) (\s@DescribeBudgetPerformanceHistory' {} a -> s {nextToken = a} :: DescribeBudgetPerformanceHistory)++-- | Retrieves how often the budget went into an @ALARM@ state for the+-- specified time period.+describeBudgetPerformanceHistory_timePeriod :: Lens.Lens' DescribeBudgetPerformanceHistory (Prelude.Maybe TimePeriod)+describeBudgetPerformanceHistory_timePeriod = Lens.lens (\DescribeBudgetPerformanceHistory' {timePeriod} -> timePeriod) (\s@DescribeBudgetPerformanceHistory' {} a -> s {timePeriod = a} :: DescribeBudgetPerformanceHistory)++-- | Undocumented member.+describeBudgetPerformanceHistory_accountId :: Lens.Lens' DescribeBudgetPerformanceHistory Prelude.Text+describeBudgetPerformanceHistory_accountId = Lens.lens (\DescribeBudgetPerformanceHistory' {accountId} -> accountId) (\s@DescribeBudgetPerformanceHistory' {} a -> s {accountId = a} :: DescribeBudgetPerformanceHistory)++-- | Undocumented member.+describeBudgetPerformanceHistory_budgetName :: Lens.Lens' DescribeBudgetPerformanceHistory Prelude.Text+describeBudgetPerformanceHistory_budgetName = Lens.lens (\DescribeBudgetPerformanceHistory' {budgetName} -> budgetName) (\s@DescribeBudgetPerformanceHistory' {} a -> s {budgetName = a} :: DescribeBudgetPerformanceHistory)++instance+  Core.AWSPager+    DescribeBudgetPerformanceHistory+  where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeBudgetPerformanceHistoryResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeBudgetPerformanceHistoryResponse_budgetPerformanceHistory+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeBudgetPerformanceHistory_nextToken+          Lens..~ rs+          Lens.^? describeBudgetPerformanceHistoryResponse_nextToken+          Prelude.. Lens._Just++instance+  Core.AWSRequest+    DescribeBudgetPerformanceHistory+  where+  type+    AWSResponse DescribeBudgetPerformanceHistory =+      DescribeBudgetPerformanceHistoryResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeBudgetPerformanceHistoryResponse'+            Prelude.<$> (x Data..?> "BudgetPerformanceHistory")+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DescribeBudgetPerformanceHistory+  where+  hashWithSalt+    _salt+    DescribeBudgetPerformanceHistory' {..} =+      _salt+        `Prelude.hashWithSalt` maxResults+        `Prelude.hashWithSalt` nextToken+        `Prelude.hashWithSalt` timePeriod+        `Prelude.hashWithSalt` accountId+        `Prelude.hashWithSalt` budgetName++instance+  Prelude.NFData+    DescribeBudgetPerformanceHistory+  where+  rnf DescribeBudgetPerformanceHistory' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf timePeriod+      `Prelude.seq` Prelude.rnf accountId+      `Prelude.seq` Prelude.rnf budgetName++instance+  Data.ToHeaders+    DescribeBudgetPerformanceHistory+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSBudgetServiceGateway.DescribeBudgetPerformanceHistory" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeBudgetPerformanceHistory where+  toJSON DescribeBudgetPerformanceHistory' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("TimePeriod" Data..=) Prelude.<$> timePeriod,+            Prelude.Just ("AccountId" Data..= accountId),+            Prelude.Just ("BudgetName" Data..= budgetName)+          ]+      )++instance Data.ToPath DescribeBudgetPerformanceHistory where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    DescribeBudgetPerformanceHistory+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeBudgetPerformanceHistoryResponse' smart constructor.+data DescribeBudgetPerformanceHistoryResponse = DescribeBudgetPerformanceHistoryResponse'+  { -- | The history of how often the budget has gone into an @ALARM@ state.+    --+    -- For @DAILY@ budgets, the history saves the state of the budget for the+    -- last 60 days. For @MONTHLY@ budgets, the history saves the state of the+    -- budget for the current month plus the last 12 months. For @QUARTERLY@+    -- budgets, the history saves the state of the budget for the last four+    -- quarters.+    budgetPerformanceHistory :: Prelude.Maybe BudgetPerformanceHistory,+    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 'DescribeBudgetPerformanceHistoryResponse' 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:+--+-- 'budgetPerformanceHistory', 'describeBudgetPerformanceHistoryResponse_budgetPerformanceHistory' - The history of how often the budget has gone into an @ALARM@ state.+--+-- For @DAILY@ budgets, the history saves the state of the budget for the+-- last 60 days. For @MONTHLY@ budgets, the history saves the state of the+-- budget for the current month plus the last 12 months. For @QUARTERLY@+-- budgets, the history saves the state of the budget for the last four+-- quarters.+--+-- 'nextToken', 'describeBudgetPerformanceHistoryResponse_nextToken' - Undocumented member.+--+-- 'httpStatus', 'describeBudgetPerformanceHistoryResponse_httpStatus' - The response's http status code.+newDescribeBudgetPerformanceHistoryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeBudgetPerformanceHistoryResponse+newDescribeBudgetPerformanceHistoryResponse+  pHttpStatus_ =+    DescribeBudgetPerformanceHistoryResponse'+      { budgetPerformanceHistory =+          Prelude.Nothing,+        nextToken = Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | The history of how often the budget has gone into an @ALARM@ state.+--+-- For @DAILY@ budgets, the history saves the state of the budget for the+-- last 60 days. For @MONTHLY@ budgets, the history saves the state of the+-- budget for the current month plus the last 12 months. For @QUARTERLY@+-- budgets, the history saves the state of the budget for the last four+-- quarters.+describeBudgetPerformanceHistoryResponse_budgetPerformanceHistory :: Lens.Lens' DescribeBudgetPerformanceHistoryResponse (Prelude.Maybe BudgetPerformanceHistory)+describeBudgetPerformanceHistoryResponse_budgetPerformanceHistory = Lens.lens (\DescribeBudgetPerformanceHistoryResponse' {budgetPerformanceHistory} -> budgetPerformanceHistory) (\s@DescribeBudgetPerformanceHistoryResponse' {} a -> s {budgetPerformanceHistory = a} :: DescribeBudgetPerformanceHistoryResponse)++-- | Undocumented member.+describeBudgetPerformanceHistoryResponse_nextToken :: Lens.Lens' DescribeBudgetPerformanceHistoryResponse (Prelude.Maybe Prelude.Text)+describeBudgetPerformanceHistoryResponse_nextToken = Lens.lens (\DescribeBudgetPerformanceHistoryResponse' {nextToken} -> nextToken) (\s@DescribeBudgetPerformanceHistoryResponse' {} a -> s {nextToken = a} :: DescribeBudgetPerformanceHistoryResponse)++-- | The response's http status code.+describeBudgetPerformanceHistoryResponse_httpStatus :: Lens.Lens' DescribeBudgetPerformanceHistoryResponse Prelude.Int+describeBudgetPerformanceHistoryResponse_httpStatus = Lens.lens (\DescribeBudgetPerformanceHistoryResponse' {httpStatus} -> httpStatus) (\s@DescribeBudgetPerformanceHistoryResponse' {} a -> s {httpStatus = a} :: DescribeBudgetPerformanceHistoryResponse)++instance+  Prelude.NFData+    DescribeBudgetPerformanceHistoryResponse+  where+  rnf DescribeBudgetPerformanceHistoryResponse' {..} =+    Prelude.rnf budgetPerformanceHistory+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,255 @@+{-# 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.Budgets.DescribeBudgets+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the budgets that are associated with an account.+--+-- The Request Syntax section shows the @BudgetLimit@ syntax. For+-- @PlannedBudgetLimits@, see the+-- <https://docs.aws.amazon.com/aws-cost-management/latest/APIReference/API_budgets_DescribeBudgets.html#API_DescribeBudgets_Examples Examples>+-- section.+--+-- This operation returns paginated results.+module Amazonka.Budgets.DescribeBudgets+  ( -- * Creating a Request+    DescribeBudgets (..),+    newDescribeBudgets,++    -- * Request Lenses+    describeBudgets_maxResults,+    describeBudgets_nextToken,+    describeBudgets_accountId,++    -- * Destructuring the Response+    DescribeBudgetsResponse (..),+    newDescribeBudgetsResponse,++    -- * Response Lenses+    describeBudgetsResponse_budgets,+    describeBudgetsResponse_nextToken,+    describeBudgetsResponse_httpStatus,+  )+where++import Amazonka.Budgets.Types+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 qualified Amazonka.Response as Response++-- | Request of DescribeBudgets+--+-- /See:/ 'newDescribeBudgets' smart constructor.+data DescribeBudgets = DescribeBudgets'+  { -- | An optional integer that represents how many entries a paginated+    -- response contains. The maximum is 100.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | The pagination token that you include in your request to indicate the+    -- next set of results that you want to retrieve.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The @accountId@ that is associated with the budgets that you want+    -- descriptions of.+    accountId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeBudgets' 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', 'describeBudgets_maxResults' - An optional integer that represents how many entries a paginated+-- response contains. The maximum is 100.+--+-- 'nextToken', 'describeBudgets_nextToken' - The pagination token that you include in your request to indicate the+-- next set of results that you want to retrieve.+--+-- 'accountId', 'describeBudgets_accountId' - The @accountId@ that is associated with the budgets that you want+-- descriptions of.+newDescribeBudgets ::+  -- | 'accountId'+  Prelude.Text ->+  DescribeBudgets+newDescribeBudgets pAccountId_ =+  DescribeBudgets'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      accountId = pAccountId_+    }++-- | An optional integer that represents how many entries a paginated+-- response contains. The maximum is 100.+describeBudgets_maxResults :: Lens.Lens' DescribeBudgets (Prelude.Maybe Prelude.Natural)+describeBudgets_maxResults = Lens.lens (\DescribeBudgets' {maxResults} -> maxResults) (\s@DescribeBudgets' {} a -> s {maxResults = a} :: DescribeBudgets)++-- | The pagination token that you include in your request to indicate the+-- next set of results that you want to retrieve.+describeBudgets_nextToken :: Lens.Lens' DescribeBudgets (Prelude.Maybe Prelude.Text)+describeBudgets_nextToken = Lens.lens (\DescribeBudgets' {nextToken} -> nextToken) (\s@DescribeBudgets' {} a -> s {nextToken = a} :: DescribeBudgets)++-- | The @accountId@ that is associated with the budgets that you want+-- descriptions of.+describeBudgets_accountId :: Lens.Lens' DescribeBudgets Prelude.Text+describeBudgets_accountId = Lens.lens (\DescribeBudgets' {accountId} -> accountId) (\s@DescribeBudgets' {} a -> s {accountId = a} :: DescribeBudgets)++instance Core.AWSPager DescribeBudgets where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeBudgetsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeBudgetsResponse_budgets+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeBudgets_nextToken+          Lens..~ rs+          Lens.^? describeBudgetsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeBudgets where+  type+    AWSResponse DescribeBudgets =+      DescribeBudgetsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeBudgetsResponse'+            Prelude.<$> (x Data..?> "Budgets" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeBudgets where+  hashWithSalt _salt DescribeBudgets' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` accountId++instance Prelude.NFData DescribeBudgets where+  rnf DescribeBudgets' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf accountId++instance Data.ToHeaders DescribeBudgets where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSBudgetServiceGateway.DescribeBudgets" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeBudgets where+  toJSON DescribeBudgets' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("AccountId" Data..= accountId)+          ]+      )++instance Data.ToPath DescribeBudgets where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeBudgets where+  toQuery = Prelude.const Prelude.mempty++-- | Response of DescribeBudgets+--+-- /See:/ 'newDescribeBudgetsResponse' smart constructor.+data DescribeBudgetsResponse = DescribeBudgetsResponse'+  { -- | A list of budgets.+    budgets :: Prelude.Maybe [Budget],+    -- | The pagination token in the service response that indicates the next set+    -- of results that you can retrieve.+    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 'DescribeBudgetsResponse' 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:+--+-- 'budgets', 'describeBudgetsResponse_budgets' - A list of budgets.+--+-- 'nextToken', 'describeBudgetsResponse_nextToken' - The pagination token in the service response that indicates the next set+-- of results that you can retrieve.+--+-- 'httpStatus', 'describeBudgetsResponse_httpStatus' - The response's http status code.+newDescribeBudgetsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeBudgetsResponse+newDescribeBudgetsResponse pHttpStatus_ =+  DescribeBudgetsResponse'+    { budgets = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A list of budgets.+describeBudgetsResponse_budgets :: Lens.Lens' DescribeBudgetsResponse (Prelude.Maybe [Budget])+describeBudgetsResponse_budgets = Lens.lens (\DescribeBudgetsResponse' {budgets} -> budgets) (\s@DescribeBudgetsResponse' {} a -> s {budgets = a} :: DescribeBudgetsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The pagination token in the service response that indicates the next set+-- of results that you can retrieve.+describeBudgetsResponse_nextToken :: Lens.Lens' DescribeBudgetsResponse (Prelude.Maybe Prelude.Text)+describeBudgetsResponse_nextToken = Lens.lens (\DescribeBudgetsResponse' {nextToken} -> nextToken) (\s@DescribeBudgetsResponse' {} a -> s {nextToken = a} :: DescribeBudgetsResponse)++-- | The response's http status code.+describeBudgetsResponse_httpStatus :: Lens.Lens' DescribeBudgetsResponse Prelude.Int+describeBudgetsResponse_httpStatus = Lens.lens (\DescribeBudgetsResponse' {httpStatus} -> httpStatus) (\s@DescribeBudgetsResponse' {} a -> s {httpStatus = a} :: DescribeBudgetsResponse)++instance Prelude.NFData DescribeBudgetsResponse where+  rnf DescribeBudgetsResponse' {..} =+    Prelude.rnf budgets+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus