amazonka-marketplace-analytics 1.6.1 → 2.0

raw patch · 27 files changed

+1796/−956 lines, 27 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-marketplace-analytics.cabal +76/−76
• fixture/GenerateDataSet.yaml +10/−0
• fixture/StartSupportDataExport.yaml +10/−0
• gen/Amazonka/MarketplaceAnalytics.hs +84/−0
• gen/Amazonka/MarketplaceAnalytics/GenerateDataSet.hs +691/−0
• gen/Amazonka/MarketplaceAnalytics/Lens.hs +44/−0
• gen/Amazonka/MarketplaceAnalytics/StartSupportDataExport.hs +366/−0
• gen/Amazonka/MarketplaceAnalytics/Types.hs +114/−0
• gen/Amazonka/MarketplaceAnalytics/Types/DataSetType.hs +186/−0
• gen/Amazonka/MarketplaceAnalytics/Types/SupportDataSetType.hs +71/−0
• gen/Amazonka/MarketplaceAnalytics/Waiters.hs +24/−0
• gen/Network/AWS/MarketplaceAnalytics.hs +0/−80
• gen/Network/AWS/MarketplaceAnalytics/GenerateDataSet.hs +0/−208
• gen/Network/AWS/MarketplaceAnalytics/StartSupportDataExport.hs +0/−209
• gen/Network/AWS/MarketplaceAnalytics/Types.hs +0/−79
• gen/Network/AWS/MarketplaceAnalytics/Types/Product.hs +0/−22
• gen/Network/AWS/MarketplaceAnalytics/Types/Sum.hs +0/−131
• gen/Network/AWS/MarketplaceAnalytics/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/Gen/MarketplaceAnalytics.hs +0/−75
• test/Test/AWS/MarketplaceAnalytics.hs +0/−23
• test/Test/AWS/MarketplaceAnalytics/Internal.hs +0/−17
• test/Test/Amazonka/Gen/MarketplaceAnalytics.hs +78/−0
• test/Test/Amazonka/MarketplaceAnalytics.hs +20/−0
• test/Test/Amazonka/MarketplaceAnalytics/Internal.hs +8/−0

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

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

