Hello community,

here is the log from the commit of package ghc-amazonka-marketplace-analytics 
for openSUSE:Factory checked in at 2017-03-24 02:13:52
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-amazonka-marketplace-analytics (Old)
 and      /work/SRC/openSUSE:Factory/.ghc-amazonka-marketplace-analytics.new 
(New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ghc-amazonka-marketplace-analytics"

Fri Mar 24 02:13:52 2017 rev:2 rq:461582 version:1.4.5

Changes:
--------
--- 
/work/SRC/openSUSE:Factory/ghc-amazonka-marketplace-analytics/ghc-amazonka-marketplace-analytics.changes
    2017-02-03 17:38:22.362997706 +0100
+++ 
/work/SRC/openSUSE:Factory/.ghc-amazonka-marketplace-analytics.new/ghc-amazonka-marketplace-analytics.changes
       2017-03-24 02:13:52.462114490 +0100
@@ -1,0 +2,5 @@
+Sun Feb 12 14:19:44 UTC 2017 - [email protected]
+
+- Update to version 1.4.5 with cabal2obs.
+
+-------------------------------------------------------------------

Old:
----
  amazonka-marketplace-analytics-1.4.3.tar.gz

New:
----
  amazonka-marketplace-analytics-1.4.5.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ ghc-amazonka-marketplace-analytics.spec ++++++
--- /var/tmp/diff_new_pack.iAit0w/_old  2017-03-24 02:13:52.958044321 +0100
+++ /var/tmp/diff_new_pack.iAit0w/_new  2017-03-24 02:13:52.958044321 +0100
@@ -1,7 +1,7 @@
 #
 # spec file for package ghc-amazonka-marketplace-analytics
 #
-# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany.
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -19,7 +19,7 @@
 %global pkg_name amazonka-marketplace-analytics
 %bcond_with tests
 Name:           ghc-%{pkg_name}
-Version:        1.4.3
+Version:        1.4.5
 Release:        0
 Summary:        Amazon Marketplace Commerce Analytics SDK
 License:        MPL-2.0
@@ -41,21 +41,19 @@
 %endif
 
 %description
-Provides AWS Marketplace business intelligence data on-demand.
-
 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 and sending requests.
+mechanisms for specifying AuthN/AuthZ information, sending requests, and
+receiving responses.
 
-Use of lenses is required for constructing and manipulating types.
-This is due to the amount 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>.
+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.
+<https://aws.amazon.com/documentation/ the AWS documentation> to get started.
 
 %package devel
 Summary:        Haskell %{pkg_name} library development files

++++++ amazonka-marketplace-analytics-1.4.3.tar.gz -> 
amazonka-marketplace-analytics-1.4.5.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/amazonka-marketplace-analytics-1.4.3/README.md 
new/amazonka-marketplace-analytics-1.4.5/README.md
--- old/amazonka-marketplace-analytics-1.4.3/README.md  2016-06-09 
21:31:26.000000000 +0200
+++ new/amazonka-marketplace-analytics-1.4.5/README.md  2016-12-04 
16:29:25.000000000 +0100
@@ -8,25 +8,28 @@
 
 ## Version
 
-`1.4.3`
+`1.4.5`
 
 
 ## Description
 
-Provides AWS Marketplace business intelligence data on-demand.
-
 Documentation is available via 
[Hackage](http://hackage.haskell.org/package/amazonka-marketplace-analytics)
 and the [AWS API Reference](https://aws.amazon.com/documentation/).
 
 The types from this library are intended to be used with 
[amazonka](http://hackage.haskell.org/package/amazonka),
-which provides mechanisms for specifying AuthN/AuthZ information and sending 
requests.
+which provides mechanisms for specifying AuthN/AuthZ information, sending 
requests,
+and receiving responses.
 
-Use of lenses is required for constructing and manipulating types.
-This is due to the amount of nesting of AWS types and transparency regarding
+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
 [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)
+or [the AWS documentation](https://aws.amazon.com/documentation/) to get 
started.
+
+
 ## Contribute
 
 For any problems, comments, or feedback please create an issue [here on 
GitHub](https://github.com/brendanhay/amazonka/issues).
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/amazonka-marketplace-analytics-1.4.3/amazonka-marketplace-analytics.cabal 
new/amazonka-marketplace-analytics-1.4.5/amazonka-marketplace-analytics.cabal
--- 
old/amazonka-marketplace-analytics-1.4.3/amazonka-marketplace-analytics.cabal   
    2016-06-09 21:31:26.000000000 +0200
+++ 
new/amazonka-marketplace-analytics-1.4.5/amazonka-marketplace-analytics.cabal   
    2016-12-04 16:29:25.000000000 +0100
@@ -1,5 +1,5 @@
 name:                  amazonka-marketplace-analytics
-version:               1.4.3
+version:               1.4.5
 synopsis:              Amazon Marketplace Commerce Analytics SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -11,22 +11,21 @@
 category:              Network, AWS, Cloud, Distributed Computing
 build-type:            Simple
 cabal-version:         >= 1.10
-extra-source-files:    README.md fixture/*.yaml fixture/*.proto
+extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep
 description:
-    Provides AWS Marketplace business intelligence data on-demand.
-    .
     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 and sending requests.
+    mechanisms for specifying AuthN/AuthZ information, sending requests,
+    and receiving responses.
     .
-    Use of lenses is required for constructing and manipulating types.
-    This is due to the amount of nesting of AWS types and transparency 
regarding
+    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>
+    See "Network.AWS.MarketplaceAnalytics" or 
<https://aws.amazon.com/documentation/ the AWS documentation>
     to get started.
 
 source-repository head
@@ -42,6 +41,7 @@
     exposed-modules:
           Network.AWS.MarketplaceAnalytics
         , Network.AWS.MarketplaceAnalytics.GenerateDataSet
+        , Network.AWS.MarketplaceAnalytics.StartSupportDataExport
         , Network.AWS.MarketplaceAnalytics.Types
         , Network.AWS.MarketplaceAnalytics.Waiters
 
@@ -50,7 +50,7 @@
         , Network.AWS.MarketplaceAnalytics.Types.Sum
 
     build-depends:
-          amazonka-core == 1.4.3.*
+          amazonka-core == 1.4.5.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-marketplace-analytics-test
@@ -70,9 +70,9 @@
         , Test.AWS.MarketplaceAnalytics.Internal
 
     build-depends:
-          amazonka-core == 1.4.3.*
-        , amazonka-test == 1.4.3.*
-        , amazonka-marketplace-analytics == 1.4.3.*
+          amazonka-core == 1.4.5.*
+        , amazonka-test == 1.4.5.*
+        , amazonka-marketplace-analytics == 1.4.5.*
         , base
         , bytestring
         , tasty
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/amazonka-marketplace-analytics-1.4.3/gen/Network/AWS/MarketplaceAnalytics/GenerateDataSet.hs
 
new/amazonka-marketplace-analytics-1.4.5/gen/Network/AWS/MarketplaceAnalytics/GenerateDataSet.hs
--- 
old/amazonka-marketplace-analytics-1.4.3/gen/Network/AWS/MarketplaceAnalytics/GenerateDataSet.hs
    2016-06-09 21:31:26.000000000 +0200
+++ 
new/amazonka-marketplace-analytics-1.4.5/gen/Network/AWS/MarketplaceAnalytics/GenerateDataSet.hs
    2016-12-04 16:29:25.000000000 +0100
@@ -65,19 +65,19 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'gdsCustomerDefinedValues'
+-- * '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'
+-- * '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'
+-- * 'gdsDataSetType' - The desired data set type.     * 
/customer_subscriber_hourly_monthly_subscriptions/ - Available daily by 5:00 PM 
Pacific Time since 2014-07-21.    * /customer_subscriber_annual_subscriptions/ 
- Available daily by 5:00 PM Pacific Time since 2014-07-21.    * 
/daily_business_usage_by_instance_type/ - Available daily by 5:00 PM Pacific 
Time since 2015-01-26.    * /daily_business_fees/ - Available daily by 5:00 PM 
Pacific Time since 2015-01-26.    * /daily_business_free_trial_conversions/ - 
Available daily by 5:00 PM Pacific Time since 2015-01-26.    * 
/daily_business_new_instances/ - Available daily by 5:00 PM Pacific Time since 
2015-01-26.    * /daily_business_new_product_subscribers/ - Available daily by 
5:00 PM Pacific Time since 2015-01-26.    * 
/daily_business_canceled_product_subscribers/ - Available daily by 5:00 PM 
Pacific Time since 2015-01-26.    * /monthly_revenue_billing_and_revenue_data/ 
- Available monthly on the 4th day of the month by 5:00 PM Pacific Time since 
2015-02.    * /monthly_revenue_annual_subscriptions/ - Available monthly on the 
4th day of the month by 5:00 PM Pacific Time since 2015-02.    * 
/disbursed_amount_by_product/ - Available every 30 days by 5:00 PM Pacific Time 
since 2015-01-26.    * /disbursed_amount_by_product_with_uncollected_funds/ 
-This data set is only available from 2012-04-19 until 2015-01-25. After 
2015-01-25, 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_customer_geo/ - Available every 30 days by 5:00 PM Pacific 
Time since 2012-04-19.    * /disbursed_amount_by_age_of_uncollected_funds/ - 
Available every 30 days by 5:00 PM Pacific Time since 2015-01-26.    * 
/disbursed_amount_by_age_of_disbursed_funds/ - Available every 30 days by 5:00 
PM Pacific Time since 2015-01-26.    * /customer_profile_by_industry/ - 
Available daily by 5:00 PM Pacific Time since 2015-10-01.    * 
/customer_profile_by_revenue/ - Available daily by 5:00 PM Pacific Time since 
2015-10-01.    * /customer_profile_by_geography/ - Available daily by 5:00 PM 
Pacific Time since 2015-10-01.
 --
--- * 'gdsDataSetPublicationDate'
+-- * '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'
+-- * 'gdsRoleNameARN' - The Amazon Resource Name (ARN) of the Role with an 
attached permissions policy to interact with the provided AWS services.
 --
--- * 'gdsDestinationS3BucketName'
+-- * 'gdsDestinationS3BucketName' - The name (friendly name, not ARN) of the 
destination S3 bucket.
 --
--- * 'gdsSnsTopicARN'
+-- * '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'
@@ -100,30 +100,11 @@
 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.
+-- | (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/ - Available daily by 
5:00 PM Pacific Time since 2014-07-21.
--- -   /customer_subscriber_annual_subscriptions/ - Available daily by 5:00 PM 
Pacific Time since 2014-07-21.
--- -   /daily_business_usage_by_instance_type/ - Available daily by 5:00 PM 
Pacific Time since 2015-01-26.
--- -   /daily_business_fees/ - Available daily by 5:00 PM Pacific Time since 
2015-01-26.
--- -   /daily_business_free_trial_conversions/ - Available daily by 5:00 PM 
Pacific Time since 2015-01-26.
--- -   /daily_business_new_instances/ - Available daily by 5:00 PM Pacific 
Time since 2015-01-26.
--- -   /daily_business_new_product_subscribers/ - Available daily by 5:00 PM 
Pacific Time since 2015-01-26.
--- -   /daily_business_canceled_product_subscribers/ - Available daily by 5:00 
PM Pacific Time since 2015-01-26.
--- -   /monthly_revenue_billing_and_revenue_data/ - Available monthly on the 
4th day of the month by 5:00 PM Pacific Time since 2015-02.
--- -   /monthly_revenue_annual_subscriptions/ - Available monthly on the 4th 
day of the month by 5:00 PM Pacific Time since 2015-02.
--- -   /disbursed_amount_by_product/ - Available every 30 days by 5:00 PM 
Pacific Time since 2015-01-26.
--- -   /disbursed_amount_by_product_with_uncollected_funds/ -This data set is 
only available from 2012-04-19 until 2015-01-25. After 2015-01-25, 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_customer_geo/ - Available every 30 days by 5:00 PM 
Pacific Time since 2012-04-19.
--- -   /disbursed_amount_by_age_of_uncollected_funds/ - Available every 30 
days by 5:00 PM Pacific Time since 2015-01-26.
--- -   /disbursed_amount_by_age_of_disbursed_funds/ - Available every 30 days 
by 5:00 PM Pacific Time since 2015-01-26.
--- -   /customer_profile_by_industry/ - Available daily by 5:00 PM Pacific 
Time since 2015-10-01.
--- -   /customer_profile_by_revenue/ - Available daily by 5:00 PM Pacific Time 
since 2015-10-01.
--- -   /customer_profile_by_geography/ - Available daily by 5:00 PM Pacific 
Time since 2015-10-01.
+-- | The desired data set type.     * 
/customer_subscriber_hourly_monthly_subscriptions/ - Available daily by 5:00 PM 
Pacific Time since 2014-07-21.    * /customer_subscriber_annual_subscriptions/ 
- Available daily by 5:00 PM Pacific Time since 2014-07-21.    * 
/daily_business_usage_by_instance_type/ - Available daily by 5:00 PM Pacific 
Time since 2015-01-26.    * /daily_business_fees/ - Available daily by 5:00 PM 
Pacific Time since 2015-01-26.    * /daily_business_free_trial_conversions/ - 
Available daily by 5:00 PM Pacific Time since 2015-01-26.    * 
/daily_business_new_instances/ - Available daily by 5:00 PM Pacific Time since 
2015-01-26.    * /daily_business_new_product_subscribers/ - Available daily by 
5:00 PM Pacific Time since 2015-01-26.    * 
/daily_business_canceled_product_subscribers/ - Available daily by 5:00 PM 
Pacific Time since 2015-01-26.    * /monthly_revenue_billing_and_revenue_data/ 
- Available monthly on the 4th day of the month by 5:00 PM Pacific Time since 
2015-02.    * /monthly_revenue_annual_subscriptions/ - Available monthly on the 
4th day of the month by 5:00 PM Pacific Time since 2015-02.    * 
/disbursed_amount_by_product/ - Available every 30 days by 5:00 PM Pacific Time 
since 2015-01-26.    * /disbursed_amount_by_product_with_uncollected_funds/ 
-This data set is only available from 2012-04-19 until 2015-01-25. After 
2015-01-25, 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_customer_geo/ - Available every 30 days by 5:00 PM Pacific 
Time since 2012-04-19.    * /disbursed_amount_by_age_of_uncollected_funds/ - 
Available every 30 days by 5:00 PM Pacific Time since 2015-01-26.    * 
/disbursed_amount_by_age_of_disbursed_funds/ - Available every 30 days by 5:00 
PM Pacific Time since 2015-01-26.    * /customer_profile_by_industry/ - 
Available daily by 5:00 PM Pacific Time since 2015-10-01.    * 
/customer_profile_by_revenue/ - Available daily by 5:00 PM Pacific Time since 
2015-10-01.    * /customer_profile_by_geography/ - Available daily by 5:00 PM 
Pacific Time since 2015-10-01.
 gdsDataSetType :: Lens' GenerateDataSet DataSetType
 gdsDataSetType = lens _gdsDataSetType (\ s a -> s{_gdsDataSetType = a});
 
@@ -202,9 +183,9 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'gdsrsDataSetRequestId'
+-- * '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'
+-- * 'gdsrsResponseStatus' - -- | The response status code.
 generateDataSetResponse
     :: Int -- ^ 'gdsrsResponseStatus'
     -> GenerateDataSetResponse
@@ -218,7 +199,7 @@
 gdsrsDataSetRequestId :: Lens' GenerateDataSetResponse (Maybe Text)
 gdsrsDataSetRequestId = lens _gdsrsDataSetRequestId (\ s a -> 
s{_gdsrsDataSetRequestId = a});
 
--- | The response status code.
+-- | -- | The response status code.
 gdsrsResponseStatus :: Lens' GenerateDataSetResponse Int
 gdsrsResponseStatus = lens _gdsrsResponseStatus (\ s a -> 
s{_gdsrsResponseStatus = a});
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/amazonka-marketplace-analytics-1.4.3/gen/Network/AWS/MarketplaceAnalytics/StartSupportDataExport.hs
 
new/amazonka-marketplace-analytics-1.4.5/gen/Network/AWS/MarketplaceAnalytics/StartSupportDataExport.hs
--- 
old/amazonka-marketplace-analytics-1.4.3/gen/Network/AWS/MarketplaceAnalytics/StartSupportDataExport.hs
     1970-01-01 01:00:00.000000000 +0100
+++ 
new/amazonka-marketplace-analytics-1.4.5/gen/Network/AWS/MarketplaceAnalytics/StartSupportDataExport.hs
     2016-12-04 16:29:25.000000000 +0100
@@ -0,0 +1,205 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric      #-}
+{-# LANGUAGE OverloadedStrings  #-}
+{-# LANGUAGE RecordWildCards    #-}
+{-# LANGUAGE TypeFamilies       #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module      : Network.AWS.MarketplaceAnalytics.StartSupportDataExport
+-- Copyright   : (c) 2013-2016 Brendan Hay
+-- License     : Mozilla Public License, v. 2.0.
+-- Maintainer  : Brendan Hay <[email protected]>
+-- 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, 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. Currently, only the test_customer_support_contacts_data value is 
supported      * /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. 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, 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. Currently, only the test_customer_support_contacts_data value is 
supported      * /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. 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
+
+instance NFData StartSupportDataExport
+
+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
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/amazonka-marketplace-analytics-1.4.3/gen/Network/AWS/MarketplaceAnalytics/Types/Sum.hs
 
new/amazonka-marketplace-analytics-1.4.5/gen/Network/AWS/MarketplaceAnalytics/Types/Sum.hs
--- 
old/amazonka-marketplace-analytics-1.4.3/gen/Network/AWS/MarketplaceAnalytics/Types/Sum.hs
  2016-06-09 21:31:26.000000000 +0200
+++ 
new/amazonka-marketplace-analytics-1.4.5/gen/Network/AWS/MarketplaceAnalytics/Types/Sum.hs
  2016-12-04 16:29:25.000000000 +0100
@@ -92,3 +92,29 @@
 
 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
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/amazonka-marketplace-analytics-1.4.3/gen/Network/AWS/MarketplaceAnalytics/Types.hs
 
new/amazonka-marketplace-analytics-1.4.5/gen/Network/AWS/MarketplaceAnalytics/Types.hs
--- 
old/amazonka-marketplace-analytics-1.4.3/gen/Network/AWS/MarketplaceAnalytics/Types.hs
      2016-06-09 21:31:26.000000000 +0200
+++ 
new/amazonka-marketplace-analytics-1.4.5/gen/Network/AWS/MarketplaceAnalytics/Types.hs
      2016-12-04 16:29:25.000000000 +0100
@@ -20,6 +20,9 @@
 
     -- * DataSetType
     , DataSetType (..)
+
+    -- * SupportDataSetType
+    , SupportDataSetType (..)
     ) where
 
 import           Network.AWS.Lens
@@ -28,7 +31,7 @@
 import           Network.AWS.Prelude
 import           Network.AWS.Sign.V4
 
--- | API version '2015-07-01' of the Amazon Marketplace Commerce Analytics SDK 
configuration.
+-- | API version @2015-07-01@ of the Amazon Marketplace Commerce Analytics SDK 
configuration.
 marketplaceAnalytics :: Service
 marketplaceAnalytics =
     Service
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/amazonka-marketplace-analytics-1.4.3/gen/Network/AWS/MarketplaceAnalytics.hs
 
new/amazonka-marketplace-analytics-1.4.5/gen/Network/AWS/MarketplaceAnalytics.hs
--- 
old/amazonka-marketplace-analytics-1.4.3/gen/Network/AWS/MarketplaceAnalytics.hs
    2016-06-09 21:31:26.000000000 +0200
+++ 
new/amazonka-marketplace-analytics-1.4.5/gen/Network/AWS/MarketplaceAnalytics.hs
    2016-12-04 16:29:25.000000000 +0100
@@ -29,6 +29,9 @@
     -- * Operations
     -- $operations
 
+    -- ** StartSupportDataExport
+    , module Network.AWS.MarketplaceAnalytics.StartSupportDataExport
+
     -- ** GenerateDataSet
     , module Network.AWS.MarketplaceAnalytics.GenerateDataSet
 
@@ -36,9 +39,13 @@
 
     -- ** 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
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/amazonka-marketplace-analytics-1.4.3/test/Test/AWS/Gen/MarketplaceAnalytics.hs
 
new/amazonka-marketplace-analytics-1.4.5/test/Test/AWS/Gen/MarketplaceAnalytics.hs
--- 
old/amazonka-marketplace-analytics-1.4.3/test/Test/AWS/Gen/MarketplaceAnalytics.hs
  2016-06-09 21:31:26.000000000 +0200
+++ 
new/amazonka-marketplace-analytics-1.4.5/test/Test/AWS/Gen/MarketplaceAnalytics.hs
  2016-12-04 16:29:25.000000000 +0100
@@ -28,13 +28,19 @@
 -- fixtures :: TestTree
 -- fixtures =
 --     [ testGroup "request"
---         [ requestGenerateDataSet $
+--         [ requestStartSupportDataExport $
+--             startSupportDataExport
+--
+--         , requestGenerateDataSet $
 --             generateDataSet
 --
 --           ]
 
 --     , testGroup "response"
---         [ responseGenerateDataSet $
+--         [ responseStartSupportDataExport $
+--             startSupportDataExportResponse
+--
+--         , responseGenerateDataSet $
 --             generateDataSetResponse
 --
 --           ]
@@ -42,6 +48,11 @@
 
 -- Requests
 
+requestStartSupportDataExport :: StartSupportDataExport -> TestTree
+requestStartSupportDataExport = req
+    "StartSupportDataExport"
+    "fixture/StartSupportDataExport.yaml"
+
 requestGenerateDataSet :: GenerateDataSet -> TestTree
 requestGenerateDataSet = req
     "GenerateDataSet"
@@ -49,6 +60,13 @@
 
 -- Responses
 
+responseStartSupportDataExport :: StartSupportDataExportResponse -> TestTree
+responseStartSupportDataExport = res
+    "StartSupportDataExportResponse"
+    "fixture/StartSupportDataExportResponse.proto"
+    marketplaceAnalytics
+    (Proxy :: Proxy StartSupportDataExport)
+
 responseGenerateDataSet :: GenerateDataSetResponse -> TestTree
 responseGenerateDataSet = res
     "GenerateDataSetResponse"


Reply via email to