@@ -1,87 +1,87 @@-name:                  amazonka-marketplace-analytics-version:               1.6.1-synopsis:              Amazon Marketplace Commerce Analytics 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-marketplace-analytics+version:            2.0+synopsis:           Amazon Marketplace Commerce Analytics 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.MarketplaceAnalytics" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2015-07-01@ 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.MarketplaceAnalytics.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.MarketplaceAnalytics" 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-marketplace-analytics+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-marketplace-analytics  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.MarketplaceAnalytics-        , Network.AWS.MarketplaceAnalytics.GenerateDataSet-        , Network.AWS.MarketplaceAnalytics.StartSupportDataExport-        , Network.AWS.MarketplaceAnalytics.Types-        , Network.AWS.MarketplaceAnalytics.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.MarketplaceAnalytics.Types.Product-        , Network.AWS.MarketplaceAnalytics.Types.Sum+  exposed-modules:+    Amazonka.MarketplaceAnalytics+    Amazonka.MarketplaceAnalytics.GenerateDataSet+    Amazonka.MarketplaceAnalytics.Lens+    Amazonka.MarketplaceAnalytics.StartSupportDataExport+    Amazonka.MarketplaceAnalytics.Types+    Amazonka.MarketplaceAnalytics.Types.DataSetType+    Amazonka.MarketplaceAnalytics.Types.SupportDataSetType+    Amazonka.MarketplaceAnalytics.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-marketplace-analytics-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.MarketplaceAnalytics-        , Test.AWS.Gen.MarketplaceAnalytics-        , Test.AWS.MarketplaceAnalytics.Internal+  -- This section is encoded by the template and any modules added by+  -- hand outside these namespaces will not correctly be added to the+  -- distribution package.+  other-modules:+    Test.Amazonka.Gen.MarketplaceAnalytics+    Test.Amazonka.MarketplaceAnalytics+    Test.Amazonka.MarketplaceAnalytics.Internal -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-marketplace-analytics-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core                   >=2.0 && <2.1+    , amazonka-marketplace-analytics+    , 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/marketplacecommerceanalytics/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  marketplacecommerceanalytics.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/marketplacecommerceanalytics/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  marketplacecommerceanalytics.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,84 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.MarketplaceAnalytics+-- 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 @2015-07-01@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Provides AWS Marketplace business intelligence data on-demand.+module Amazonka.MarketplaceAnalytics+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** MarketplaceCommerceAnalyticsException+    _MarketplaceCommerceAnalyticsException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** GenerateDataSet+    GenerateDataSet (GenerateDataSet'),+    newGenerateDataSet,+    GenerateDataSetResponse (GenerateDataSetResponse'),+    newGenerateDataSetResponse,++    -- ** StartSupportDataExport+    StartSupportDataExport (StartSupportDataExport'),+    newStartSupportDataExport,+    StartSupportDataExportResponse (StartSupportDataExportResponse'),+    newStartSupportDataExportResponse,++    -- * Types++    -- ** DataSetType+    DataSetType (..),++    -- ** SupportDataSetType+    SupportDataSetType (..),+  )+where++import Amazonka.MarketplaceAnalytics.GenerateDataSet+import Amazonka.MarketplaceAnalytics.Lens+import Amazonka.MarketplaceAnalytics.StartSupportDataExport+import Amazonka.MarketplaceAnalytics.Types+import Amazonka.MarketplaceAnalytics.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 'MarketplaceAnalytics'.++-- $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,691 @@+{-# 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.MarketplaceAnalytics.GenerateDataSet+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Given a data set type and data set publication date, asynchronously+-- publishes the requested data set to the specified S3 bucket and notifies+-- the specified SNS topic once the data is available. Returns a unique+-- request identifier that can be used to correlate requests with+-- notifications from the SNS topic. Data sets will be published in+-- comma-separated values (CSV) format with the file name+-- {data_set_type}_YYYY-MM-DD.csv. If a file with the same name already+-- exists (e.g. if the same data set is requested twice), the original file+-- will be overwritten by the new file. Requires a Role with an attached+-- permissions policy providing Allow permissions for the following+-- actions: s3:PutObject, s3:GetBucketLocation, sns:GetTopicAttributes,+-- sns:Publish, iam:GetRolePolicy.+module Amazonka.MarketplaceAnalytics.GenerateDataSet+  ( -- * Creating a Request+    GenerateDataSet (..),+    newGenerateDataSet,++    -- * Request Lenses+    generateDataSet_customerDefinedValues,+    generateDataSet_destinationS3Prefix,+    generateDataSet_dataSetType,+    generateDataSet_dataSetPublicationDate,+    generateDataSet_roleNameArn,+    generateDataSet_destinationS3BucketName,+    generateDataSet_snsTopicArn,++    -- * Destructuring the Response+    GenerateDataSetResponse (..),+    newGenerateDataSetResponse,++    -- * Response Lenses+    generateDataSetResponse_dataSetRequestId,+    generateDataSetResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MarketplaceAnalytics.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Container for the parameters to the GenerateDataSet operation.+--+-- /See:/ 'newGenerateDataSet' smart constructor.+data GenerateDataSet = GenerateDataSet'+  { -- | (Optional) Key-value pairs which will be returned, unmodified, in the+    -- Amazon SNS notification message and the data set metadata file. These+    -- key-value pairs can be used to correlated responses with tracking+    -- information from other systems.+    customerDefinedValues :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | (Optional) The desired S3 prefix for the published data set, similar to+    -- a directory path in standard file systems. For example, if given the+    -- bucket name \"mybucket\" and the prefix \"myprefix\/mydatasets\", the+    -- output file \"outputfile\" would be published to+    -- \"s3:\/\/mybucket\/myprefix\/mydatasets\/outputfile\". If the prefix+    -- directory structure does not exist, it will be created. If no prefix is+    -- provided, the data set will be published to the S3 bucket root.+    destinationS3Prefix :: Prelude.Maybe Prelude.Text,+    -- | The desired data set type.+    --+    -- -   __customer_subscriber_hourly_monthly_subscriptions__+    --+    --     From 2017-09-15 to present: Available daily by 24:00 UTC.+    --+    -- -   __customer_subscriber_annual_subscriptions__+    --+    --     From 2017-09-15 to present: Available daily by 24:00 UTC.+    --+    -- -   __daily_business_usage_by_instance_type__+    --+    --     From 2017-09-15 to present: Available daily by 24:00 UTC.+    --+    -- -   __daily_business_fees__+    --+    --     From 2017-09-15 to present: Available daily by 24:00 UTC.+    --+    -- -   __daily_business_free_trial_conversions__+    --+    --     From 2017-09-15 to present: Available daily by 24:00 UTC.+    --+    -- -   __daily_business_new_instances__+    --+    --     From 2017-09-15 to present: Available daily by 24:00 UTC.+    --+    -- -   __daily_business_new_product_subscribers__+    --+    --     From 2017-09-15 to present: Available daily by 24:00 UTC.+    --+    -- -   __daily_business_canceled_product_subscribers__+    --+    --     From 2017-09-15 to present: Available daily by 24:00 UTC.+    --+    -- -   __monthly_revenue_billing_and_revenue_data__+    --+    --     From 2017-09-15 to present: Available monthly on the 15th day of the+    --     month by 24:00 UTC. Data includes metered transactions (e.g. hourly)+    --     from one month prior.+    --+    -- -   __monthly_revenue_annual_subscriptions__+    --+    --     From 2017-09-15 to present: Available monthly on the 15th day of the+    --     month by 24:00 UTC. Data includes up-front software charges (e.g.+    --     annual) from one month prior.+    --+    -- -   __monthly_revenue_field_demonstration_usage__+    --+    --     From 2018-03-15 to present: Available monthly on the 15th day of the+    --     month by 24:00 UTC.+    --+    -- -   __monthly_revenue_flexible_payment_schedule__+    --+    --     From 2018-11-15 to present: Available monthly on the 15th day of the+    --     month by 24:00 UTC.+    --+    -- -   __disbursed_amount_by_product__+    --+    --     From 2017-09-15 to present: Available every 30 days by 24:00 UTC.+    --+    -- -   __disbursed_amount_by_instance_hours__+    --+    --     From 2017-09-15 to present: Available every 30 days by 24:00 UTC.+    --+    -- -   __disbursed_amount_by_customer_geo__+    --+    --     From 2017-09-15 to present: Available every 30 days by 24:00 UTC.+    --+    -- -   __disbursed_amount_by_age_of_uncollected_funds__+    --+    --     From 2017-09-15 to present: Available every 30 days by 24:00 UTC.+    --+    -- -   __disbursed_amount_by_age_of_disbursed_funds__+    --+    --     From 2017-09-15 to present: Available every 30 days by 24:00 UTC.+    --+    -- -   __disbursed_amount_by_age_of_past_due_funds__+    --+    --     From 2018-04-07 to present: Available every 30 days by 24:00 UTC.+    --+    -- -   __disbursed_amount_by_uncollected_funds_breakdown__+    --+    --     From 2019-10-04 to present: Available every 30 days by 24:00 UTC.+    --+    -- -   __sales_compensation_billed_revenue__+    --+    --     From 2017-09-15 to present: Available monthly on the 15th day of the+    --     month by 24:00 UTC. Data includes metered transactions (e.g. hourly)+    --     from one month prior, and up-front software charges (e.g. annual)+    --     from one month prior.+    --+    -- -   __us_sales_and_use_tax_records__+    --+    --     From 2017-09-15 to present: Available monthly on the 15th day of the+    --     month by 24:00 UTC.+    --+    -- -   __disbursed_amount_by_product_with_uncollected_funds__+    --+    --     This data set is deprecated. Download related reports from AMMP+    --     instead!+    --+    -- -   __customer_profile_by_industry__+    --+    --     This data set is deprecated. Download related reports from AMMP+    --     instead!+    --+    -- -   __customer_profile_by_revenue__+    --+    --     This data set is deprecated. Download related reports from AMMP+    --     instead!+    --+    -- -   __customer_profile_by_geography__+    --+    --     This data set is deprecated. Download related reports from AMMP+    --     instead!+    dataSetType :: DataSetType,+    -- | The date a data set was published. For daily data sets, provide a date+    -- with day-level granularity for the desired day. For monthly data sets+    -- except those with prefix disbursed_amount, provide a date with+    -- month-level granularity for the desired month (the day value will be+    -- ignored). For data sets with prefix disbursed_amount, provide a date+    -- with day-level granularity for the desired day. For these data sets we+    -- will look backwards in time over the range of 31 days until the first+    -- data set is found (the latest one).+    dataSetPublicationDate :: Data.POSIX,+    -- | The Amazon Resource Name (ARN) of the Role with an attached permissions+    -- policy to interact with the provided AWS services.+    roleNameArn :: Prelude.Text,+    -- | The name (friendly name, not ARN) of the destination S3 bucket.+    destinationS3BucketName :: Prelude.Text,+    -- | Amazon Resource Name (ARN) for the SNS Topic that will be notified when+    -- the data set has been published or if an error has occurred.+    snsTopicArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GenerateDataSet' 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:+--+-- 'customerDefinedValues', 'generateDataSet_customerDefinedValues' - (Optional) Key-value pairs which will be returned, unmodified, in the+-- Amazon SNS notification message and the data set metadata file. These+-- key-value pairs can be used to correlated responses with tracking+-- information from other systems.+--+-- 'destinationS3Prefix', 'generateDataSet_destinationS3Prefix' - (Optional) The desired S3 prefix for the published data set, similar to+-- a directory path in standard file systems. For example, if given the+-- bucket name \"mybucket\" and the prefix \"myprefix\/mydatasets\", the+-- output file \"outputfile\" would be published to+-- \"s3:\/\/mybucket\/myprefix\/mydatasets\/outputfile\". If the prefix+-- directory structure does not exist, it will be created. If no prefix is+-- provided, the data set will be published to the S3 bucket root.+--+-- 'dataSetType', 'generateDataSet_dataSetType' - The desired data set type.+--+-- -   __customer_subscriber_hourly_monthly_subscriptions__+--+--     From 2017-09-15 to present: Available daily by 24:00 UTC.+--+-- -   __customer_subscriber_annual_subscriptions__+--+--     From 2017-09-15 to present: Available daily by 24:00 UTC.+--+-- -   __daily_business_usage_by_instance_type__+--+--     From 2017-09-15 to present: Available daily by 24:00 UTC.+--+-- -   __daily_business_fees__+--+--     From 2017-09-15 to present: Available daily by 24:00 UTC.+--+-- -   __daily_business_free_trial_conversions__+--+--     From 2017-09-15 to present: Available daily by 24:00 UTC.+--+-- -   __daily_business_new_instances__+--+--     From 2017-09-15 to present: Available daily by 24:00 UTC.+--+-- -   __daily_business_new_product_subscribers__+--+--     From 2017-09-15 to present: Available daily by 24:00 UTC.+--+-- -   __daily_business_canceled_product_subscribers__+--+--     From 2017-09-15 to present: Available daily by 24:00 UTC.+--+-- -   __monthly_revenue_billing_and_revenue_data__+--+--     From 2017-09-15 to present: Available monthly on the 15th day of the+--     month by 24:00 UTC. Data includes metered transactions (e.g. hourly)+--     from one month prior.+--+-- -   __monthly_revenue_annual_subscriptions__+--+--     From 2017-09-15 to present: Available monthly on the 15th day of the+--     month by 24:00 UTC. Data includes up-front software charges (e.g.+--     annual) from one month prior.+--+-- -   __monthly_revenue_field_demonstration_usage__+--+--     From 2018-03-15 to present: Available monthly on the 15th day of the+--     month by 24:00 UTC.+--+-- -   __monthly_revenue_flexible_payment_schedule__+--+--     From 2018-11-15 to present: Available monthly on the 15th day of the+--     month by 24:00 UTC.+--+-- -   __disbursed_amount_by_product__+--+--     From 2017-09-15 to present: Available every 30 days by 24:00 UTC.+--+-- -   __disbursed_amount_by_instance_hours__+--+--     From 2017-09-15 to present: Available every 30 days by 24:00 UTC.+--+-- -   __disbursed_amount_by_customer_geo__+--+--     From 2017-09-15 to present: Available every 30 days by 24:00 UTC.+--+-- -   __disbursed_amount_by_age_of_uncollected_funds__+--+--     From 2017-09-15 to present: Available every 30 days by 24:00 UTC.+--+-- -   __disbursed_amount_by_age_of_disbursed_funds__+--+--     From 2017-09-15 to present: Available every 30 days by 24:00 UTC.+--+-- -   __disbursed_amount_by_age_of_past_due_funds__+--+--     From 2018-04-07 to present: Available every 30 days by 24:00 UTC.+--+-- -   __disbursed_amount_by_uncollected_funds_breakdown__+--+--     From 2019-10-04 to present: Available every 30 days by 24:00 UTC.+--+-- -   __sales_compensation_billed_revenue__+--+--     From 2017-09-15 to present: Available monthly on the 15th day of the+--     month by 24:00 UTC. Data includes metered transactions (e.g. hourly)+--     from one month prior, and up-front software charges (e.g. annual)+--     from one month prior.+--+-- -   __us_sales_and_use_tax_records__+--+--     From 2017-09-15 to present: Available monthly on the 15th day of the+--     month by 24:00 UTC.+--+-- -   __disbursed_amount_by_product_with_uncollected_funds__+--+--     This data set is deprecated. Download related reports from AMMP+--     instead!+--+-- -   __customer_profile_by_industry__+--+--     This data set is deprecated. Download related reports from AMMP+--     instead!+--+-- -   __customer_profile_by_revenue__+--+--     This data set is deprecated. Download related reports from AMMP+--     instead!+--+-- -   __customer_profile_by_geography__+--+--     This data set is deprecated. Download related reports from AMMP+--     instead!+--+-- 'dataSetPublicationDate', 'generateDataSet_dataSetPublicationDate' - The date a data set was published. For daily data sets, provide a date+-- with day-level granularity for the desired day. For monthly data sets+-- except those with prefix disbursed_amount, provide a date with+-- month-level granularity for the desired month (the day value will be+-- ignored). For data sets with prefix disbursed_amount, provide a date+-- with day-level granularity for the desired day. For these data sets we+-- will look backwards in time over the range of 31 days until the first+-- data set is found (the latest one).+--+-- 'roleNameArn', 'generateDataSet_roleNameArn' - The Amazon Resource Name (ARN) of the Role with an attached permissions+-- policy to interact with the provided AWS services.+--+-- 'destinationS3BucketName', 'generateDataSet_destinationS3BucketName' - The name (friendly name, not ARN) of the destination S3 bucket.+--+-- 'snsTopicArn', 'generateDataSet_snsTopicArn' - Amazon Resource Name (ARN) for the SNS Topic that will be notified when+-- the data set has been published or if an error has occurred.+newGenerateDataSet ::+  -- | 'dataSetType'+  DataSetType ->+  -- | 'dataSetPublicationDate'+  Prelude.UTCTime ->+  -- | 'roleNameArn'+  Prelude.Text ->+  -- | 'destinationS3BucketName'+  Prelude.Text ->+  -- | 'snsTopicArn'+  Prelude.Text ->+  GenerateDataSet+newGenerateDataSet+  pDataSetType_+  pDataSetPublicationDate_+  pRoleNameArn_+  pDestinationS3BucketName_+  pSnsTopicArn_ =+    GenerateDataSet'+      { customerDefinedValues =+          Prelude.Nothing,+        destinationS3Prefix = Prelude.Nothing,+        dataSetType = pDataSetType_,+        dataSetPublicationDate =+          Data._Time Lens.# pDataSetPublicationDate_,+        roleNameArn = pRoleNameArn_,+        destinationS3BucketName = pDestinationS3BucketName_,+        snsTopicArn = pSnsTopicArn_+      }++-- | (Optional) Key-value pairs which will be returned, unmodified, in the+-- Amazon SNS notification message and the data set metadata file. These+-- key-value pairs can be used to correlated responses with tracking+-- information from other systems.+generateDataSet_customerDefinedValues :: Lens.Lens' GenerateDataSet (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+generateDataSet_customerDefinedValues = Lens.lens (\GenerateDataSet' {customerDefinedValues} -> customerDefinedValues) (\s@GenerateDataSet' {} a -> s {customerDefinedValues = a} :: GenerateDataSet) Prelude.. Lens.mapping Lens.coerced++-- | (Optional) The desired S3 prefix for the published data set, similar to+-- a directory path in standard file systems. For example, if given the+-- bucket name \"mybucket\" and the prefix \"myprefix\/mydatasets\", the+-- output file \"outputfile\" would be published to+-- \"s3:\/\/mybucket\/myprefix\/mydatasets\/outputfile\". If the prefix+-- directory structure does not exist, it will be created. If no prefix is+-- provided, the data set will be published to the S3 bucket root.+generateDataSet_destinationS3Prefix :: Lens.Lens' GenerateDataSet (Prelude.Maybe Prelude.Text)+generateDataSet_destinationS3Prefix = Lens.lens (\GenerateDataSet' {destinationS3Prefix} -> destinationS3Prefix) (\s@GenerateDataSet' {} a -> s {destinationS3Prefix = a} :: GenerateDataSet)++-- | The desired data set type.+--+-- -   __customer_subscriber_hourly_monthly_subscriptions__+--+--     From 2017-09-15 to present: Available daily by 24:00 UTC.+--+-- -   __customer_subscriber_annual_subscriptions__+--+--     From 2017-09-15 to present: Available daily by 24:00 UTC.+--+-- -   __daily_business_usage_by_instance_type__+--+--     From 2017-09-15 to present: Available daily by 24:00 UTC.+--+-- -   __daily_business_fees__+--+--     From 2017-09-15 to present: Available daily by 24:00 UTC.+--+-- -   __daily_business_free_trial_conversions__+--+--     From 2017-09-15 to present: Available daily by 24:00 UTC.+--+-- -   __daily_business_new_instances__+--+--     From 2017-09-15 to present: Available daily by 24:00 UTC.+--+-- -   __daily_business_new_product_subscribers__+--+--     From 2017-09-15 to present: Available daily by 24:00 UTC.+--+-- -   __daily_business_canceled_product_subscribers__+--+--     From 2017-09-15 to present: Available daily by 24:00 UTC.+--+-- -   __monthly_revenue_billing_and_revenue_data__+--+--     From 2017-09-15 to present: Available monthly on the 15th day of the+--     month by 24:00 UTC. Data includes metered transactions (e.g. hourly)+--     from one month prior.+--+-- -   __monthly_revenue_annual_subscriptions__+--+--     From 2017-09-15 to present: Available monthly on the 15th day of the+--     month by 24:00 UTC. Data includes up-front software charges (e.g.+--     annual) from one month prior.+--+-- -   __monthly_revenue_field_demonstration_usage__+--+--     From 2018-03-15 to present: Available monthly on the 15th day of the+--     month by 24:00 UTC.+--+-- -   __monthly_revenue_flexible_payment_schedule__+--+--     From 2018-11-15 to present: Available monthly on the 15th day of the+--     month by 24:00 UTC.+--+-- -   __disbursed_amount_by_product__+--+--     From 2017-09-15 to present: Available every 30 days by 24:00 UTC.+--+-- -   __disbursed_amount_by_instance_hours__+--+--     From 2017-09-15 to present: Available every 30 days by 24:00 UTC.+--+-- -   __disbursed_amount_by_customer_geo__+--+--     From 2017-09-15 to present: Available every 30 days by 24:00 UTC.+--+-- -   __disbursed_amount_by_age_of_uncollected_funds__+--+--     From 2017-09-15 to present: Available every 30 days by 24:00 UTC.+--+-- -   __disbursed_amount_by_age_of_disbursed_funds__+--+--     From 2017-09-15 to present: Available every 30 days by 24:00 UTC.+--+-- -   __disbursed_amount_by_age_of_past_due_funds__+--+--     From 2018-04-07 to present: Available every 30 days by 24:00 UTC.+--+-- -   __disbursed_amount_by_uncollected_funds_breakdown__+--+--     From 2019-10-04 to present: Available every 30 days by 24:00 UTC.+--+-- -   __sales_compensation_billed_revenue__+--+--     From 2017-09-15 to present: Available monthly on the 15th day of the+--     month by 24:00 UTC. Data includes metered transactions (e.g. hourly)+--     from one month prior, and up-front software charges (e.g. annual)+--     from one month prior.+--+-- -   __us_sales_and_use_tax_records__+--+--     From 2017-09-15 to present: Available monthly on the 15th day of the+--     month by 24:00 UTC.+--+-- -   __disbursed_amount_by_product_with_uncollected_funds__+--+--     This data set is deprecated. Download related reports from AMMP+--     instead!+--+-- -   __customer_profile_by_industry__+--+--     This data set is deprecated. Download related reports from AMMP+--     instead!+--+-- -   __customer_profile_by_revenue__+--+--     This data set is deprecated. Download related reports from AMMP+--     instead!+--+-- -   __customer_profile_by_geography__+--+--     This data set is deprecated. Download related reports from AMMP+--     instead!+generateDataSet_dataSetType :: Lens.Lens' GenerateDataSet DataSetType+generateDataSet_dataSetType = Lens.lens (\GenerateDataSet' {dataSetType} -> dataSetType) (\s@GenerateDataSet' {} a -> s {dataSetType = a} :: GenerateDataSet)++-- | The date a data set was published. For daily data sets, provide a date+-- with day-level granularity for the desired day. For monthly data sets+-- except those with prefix disbursed_amount, provide a date with+-- month-level granularity for the desired month (the day value will be+-- ignored). For data sets with prefix disbursed_amount, provide a date+-- with day-level granularity for the desired day. For these data sets we+-- will look backwards in time over the range of 31 days until the first+-- data set is found (the latest one).+generateDataSet_dataSetPublicationDate :: Lens.Lens' GenerateDataSet Prelude.UTCTime+generateDataSet_dataSetPublicationDate = Lens.lens (\GenerateDataSet' {dataSetPublicationDate} -> dataSetPublicationDate) (\s@GenerateDataSet' {} a -> s {dataSetPublicationDate = a} :: GenerateDataSet) Prelude.. Data._Time++-- | The Amazon Resource Name (ARN) of the Role with an attached permissions+-- policy to interact with the provided AWS services.+generateDataSet_roleNameArn :: Lens.Lens' GenerateDataSet Prelude.Text+generateDataSet_roleNameArn = Lens.lens (\GenerateDataSet' {roleNameArn} -> roleNameArn) (\s@GenerateDataSet' {} a -> s {roleNameArn = a} :: GenerateDataSet)++-- | The name (friendly name, not ARN) of the destination S3 bucket.+generateDataSet_destinationS3BucketName :: Lens.Lens' GenerateDataSet Prelude.Text+generateDataSet_destinationS3BucketName = Lens.lens (\GenerateDataSet' {destinationS3BucketName} -> destinationS3BucketName) (\s@GenerateDataSet' {} a -> s {destinationS3BucketName = a} :: GenerateDataSet)++-- | Amazon Resource Name (ARN) for the SNS Topic that will be notified when+-- the data set has been published or if an error has occurred.+generateDataSet_snsTopicArn :: Lens.Lens' GenerateDataSet Prelude.Text+generateDataSet_snsTopicArn = Lens.lens (\GenerateDataSet' {snsTopicArn} -> snsTopicArn) (\s@GenerateDataSet' {} a -> s {snsTopicArn = a} :: GenerateDataSet)++instance Core.AWSRequest GenerateDataSet where+  type+    AWSResponse GenerateDataSet =+      GenerateDataSetResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GenerateDataSetResponse'+            Prelude.<$> (x Data..?> "dataSetRequestId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GenerateDataSet where+  hashWithSalt _salt GenerateDataSet' {..} =+    _salt+      `Prelude.hashWithSalt` customerDefinedValues+      `Prelude.hashWithSalt` destinationS3Prefix+      `Prelude.hashWithSalt` dataSetType+      `Prelude.hashWithSalt` dataSetPublicationDate+      `Prelude.hashWithSalt` roleNameArn+      `Prelude.hashWithSalt` destinationS3BucketName+      `Prelude.hashWithSalt` snsTopicArn++instance Prelude.NFData GenerateDataSet where+  rnf GenerateDataSet' {..} =+    Prelude.rnf customerDefinedValues+      `Prelude.seq` Prelude.rnf destinationS3Prefix+      `Prelude.seq` Prelude.rnf dataSetType+      `Prelude.seq` Prelude.rnf dataSetPublicationDate+      `Prelude.seq` Prelude.rnf roleNameArn+      `Prelude.seq` Prelude.rnf destinationS3BucketName+      `Prelude.seq` Prelude.rnf snsTopicArn++instance Data.ToHeaders GenerateDataSet where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MarketplaceCommerceAnalytics20150701.GenerateDataSet" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GenerateDataSet where+  toJSON GenerateDataSet' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("customerDefinedValues" Data..=)+              Prelude.<$> customerDefinedValues,+            ("destinationS3Prefix" Data..=)+              Prelude.<$> destinationS3Prefix,+            Prelude.Just ("dataSetType" Data..= dataSetType),+            Prelude.Just+              ( "dataSetPublicationDate"+                  Data..= dataSetPublicationDate+              ),+            Prelude.Just ("roleNameArn" Data..= roleNameArn),+            Prelude.Just+              ( "destinationS3BucketName"+                  Data..= destinationS3BucketName+              ),+            Prelude.Just ("snsTopicArn" Data..= snsTopicArn)+          ]+      )++instance Data.ToPath GenerateDataSet where+  toPath = Prelude.const "/"++instance Data.ToQuery GenerateDataSet where+  toQuery = Prelude.const Prelude.mempty++-- | Container for the result of the GenerateDataSet operation.+--+-- /See:/ 'newGenerateDataSetResponse' smart constructor.+data GenerateDataSetResponse = GenerateDataSetResponse'+  { -- | A unique identifier representing a specific request to the+    -- GenerateDataSet operation. This identifier can be used to correlate a+    -- request with notifications from the SNS topic.+    dataSetRequestId :: 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 'GenerateDataSetResponse' 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:+--+-- 'dataSetRequestId', 'generateDataSetResponse_dataSetRequestId' - A unique identifier representing a specific request to the+-- GenerateDataSet operation. This identifier can be used to correlate a+-- request with notifications from the SNS topic.+--+-- 'httpStatus', 'generateDataSetResponse_httpStatus' - The response's http status code.+newGenerateDataSetResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GenerateDataSetResponse+newGenerateDataSetResponse pHttpStatus_ =+  GenerateDataSetResponse'+    { dataSetRequestId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A unique identifier representing a specific request to the+-- GenerateDataSet operation. This identifier can be used to correlate a+-- request with notifications from the SNS topic.+generateDataSetResponse_dataSetRequestId :: Lens.Lens' GenerateDataSetResponse (Prelude.Maybe Prelude.Text)+generateDataSetResponse_dataSetRequestId = Lens.lens (\GenerateDataSetResponse' {dataSetRequestId} -> dataSetRequestId) (\s@GenerateDataSetResponse' {} a -> s {dataSetRequestId = a} :: GenerateDataSetResponse)++-- | The response's http status code.+generateDataSetResponse_httpStatus :: Lens.Lens' GenerateDataSetResponse Prelude.Int+generateDataSetResponse_httpStatus = Lens.lens (\GenerateDataSetResponse' {httpStatus} -> httpStatus) (\s@GenerateDataSetResponse' {} a -> s {httpStatus = a} :: GenerateDataSetResponse)++instance Prelude.NFData GenerateDataSetResponse where+  rnf GenerateDataSetResponse' {..} =+    Prelude.rnf dataSetRequestId+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,44 @@+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MarketplaceAnalytics.Lens+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.MarketplaceAnalytics.Lens+  ( -- * Operations++    -- ** GenerateDataSet+    generateDataSet_customerDefinedValues,+    generateDataSet_destinationS3Prefix,+    generateDataSet_dataSetType,+    generateDataSet_dataSetPublicationDate,+    generateDataSet_roleNameArn,+    generateDataSet_destinationS3BucketName,+    generateDataSet_snsTopicArn,+    generateDataSetResponse_dataSetRequestId,+    generateDataSetResponse_httpStatus,++    -- ** StartSupportDataExport+    startSupportDataExport_customerDefinedValues,+    startSupportDataExport_destinationS3Prefix,+    startSupportDataExport_dataSetType,+    startSupportDataExport_fromDate,+    startSupportDataExport_roleNameArn,+    startSupportDataExport_destinationS3BucketName,+    startSupportDataExport_snsTopicArn,+    startSupportDataExportResponse_dataSetRequestId,+    startSupportDataExportResponse_httpStatus,++    -- * Types+  )+where++import Amazonka.MarketplaceAnalytics.GenerateDataSet+import Amazonka.MarketplaceAnalytics.StartSupportDataExport

@@ -0,0 +1,366 @@+{-# 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.MarketplaceAnalytics.StartSupportDataExport+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Given a data set type and a from date, asynchronously publishes the+-- requested customer support data to the specified S3 bucket and notifies+-- the specified SNS topic once the data is available. Returns a unique+-- request identifier that can be used to correlate requests with+-- notifications from the SNS topic. Data sets will be published in+-- comma-separated values (CSV) format with the file name+-- {data_set_type}_YYYY-MM-DD\'T\'HH-mm-ss\'Z\'.csv. If a file with the+-- same name already exists (e.g. if the same data set is requested twice),+-- the original file will be overwritten by the new file. Requires a Role+-- with an attached permissions policy providing Allow permissions for the+-- following actions: s3:PutObject, s3:GetBucketLocation,+-- sns:GetTopicAttributes, sns:Publish, iam:GetRolePolicy.+module Amazonka.MarketplaceAnalytics.StartSupportDataExport+  ( -- * Creating a Request+    StartSupportDataExport (..),+    newStartSupportDataExport,++    -- * Request Lenses+    startSupportDataExport_customerDefinedValues,+    startSupportDataExport_destinationS3Prefix,+    startSupportDataExport_dataSetType,+    startSupportDataExport_fromDate,+    startSupportDataExport_roleNameArn,+    startSupportDataExport_destinationS3BucketName,+    startSupportDataExport_snsTopicArn,++    -- * Destructuring the Response+    StartSupportDataExportResponse (..),+    newStartSupportDataExportResponse,++    -- * Response Lenses+    startSupportDataExportResponse_dataSetRequestId,+    startSupportDataExportResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MarketplaceAnalytics.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Container for the parameters to the StartSupportDataExport operation.+--+-- /See:/ 'newStartSupportDataExport' smart constructor.+data StartSupportDataExport = StartSupportDataExport'+  { -- | (Optional) Key-value pairs which will be returned, unmodified, in the+    -- Amazon SNS notification message and the data set metadata file.+    customerDefinedValues :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | (Optional) The desired S3 prefix for the published data set, similar to+    -- a directory path in standard file systems. For example, if given the+    -- bucket name \"mybucket\" and the prefix \"myprefix\/mydatasets\", the+    -- output file \"outputfile\" would be published to+    -- \"s3:\/\/mybucket\/myprefix\/mydatasets\/outputfile\". If the prefix+    -- directory structure does not exist, it will be created. If no prefix is+    -- provided, the data set will be published to the S3 bucket root.+    destinationS3Prefix :: Prelude.Maybe Prelude.Text,+    -- | Specifies the data set type to be written to the output csv file. The+    -- data set types customer_support_contacts_data and+    -- test_customer_support_contacts_data both result in a csv file containing+    -- the following fields: Product Id, Product Code, Customer Guid,+    -- Subscription Guid, Subscription Start Date, Organization, AWS Account+    -- Id, Given Name, Surname, Telephone Number, Email, Title, Country Code,+    -- ZIP Code, Operation Type, and Operation Time.+    --+    -- -   /customer_support_contacts_data/ Customer support contact data. The+    --     data set will contain all changes (Creates, Updates, and Deletes) to+    --     customer support contact data from the date specified in the+    --     from_date parameter.+    -- -   /test_customer_support_contacts_data/ An example data set containing+    --     static test data in the same format as+    --     customer_support_contacts_data+    dataSetType :: SupportDataSetType,+    -- | The start date from which to retrieve the data set in UTC. This+    -- parameter only affects the customer_support_contacts_data data set type.+    fromDate :: Data.POSIX,+    -- | The Amazon Resource Name (ARN) of the Role with an attached permissions+    -- policy to interact with the provided AWS services.+    roleNameArn :: Prelude.Text,+    -- | The name (friendly name, not ARN) of the destination S3 bucket.+    destinationS3BucketName :: Prelude.Text,+    -- | Amazon Resource Name (ARN) for the SNS Topic that will be notified when+    -- the data set has been published or if an error has occurred.+    snsTopicArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartSupportDataExport' 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:+--+-- 'customerDefinedValues', 'startSupportDataExport_customerDefinedValues' - (Optional) Key-value pairs which will be returned, unmodified, in the+-- Amazon SNS notification message and the data set metadata file.+--+-- 'destinationS3Prefix', 'startSupportDataExport_destinationS3Prefix' - (Optional) The desired S3 prefix for the published data set, similar to+-- a directory path in standard file systems. For example, if given the+-- bucket name \"mybucket\" and the prefix \"myprefix\/mydatasets\", the+-- output file \"outputfile\" would be published to+-- \"s3:\/\/mybucket\/myprefix\/mydatasets\/outputfile\". If the prefix+-- directory structure does not exist, it will be created. If no prefix is+-- provided, the data set will be published to the S3 bucket root.+--+-- 'dataSetType', 'startSupportDataExport_dataSetType' - Specifies the data set type to be written to the output csv file. The+-- data set types customer_support_contacts_data and+-- test_customer_support_contacts_data both result in a csv file containing+-- the following fields: Product Id, Product Code, Customer Guid,+-- Subscription Guid, Subscription Start Date, Organization, AWS Account+-- Id, Given Name, Surname, Telephone Number, Email, Title, Country Code,+-- ZIP Code, Operation Type, and Operation Time.+--+-- -   /customer_support_contacts_data/ Customer support contact data. The+--     data set will contain all changes (Creates, Updates, and Deletes) to+--     customer support contact data from the date specified in the+--     from_date parameter.+-- -   /test_customer_support_contacts_data/ An example data set containing+--     static test data in the same format as+--     customer_support_contacts_data+--+-- 'fromDate', 'startSupportDataExport_fromDate' - The start date from which to retrieve the data set in UTC. This+-- parameter only affects the customer_support_contacts_data data set type.+--+-- 'roleNameArn', 'startSupportDataExport_roleNameArn' - The Amazon Resource Name (ARN) of the Role with an attached permissions+-- policy to interact with the provided AWS services.+--+-- 'destinationS3BucketName', 'startSupportDataExport_destinationS3BucketName' - The name (friendly name, not ARN) of the destination S3 bucket.+--+-- 'snsTopicArn', 'startSupportDataExport_snsTopicArn' - Amazon Resource Name (ARN) for the SNS Topic that will be notified when+-- the data set has been published or if an error has occurred.+newStartSupportDataExport ::+  -- | 'dataSetType'+  SupportDataSetType ->+  -- | 'fromDate'+  Prelude.UTCTime ->+  -- | 'roleNameArn'+  Prelude.Text ->+  -- | 'destinationS3BucketName'+  Prelude.Text ->+  -- | 'snsTopicArn'+  Prelude.Text ->+  StartSupportDataExport+newStartSupportDataExport+  pDataSetType_+  pFromDate_+  pRoleNameArn_+  pDestinationS3BucketName_+  pSnsTopicArn_ =+    StartSupportDataExport'+      { customerDefinedValues =+          Prelude.Nothing,+        destinationS3Prefix = Prelude.Nothing,+        dataSetType = pDataSetType_,+        fromDate = Data._Time Lens.# pFromDate_,+        roleNameArn = pRoleNameArn_,+        destinationS3BucketName = pDestinationS3BucketName_,+        snsTopicArn = pSnsTopicArn_+      }++-- | (Optional) Key-value pairs which will be returned, unmodified, in the+-- Amazon SNS notification message and the data set metadata file.+startSupportDataExport_customerDefinedValues :: Lens.Lens' StartSupportDataExport (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+startSupportDataExport_customerDefinedValues = Lens.lens (\StartSupportDataExport' {customerDefinedValues} -> customerDefinedValues) (\s@StartSupportDataExport' {} a -> s {customerDefinedValues = a} :: StartSupportDataExport) Prelude.. Lens.mapping Lens.coerced++-- | (Optional) The desired S3 prefix for the published data set, similar to+-- a directory path in standard file systems. For example, if given the+-- bucket name \"mybucket\" and the prefix \"myprefix\/mydatasets\", the+-- output file \"outputfile\" would be published to+-- \"s3:\/\/mybucket\/myprefix\/mydatasets\/outputfile\". If the prefix+-- directory structure does not exist, it will be created. If no prefix is+-- provided, the data set will be published to the S3 bucket root.+startSupportDataExport_destinationS3Prefix :: Lens.Lens' StartSupportDataExport (Prelude.Maybe Prelude.Text)+startSupportDataExport_destinationS3Prefix = Lens.lens (\StartSupportDataExport' {destinationS3Prefix} -> destinationS3Prefix) (\s@StartSupportDataExport' {} a -> s {destinationS3Prefix = a} :: StartSupportDataExport)++-- | Specifies the data set type to be written to the output csv file. The+-- data set types customer_support_contacts_data and+-- test_customer_support_contacts_data both result in a csv file containing+-- the following fields: Product Id, Product Code, Customer Guid,+-- Subscription Guid, Subscription Start Date, Organization, AWS Account+-- Id, Given Name, Surname, Telephone Number, Email, Title, Country Code,+-- ZIP Code, Operation Type, and Operation Time.+--+-- -   /customer_support_contacts_data/ Customer support contact data. The+--     data set will contain all changes (Creates, Updates, and Deletes) to+--     customer support contact data from the date specified in the+--     from_date parameter.+-- -   /test_customer_support_contacts_data/ An example data set containing+--     static test data in the same format as+--     customer_support_contacts_data+startSupportDataExport_dataSetType :: Lens.Lens' StartSupportDataExport SupportDataSetType+startSupportDataExport_dataSetType = Lens.lens (\StartSupportDataExport' {dataSetType} -> dataSetType) (\s@StartSupportDataExport' {} a -> s {dataSetType = a} :: StartSupportDataExport)++-- | The start date from which to retrieve the data set in UTC. This+-- parameter only affects the customer_support_contacts_data data set type.+startSupportDataExport_fromDate :: Lens.Lens' StartSupportDataExport Prelude.UTCTime+startSupportDataExport_fromDate = Lens.lens (\StartSupportDataExport' {fromDate} -> fromDate) (\s@StartSupportDataExport' {} a -> s {fromDate = a} :: StartSupportDataExport) Prelude.. Data._Time++-- | The Amazon Resource Name (ARN) of the Role with an attached permissions+-- policy to interact with the provided AWS services.+startSupportDataExport_roleNameArn :: Lens.Lens' StartSupportDataExport Prelude.Text+startSupportDataExport_roleNameArn = Lens.lens (\StartSupportDataExport' {roleNameArn} -> roleNameArn) (\s@StartSupportDataExport' {} a -> s {roleNameArn = a} :: StartSupportDataExport)++-- | The name (friendly name, not ARN) of the destination S3 bucket.+startSupportDataExport_destinationS3BucketName :: Lens.Lens' StartSupportDataExport Prelude.Text+startSupportDataExport_destinationS3BucketName = Lens.lens (\StartSupportDataExport' {destinationS3BucketName} -> destinationS3BucketName) (\s@StartSupportDataExport' {} a -> s {destinationS3BucketName = a} :: StartSupportDataExport)++-- | Amazon Resource Name (ARN) for the SNS Topic that will be notified when+-- the data set has been published or if an error has occurred.+startSupportDataExport_snsTopicArn :: Lens.Lens' StartSupportDataExport Prelude.Text+startSupportDataExport_snsTopicArn = Lens.lens (\StartSupportDataExport' {snsTopicArn} -> snsTopicArn) (\s@StartSupportDataExport' {} a -> s {snsTopicArn = a} :: StartSupportDataExport)++instance Core.AWSRequest StartSupportDataExport where+  type+    AWSResponse StartSupportDataExport =+      StartSupportDataExportResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StartSupportDataExportResponse'+            Prelude.<$> (x Data..?> "dataSetRequestId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StartSupportDataExport where+  hashWithSalt _salt StartSupportDataExport' {..} =+    _salt+      `Prelude.hashWithSalt` customerDefinedValues+      `Prelude.hashWithSalt` destinationS3Prefix+      `Prelude.hashWithSalt` dataSetType+      `Prelude.hashWithSalt` fromDate+      `Prelude.hashWithSalt` roleNameArn+      `Prelude.hashWithSalt` destinationS3BucketName+      `Prelude.hashWithSalt` snsTopicArn++instance Prelude.NFData StartSupportDataExport where+  rnf StartSupportDataExport' {..} =+    Prelude.rnf customerDefinedValues+      `Prelude.seq` Prelude.rnf destinationS3Prefix+      `Prelude.seq` Prelude.rnf dataSetType+      `Prelude.seq` Prelude.rnf fromDate+      `Prelude.seq` Prelude.rnf roleNameArn+      `Prelude.seq` Prelude.rnf destinationS3BucketName+      `Prelude.seq` Prelude.rnf snsTopicArn++instance Data.ToHeaders StartSupportDataExport where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "MarketplaceCommerceAnalytics20150701.StartSupportDataExport" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StartSupportDataExport where+  toJSON StartSupportDataExport' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("customerDefinedValues" Data..=)+              Prelude.<$> customerDefinedValues,+            ("destinationS3Prefix" Data..=)+              Prelude.<$> destinationS3Prefix,+            Prelude.Just ("dataSetType" Data..= dataSetType),+            Prelude.Just ("fromDate" Data..= fromDate),+            Prelude.Just ("roleNameArn" Data..= roleNameArn),+            Prelude.Just+              ( "destinationS3BucketName"+                  Data..= destinationS3BucketName+              ),+            Prelude.Just ("snsTopicArn" Data..= snsTopicArn)+          ]+      )++instance Data.ToPath StartSupportDataExport where+  toPath = Prelude.const "/"++instance Data.ToQuery StartSupportDataExport where+  toQuery = Prelude.const Prelude.mempty++-- | Container for the result of the StartSupportDataExport operation.+--+-- /See:/ 'newStartSupportDataExportResponse' smart constructor.+data StartSupportDataExportResponse = StartSupportDataExportResponse'+  { -- | A unique identifier representing a specific request to the+    -- StartSupportDataExport operation. This identifier can be used to+    -- correlate a request with notifications from the SNS topic.+    dataSetRequestId :: 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 'StartSupportDataExportResponse' 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:+--+-- 'dataSetRequestId', 'startSupportDataExportResponse_dataSetRequestId' - A unique identifier representing a specific request to the+-- StartSupportDataExport operation. This identifier can be used to+-- correlate a request with notifications from the SNS topic.+--+-- 'httpStatus', 'startSupportDataExportResponse_httpStatus' - The response's http status code.+newStartSupportDataExportResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StartSupportDataExportResponse+newStartSupportDataExportResponse pHttpStatus_ =+  StartSupportDataExportResponse'+    { dataSetRequestId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A unique identifier representing a specific request to the+-- StartSupportDataExport operation. This identifier can be used to+-- correlate a request with notifications from the SNS topic.+startSupportDataExportResponse_dataSetRequestId :: Lens.Lens' StartSupportDataExportResponse (Prelude.Maybe Prelude.Text)+startSupportDataExportResponse_dataSetRequestId = Lens.lens (\StartSupportDataExportResponse' {dataSetRequestId} -> dataSetRequestId) (\s@StartSupportDataExportResponse' {} a -> s {dataSetRequestId = a} :: StartSupportDataExportResponse)++-- | The response's http status code.+startSupportDataExportResponse_httpStatus :: Lens.Lens' StartSupportDataExportResponse Prelude.Int+startSupportDataExportResponse_httpStatus = Lens.lens (\StartSupportDataExportResponse' {httpStatus} -> httpStatus) (\s@StartSupportDataExportResponse' {} a -> s {httpStatus = a} :: StartSupportDataExportResponse)++instance+  Prelude.NFData+    StartSupportDataExportResponse+  where+  rnf StartSupportDataExportResponse' {..} =+    Prelude.rnf dataSetRequestId+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,114 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MarketplaceAnalytics.Types+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.MarketplaceAnalytics.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _MarketplaceCommerceAnalyticsException,++    -- * DataSetType+    DataSetType (..),++    -- * SupportDataSetType+    SupportDataSetType (..),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.MarketplaceAnalytics.Types.DataSetType+import Amazonka.MarketplaceAnalytics.Types.SupportDataSetType+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Sign.V4 as Sign++-- | API version @2015-07-01@ of the Amazon Marketplace Commerce Analytics SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "MarketplaceAnalytics",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "marketplacecommerceanalytics",+      Core.signingName = "marketplacecommerceanalytics",+      Core.version = "2015-07-01",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error =+        Core.parseJSONError "MarketplaceAnalytics",+      Core.retry = retry+    }+  where+    retry =+      Core.Exponential+        { Core.base = 5.0e-2,+          Core.growth = 2,+          Core.attempts = 5,+          Core.check = check+        }+    check e+      | Lens.has (Core.hasStatus 502) e =+          Prelude.Just "bad_gateway"+      | Lens.has (Core.hasStatus 504) e =+          Prelude.Just "gateway_timeout"+      | Lens.has (Core.hasStatus 500) e =+          Prelude.Just "general_server_error"+      | Lens.has (Core.hasStatus 509) e =+          Prelude.Just "limit_exceeded"+      | Lens.has+          ( Core.hasCode "RequestThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "request_throttled_exception"+      | Lens.has (Core.hasStatus 503) e =+          Prelude.Just "service_unavailable"+      | Lens.has+          ( Core.hasCode "ThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttled_exception"+      | Lens.has+          ( Core.hasCode "Throttling"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling"+      | Lens.has+          ( Core.hasCode "ThrottlingException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling_exception"+      | Lens.has+          ( Core.hasCode+              "ProvisionedThroughputExceededException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throughput_exceeded"+      | Lens.has (Core.hasStatus 429) e =+          Prelude.Just "too_many_requests"+      | Prelude.otherwise = Prelude.Nothing++-- | This exception is thrown when an internal service error occurs.+_MarketplaceCommerceAnalyticsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_MarketplaceCommerceAnalyticsException =+  Core._MatchServiceError+    defaultService+    "MarketplaceCommerceAnalyticsException"

@@ -0,0 +1,186 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MarketplaceAnalytics.Types.DataSetType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.MarketplaceAnalytics.Types.DataSetType+  ( DataSetType+      ( ..,+        DataSetType_Customer_profile_by_geography,+        DataSetType_Customer_profile_by_industry,+        DataSetType_Customer_profile_by_revenue,+        DataSetType_Customer_subscriber_annual_subscriptions,+        DataSetType_Customer_subscriber_hourly_monthly_subscriptions,+        DataSetType_Daily_business_canceled_product_subscribers,+        DataSetType_Daily_business_fees,+        DataSetType_Daily_business_free_trial_conversions,+        DataSetType_Daily_business_new_instances,+        DataSetType_Daily_business_new_product_subscribers,+        DataSetType_Daily_business_usage_by_instance_type,+        DataSetType_Disbursed_amount_by_age_of_disbursed_funds,+        DataSetType_Disbursed_amount_by_age_of_past_due_funds,+        DataSetType_Disbursed_amount_by_age_of_uncollected_funds,+        DataSetType_Disbursed_amount_by_customer_geo,+        DataSetType_Disbursed_amount_by_instance_hours,+        DataSetType_Disbursed_amount_by_product,+        DataSetType_Disbursed_amount_by_product_with_uncollected_funds,+        DataSetType_Disbursed_amount_by_uncollected_funds_breakdown,+        DataSetType_Monthly_revenue_annual_subscriptions,+        DataSetType_Monthly_revenue_billing_and_revenue_data,+        DataSetType_Monthly_revenue_field_demonstration_usage,+        DataSetType_Monthly_revenue_flexible_payment_schedule,+        DataSetType_Sales_compensation_billed_revenue,+        DataSetType_Us_sales_and_use_tax_records+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DataSetType = DataSetType'+  { fromDataSetType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern DataSetType_Customer_profile_by_geography :: DataSetType+pattern DataSetType_Customer_profile_by_geography = DataSetType' "customer_profile_by_geography"++pattern DataSetType_Customer_profile_by_industry :: DataSetType+pattern DataSetType_Customer_profile_by_industry = DataSetType' "customer_profile_by_industry"++pattern DataSetType_Customer_profile_by_revenue :: DataSetType+pattern DataSetType_Customer_profile_by_revenue = DataSetType' "customer_profile_by_revenue"++pattern DataSetType_Customer_subscriber_annual_subscriptions :: DataSetType+pattern DataSetType_Customer_subscriber_annual_subscriptions = DataSetType' "customer_subscriber_annual_subscriptions"++pattern DataSetType_Customer_subscriber_hourly_monthly_subscriptions :: DataSetType+pattern DataSetType_Customer_subscriber_hourly_monthly_subscriptions = DataSetType' "customer_subscriber_hourly_monthly_subscriptions"++pattern DataSetType_Daily_business_canceled_product_subscribers :: DataSetType+pattern DataSetType_Daily_business_canceled_product_subscribers = DataSetType' "daily_business_canceled_product_subscribers"++pattern DataSetType_Daily_business_fees :: DataSetType+pattern DataSetType_Daily_business_fees = DataSetType' "daily_business_fees"++pattern DataSetType_Daily_business_free_trial_conversions :: DataSetType+pattern DataSetType_Daily_business_free_trial_conversions = DataSetType' "daily_business_free_trial_conversions"++pattern DataSetType_Daily_business_new_instances :: DataSetType+pattern DataSetType_Daily_business_new_instances = DataSetType' "daily_business_new_instances"++pattern DataSetType_Daily_business_new_product_subscribers :: DataSetType+pattern DataSetType_Daily_business_new_product_subscribers = DataSetType' "daily_business_new_product_subscribers"++pattern DataSetType_Daily_business_usage_by_instance_type :: DataSetType+pattern DataSetType_Daily_business_usage_by_instance_type = DataSetType' "daily_business_usage_by_instance_type"++pattern DataSetType_Disbursed_amount_by_age_of_disbursed_funds :: DataSetType+pattern DataSetType_Disbursed_amount_by_age_of_disbursed_funds = DataSetType' "disbursed_amount_by_age_of_disbursed_funds"++pattern DataSetType_Disbursed_amount_by_age_of_past_due_funds :: DataSetType+pattern DataSetType_Disbursed_amount_by_age_of_past_due_funds = DataSetType' "disbursed_amount_by_age_of_past_due_funds"++pattern DataSetType_Disbursed_amount_by_age_of_uncollected_funds :: DataSetType+pattern DataSetType_Disbursed_amount_by_age_of_uncollected_funds = DataSetType' "disbursed_amount_by_age_of_uncollected_funds"++pattern DataSetType_Disbursed_amount_by_customer_geo :: DataSetType+pattern DataSetType_Disbursed_amount_by_customer_geo = DataSetType' "disbursed_amount_by_customer_geo"++pattern DataSetType_Disbursed_amount_by_instance_hours :: DataSetType+pattern DataSetType_Disbursed_amount_by_instance_hours = DataSetType' "disbursed_amount_by_instance_hours"++pattern DataSetType_Disbursed_amount_by_product :: DataSetType+pattern DataSetType_Disbursed_amount_by_product = DataSetType' "disbursed_amount_by_product"++pattern DataSetType_Disbursed_amount_by_product_with_uncollected_funds :: DataSetType+pattern DataSetType_Disbursed_amount_by_product_with_uncollected_funds = DataSetType' "disbursed_amount_by_product_with_uncollected_funds"++pattern DataSetType_Disbursed_amount_by_uncollected_funds_breakdown :: DataSetType+pattern DataSetType_Disbursed_amount_by_uncollected_funds_breakdown = DataSetType' "disbursed_amount_by_uncollected_funds_breakdown"++pattern DataSetType_Monthly_revenue_annual_subscriptions :: DataSetType+pattern DataSetType_Monthly_revenue_annual_subscriptions = DataSetType' "monthly_revenue_annual_subscriptions"++pattern DataSetType_Monthly_revenue_billing_and_revenue_data :: DataSetType+pattern DataSetType_Monthly_revenue_billing_and_revenue_data = DataSetType' "monthly_revenue_billing_and_revenue_data"++pattern DataSetType_Monthly_revenue_field_demonstration_usage :: DataSetType+pattern DataSetType_Monthly_revenue_field_demonstration_usage = DataSetType' "monthly_revenue_field_demonstration_usage"++pattern DataSetType_Monthly_revenue_flexible_payment_schedule :: DataSetType+pattern DataSetType_Monthly_revenue_flexible_payment_schedule = DataSetType' "monthly_revenue_flexible_payment_schedule"++pattern DataSetType_Sales_compensation_billed_revenue :: DataSetType+pattern DataSetType_Sales_compensation_billed_revenue = DataSetType' "sales_compensation_billed_revenue"++pattern DataSetType_Us_sales_and_use_tax_records :: DataSetType+pattern DataSetType_Us_sales_and_use_tax_records = DataSetType' "us_sales_and_use_tax_records"++{-# COMPLETE+  DataSetType_Customer_profile_by_geography,+  DataSetType_Customer_profile_by_industry,+  DataSetType_Customer_profile_by_revenue,+  DataSetType_Customer_subscriber_annual_subscriptions,+  DataSetType_Customer_subscriber_hourly_monthly_subscriptions,+  DataSetType_Daily_business_canceled_product_subscribers,+  DataSetType_Daily_business_fees,+  DataSetType_Daily_business_free_trial_conversions,+  DataSetType_Daily_business_new_instances,+  DataSetType_Daily_business_new_product_subscribers,+  DataSetType_Daily_business_usage_by_instance_type,+  DataSetType_Disbursed_amount_by_age_of_disbursed_funds,+  DataSetType_Disbursed_amount_by_age_of_past_due_funds,+  DataSetType_Disbursed_amount_by_age_of_uncollected_funds,+  DataSetType_Disbursed_amount_by_customer_geo,+  DataSetType_Disbursed_amount_by_instance_hours,+  DataSetType_Disbursed_amount_by_product,+  DataSetType_Disbursed_amount_by_product_with_uncollected_funds,+  DataSetType_Disbursed_amount_by_uncollected_funds_breakdown,+  DataSetType_Monthly_revenue_annual_subscriptions,+  DataSetType_Monthly_revenue_billing_and_revenue_data,+  DataSetType_Monthly_revenue_field_demonstration_usage,+  DataSetType_Monthly_revenue_flexible_payment_schedule,+  DataSetType_Sales_compensation_billed_revenue,+  DataSetType_Us_sales_and_use_tax_records,+  DataSetType'+  #-}

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

@@ -0,0 +1,24 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.MarketplaceAnalytics.Waiters+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.MarketplaceAnalytics.Waiters where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.MarketplaceAnalytics.Lens+import Amazonka.MarketplaceAnalytics.Types+import qualified Amazonka.Prelude as Prelude

@@ -1,80 +0,0 @@-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.MarketplaceAnalytics--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Provides AWS Marketplace business intelligence data on-demand.-module Network.AWS.MarketplaceAnalytics-    (-    -- * Service Configuration-      marketplaceAnalytics--    -- * Errors-    -- $errors--    -- ** MarketplaceCommerceAnalyticsException-    , _MarketplaceCommerceAnalyticsException--    -- * Waiters-    -- $waiters--    -- * Operations-    -- $operations--    -- ** StartSupportDataExport-    , module Network.AWS.MarketplaceAnalytics.StartSupportDataExport--    -- ** GenerateDataSet-    , module Network.AWS.MarketplaceAnalytics.GenerateDataSet--    -- * Types--    -- ** DataSetType-    , DataSetType (..)--    -- ** SupportDataSetType-    , SupportDataSetType (..)-    ) where--import Network.AWS.MarketplaceAnalytics.GenerateDataSet-import Network.AWS.MarketplaceAnalytics.StartSupportDataExport-import Network.AWS.MarketplaceAnalytics.Types-import Network.AWS.MarketplaceAnalytics.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 'MarketplaceAnalytics'.--}--{- $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.--}

@@ -1,208 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.MarketplaceAnalytics.GenerateDataSet--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Given a data set type and data set publication date, asynchronously publishes the requested data set to the specified S3 bucket and notifies the specified SNS topic once the data is available. Returns a unique request identifier that can be used to correlate requests with notifications from the SNS topic. Data sets will be published in comma-separated values (CSV) format with the file name {data_set_type}_YYYY-MM-DD.csv. If a file with the same name already exists (e.g. if the same data set is requested twice), the original file will be overwritten by the new file. Requires a Role with an attached permissions policy providing Allow permissions for the following actions: s3:PutObject, s3:GetBucketLocation, sns:GetTopicAttributes, sns:Publish, iam:GetRolePolicy.-module Network.AWS.MarketplaceAnalytics.GenerateDataSet-    (-    -- * Creating a Request-      generateDataSet-    , GenerateDataSet-    -- * Request Lenses-    , gdsCustomerDefinedValues-    , gdsDestinationS3Prefix-    , gdsDataSetType-    , gdsDataSetPublicationDate-    , gdsRoleNameARN-    , gdsDestinationS3BucketName-    , gdsSnsTopicARN--    -- * Destructuring the Response-    , generateDataSetResponse-    , GenerateDataSetResponse-    -- * Response Lenses-    , gdsrsDataSetRequestId-    , gdsrsResponseStatus-    ) where--import Network.AWS.Lens-import Network.AWS.MarketplaceAnalytics.Types-import Network.AWS.MarketplaceAnalytics.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Container for the parameters to the GenerateDataSet operation.------ /See:/ 'generateDataSet' smart constructor.-data GenerateDataSet = GenerateDataSet'-  { _gdsCustomerDefinedValues   :: !(Maybe (Map Text Text))-  , _gdsDestinationS3Prefix     :: !(Maybe Text)-  , _gdsDataSetType             :: !DataSetType-  , _gdsDataSetPublicationDate  :: !POSIX-  , _gdsRoleNameARN             :: !Text-  , _gdsDestinationS3BucketName :: !Text-  , _gdsSnsTopicARN             :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GenerateDataSet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdsCustomerDefinedValues' - (Optional) Key-value pairs which will be returned, unmodified, in the Amazon SNS notification message and the data set metadata file. These key-value pairs can be used to correlated responses with tracking information from other systems.------ * 'gdsDestinationS3Prefix' - (Optional) The desired S3 prefix for the published data set, similar to a directory path in standard file systems. For example, if given the bucket name "mybucket" and the prefix "myprefix/mydatasets", the output file "outputfile" would be published to "s3://mybucket/myprefix/mydatasets/outputfile". If the prefix directory structure does not exist, it will be created. If no prefix is provided, the data set will be published to the S3 bucket root.------ * 'gdsDataSetType' - The desired data set type.     * __customer_subscriber_hourly_monthly_subscriptions__ From 2014-07-21 to present: Available daily by 5:00 PM Pacific Time.     * __customer_subscriber_annual_subscriptions__ From 2014-07-21 to present: Available daily by 5:00 PM Pacific Time.     * __daily_business_usage_by_instance_type__ From 2015-01-26 to present: Available daily by 5:00 PM Pacific Time.     * __daily_business_fees__ From 2015-01-26 to present: Available daily by 5:00 PM Pacific Time.     * __daily_business_free_trial_conversions__ From 2015-01-26 to present: Available daily by 5:00 PM Pacific Time.     * __daily_business_new_instances__ From 2015-01-26 to present: Available daily by 5:00 PM Pacific Time.     * __daily_business_new_product_subscribers__ From 2015-01-26 to present: Available daily by 5:00 PM Pacific Time.     * __daily_business_canceled_product_subscribers__ From 2015-01-26 to present: Available daily by 5:00 PM Pacific Time.     * __monthly_revenue_billing_and_revenue_data__ From 2015-02 to 2017-06: Available monthly on the 4th day of the month by 5:00pm Pacific Time. Data includes metered transactions (e.g. hourly) from two months prior. From 2017-07 to present: Available monthly on the 15th day of the month by 5:00pm Pacific Time. Data includes metered transactions (e.g. hourly) from one month prior.     * __monthly_revenue_annual_subscriptions__ From 2015-02 to 2017-06: Available monthly on the 4th day of the month by 5:00pm Pacific Time. Data includes up-front software charges (e.g. annual) from one month prior. From 2017-07 to present: Available monthly on the 15th day of the month by 5:00pm Pacific Time. Data includes up-front software charges (e.g. annual) from one month prior.     * __disbursed_amount_by_product__ From 2015-01-26 to present: Available every 30 days by 5:00 PM Pacific Time.     * __disbursed_amount_by_product_with_uncollected_funds__ From 2012-04-19 to 2015-01-25: Available every 30 days by 5:00 PM Pacific Time. From 2015-01-26 to present: This data set was split into three data sets: disbursed_amount_by_product, disbursed_amount_by_age_of_uncollected_funds, and disbursed_amount_by_age_of_disbursed_funds.     * __disbursed_amount_by_instance_hours__ From 2012-09-04 to present: Available every 30 days by 5:00 PM Pacific Time.     * __disbursed_amount_by_customer_geo__ From 2012-04-19 to present: Available every 30 days by 5:00 PM Pacific Time.     * __disbursed_amount_by_age_of_uncollected_funds__ From 2015-01-26 to present: Available every 30 days by 5:00 PM Pacific Time.     * __disbursed_amount_by_age_of_disbursed_funds__ From 2015-01-26 to present: Available every 30 days by 5:00 PM Pacific Time.     * __customer_profile_by_industry__ From 2015-10-01 to 2017-06-29: Available daily by 5:00 PM Pacific Time. From 2017-06-30 to present: This data set is no longer available.     * __customer_profile_by_revenue__ From 2015-10-01 to 2017-06-29: Available daily by 5:00 PM Pacific Time. From 2017-06-30 to present: This data set is no longer available.     * __customer_profile_by_geography__ From 2015-10-01 to 2017-06-29: Available daily by 5:00 PM Pacific Time. From 2017-06-30 to present: This data set is no longer available.     * __sales_compensation_billed_revenue__ From 2016-12 to 2017-06: Available monthly on the 4th day of the month by 5:00pm Pacific Time. Data includes metered transactions (e.g. hourly) from two months prior, and up-front software charges (e.g. annual) from one month prior. From 2017-06 to present: Available monthly on the 15th day of the month by 5:00pm Pacific Time. Data includes metered transactions (e.g. hourly) from one month prior, and up-front software charges (e.g. annual) from one month prior.     * __us_sales_and_use_tax_records__ From 2017-02-15 to present: Available monthly on the 15th day of the month by 5:00 PM Pacific Time.------ * 'gdsDataSetPublicationDate' - The date a data set was published. For daily data sets, provide a date with day-level granularity for the desired day. For weekly data sets, provide a date with day-level granularity within the desired week (the day value will be ignored). For monthly data sets, provide a date with month-level granularity for the desired month (the day value will be ignored).------ * 'gdsRoleNameARN' - The Amazon Resource Name (ARN) of the Role with an attached permissions policy to interact with the provided AWS services.------ * 'gdsDestinationS3BucketName' - The name (friendly name, not ARN) of the destination S3 bucket.------ * 'gdsSnsTopicARN' - Amazon Resource Name (ARN) for the SNS Topic that will be notified when the data set has been published or if an error has occurred.-generateDataSet-    :: DataSetType -- ^ 'gdsDataSetType'-    -> UTCTime -- ^ 'gdsDataSetPublicationDate'-    -> Text -- ^ 'gdsRoleNameARN'-    -> Text -- ^ 'gdsDestinationS3BucketName'-    -> Text -- ^ 'gdsSnsTopicARN'-    -> GenerateDataSet-generateDataSet pDataSetType_ pDataSetPublicationDate_ pRoleNameARN_ pDestinationS3BucketName_ pSnsTopicARN_ =-  GenerateDataSet'-    { _gdsCustomerDefinedValues = Nothing-    , _gdsDestinationS3Prefix = Nothing-    , _gdsDataSetType = pDataSetType_-    , _gdsDataSetPublicationDate = _Time # pDataSetPublicationDate_-    , _gdsRoleNameARN = pRoleNameARN_-    , _gdsDestinationS3BucketName = pDestinationS3BucketName_-    , _gdsSnsTopicARN = pSnsTopicARN_-    }----- | (Optional) Key-value pairs which will be returned, unmodified, in the Amazon SNS notification message and the data set metadata file. These key-value pairs can be used to correlated responses with tracking information from other systems.-gdsCustomerDefinedValues :: Lens' GenerateDataSet (HashMap Text Text)-gdsCustomerDefinedValues = lens _gdsCustomerDefinedValues (\ s a -> s{_gdsCustomerDefinedValues = a}) . _Default . _Map---- | (Optional) The desired S3 prefix for the published data set, similar to a directory path in standard file systems. For example, if given the bucket name "mybucket" and the prefix "myprefix/mydatasets", the output file "outputfile" would be published to "s3://mybucket/myprefix/mydatasets/outputfile". If the prefix directory structure does not exist, it will be created. If no prefix is provided, the data set will be published to the S3 bucket root.-gdsDestinationS3Prefix :: Lens' GenerateDataSet (Maybe Text)-gdsDestinationS3Prefix = lens _gdsDestinationS3Prefix (\ s a -> s{_gdsDestinationS3Prefix = a})---- | The desired data set type.     * __customer_subscriber_hourly_monthly_subscriptions__ From 2014-07-21 to present: Available daily by 5:00 PM Pacific Time.     * __customer_subscriber_annual_subscriptions__ From 2014-07-21 to present: Available daily by 5:00 PM Pacific Time.     * __daily_business_usage_by_instance_type__ From 2015-01-26 to present: Available daily by 5:00 PM Pacific Time.     * __daily_business_fees__ From 2015-01-26 to present: Available daily by 5:00 PM Pacific Time.     * __daily_business_free_trial_conversions__ From 2015-01-26 to present: Available daily by 5:00 PM Pacific Time.     * __daily_business_new_instances__ From 2015-01-26 to present: Available daily by 5:00 PM Pacific Time.     * __daily_business_new_product_subscribers__ From 2015-01-26 to present: Available daily by 5:00 PM Pacific Time.     * __daily_business_canceled_product_subscribers__ From 2015-01-26 to present: Available daily by 5:00 PM Pacific Time.     * __monthly_revenue_billing_and_revenue_data__ From 2015-02 to 2017-06: Available monthly on the 4th day of the month by 5:00pm Pacific Time. Data includes metered transactions (e.g. hourly) from two months prior. From 2017-07 to present: Available monthly on the 15th day of the month by 5:00pm Pacific Time. Data includes metered transactions (e.g. hourly) from one month prior.     * __monthly_revenue_annual_subscriptions__ From 2015-02 to 2017-06: Available monthly on the 4th day of the month by 5:00pm Pacific Time. Data includes up-front software charges (e.g. annual) from one month prior. From 2017-07 to present: Available monthly on the 15th day of the month by 5:00pm Pacific Time. Data includes up-front software charges (e.g. annual) from one month prior.     * __disbursed_amount_by_product__ From 2015-01-26 to present: Available every 30 days by 5:00 PM Pacific Time.     * __disbursed_amount_by_product_with_uncollected_funds__ From 2012-04-19 to 2015-01-25: Available every 30 days by 5:00 PM Pacific Time. From 2015-01-26 to present: This data set was split into three data sets: disbursed_amount_by_product, disbursed_amount_by_age_of_uncollected_funds, and disbursed_amount_by_age_of_disbursed_funds.     * __disbursed_amount_by_instance_hours__ From 2012-09-04 to present: Available every 30 days by 5:00 PM Pacific Time.     * __disbursed_amount_by_customer_geo__ From 2012-04-19 to present: Available every 30 days by 5:00 PM Pacific Time.     * __disbursed_amount_by_age_of_uncollected_funds__ From 2015-01-26 to present: Available every 30 days by 5:00 PM Pacific Time.     * __disbursed_amount_by_age_of_disbursed_funds__ From 2015-01-26 to present: Available every 30 days by 5:00 PM Pacific Time.     * __customer_profile_by_industry__ From 2015-10-01 to 2017-06-29: Available daily by 5:00 PM Pacific Time. From 2017-06-30 to present: This data set is no longer available.     * __customer_profile_by_revenue__ From 2015-10-01 to 2017-06-29: Available daily by 5:00 PM Pacific Time. From 2017-06-30 to present: This data set is no longer available.     * __customer_profile_by_geography__ From 2015-10-01 to 2017-06-29: Available daily by 5:00 PM Pacific Time. From 2017-06-30 to present: This data set is no longer available.     * __sales_compensation_billed_revenue__ From 2016-12 to 2017-06: Available monthly on the 4th day of the month by 5:00pm Pacific Time. Data includes metered transactions (e.g. hourly) from two months prior, and up-front software charges (e.g. annual) from one month prior. From 2017-06 to present: Available monthly on the 15th day of the month by 5:00pm Pacific Time. Data includes metered transactions (e.g. hourly) from one month prior, and up-front software charges (e.g. annual) from one month prior.     * __us_sales_and_use_tax_records__ From 2017-02-15 to present: Available monthly on the 15th day of the month by 5:00 PM Pacific Time.-gdsDataSetType :: Lens' GenerateDataSet DataSetType-gdsDataSetType = lens _gdsDataSetType (\ s a -> s{_gdsDataSetType = a})---- | The date a data set was published. For daily data sets, provide a date with day-level granularity for the desired day. For weekly data sets, provide a date with day-level granularity within the desired week (the day value will be ignored). For monthly data sets, provide a date with month-level granularity for the desired month (the day value will be ignored).-gdsDataSetPublicationDate :: Lens' GenerateDataSet UTCTime-gdsDataSetPublicationDate = lens _gdsDataSetPublicationDate (\ s a -> s{_gdsDataSetPublicationDate = a}) . _Time---- | The Amazon Resource Name (ARN) of the Role with an attached permissions policy to interact with the provided AWS services.-gdsRoleNameARN :: Lens' GenerateDataSet Text-gdsRoleNameARN = lens _gdsRoleNameARN (\ s a -> s{_gdsRoleNameARN = a})---- | The name (friendly name, not ARN) of the destination S3 bucket.-gdsDestinationS3BucketName :: Lens' GenerateDataSet Text-gdsDestinationS3BucketName = lens _gdsDestinationS3BucketName (\ s a -> s{_gdsDestinationS3BucketName = a})---- | Amazon Resource Name (ARN) for the SNS Topic that will be notified when the data set has been published or if an error has occurred.-gdsSnsTopicARN :: Lens' GenerateDataSet Text-gdsSnsTopicARN = lens _gdsSnsTopicARN (\ s a -> s{_gdsSnsTopicARN = a})--instance AWSRequest GenerateDataSet where-        type Rs GenerateDataSet = GenerateDataSetResponse-        request = postJSON marketplaceAnalytics-        response-          = receiveJSON-              (\ s h x ->-                 GenerateDataSetResponse' <$>-                   (x .?> "dataSetRequestId") <*> (pure (fromEnum s)))--instance Hashable GenerateDataSet where--instance NFData GenerateDataSet where--instance ToHeaders GenerateDataSet where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("MarketplaceCommerceAnalytics20150701.GenerateDataSet"-                       :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON GenerateDataSet where-        toJSON GenerateDataSet'{..}-          = object-              (catMaybes-                 [("customerDefinedValues" .=) <$>-                    _gdsCustomerDefinedValues,-                  ("destinationS3Prefix" .=) <$>-                    _gdsDestinationS3Prefix,-                  Just ("dataSetType" .= _gdsDataSetType),-                  Just-                    ("dataSetPublicationDate" .=-                       _gdsDataSetPublicationDate),-                  Just ("roleNameArn" .= _gdsRoleNameARN),-                  Just-                    ("destinationS3BucketName" .=-                       _gdsDestinationS3BucketName),-                  Just ("snsTopicArn" .= _gdsSnsTopicARN)])--instance ToPath GenerateDataSet where-        toPath = const "/"--instance ToQuery GenerateDataSet where-        toQuery = const mempty---- | Container for the result of the GenerateDataSet operation.------ /See:/ 'generateDataSetResponse' smart constructor.-data GenerateDataSetResponse = GenerateDataSetResponse'-  { _gdsrsDataSetRequestId :: !(Maybe Text)-  , _gdsrsResponseStatus   :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GenerateDataSetResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdsrsDataSetRequestId' - A unique identifier representing a specific request to the GenerateDataSet operation. This identifier can be used to correlate a request with notifications from the SNS topic.------ * 'gdsrsResponseStatus' - -- | The response status code.-generateDataSetResponse-    :: Int -- ^ 'gdsrsResponseStatus'-    -> GenerateDataSetResponse-generateDataSetResponse pResponseStatus_ =-  GenerateDataSetResponse'-    {_gdsrsDataSetRequestId = Nothing, _gdsrsResponseStatus = pResponseStatus_}----- | A unique identifier representing a specific request to the GenerateDataSet operation. This identifier can be used to correlate a request with notifications from the SNS topic.-gdsrsDataSetRequestId :: Lens' GenerateDataSetResponse (Maybe Text)-gdsrsDataSetRequestId = lens _gdsrsDataSetRequestId (\ s a -> s{_gdsrsDataSetRequestId = a})---- | -- | The response status code.-gdsrsResponseStatus :: Lens' GenerateDataSetResponse Int-gdsrsResponseStatus = lens _gdsrsResponseStatus (\ s a -> s{_gdsrsResponseStatus = a})--instance NFData GenerateDataSetResponse where

@@ -1,209 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.MarketplaceAnalytics.StartSupportDataExport--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Given a data set type and a from date, asynchronously publishes the requested customer support data to the specified S3 bucket and notifies the specified SNS topic once the data is available. Returns a unique request identifier that can be used to correlate requests with notifications from the SNS topic. Data sets will be published in comma-separated values (CSV) format with the file name {data_set_type}_YYYY-MM-DD'T'HH-mm-ss'Z'.csv. If a file with the same name already exists (e.g. if the same data set is requested twice), the original file will be overwritten by the new file. Requires a Role with an attached permissions policy providing Allow permissions for the following actions: s3:PutObject, s3:GetBucketLocation, sns:GetTopicAttributes, sns:Publish, iam:GetRolePolicy.-module Network.AWS.MarketplaceAnalytics.StartSupportDataExport-    (-    -- * Creating a Request-      startSupportDataExport-    , StartSupportDataExport-    -- * Request Lenses-    , ssdeCustomerDefinedValues-    , ssdeDestinationS3Prefix-    , ssdeDataSetType-    , ssdeFromDate-    , ssdeRoleNameARN-    , ssdeDestinationS3BucketName-    , ssdeSnsTopicARN--    -- * Destructuring the Response-    , startSupportDataExportResponse-    , StartSupportDataExportResponse-    -- * Response Lenses-    , ssdersDataSetRequestId-    , ssdersResponseStatus-    ) where--import Network.AWS.Lens-import Network.AWS.MarketplaceAnalytics.Types-import Network.AWS.MarketplaceAnalytics.Types.Product-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Container for the parameters to the StartSupportDataExport operation.------ /See:/ 'startSupportDataExport' smart constructor.-data StartSupportDataExport = StartSupportDataExport'-  { _ssdeCustomerDefinedValues   :: !(Maybe (Map Text Text))-  , _ssdeDestinationS3Prefix     :: !(Maybe Text)-  , _ssdeDataSetType             :: !SupportDataSetType-  , _ssdeFromDate                :: !POSIX-  , _ssdeRoleNameARN             :: !Text-  , _ssdeDestinationS3BucketName :: !Text-  , _ssdeSnsTopicARN             :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'StartSupportDataExport' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ssdeCustomerDefinedValues' - (Optional) Key-value pairs which will be returned, unmodified, in the Amazon SNS notification message and the data set metadata file.------ * 'ssdeDestinationS3Prefix' - (Optional) The desired S3 prefix for the published data set, similar to a directory path in standard file systems. For example, if given the bucket name "mybucket" and the prefix "myprefix/mydatasets", the output file "outputfile" would be published to "s3://mybucket/myprefix/mydatasets/outputfile". If the prefix directory structure does not exist, it will be created. If no prefix is provided, the data set will be published to the S3 bucket root.------ * 'ssdeDataSetType' - Specifies the data set type to be written to the output csv file. The data set types customer_support_contacts_data and test_customer_support_contacts_data both result in a csv file containing the following fields: Product Id, Product Code, Customer Guid, Subscription Guid, Subscription Start Date, Organization, AWS Account Id, Given Name, Surname, Telephone Number, Email, Title, Country Code, ZIP Code, Operation Type, and Operation Time.      * /customer_support_contacts_data/ Customer support contact data. The data set will contain all changes (Creates, Updates, and Deletes) to customer support contact data from the date specified in the from_date parameter.    * /test_customer_support_contacts_data/ An example data set containing static test data in the same format as customer_support_contacts_data------ * 'ssdeFromDate' - The start date from which to retrieve the data set in UTC. This parameter only affects the customer_support_contacts_data data set type.------ * 'ssdeRoleNameARN' - The Amazon Resource Name (ARN) of the Role with an attached permissions policy to interact with the provided AWS services.------ * 'ssdeDestinationS3BucketName' - The name (friendly name, not ARN) of the destination S3 bucket.------ * 'ssdeSnsTopicARN' - Amazon Resource Name (ARN) for the SNS Topic that will be notified when the data set has been published or if an error has occurred.-startSupportDataExport-    :: SupportDataSetType -- ^ 'ssdeDataSetType'-    -> UTCTime -- ^ 'ssdeFromDate'-    -> Text -- ^ 'ssdeRoleNameARN'-    -> Text -- ^ 'ssdeDestinationS3BucketName'-    -> Text -- ^ 'ssdeSnsTopicARN'-    -> StartSupportDataExport-startSupportDataExport pDataSetType_ pFromDate_ pRoleNameARN_ pDestinationS3BucketName_ pSnsTopicARN_ =-  StartSupportDataExport'-    { _ssdeCustomerDefinedValues = Nothing-    , _ssdeDestinationS3Prefix = Nothing-    , _ssdeDataSetType = pDataSetType_-    , _ssdeFromDate = _Time # pFromDate_-    , _ssdeRoleNameARN = pRoleNameARN_-    , _ssdeDestinationS3BucketName = pDestinationS3BucketName_-    , _ssdeSnsTopicARN = pSnsTopicARN_-    }----- | (Optional) Key-value pairs which will be returned, unmodified, in the Amazon SNS notification message and the data set metadata file.-ssdeCustomerDefinedValues :: Lens' StartSupportDataExport (HashMap Text Text)-ssdeCustomerDefinedValues = lens _ssdeCustomerDefinedValues (\ s a -> s{_ssdeCustomerDefinedValues = a}) . _Default . _Map---- | (Optional) The desired S3 prefix for the published data set, similar to a directory path in standard file systems. For example, if given the bucket name "mybucket" and the prefix "myprefix/mydatasets", the output file "outputfile" would be published to "s3://mybucket/myprefix/mydatasets/outputfile". If the prefix directory structure does not exist, it will be created. If no prefix is provided, the data set will be published to the S3 bucket root.-ssdeDestinationS3Prefix :: Lens' StartSupportDataExport (Maybe Text)-ssdeDestinationS3Prefix = lens _ssdeDestinationS3Prefix (\ s a -> s{_ssdeDestinationS3Prefix = a})---- | Specifies the data set type to be written to the output csv file. The data set types customer_support_contacts_data and test_customer_support_contacts_data both result in a csv file containing the following fields: Product Id, Product Code, Customer Guid, Subscription Guid, Subscription Start Date, Organization, AWS Account Id, Given Name, Surname, Telephone Number, Email, Title, Country Code, ZIP Code, Operation Type, and Operation Time.      * /customer_support_contacts_data/ Customer support contact data. The data set will contain all changes (Creates, Updates, and Deletes) to customer support contact data from the date specified in the from_date parameter.    * /test_customer_support_contacts_data/ An example data set containing static test data in the same format as customer_support_contacts_data-ssdeDataSetType :: Lens' StartSupportDataExport SupportDataSetType-ssdeDataSetType = lens _ssdeDataSetType (\ s a -> s{_ssdeDataSetType = a})---- | The start date from which to retrieve the data set in UTC. This parameter only affects the customer_support_contacts_data data set type.-ssdeFromDate :: Lens' StartSupportDataExport UTCTime-ssdeFromDate = lens _ssdeFromDate (\ s a -> s{_ssdeFromDate = a}) . _Time---- | The Amazon Resource Name (ARN) of the Role with an attached permissions policy to interact with the provided AWS services.-ssdeRoleNameARN :: Lens' StartSupportDataExport Text-ssdeRoleNameARN = lens _ssdeRoleNameARN (\ s a -> s{_ssdeRoleNameARN = a})---- | The name (friendly name, not ARN) of the destination S3 bucket.-ssdeDestinationS3BucketName :: Lens' StartSupportDataExport Text-ssdeDestinationS3BucketName = lens _ssdeDestinationS3BucketName (\ s a -> s{_ssdeDestinationS3BucketName = a})---- | Amazon Resource Name (ARN) for the SNS Topic that will be notified when the data set has been published or if an error has occurred.-ssdeSnsTopicARN :: Lens' StartSupportDataExport Text-ssdeSnsTopicARN = lens _ssdeSnsTopicARN (\ s a -> s{_ssdeSnsTopicARN = a})--instance AWSRequest StartSupportDataExport where-        type Rs StartSupportDataExport =-             StartSupportDataExportResponse-        request = postJSON marketplaceAnalytics-        response-          = receiveJSON-              (\ s h x ->-                 StartSupportDataExportResponse' <$>-                   (x .?> "dataSetRequestId") <*> (pure (fromEnum s)))--instance Hashable StartSupportDataExport where--instance NFData StartSupportDataExport where--instance ToHeaders StartSupportDataExport where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("MarketplaceCommerceAnalytics20150701.StartSupportDataExport"-                       :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON StartSupportDataExport where-        toJSON StartSupportDataExport'{..}-          = object-              (catMaybes-                 [("customerDefinedValues" .=) <$>-                    _ssdeCustomerDefinedValues,-                  ("destinationS3Prefix" .=) <$>-                    _ssdeDestinationS3Prefix,-                  Just ("dataSetType" .= _ssdeDataSetType),-                  Just ("fromDate" .= _ssdeFromDate),-                  Just ("roleNameArn" .= _ssdeRoleNameARN),-                  Just-                    ("destinationS3BucketName" .=-                       _ssdeDestinationS3BucketName),-                  Just ("snsTopicArn" .= _ssdeSnsTopicARN)])--instance ToPath StartSupportDataExport where-        toPath = const "/"--instance ToQuery StartSupportDataExport where-        toQuery = const mempty---- | Container for the result of the StartSupportDataExport operation.------ /See:/ 'startSupportDataExportResponse' smart constructor.-data StartSupportDataExportResponse = StartSupportDataExportResponse'-  { _ssdersDataSetRequestId :: !(Maybe Text)-  , _ssdersResponseStatus   :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'StartSupportDataExportResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ssdersDataSetRequestId' - A unique identifier representing a specific request to the StartSupportDataExport operation. This identifier can be used to correlate a request with notifications from the SNS topic.------ * 'ssdersResponseStatus' - -- | The response status code.-startSupportDataExportResponse-    :: Int -- ^ 'ssdersResponseStatus'-    -> StartSupportDataExportResponse-startSupportDataExportResponse pResponseStatus_ =-  StartSupportDataExportResponse'-    { _ssdersDataSetRequestId = Nothing-    , _ssdersResponseStatus = pResponseStatus_-    }----- | A unique identifier representing a specific request to the StartSupportDataExport operation. This identifier can be used to correlate a request with notifications from the SNS topic.-ssdersDataSetRequestId :: Lens' StartSupportDataExportResponse (Maybe Text)-ssdersDataSetRequestId = lens _ssdersDataSetRequestId (\ s a -> s{_ssdersDataSetRequestId = a})---- | -- | The response status code.-ssdersResponseStatus :: Lens' StartSupportDataExportResponse Int-ssdersResponseStatus = lens _ssdersResponseStatus (\ s a -> s{_ssdersResponseStatus = a})--instance NFData StartSupportDataExportResponse where

@@ -1,79 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.MarketplaceAnalytics.Types--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.MarketplaceAnalytics.Types-    (-    -- * Service Configuration-      marketplaceAnalytics--    -- * Errors-    , _MarketplaceCommerceAnalyticsException--    -- * DataSetType-    , DataSetType (..)--    -- * SupportDataSetType-    , SupportDataSetType (..)-    ) where--import Network.AWS.Lens-import Network.AWS.MarketplaceAnalytics.Types.Product-import Network.AWS.MarketplaceAnalytics.Types.Sum-import Network.AWS.Prelude-import Network.AWS.Sign.V4---- | API version @2015-07-01@ of the Amazon Marketplace Commerce Analytics SDK configuration.-marketplaceAnalytics :: Service-marketplaceAnalytics =-  Service-    { _svcAbbrev = "MarketplaceAnalytics"-    , _svcSigner = v4-    , _svcPrefix = "marketplacecommerceanalytics"-    , _svcVersion = "2015-07-01"-    , _svcEndpoint = defaultEndpoint marketplaceAnalytics-    , _svcTimeout = Just 70-    , _svcCheck = statusSuccess-    , _svcError = parseJSONError "MarketplaceAnalytics"-    , _svcRetry = retry-    }-  where-    retry =-      Exponential-        { _retryBase = 5.0e-2-        , _retryGrowth = 2-        , _retryAttempts = 5-        , _retryCheck = check-        }-    check e-      | has (hasCode "ThrottledException" . hasStatus 400) e =-        Just "throttled_exception"-      | has (hasStatus 429) e = Just "too_many_requests"-      | has (hasCode "ThrottlingException" . hasStatus 400) e =-        Just "throttling_exception"-      | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"-      | has (hasStatus 504) e = Just "gateway_timeout"-      | has (hasCode "RequestThrottledException" . hasStatus 400) e =-        Just "request_throttled_exception"-      | has (hasStatus 502) e = Just "bad_gateway"-      | has (hasStatus 503) e = Just "service_unavailable"-      | has (hasStatus 500) e = Just "general_server_error"-      | has (hasStatus 509) e = Just "limit_exceeded"-      | otherwise = Nothing----- | This exception is thrown when an internal service error occurs.-_MarketplaceCommerceAnalyticsException :: AsError a => Getting (First ServiceError) a ServiceError-_MarketplaceCommerceAnalyticsException =-  _MatchServiceError-    marketplaceAnalytics-    "MarketplaceCommerceAnalyticsException"-

@@ -1,22 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.MarketplaceAnalytics.Types.Product--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.MarketplaceAnalytics.Types.Product where--import Network.AWS.Lens-import Network.AWS.MarketplaceAnalytics.Types.Sum-import Network.AWS.Prelude

@@ -1,131 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE LambdaCase         #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.MarketplaceAnalytics.Types.Sum--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.MarketplaceAnalytics.Types.Sum where--import Network.AWS.Prelude--data DataSetType-  = CustomerProfileByGeography-  | CustomerProfileByIndustry-  | CustomerProfileByRevenue-  | CustomerSubscriberAnnualSubscriptions-  | CustomerSubscriberHourlyMonthlySubscriptions-  | DailyBusinessCanceledProductSubscribers-  | DailyBusinessFees-  | DailyBusinessFreeTrialConversions-  | DailyBusinessNewInstances-  | DailyBusinessNewProductSubscribers-  | DailyBusinessUsageByInstanceType-  | DisbursedAmountByAgeOfDisbursedFunds-  | DisbursedAmountByAgeOfUncollectedFunds-  | DisbursedAmountByCustomerGeo-  | DisbursedAmountByInstanceHours-  | DisbursedAmountByProduct-  | DisbursedAmountByProductWithUncollectedFunds-  | MonthlyRevenueAnnualSubscriptions-  | MonthlyRevenueBillingAndRevenueData-  | SalesCompensationBilledRevenue-  | UsSalesAndUseTaxRecords-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText DataSetType where-    parser = takeLowerText >>= \case-        "customer_profile_by_geography" -> pure CustomerProfileByGeography-        "customer_profile_by_industry" -> pure CustomerProfileByIndustry-        "customer_profile_by_revenue" -> pure CustomerProfileByRevenue-        "customer_subscriber_annual_subscriptions" -> pure CustomerSubscriberAnnualSubscriptions-        "customer_subscriber_hourly_monthly_subscriptions" -> pure CustomerSubscriberHourlyMonthlySubscriptions-        "daily_business_canceled_product_subscribers" -> pure DailyBusinessCanceledProductSubscribers-        "daily_business_fees" -> pure DailyBusinessFees-        "daily_business_free_trial_conversions" -> pure DailyBusinessFreeTrialConversions-        "daily_business_new_instances" -> pure DailyBusinessNewInstances-        "daily_business_new_product_subscribers" -> pure DailyBusinessNewProductSubscribers-        "daily_business_usage_by_instance_type" -> pure DailyBusinessUsageByInstanceType-        "disbursed_amount_by_age_of_disbursed_funds" -> pure DisbursedAmountByAgeOfDisbursedFunds-        "disbursed_amount_by_age_of_uncollected_funds" -> pure DisbursedAmountByAgeOfUncollectedFunds-        "disbursed_amount_by_customer_geo" -> pure DisbursedAmountByCustomerGeo-        "disbursed_amount_by_instance_hours" -> pure DisbursedAmountByInstanceHours-        "disbursed_amount_by_product" -> pure DisbursedAmountByProduct-        "disbursed_amount_by_product_with_uncollected_funds" -> pure DisbursedAmountByProductWithUncollectedFunds-        "monthly_revenue_annual_subscriptions" -> pure MonthlyRevenueAnnualSubscriptions-        "monthly_revenue_billing_and_revenue_data" -> pure MonthlyRevenueBillingAndRevenueData-        "sales_compensation_billed_revenue" -> pure SalesCompensationBilledRevenue-        "us_sales_and_use_tax_records" -> pure UsSalesAndUseTaxRecords-        e -> fromTextError $ "Failure parsing DataSetType from value: '" <> e-           <> "'. Accepted values: customer_profile_by_geography, customer_profile_by_industry, customer_profile_by_revenue, customer_subscriber_annual_subscriptions, customer_subscriber_hourly_monthly_subscriptions, daily_business_canceled_product_subscribers, daily_business_fees, daily_business_free_trial_conversions, daily_business_new_instances, daily_business_new_product_subscribers, daily_business_usage_by_instance_type, disbursed_amount_by_age_of_disbursed_funds, disbursed_amount_by_age_of_uncollected_funds, disbursed_amount_by_customer_geo, disbursed_amount_by_instance_hours, disbursed_amount_by_product, disbursed_amount_by_product_with_uncollected_funds, monthly_revenue_annual_subscriptions, monthly_revenue_billing_and_revenue_data, sales_compensation_billed_revenue, us_sales_and_use_tax_records"--instance ToText DataSetType where-    toText = \case-        CustomerProfileByGeography -> "customer_profile_by_geography"-        CustomerProfileByIndustry -> "customer_profile_by_industry"-        CustomerProfileByRevenue -> "customer_profile_by_revenue"-        CustomerSubscriberAnnualSubscriptions -> "customer_subscriber_annual_subscriptions"-        CustomerSubscriberHourlyMonthlySubscriptions -> "customer_subscriber_hourly_monthly_subscriptions"-        DailyBusinessCanceledProductSubscribers -> "daily_business_canceled_product_subscribers"-        DailyBusinessFees -> "daily_business_fees"-        DailyBusinessFreeTrialConversions -> "daily_business_free_trial_conversions"-        DailyBusinessNewInstances -> "daily_business_new_instances"-        DailyBusinessNewProductSubscribers -> "daily_business_new_product_subscribers"-        DailyBusinessUsageByInstanceType -> "daily_business_usage_by_instance_type"-        DisbursedAmountByAgeOfDisbursedFunds -> "disbursed_amount_by_age_of_disbursed_funds"-        DisbursedAmountByAgeOfUncollectedFunds -> "disbursed_amount_by_age_of_uncollected_funds"-        DisbursedAmountByCustomerGeo -> "disbursed_amount_by_customer_geo"-        DisbursedAmountByInstanceHours -> "disbursed_amount_by_instance_hours"-        DisbursedAmountByProduct -> "disbursed_amount_by_product"-        DisbursedAmountByProductWithUncollectedFunds -> "disbursed_amount_by_product_with_uncollected_funds"-        MonthlyRevenueAnnualSubscriptions -> "monthly_revenue_annual_subscriptions"-        MonthlyRevenueBillingAndRevenueData -> "monthly_revenue_billing_and_revenue_data"-        SalesCompensationBilledRevenue -> "sales_compensation_billed_revenue"-        UsSalesAndUseTaxRecords -> "us_sales_and_use_tax_records"--instance Hashable     DataSetType-instance NFData       DataSetType-instance ToByteString DataSetType-instance ToQuery      DataSetType-instance ToHeader     DataSetType--instance ToJSON DataSetType where-    toJSON = toJSONText--data SupportDataSetType-  = CustomerSupportContactsData-  | TestCustomerSupportContactsData-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText SupportDataSetType where-    parser = takeLowerText >>= \case-        "customer_support_contacts_data" -> pure CustomerSupportContactsData-        "test_customer_support_contacts_data" -> pure TestCustomerSupportContactsData-        e -> fromTextError $ "Failure parsing SupportDataSetType from value: '" <> e-           <> "'. Accepted values: customer_support_contacts_data, test_customer_support_contacts_data"--instance ToText SupportDataSetType where-    toText = \case-        CustomerSupportContactsData -> "customer_support_contacts_data"-        TestCustomerSupportContactsData -> "test_customer_support_contacts_data"--instance Hashable     SupportDataSetType-instance NFData       SupportDataSetType-instance ToByteString SupportDataSetType-instance ToQuery      SupportDataSetType-instance ToHeader     SupportDataSetType--instance ToJSON SupportDataSetType where-    toJSON = toJSONText

@@ -1,21 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE TypeFamilies      #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.MarketplaceAnalytics.Waiters--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.MarketplaceAnalytics.Waiters where--import Network.AWS.Lens-import Network.AWS.MarketplaceAnalytics.Types-import Network.AWS.Prelude-import Network.AWS.Waiter

@@ -2,20 +2,22 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2018 Brendan Hay+-- Copyright   : (c) 2013-2023 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Maintainer  : Brendan Hay -- Stability   : auto-generated -- Portability : non-portable (GHC extensions)--- module Main (main) where +import Test.Amazonka.MarketplaceAnalytics+import Test.Amazonka.MarketplaceAnalytics.Internal import Test.Tasty-import Test.AWS.MarketplaceAnalytics-import Test.AWS.MarketplaceAnalytics.Internal  main :: IO ()-main = defaultMain $ testGroup "MarketplaceAnalytics"-    [ testGroup "tests"    tests-    , testGroup "fixtures" fixtures-    ]+main =+  defaultMain $+    testGroup+      "MarketplaceAnalytics"+      [ testGroup "tests" tests,+        testGroup "fixtures" fixtures+      ]

@@ -1,75 +0,0 @@-{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-orphans        #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Test.AWS.Gen.MarketplaceAnalytics--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Test.AWS.Gen.MarketplaceAnalytics where--import Data.Proxy-import Network.AWS.MarketplaceAnalytics-import Test.AWS.Fixture-import Test.AWS.MarketplaceAnalytics.Internal-import Test.AWS.Prelude-import Test.Tasty---- Auto-generated: the actual test selection needs to be manually placed into--- the top-level so that real test data can be incrementally added.------ This commented snippet is what the entire set should look like:---- fixtures :: TestTree--- fixtures =---     [ testGroup "request"---         [ requestStartSupportDataExport $---             startSupportDataExport------         , requestGenerateDataSet $---             generateDataSet------           ]----     , testGroup "response"---         [ responseStartSupportDataExport $---             startSupportDataExportResponse------         , responseGenerateDataSet $---             generateDataSetResponse------           ]---     ]---- Requests--requestStartSupportDataExport :: StartSupportDataExport -> TestTree-requestStartSupportDataExport = req-    "StartSupportDataExport"-    "fixture/StartSupportDataExport.yaml"--requestGenerateDataSet :: GenerateDataSet -> TestTree-requestGenerateDataSet = req-    "GenerateDataSet"-    "fixture/GenerateDataSet.yaml"---- Responses--responseStartSupportDataExport :: StartSupportDataExportResponse -> TestTree-responseStartSupportDataExport = res-    "StartSupportDataExportResponse"-    "fixture/StartSupportDataExportResponse.proto"-    marketplaceAnalytics-    (Proxy :: Proxy StartSupportDataExport)--responseGenerateDataSet :: GenerateDataSetResponse -> TestTree-responseGenerateDataSet = res-    "GenerateDataSetResponse"-    "fixture/GenerateDataSetResponse.proto"-    marketplaceAnalytics-    (Proxy :: Proxy GenerateDataSet)

@@ -1,23 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Module      : Test.AWS.MarketplaceAnalytics--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental--- Portability : non-portable (GHC extensions)--module Test.AWS.MarketplaceAnalytics where--import           Test.AWS.Prelude--tests :: [TestTree]-tests = []--fixtures :: [TestTree]-fixtures = []

@@ -1,17 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Module      : Test.AWS.MarketplaceAnalytics.Internal--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental--- Portability : non-portable (GHC extensions)--module Test.AWS.MarketplaceAnalytics.Internal where--import           Test.AWS.Prelude

@@ -0,0 +1,78 @@+{-# OPTIONS_GHC -fno-warn-orphans #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Test.Amazonka.Gen.MarketplaceAnalytics+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.Gen.MarketplaceAnalytics where++import Amazonka.MarketplaceAnalytics+import qualified Data.Proxy as Proxy+import Test.Amazonka.Fixture+import Test.Amazonka.MarketplaceAnalytics.Internal+import Test.Amazonka.Prelude+import Test.Tasty++-- Auto-generated: the actual test selection needs to be manually placed into+-- the top-level so that real test data can be incrementally added.+--+-- This commented snippet is what the entire set should look like:++-- fixtures :: TestTree+-- fixtures =+--     [ testGroup "request"+--         [ requestGenerateDataSet $+--             newGenerateDataSet+--+--         , requestStartSupportDataExport $+--             newStartSupportDataExport+--+--           ]++--     , testGroup "response"+--         [ responseGenerateDataSet $+--             newGenerateDataSetResponse+--+--         , responseStartSupportDataExport $+--             newStartSupportDataExportResponse+--+--           ]+--     ]++-- Requests++requestGenerateDataSet :: GenerateDataSet -> TestTree+requestGenerateDataSet =+  req+    "GenerateDataSet"+    "fixture/GenerateDataSet.yaml"++requestStartSupportDataExport :: StartSupportDataExport -> TestTree+requestStartSupportDataExport =+  req+    "StartSupportDataExport"+    "fixture/StartSupportDataExport.yaml"++-- Responses++responseGenerateDataSet :: GenerateDataSetResponse -> TestTree+responseGenerateDataSet =+  res+    "GenerateDataSetResponse"+    "fixture/GenerateDataSetResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GenerateDataSet)++responseStartSupportDataExport :: StartSupportDataExportResponse -> TestTree+responseStartSupportDataExport =+  res+    "StartSupportDataExportResponse"+    "fixture/StartSupportDataExportResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy StartSupportDataExport)

@@ -0,0 +1,20 @@+-- |+-- Module      : Test.Amazonka.MarketplaceAnalytics+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.MarketplaceAnalytics+  ( tests,+    fixtures,+  )+where++import Test.Tasty (TestTree)++tests :: [TestTree]+tests = []++fixtures :: [TestTree]+fixtures = []

@@ -0,0 +1,8 @@+-- |+-- Module      : Test.Amazonka.MarketplaceAnalytics.Internal+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.MarketplaceAnalytics.Internal where