packages feed

amazonka-snowball 1.5.0 → 1.6.0

raw patch · 28 files changed

+381/−379 lines, 28 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description
amazonka-snowball.cabal view
@@ -1,5 +1,5 @@ name:                  amazonka-snowball-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Import/Export Snowball SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -70,7 +70,7 @@         , Network.AWS.Snowball.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-snowball-test@@ -90,8 +90,8 @@         , Test.AWS.Snowball.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-snowball         , base         , bytestring
gen/Network/AWS/Snowball.hs view
@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.Snowball--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
gen/Network/AWS/Snowball/CancelCluster.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Snowball.CancelCluster--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@  -- | The 39-character ID for the cluster that you want to cancel, for example @CID123e4567-e89b-12d3-a456-426655440000@ . ccClusterId :: Lens' CancelCluster Text-ccClusterId = lens _ccClusterId (\ s a -> s{_ccClusterId = a});+ccClusterId = lens _ccClusterId (\ s a -> s{_ccClusterId = a})  instance AWSRequest CancelCluster where         type Rs CancelCluster = CancelClusterResponse@@ -117,6 +117,6 @@  -- | -- | The response status code. ccrsResponseStatus :: Lens' CancelClusterResponse Int-ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a});+ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a})  instance NFData CancelClusterResponse where
gen/Network/AWS/Snowball/CancelJob.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Snowball.CancelJob--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@  -- | The 39-character job ID for the job that you want to cancel, for example @JID123e4567-e89b-12d3-a456-426655440000@ . cjJobId :: Lens' CancelJob Text-cjJobId = lens _cjJobId (\ s a -> s{_cjJobId = a});+cjJobId = lens _cjJobId (\ s a -> s{_cjJobId = a})  instance AWSRequest CancelJob where         type Rs CancelJob = CancelJobResponse@@ -116,6 +116,6 @@  -- | -- | The response status code. crsResponseStatus :: Lens' CancelJobResponse Int-crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});+crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a})  instance NFData CancelJobResponse where
gen/Network/AWS/Snowball/CreateAddress.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Snowball.CreateAddress--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@  -- | The address that you want the Snowball shipped to. caAddress :: Lens' CreateAddress Address-caAddress = lens _caAddress (\ s a -> s{_caAddress = a});+caAddress = lens _caAddress (\ s a -> s{_caAddress = a})  instance AWSRequest CreateAddress where         type Rs CreateAddress = CreateAddressResponse@@ -117,15 +117,15 @@     -> CreateAddressResponse createAddressResponse pResponseStatus_ =   CreateAddressResponse'-  {_carsAddressId = Nothing, _carsResponseStatus = pResponseStatus_}+    {_carsAddressId = Nothing, _carsResponseStatus = pResponseStatus_}   -- | The automatically generated ID for a specific address. You'll use this ID when you create a job to specify which address you want the Snowball for that job shipped to. carsAddressId :: Lens' CreateAddressResponse (Maybe Text)-carsAddressId = lens _carsAddressId (\ s a -> s{_carsAddressId = a});+carsAddressId = lens _carsAddressId (\ s a -> s{_carsAddressId = a})  -- | -- | The response status code. carsResponseStatus :: Lens' CreateAddressResponse Int-carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a});+carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a})  instance NFData CreateAddressResponse where
gen/Network/AWS/Snowball/CreateCluster.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Snowball.CreateCluster--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -86,7 +86,7 @@ -- -- * 'ccResources' - The resources associated with the cluster job. These resources include Amazon S3 buckets and optional AWS Lambda functions written in the Python language. ----- * 'ccAddressId' - The ID for the address that you want the cluster shipped to.>+-- * 'ccAddressId' - The ID for the address that you want the cluster shipped to. -- -- * 'ccRoleARN' - The @RoleARN@ that you want to associate with this cluster. @RoleArn@ values are created by using the <http://docs.aws.amazon.com/IAM/latest/APIReference/API_CreateRole.html CreateRole> API action in AWS Identity and Access Management (IAM). --@@ -100,58 +100,58 @@     -> CreateCluster createCluster pJobType_ pResources_ pAddressId_ pRoleARN_ pShippingOption_ =   CreateCluster'-  { _ccKMSKeyARN = Nothing-  , _ccNotification = Nothing-  , _ccForwardingAddressId = Nothing-  , _ccSnowballType = Nothing-  , _ccDescription = Nothing-  , _ccJobType = pJobType_-  , _ccResources = pResources_-  , _ccAddressId = pAddressId_-  , _ccRoleARN = pRoleARN_-  , _ccShippingOption = pShippingOption_-  }+    { _ccKMSKeyARN = Nothing+    , _ccNotification = Nothing+    , _ccForwardingAddressId = Nothing+    , _ccSnowballType = Nothing+    , _ccDescription = Nothing+    , _ccJobType = pJobType_+    , _ccResources = pResources_+    , _ccAddressId = pAddressId_+    , _ccRoleARN = pRoleARN_+    , _ccShippingOption = pShippingOption_+    }   -- | The @KmsKeyARN@ value that you want to associate with this cluster. @KmsKeyARN@ values are created by using the <http://docs.aws.amazon.com/kms/latest/APIReference/API_CreateKey.html CreateKey> API action in AWS Key Management Service (AWS KMS). ccKMSKeyARN :: Lens' CreateCluster (Maybe Text)-ccKMSKeyARN = lens _ccKMSKeyARN (\ s a -> s{_ccKMSKeyARN = a});+ccKMSKeyARN = lens _ccKMSKeyARN (\ s a -> s{_ccKMSKeyARN = a})  -- | The Amazon Simple Notification Service (Amazon SNS) notification settings for this cluster. ccNotification :: Lens' CreateCluster (Maybe Notification)-ccNotification = lens _ccNotification (\ s a -> s{_ccNotification = a});+ccNotification = lens _ccNotification (\ s a -> s{_ccNotification = a})  -- | The forwarding address ID for a cluster. This field is not supported in most regions. ccForwardingAddressId :: Lens' CreateCluster (Maybe Text)-ccForwardingAddressId = lens _ccForwardingAddressId (\ s a -> s{_ccForwardingAddressId = a});+ccForwardingAddressId = lens _ccForwardingAddressId (\ s a -> s{_ccForwardingAddressId = a})  -- | The type of AWS Snowball appliance to use for this cluster. Currently, the only supported appliance type for cluster jobs is @EDGE@ . ccSnowballType :: Lens' CreateCluster (Maybe SnowballType)-ccSnowballType = lens _ccSnowballType (\ s a -> s{_ccSnowballType = a});+ccSnowballType = lens _ccSnowballType (\ s a -> s{_ccSnowballType = a})  -- | An optional description of this specific cluster, for example @Environmental Data Cluster-01@ . ccDescription :: Lens' CreateCluster (Maybe Text)-ccDescription = lens _ccDescription (\ s a -> s{_ccDescription = a});+ccDescription = lens _ccDescription (\ s a -> s{_ccDescription = a})  -- | The type of job for this cluster. Currently, the only job type supported for clusters is @LOCAL_USE@ . ccJobType :: Lens' CreateCluster JobType-ccJobType = lens _ccJobType (\ s a -> s{_ccJobType = a});+ccJobType = lens _ccJobType (\ s a -> s{_ccJobType = a})  -- | The resources associated with the cluster job. These resources include Amazon S3 buckets and optional AWS Lambda functions written in the Python language. ccResources :: Lens' CreateCluster JobResource-ccResources = lens _ccResources (\ s a -> s{_ccResources = a});+ccResources = lens _ccResources (\ s a -> s{_ccResources = a}) --- | The ID for the address that you want the cluster shipped to.>+-- | The ID for the address that you want the cluster shipped to. ccAddressId :: Lens' CreateCluster Text-ccAddressId = lens _ccAddressId (\ s a -> s{_ccAddressId = a});+ccAddressId = lens _ccAddressId (\ s a -> s{_ccAddressId = a})  -- | The @RoleARN@ that you want to associate with this cluster. @RoleArn@ values are created by using the <http://docs.aws.amazon.com/IAM/latest/APIReference/API_CreateRole.html CreateRole> API action in AWS Identity and Access Management (IAM). ccRoleARN :: Lens' CreateCluster Text-ccRoleARN = lens _ccRoleARN (\ s a -> s{_ccRoleARN = a});+ccRoleARN = lens _ccRoleARN (\ s a -> s{_ccRoleARN = a})  -- | The shipping speed for each node in this cluster. This speed doesn't dictate how soon you'll get each Snowball Edge appliance, rather it represents how quickly each appliance moves to its destination while in transit. Regional shipping speeds are as follows:     * In Australia, you have access to express shipping. Typically, appliances shipped express are delivered in about a day.     * In the European Union (EU), you have access to express shipping. Typically, Snowball Edges shipped express are delivered in about a day. In addition, most countries in the EU have access to standard shipping, which typically takes less than a week, one way.     * In India, Snowball Edges are delivered in one to seven days.     * In the US, you have access to one-day shipping and two-day shipping. ccShippingOption :: Lens' CreateCluster ShippingOption-ccShippingOption = lens _ccShippingOption (\ s a -> s{_ccShippingOption = a});+ccShippingOption = lens _ccShippingOption (\ s a -> s{_ccShippingOption = a})  instance AWSRequest CreateCluster where         type Rs CreateCluster = CreateClusterResponse@@ -217,15 +217,15 @@     -> CreateClusterResponse createClusterResponse pResponseStatus_ =   CreateClusterResponse'-  {_crersClusterId = Nothing, _crersResponseStatus = pResponseStatus_}+    {_crersClusterId = Nothing, _crersResponseStatus = pResponseStatus_}   -- | The automatically generated ID for a cluster. crersClusterId :: Lens' CreateClusterResponse (Maybe Text)-crersClusterId = lens _crersClusterId (\ s a -> s{_crersClusterId = a});+crersClusterId = lens _crersClusterId (\ s a -> s{_crersClusterId = a})  -- | -- | The response status code. crersResponseStatus :: Lens' CreateClusterResponse Int-crersResponseStatus = lens _crersResponseStatus (\ s a -> s{_crersResponseStatus = a});+crersResponseStatus = lens _crersResponseStatus (\ s a -> s{_crersResponseStatus = a})  instance NFData CreateClusterResponse where
gen/Network/AWS/Snowball/CreateJob.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Snowball.CreateJob--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -103,68 +103,68 @@     :: CreateJob createJob =   CreateJob'-  { _cjJobType = Nothing-  , _cjKMSKeyARN = Nothing-  , _cjNotification = Nothing-  , _cjForwardingAddressId = Nothing-  , _cjAddressId = Nothing-  , _cjSnowballType = Nothing-  , _cjShippingOption = Nothing-  , _cjResources = Nothing-  , _cjClusterId = Nothing-  , _cjDescription = Nothing-  , _cjRoleARN = Nothing-  , _cjSnowballCapacityPreference = Nothing-  }+    { _cjJobType = Nothing+    , _cjKMSKeyARN = Nothing+    , _cjNotification = Nothing+    , _cjForwardingAddressId = Nothing+    , _cjAddressId = Nothing+    , _cjSnowballType = Nothing+    , _cjShippingOption = Nothing+    , _cjResources = Nothing+    , _cjClusterId = Nothing+    , _cjDescription = Nothing+    , _cjRoleARN = Nothing+    , _cjSnowballCapacityPreference = Nothing+    }   -- | Defines the type of job that you're creating. cjJobType :: Lens' CreateJob (Maybe JobType)-cjJobType = lens _cjJobType (\ s a -> s{_cjJobType = a});+cjJobType = lens _cjJobType (\ s a -> s{_cjJobType = a})  -- | The @KmsKeyARN@ that you want to associate with this job. @KmsKeyARN@ s are created using the <http://docs.aws.amazon.com/kms/latest/APIReference/API_CreateKey.html CreateKey> AWS Key Management Service (KMS) API action. cjKMSKeyARN :: Lens' CreateJob (Maybe Text)-cjKMSKeyARN = lens _cjKMSKeyARN (\ s a -> s{_cjKMSKeyARN = a});+cjKMSKeyARN = lens _cjKMSKeyARN (\ s a -> s{_cjKMSKeyARN = a})  -- | Defines the Amazon Simple Notification Service (Amazon SNS) notification settings for this job. cjNotification :: Lens' CreateJob (Maybe Notification)-cjNotification = lens _cjNotification (\ s a -> s{_cjNotification = a});+cjNotification = lens _cjNotification (\ s a -> s{_cjNotification = a})  -- | The forwarding address ID for a job. This field is not supported in most regions. cjForwardingAddressId :: Lens' CreateJob (Maybe Text)-cjForwardingAddressId = lens _cjForwardingAddressId (\ s a -> s{_cjForwardingAddressId = a});+cjForwardingAddressId = lens _cjForwardingAddressId (\ s a -> s{_cjForwardingAddressId = a})  -- | The ID for the address that you want the Snowball shipped to. cjAddressId :: Lens' CreateJob (Maybe Text)-cjAddressId = lens _cjAddressId (\ s a -> s{_cjAddressId = a});+cjAddressId = lens _cjAddressId (\ s a -> s{_cjAddressId = a})  -- | The type of AWS Snowball appliance to use for this job. Currently, the only supported appliance type for cluster jobs is @EDGE@ . cjSnowballType :: Lens' CreateJob (Maybe SnowballType)-cjSnowballType = lens _cjSnowballType (\ s a -> s{_cjSnowballType = a});+cjSnowballType = lens _cjSnowballType (\ s a -> s{_cjSnowballType = a})  -- | The shipping speed for this job. This speed doesn't dictate how soon you'll get the Snowball, rather it represents how quickly the Snowball moves to its destination while in transit. Regional shipping speeds are as follows:     * In Australia, you have access to express shipping. Typically, Snowballs shipped express are delivered in about a day.     * In the European Union (EU), you have access to express shipping. Typically, Snowballs shipped express are delivered in about a day. In addition, most countries in the EU have access to standard shipping, which typically takes less than a week, one way.     * In India, Snowballs are delivered in one to seven days.     * In the US, you have access to one-day shipping and two-day shipping. cjShippingOption :: Lens' CreateJob (Maybe ShippingOption)-cjShippingOption = lens _cjShippingOption (\ s a -> s{_cjShippingOption = a});+cjShippingOption = lens _cjShippingOption (\ s a -> s{_cjShippingOption = a})  -- | Defines the Amazon S3 buckets associated with this job. With @IMPORT@ jobs, you specify the bucket or buckets that your transferred data will be imported into. With @EXPORT@ jobs, you specify the bucket or buckets that your transferred data will be exported from. Optionally, you can also specify a @KeyRange@ value. If you choose to export a range, you define the length of the range by providing either an inclusive @BeginMarker@ value, an inclusive @EndMarker@ value, or both. Ranges are UTF-8 binary sorted. cjResources :: Lens' CreateJob (Maybe JobResource)-cjResources = lens _cjResources (\ s a -> s{_cjResources = a});+cjResources = lens _cjResources (\ s a -> s{_cjResources = a})  -- | The ID of a cluster. If you're creating a job for a node in a cluster, you need to provide only this @clusterId@ value. The other job attributes are inherited from the cluster. cjClusterId :: Lens' CreateJob (Maybe Text)-cjClusterId = lens _cjClusterId (\ s a -> s{_cjClusterId = a});+cjClusterId = lens _cjClusterId (\ s a -> s{_cjClusterId = a})  -- | Defines an optional description of this specific job, for example @Important Photos 2016-08-11@ . cjDescription :: Lens' CreateJob (Maybe Text)-cjDescription = lens _cjDescription (\ s a -> s{_cjDescription = a});+cjDescription = lens _cjDescription (\ s a -> s{_cjDescription = a})  -- | The @RoleARN@ that you want to associate with this job. @RoleArn@ s are created using the <http://docs.aws.amazon.com/IAM/latest/APIReference/API_CreateRole.html CreateRole> AWS Identity and Access Management (IAM) API action. cjRoleARN :: Lens' CreateJob (Maybe Text)-cjRoleARN = lens _cjRoleARN (\ s a -> s{_cjRoleARN = a});+cjRoleARN = lens _cjRoleARN (\ s a -> s{_cjRoleARN = a})  -- | If your job is being created in one of the US regions, you have the option of specifying what size Snowball you'd like for this job. In all other regions, Snowballs come with 80 TB in storage capacity. cjSnowballCapacityPreference :: Lens' CreateJob (Maybe SnowballCapacity)-cjSnowballCapacityPreference = lens _cjSnowballCapacityPreference (\ s a -> s{_cjSnowballCapacityPreference = a});+cjSnowballCapacityPreference = lens _cjSnowballCapacityPreference (\ s a -> s{_cjSnowballCapacityPreference = a})  instance AWSRequest CreateJob where         type Rs CreateJob = CreateJobResponse@@ -233,15 +233,15 @@     -> CreateJobResponse createJobResponse pResponseStatus_ =   CreateJobResponse'-  {_cjrsJobId = Nothing, _cjrsResponseStatus = pResponseStatus_}+    {_cjrsJobId = Nothing, _cjrsResponseStatus = pResponseStatus_}   -- | The automatically generated ID for a job, for example @JID123e4567-e89b-12d3-a456-426655440000@ . cjrsJobId :: Lens' CreateJobResponse (Maybe Text)-cjrsJobId = lens _cjrsJobId (\ s a -> s{_cjrsJobId = a});+cjrsJobId = lens _cjrsJobId (\ s a -> s{_cjrsJobId = a})  -- | -- | The response status code. cjrsResponseStatus :: Lens' CreateJobResponse Int-cjrsResponseStatus = lens _cjrsResponseStatus (\ s a -> s{_cjrsResponseStatus = a});+cjrsResponseStatus = lens _cjrsResponseStatus (\ s a -> s{_cjrsResponseStatus = a})  instance NFData CreateJobResponse where
gen/Network/AWS/Snowball/DescribeAddress.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Snowball.DescribeAddress--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@  -- | The automatically generated ID for a specific address. daAddressId :: Lens' DescribeAddress Text-daAddressId = lens _daAddressId (\ s a -> s{_daAddressId = a});+daAddressId = lens _daAddressId (\ s a -> s{_daAddressId = a})  instance AWSRequest DescribeAddress where         type Rs DescribeAddress = DescribeAddressResponse@@ -118,15 +118,15 @@     -> DescribeAddressResponse describeAddressResponse pResponseStatus_ =   DescribeAddressResponse'-  {_darsAddress = Nothing, _darsResponseStatus = pResponseStatus_}+    {_darsAddress = Nothing, _darsResponseStatus = pResponseStatus_}   -- | The address that you want the Snowball or Snowballs associated with a specific job to be shipped to. darsAddress :: Lens' DescribeAddressResponse (Maybe Address)-darsAddress = lens _darsAddress (\ s a -> s{_darsAddress = a});+darsAddress = lens _darsAddress (\ s a -> s{_darsAddress = a})  -- | -- | The response status code. darsResponseStatus :: Lens' DescribeAddressResponse Int-darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});+darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a})  instance NFData DescribeAddressResponse where
gen/Network/AWS/Snowball/DescribeAddresses.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Snowball.DescribeAddresses--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,11 +71,11 @@  -- | HTTP requests are stateless. To identify what object comes "next" in the list of @ADDRESS@ objects, you have the option of specifying a value for @NextToken@ as the starting point for your list of returned addresses. daNextToken :: Lens' DescribeAddresses (Maybe Text)-daNextToken = lens _daNextToken (\ s a -> s{_daNextToken = a});+daNextToken = lens _daNextToken (\ s a -> s{_daNextToken = a})  -- | The number of @ADDRESS@ objects to return. daMaxResults :: Lens' DescribeAddresses (Maybe Natural)-daMaxResults = lens _daMaxResults (\ s a -> s{_daMaxResults = a}) . mapping _Nat;+daMaxResults = lens _daMaxResults (\ s a -> s{_daMaxResults = a}) . mapping _Nat  instance AWSPager DescribeAddresses where         page rq rs@@ -144,22 +144,22 @@     -> DescribeAddressesResponse describeAddressesResponse pResponseStatus_ =   DescribeAddressesResponse'-  { _drsAddresses = Nothing-  , _drsNextToken = Nothing-  , _drsResponseStatus = pResponseStatus_-  }+    { _drsAddresses = Nothing+    , _drsNextToken = Nothing+    , _drsResponseStatus = pResponseStatus_+    }   -- | The Snowball shipping addresses that were created for this account. drsAddresses :: Lens' DescribeAddressesResponse [Address]-drsAddresses = lens _drsAddresses (\ s a -> s{_drsAddresses = a}) . _Default . _Coerce;+drsAddresses = lens _drsAddresses (\ s a -> s{_drsAddresses = a}) . _Default . _Coerce  -- | HTTP requests are stateless. If you use the automatically generated @NextToken@ value in your next @DescribeAddresses@ call, your list of returned addresses will start from this point in the array. drsNextToken :: Lens' DescribeAddressesResponse (Maybe Text)-drsNextToken = lens _drsNextToken (\ s a -> s{_drsNextToken = a});+drsNextToken = lens _drsNextToken (\ s a -> s{_drsNextToken = a})  -- | -- | The response status code. drsResponseStatus :: Lens' DescribeAddressesResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DescribeAddressesResponse where
gen/Network/AWS/Snowball/DescribeCluster.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Snowball.DescribeCluster--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@  -- | The automatically generated ID for a cluster. dcClusterId :: Lens' DescribeCluster Text-dcClusterId = lens _dcClusterId (\ s a -> s{_dcClusterId = a});+dcClusterId = lens _dcClusterId (\ s a -> s{_dcClusterId = a})  instance AWSRequest DescribeCluster where         type Rs DescribeCluster = DescribeClusterResponse@@ -118,15 +118,15 @@     -> DescribeClusterResponse describeClusterResponse pResponseStatus_ =   DescribeClusterResponse'-  {_dcrsClusterMetadata = Nothing, _dcrsResponseStatus = pResponseStatus_}+    {_dcrsClusterMetadata = Nothing, _dcrsResponseStatus = pResponseStatus_}   -- | Information about a specific cluster, including shipping information, cluster status, and other important metadata. dcrsClusterMetadata :: Lens' DescribeClusterResponse (Maybe ClusterMetadata)-dcrsClusterMetadata = lens _dcrsClusterMetadata (\ s a -> s{_dcrsClusterMetadata = a});+dcrsClusterMetadata = lens _dcrsClusterMetadata (\ s a -> s{_dcrsClusterMetadata = a})  -- | -- | The response status code. dcrsResponseStatus :: Lens' DescribeClusterResponse Int-dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});+dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a})  instance NFData DescribeClusterResponse where
gen/Network/AWS/Snowball/DescribeJob.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Snowball.DescribeJob--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The automatically generated ID for a job, for example @JID123e4567-e89b-12d3-a456-426655440000@ . djJobId :: Lens' DescribeJob Text-djJobId = lens _djJobId (\ s a -> s{_djJobId = a});+djJobId = lens _djJobId (\ s a -> s{_djJobId = a})  instance AWSRequest DescribeJob where         type Rs DescribeJob = DescribeJobResponse@@ -123,22 +123,22 @@     -> DescribeJobResponse describeJobResponse pResponseStatus_ =   DescribeJobResponse'-  { _djrsJobMetadata = Nothing-  , _djrsSubJobMetadata = Nothing-  , _djrsResponseStatus = pResponseStatus_-  }+    { _djrsJobMetadata = Nothing+    , _djrsSubJobMetadata = Nothing+    , _djrsResponseStatus = pResponseStatus_+    }   -- | Information about a specific job, including shipping information, job status, and other important metadata. djrsJobMetadata :: Lens' DescribeJobResponse (Maybe JobMetadata)-djrsJobMetadata = lens _djrsJobMetadata (\ s a -> s{_djrsJobMetadata = a});+djrsJobMetadata = lens _djrsJobMetadata (\ s a -> s{_djrsJobMetadata = a})  -- | Information about a specific job part (in the case of an export job), including shipping information, job status, and other important metadata. djrsSubJobMetadata :: Lens' DescribeJobResponse [JobMetadata]-djrsSubJobMetadata = lens _djrsSubJobMetadata (\ s a -> s{_djrsSubJobMetadata = a}) . _Default . _Coerce;+djrsSubJobMetadata = lens _djrsSubJobMetadata (\ s a -> s{_djrsSubJobMetadata = a}) . _Default . _Coerce  -- | -- | The response status code. djrsResponseStatus :: Lens' DescribeJobResponse Int-djrsResponseStatus = lens _djrsResponseStatus (\ s a -> s{_djrsResponseStatus = a});+djrsResponseStatus = lens _djrsResponseStatus (\ s a -> s{_djrsResponseStatus = a})  instance NFData DescribeJobResponse where
gen/Network/AWS/Snowball/GetJobManifest.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Snowball.GetJobManifest--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@  -- | The ID for a job that you want to get the manifest file for, for example @JID123e4567-e89b-12d3-a456-426655440000@ . gjmJobId :: Lens' GetJobManifest Text-gjmJobId = lens _gjmJobId (\ s a -> s{_gjmJobId = a});+gjmJobId = lens _gjmJobId (\ s a -> s{_gjmJobId = a})  instance AWSRequest GetJobManifest where         type Rs GetJobManifest = GetJobManifestResponse@@ -123,15 +123,15 @@     -> GetJobManifestResponse getJobManifestResponse pResponseStatus_ =   GetJobManifestResponse'-  {_gjmrsManifestURI = Nothing, _gjmrsResponseStatus = pResponseStatus_}+    {_gjmrsManifestURI = Nothing, _gjmrsResponseStatus = pResponseStatus_}   -- | The Amazon S3 presigned URL for the manifest file associated with the specified @JobId@ value. gjmrsManifestURI :: Lens' GetJobManifestResponse (Maybe Text)-gjmrsManifestURI = lens _gjmrsManifestURI (\ s a -> s{_gjmrsManifestURI = a});+gjmrsManifestURI = lens _gjmrsManifestURI (\ s a -> s{_gjmrsManifestURI = a})  -- | -- | The response status code. gjmrsResponseStatus :: Lens' GetJobManifestResponse Int-gjmrsResponseStatus = lens _gjmrsResponseStatus (\ s a -> s{_gjmrsResponseStatus = a});+gjmrsResponseStatus = lens _gjmrsResponseStatus (\ s a -> s{_gjmrsResponseStatus = a})  instance NFData GetJobManifestResponse where
gen/Network/AWS/Snowball/GetJobUnlockCode.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Snowball.GetJobUnlockCode--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,7 +67,7 @@  -- | The ID for the job that you want to get the @UnlockCode@ value for, for example @JID123e4567-e89b-12d3-a456-426655440000@ . gjucJobId :: Lens' GetJobUnlockCode Text-gjucJobId = lens _gjucJobId (\ s a -> s{_gjucJobId = a});+gjucJobId = lens _gjucJobId (\ s a -> s{_gjucJobId = a})  instance AWSRequest GetJobUnlockCode where         type Rs GetJobUnlockCode = GetJobUnlockCodeResponse@@ -121,15 +121,15 @@     -> GetJobUnlockCodeResponse getJobUnlockCodeResponse pResponseStatus_ =   GetJobUnlockCodeResponse'-  {_gjucrsUnlockCode = Nothing, _gjucrsResponseStatus = pResponseStatus_}+    {_gjucrsUnlockCode = Nothing, _gjucrsResponseStatus = pResponseStatus_}   -- | The @UnlockCode@ value for the specified job. The @UnlockCode@ value can be accessed for up to 90 days after the job has been created. gjucrsUnlockCode :: Lens' GetJobUnlockCodeResponse (Maybe Text)-gjucrsUnlockCode = lens _gjucrsUnlockCode (\ s a -> s{_gjucrsUnlockCode = a});+gjucrsUnlockCode = lens _gjucrsUnlockCode (\ s a -> s{_gjucrsUnlockCode = a})  -- | -- | The response status code. gjucrsResponseStatus :: Lens' GetJobUnlockCodeResponse Int-gjucrsResponseStatus = lens _gjucrsResponseStatus (\ s a -> s{_gjucrsResponseStatus = a});+gjucrsResponseStatus = lens _gjucrsResponseStatus (\ s a -> s{_gjucrsResponseStatus = a})  instance NFData GetJobUnlockCodeResponse where
gen/Network/AWS/Snowball/GetSnowballUsage.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Snowball.GetSnowballUsage--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -113,22 +113,22 @@     -> GetSnowballUsageResponse getSnowballUsageResponse pResponseStatus_ =   GetSnowballUsageResponse'-  { _gsursSnowballsInUse = Nothing-  , _gsursSnowballLimit = Nothing-  , _gsursResponseStatus = pResponseStatus_-  }+    { _gsursSnowballsInUse = Nothing+    , _gsursSnowballLimit = Nothing+    , _gsursResponseStatus = pResponseStatus_+    }   -- | The number of Snowballs that this account is currently using. gsursSnowballsInUse :: Lens' GetSnowballUsageResponse (Maybe Int)-gsursSnowballsInUse = lens _gsursSnowballsInUse (\ s a -> s{_gsursSnowballsInUse = a});+gsursSnowballsInUse = lens _gsursSnowballsInUse (\ s a -> s{_gsursSnowballsInUse = a})  -- | The service limit for number of Snowballs this account can have at once. The default service limit is 1 (one). gsursSnowballLimit :: Lens' GetSnowballUsageResponse (Maybe Int)-gsursSnowballLimit = lens _gsursSnowballLimit (\ s a -> s{_gsursSnowballLimit = a});+gsursSnowballLimit = lens _gsursSnowballLimit (\ s a -> s{_gsursSnowballLimit = a})  -- | -- | The response status code. gsursResponseStatus :: Lens' GetSnowballUsageResponse Int-gsursResponseStatus = lens _gsursResponseStatus (\ s a -> s{_gsursResponseStatus = a});+gsursResponseStatus = lens _gsursResponseStatus (\ s a -> s{_gsursResponseStatus = a})  instance NFData GetSnowballUsageResponse where
gen/Network/AWS/Snowball/ListClusterJobs.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Snowball.ListClusterJobs--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,23 +69,23 @@     -> ListClusterJobs listClusterJobs pClusterId_ =   ListClusterJobs'-  { _lcjNextToken = Nothing-  , _lcjMaxResults = Nothing-  , _lcjClusterId = pClusterId_-  }+    { _lcjNextToken = Nothing+    , _lcjMaxResults = Nothing+    , _lcjClusterId = pClusterId_+    }   -- | HTTP requests are stateless. To identify what object comes "next" in the list of @JobListEntry@ objects, you have the option of specifying @NextToken@ as the starting point for your returned list. lcjNextToken :: Lens' ListClusterJobs (Maybe Text)-lcjNextToken = lens _lcjNextToken (\ s a -> s{_lcjNextToken = a});+lcjNextToken = lens _lcjNextToken (\ s a -> s{_lcjNextToken = a})  -- | The number of @JobListEntry@ objects to return. lcjMaxResults :: Lens' ListClusterJobs (Maybe Natural)-lcjMaxResults = lens _lcjMaxResults (\ s a -> s{_lcjMaxResults = a}) . mapping _Nat;+lcjMaxResults = lens _lcjMaxResults (\ s a -> s{_lcjMaxResults = a}) . mapping _Nat  -- | The 39-character ID for the cluster that you want to list, for example @CID123e4567-e89b-12d3-a456-426655440000@ . lcjClusterId :: Lens' ListClusterJobs Text-lcjClusterId = lens _lcjClusterId (\ s a -> s{_lcjClusterId = a});+lcjClusterId = lens _lcjClusterId (\ s a -> s{_lcjClusterId = a})  instance AWSRequest ListClusterJobs where         type Rs ListClusterJobs = ListClusterJobsResponse@@ -148,22 +148,22 @@     -> ListClusterJobsResponse listClusterJobsResponse pResponseStatus_ =   ListClusterJobsResponse'-  { _lcjrsJobListEntries = Nothing-  , _lcjrsNextToken = Nothing-  , _lcjrsResponseStatus = pResponseStatus_-  }+    { _lcjrsJobListEntries = Nothing+    , _lcjrsNextToken = Nothing+    , _lcjrsResponseStatus = pResponseStatus_+    }   -- | Each @JobListEntry@ object contains a job's state, a job's ID, and a value that indicates whether the job is a job part, in the case of export jobs. lcjrsJobListEntries :: Lens' ListClusterJobsResponse [JobListEntry]-lcjrsJobListEntries = lens _lcjrsJobListEntries (\ s a -> s{_lcjrsJobListEntries = a}) . _Default . _Coerce;+lcjrsJobListEntries = lens _lcjrsJobListEntries (\ s a -> s{_lcjrsJobListEntries = a}) . _Default . _Coerce  -- | HTTP requests are stateless. If you use the automatically generated @NextToken@ value in your next @ListClusterJobsResult@ call, your list of returned jobs will start from this point in the array. lcjrsNextToken :: Lens' ListClusterJobsResponse (Maybe Text)-lcjrsNextToken = lens _lcjrsNextToken (\ s a -> s{_lcjrsNextToken = a});+lcjrsNextToken = lens _lcjrsNextToken (\ s a -> s{_lcjrsNextToken = a})  -- | -- | The response status code. lcjrsResponseStatus :: Lens' ListClusterJobsResponse Int-lcjrsResponseStatus = lens _lcjrsResponseStatus (\ s a -> s{_lcjrsResponseStatus = a});+lcjrsResponseStatus = lens _lcjrsResponseStatus (\ s a -> s{_lcjrsResponseStatus = a})  instance NFData ListClusterJobsResponse where
gen/Network/AWS/Snowball/ListClusters.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Snowball.ListClusters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,11 +67,11 @@  -- | HTTP requests are stateless. To identify what object comes "next" in the list of @ClusterListEntry@ objects, you have the option of specifying @NextToken@ as the starting point for your returned list. lcNextToken :: Lens' ListClusters (Maybe Text)-lcNextToken = lens _lcNextToken (\ s a -> s{_lcNextToken = a});+lcNextToken = lens _lcNextToken (\ s a -> s{_lcNextToken = a})  -- | The number of @ClusterListEntry@ objects to return. lcMaxResults :: Lens' ListClusters (Maybe Natural)-lcMaxResults = lens _lcMaxResults (\ s a -> s{_lcMaxResults = a}) . mapping _Nat;+lcMaxResults = lens _lcMaxResults (\ s a -> s{_lcMaxResults = a}) . mapping _Nat  instance AWSRequest ListClusters where         type Rs ListClusters = ListClustersResponse@@ -133,22 +133,22 @@     -> ListClustersResponse listClustersResponse pResponseStatus_ =   ListClustersResponse'-  { _lcrsClusterListEntries = Nothing-  , _lcrsNextToken = Nothing-  , _lcrsResponseStatus = pResponseStatus_-  }+    { _lcrsClusterListEntries = Nothing+    , _lcrsNextToken = Nothing+    , _lcrsResponseStatus = pResponseStatus_+    }   -- | Each @ClusterListEntry@ object contains a cluster's state, a cluster's ID, and other important status information. lcrsClusterListEntries :: Lens' ListClustersResponse [ClusterListEntry]-lcrsClusterListEntries = lens _lcrsClusterListEntries (\ s a -> s{_lcrsClusterListEntries = a}) . _Default . _Coerce;+lcrsClusterListEntries = lens _lcrsClusterListEntries (\ s a -> s{_lcrsClusterListEntries = a}) . _Default . _Coerce  -- | HTTP requests are stateless. If you use the automatically generated @NextToken@ value in your next @ClusterListEntry@ call, your list of returned clusters will start from this point in the array. lcrsNextToken :: Lens' ListClustersResponse (Maybe Text)-lcrsNextToken = lens _lcrsNextToken (\ s a -> s{_lcrsNextToken = a});+lcrsNextToken = lens _lcrsNextToken (\ s a -> s{_lcrsNextToken = a})  -- | -- | The response status code. lcrsResponseStatus :: Lens' ListClustersResponse Int-lcrsResponseStatus = lens _lcrsResponseStatus (\ s a -> s{_lcrsResponseStatus = a});+lcrsResponseStatus = lens _lcrsResponseStatus (\ s a -> s{_lcrsResponseStatus = a})  instance NFData ListClustersResponse where
gen/Network/AWS/Snowball/ListJobs.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Snowball.ListJobs--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,11 +70,11 @@  -- | HTTP requests are stateless. To identify what object comes "next" in the list of @JobListEntry@ objects, you have the option of specifying @NextToken@ as the starting point for your returned list. ljNextToken :: Lens' ListJobs (Maybe Text)-ljNextToken = lens _ljNextToken (\ s a -> s{_ljNextToken = a});+ljNextToken = lens _ljNextToken (\ s a -> s{_ljNextToken = a})  -- | The number of @JobListEntry@ objects to return. ljMaxResults :: Lens' ListJobs (Maybe Natural)-ljMaxResults = lens _ljMaxResults (\ s a -> s{_ljMaxResults = a}) . mapping _Nat;+ljMaxResults = lens _ljMaxResults (\ s a -> s{_ljMaxResults = a}) . mapping _Nat  instance AWSPager ListJobs where         page rq rs@@ -143,22 +143,22 @@     -> ListJobsResponse listJobsResponse pResponseStatus_ =   ListJobsResponse'-  { _ljrsJobListEntries = Nothing-  , _ljrsNextToken = Nothing-  , _ljrsResponseStatus = pResponseStatus_-  }+    { _ljrsJobListEntries = Nothing+    , _ljrsNextToken = Nothing+    , _ljrsResponseStatus = pResponseStatus_+    }   -- | Each @JobListEntry@ object contains a job's state, a job's ID, and a value that indicates whether the job is a job part, in the case of export jobs. ljrsJobListEntries :: Lens' ListJobsResponse [JobListEntry]-ljrsJobListEntries = lens _ljrsJobListEntries (\ s a -> s{_ljrsJobListEntries = a}) . _Default . _Coerce;+ljrsJobListEntries = lens _ljrsJobListEntries (\ s a -> s{_ljrsJobListEntries = a}) . _Default . _Coerce  -- | HTTP requests are stateless. If you use this automatically generated @NextToken@ value in your next @ListJobs@ call, your returned @JobListEntry@ objects will start from this point in the array. ljrsNextToken :: Lens' ListJobsResponse (Maybe Text)-ljrsNextToken = lens _ljrsNextToken (\ s a -> s{_ljrsNextToken = a});+ljrsNextToken = lens _ljrsNextToken (\ s a -> s{_ljrsNextToken = a})  -- | -- | The response status code. ljrsResponseStatus :: Lens' ListJobsResponse Int-ljrsResponseStatus = lens _ljrsResponseStatus (\ s a -> s{_ljrsResponseStatus = a});+ljrsResponseStatus = lens _ljrsResponseStatus (\ s a -> s{_ljrsResponseStatus = a})  instance NFData ListJobsResponse where
gen/Network/AWS/Snowball/Types.hs view
@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.Snowball.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -193,24 +193,24 @@ snowball :: Service snowball =   Service-  { _svcAbbrev = "Snowball"-  , _svcSigner = v4-  , _svcPrefix = "snowball"-  , _svcVersion = "2016-06-30"-  , _svcEndpoint = defaultEndpoint snowball-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "Snowball"-  , _svcRetry = retry-  }+    { _svcAbbrev = "Snowball"+    , _svcSigner = v4+    , _svcPrefix = "snowball"+    , _svcVersion = "2016-06-30"+    , _svcEndpoint = defaultEndpoint snowball+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "Snowball"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -219,6 +219,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"
gen/Network/AWS/Snowball/Types/Product.hs view
@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.Snowball.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -79,78 +79,78 @@     :: Address address =   Address'-  { _aIsRestricted = Nothing-  , _aStreet3 = Nothing-  , _aLandmark = Nothing-  , _aPostalCode = Nothing-  , _aCountry = Nothing-  , _aStateOrProvince = Nothing-  , _aStreet2 = Nothing-  , _aAddressId = Nothing-  , _aCity = Nothing-  , _aPhoneNumber = Nothing-  , _aCompany = Nothing-  , _aName = Nothing-  , _aPrefectureOrDistrict = Nothing-  , _aStreet1 = Nothing-  }+    { _aIsRestricted = Nothing+    , _aStreet3 = Nothing+    , _aLandmark = Nothing+    , _aPostalCode = Nothing+    , _aCountry = Nothing+    , _aStateOrProvince = Nothing+    , _aStreet2 = Nothing+    , _aAddressId = Nothing+    , _aCity = Nothing+    , _aPhoneNumber = Nothing+    , _aCompany = Nothing+    , _aName = Nothing+    , _aPrefectureOrDistrict = Nothing+    , _aStreet1 = Nothing+    }   -- | If the address you are creating is a primary address, then set this option to true. This field is not supported in most regions. aIsRestricted :: Lens' Address (Maybe Bool)-aIsRestricted = lens _aIsRestricted (\ s a -> s{_aIsRestricted = a});+aIsRestricted = lens _aIsRestricted (\ s a -> s{_aIsRestricted = a})  -- | The third line in a street address that a Snowball is to be delivered to. aStreet3 :: Lens' Address (Maybe Text)-aStreet3 = lens _aStreet3 (\ s a -> s{_aStreet3 = a});+aStreet3 = lens _aStreet3 (\ s a -> s{_aStreet3 = a})  -- | This field is no longer used and the value is ignored. aLandmark :: Lens' Address (Maybe Text)-aLandmark = lens _aLandmark (\ s a -> s{_aLandmark = a});+aLandmark = lens _aLandmark (\ s a -> s{_aLandmark = a})  -- | The postal code in an address that a Snowball is to be delivered to. aPostalCode :: Lens' Address (Maybe Text)-aPostalCode = lens _aPostalCode (\ s a -> s{_aPostalCode = a});+aPostalCode = lens _aPostalCode (\ s a -> s{_aPostalCode = a})  -- | The country in an address that a Snowball is to be delivered to. aCountry :: Lens' Address (Maybe Text)-aCountry = lens _aCountry (\ s a -> s{_aCountry = a});+aCountry = lens _aCountry (\ s a -> s{_aCountry = a})  -- | The state or province in an address that a Snowball is to be delivered to. aStateOrProvince :: Lens' Address (Maybe Text)-aStateOrProvince = lens _aStateOrProvince (\ s a -> s{_aStateOrProvince = a});+aStateOrProvince = lens _aStateOrProvince (\ s a -> s{_aStateOrProvince = a})  -- | The second line in a street address that a Snowball is to be delivered to. aStreet2 :: Lens' Address (Maybe Text)-aStreet2 = lens _aStreet2 (\ s a -> s{_aStreet2 = a});+aStreet2 = lens _aStreet2 (\ s a -> s{_aStreet2 = a})  -- | The unique ID for an address. aAddressId :: Lens' Address (Maybe Text)-aAddressId = lens _aAddressId (\ s a -> s{_aAddressId = a});+aAddressId = lens _aAddressId (\ s a -> s{_aAddressId = a})  -- | The city in an address that a Snowball is to be delivered to. aCity :: Lens' Address (Maybe Text)-aCity = lens _aCity (\ s a -> s{_aCity = a});+aCity = lens _aCity (\ s a -> s{_aCity = a})  -- | The phone number associated with an address that a Snowball is to be delivered to. aPhoneNumber :: Lens' Address (Maybe Text)-aPhoneNumber = lens _aPhoneNumber (\ s a -> s{_aPhoneNumber = a});+aPhoneNumber = lens _aPhoneNumber (\ s a -> s{_aPhoneNumber = a})  -- | The name of the company to receive a Snowball at an address. aCompany :: Lens' Address (Maybe Text)-aCompany = lens _aCompany (\ s a -> s{_aCompany = a});+aCompany = lens _aCompany (\ s a -> s{_aCompany = a})  -- | The name of a person to receive a Snowball at an address. aName :: Lens' Address (Maybe Text)-aName = lens _aName (\ s a -> s{_aName = a});+aName = lens _aName (\ s a -> s{_aName = a})  -- | This field is no longer used and the value is ignored. aPrefectureOrDistrict :: Lens' Address (Maybe Text)-aPrefectureOrDistrict = lens _aPrefectureOrDistrict (\ s a -> s{_aPrefectureOrDistrict = a});+aPrefectureOrDistrict = lens _aPrefectureOrDistrict (\ s a -> s{_aPrefectureOrDistrict = a})  -- | The first line in a street address that a Snowball is to be delivered to. aStreet1 :: Lens' Address (Maybe Text)-aStreet1 = lens _aStreet1 (\ s a -> s{_aStreet1 = a});+aStreet1 = lens _aStreet1 (\ s a -> s{_aStreet1 = a})  instance FromJSON Address where         parseJSON@@ -222,28 +222,28 @@     :: ClusterListEntry clusterListEntry =   ClusterListEntry'-  { _cleClusterState = Nothing-  , _cleClusterId = Nothing-  , _cleCreationDate = Nothing-  , _cleDescription = Nothing-  }+    { _cleClusterState = Nothing+    , _cleClusterId = Nothing+    , _cleCreationDate = Nothing+    , _cleDescription = Nothing+    }   -- | The current state of this cluster. For information about the state of a specific node, see 'JobListEntry$JobState' . cleClusterState :: Lens' ClusterListEntry (Maybe ClusterState)-cleClusterState = lens _cleClusterState (\ s a -> s{_cleClusterState = a});+cleClusterState = lens _cleClusterState (\ s a -> s{_cleClusterState = a})  -- | The 39-character ID for the cluster that you want to list, for example @CID123e4567-e89b-12d3-a456-426655440000@ . cleClusterId :: Lens' ClusterListEntry (Maybe Text)-cleClusterId = lens _cleClusterId (\ s a -> s{_cleClusterId = a});+cleClusterId = lens _cleClusterId (\ s a -> s{_cleClusterId = a})  -- | The creation date for this cluster. cleCreationDate :: Lens' ClusterListEntry (Maybe UTCTime)-cleCreationDate = lens _cleCreationDate (\ s a -> s{_cleCreationDate = a}) . mapping _Time;+cleCreationDate = lens _cleCreationDate (\ s a -> s{_cleCreationDate = a}) . mapping _Time  -- | Defines an optional description of the cluster, for example @Environmental Data Cluster-01@ . cleDescription :: Lens' ClusterListEntry (Maybe Text)-cleDescription = lens _cleDescription (\ s a -> s{_cleDescription = a});+cleDescription = lens _cleDescription (\ s a -> s{_cleDescription = a})  instance FromJSON ClusterListEntry where         parseJSON@@ -313,73 +313,73 @@     :: ClusterMetadata clusterMetadata =   ClusterMetadata'-  { _cmJobType = Nothing-  , _cmKMSKeyARN = Nothing-  , _cmClusterState = Nothing-  , _cmNotification = Nothing-  , _cmForwardingAddressId = Nothing-  , _cmAddressId = Nothing-  , _cmSnowballType = Nothing-  , _cmShippingOption = Nothing-  , _cmResources = Nothing-  , _cmClusterId = Nothing-  , _cmCreationDate = Nothing-  , _cmDescription = Nothing-  , _cmRoleARN = Nothing-  }+    { _cmJobType = Nothing+    , _cmKMSKeyARN = Nothing+    , _cmClusterState = Nothing+    , _cmNotification = Nothing+    , _cmForwardingAddressId = Nothing+    , _cmAddressId = Nothing+    , _cmSnowballType = Nothing+    , _cmShippingOption = Nothing+    , _cmResources = Nothing+    , _cmClusterId = Nothing+    , _cmCreationDate = Nothing+    , _cmDescription = Nothing+    , _cmRoleARN = Nothing+    }   -- | The type of job for this cluster. Currently, the only job type supported for clusters is @LOCAL_USE@ . cmJobType :: Lens' ClusterMetadata (Maybe JobType)-cmJobType = lens _cmJobType (\ s a -> s{_cmJobType = a});+cmJobType = lens _cmJobType (\ s a -> s{_cmJobType = a})  -- | The @KmsKeyARN@ Amazon Resource Name (ARN) associated with this cluster. This ARN was created using the <http://docs.aws.amazon.com/kms/latest/APIReference/API_CreateKey.html CreateKey> API action in AWS Key Management Service (AWS KMS). cmKMSKeyARN :: Lens' ClusterMetadata (Maybe Text)-cmKMSKeyARN = lens _cmKMSKeyARN (\ s a -> s{_cmKMSKeyARN = a});+cmKMSKeyARN = lens _cmKMSKeyARN (\ s a -> s{_cmKMSKeyARN = a})  -- | The current status of the cluster. cmClusterState :: Lens' ClusterMetadata (Maybe ClusterState)-cmClusterState = lens _cmClusterState (\ s a -> s{_cmClusterState = a});+cmClusterState = lens _cmClusterState (\ s a -> s{_cmClusterState = a})  -- | The Amazon Simple Notification Service (Amazon SNS) notification settings for this cluster. cmNotification :: Lens' ClusterMetadata (Maybe Notification)-cmNotification = lens _cmNotification (\ s a -> s{_cmNotification = a});+cmNotification = lens _cmNotification (\ s a -> s{_cmNotification = a})  -- | The ID of the address that you want a cluster shipped to, after it will be shipped to its primary address. This field is not supported in most regions. cmForwardingAddressId :: Lens' ClusterMetadata (Maybe Text)-cmForwardingAddressId = lens _cmForwardingAddressId (\ s a -> s{_cmForwardingAddressId = a});+cmForwardingAddressId = lens _cmForwardingAddressId (\ s a -> s{_cmForwardingAddressId = a})  -- | The automatically generated ID for a specific address. cmAddressId :: Lens' ClusterMetadata (Maybe Text)-cmAddressId = lens _cmAddressId (\ s a -> s{_cmAddressId = a});+cmAddressId = lens _cmAddressId (\ s a -> s{_cmAddressId = a})  -- | The type of AWS Snowball appliance to use for this cluster. Currently, the only supported appliance type for cluster jobs is @EDGE@ . cmSnowballType :: Lens' ClusterMetadata (Maybe SnowballType)-cmSnowballType = lens _cmSnowballType (\ s a -> s{_cmSnowballType = a});+cmSnowballType = lens _cmSnowballType (\ s a -> s{_cmSnowballType = a})  -- | The shipping speed for each node in this cluster. This speed doesn't dictate how soon you'll get each Snowball Edge appliance, rather it represents how quickly each appliance moves to its destination while in transit. Regional shipping speeds are as follows:     * In Australia, you have access to express shipping. Typically, appliances shipped express are delivered in about a day.     * In the European Union (EU), you have access to express shipping. Typically, Snowball Edges shipped express are delivered in about a day. In addition, most countries in the EU have access to standard shipping, which typically takes less than a week, one way.     * In India, Snowball Edges are delivered in one to seven days.     * In the US, you have access to one-day shipping and two-day shipping. cmShippingOption :: Lens' ClusterMetadata (Maybe ShippingOption)-cmShippingOption = lens _cmShippingOption (\ s a -> s{_cmShippingOption = a});+cmShippingOption = lens _cmShippingOption (\ s a -> s{_cmShippingOption = a})  -- | The arrays of 'JobResource' objects that can include updated 'S3Resource' objects or 'LambdaResource' objects. cmResources :: Lens' ClusterMetadata (Maybe JobResource)-cmResources = lens _cmResources (\ s a -> s{_cmResources = a});+cmResources = lens _cmResources (\ s a -> s{_cmResources = a})  -- | The automatically generated ID for a cluster. cmClusterId :: Lens' ClusterMetadata (Maybe Text)-cmClusterId = lens _cmClusterId (\ s a -> s{_cmClusterId = a});+cmClusterId = lens _cmClusterId (\ s a -> s{_cmClusterId = a})  -- | The creation date for this cluster. cmCreationDate :: Lens' ClusterMetadata (Maybe UTCTime)-cmCreationDate = lens _cmCreationDate (\ s a -> s{_cmCreationDate = a}) . mapping _Time;+cmCreationDate = lens _cmCreationDate (\ s a -> s{_cmCreationDate = a}) . mapping _Time  -- | The optional description of the cluster. cmDescription :: Lens' ClusterMetadata (Maybe Text)-cmDescription = lens _cmDescription (\ s a -> s{_cmDescription = a});+cmDescription = lens _cmDescription (\ s a -> s{_cmDescription = a})  -- | The role ARN associated with this cluster. This ARN was created using the <http://docs.aws.amazon.com/IAM/latest/APIReference/API_CreateRole.html CreateRole> API action in AWS Identity and Access Management (IAM). cmRoleARN :: Lens' ClusterMetadata (Maybe Text)-cmRoleARN = lens _cmRoleARN (\ s a -> s{_cmRoleARN = a});+cmRoleARN = lens _cmRoleARN (\ s a -> s{_cmRoleARN = a})  instance FromJSON ClusterMetadata where         parseJSON@@ -431,28 +431,28 @@     :: DataTransfer dataTransfer =   DataTransfer'-  { _dtTotalObjects = Nothing-  , _dtTotalBytes = Nothing-  , _dtObjectsTransferred = Nothing-  , _dtBytesTransferred = Nothing-  }+    { _dtTotalObjects = Nothing+    , _dtTotalBytes = Nothing+    , _dtObjectsTransferred = Nothing+    , _dtBytesTransferred = Nothing+    }   -- | The total number of objects for a transfer between a Snowball and Amazon S3. This value is set to 0 (zero) until all the keys that will be transferred have been listed. dtTotalObjects :: Lens' DataTransfer (Maybe Integer)-dtTotalObjects = lens _dtTotalObjects (\ s a -> s{_dtTotalObjects = a});+dtTotalObjects = lens _dtTotalObjects (\ s a -> s{_dtTotalObjects = a})  -- | The total bytes of data for a transfer between a Snowball and Amazon S3. This value is set to 0 (zero) until all the keys that will be transferred have been listed. dtTotalBytes :: Lens' DataTransfer (Maybe Integer)-dtTotalBytes = lens _dtTotalBytes (\ s a -> s{_dtTotalBytes = a});+dtTotalBytes = lens _dtTotalBytes (\ s a -> s{_dtTotalBytes = a})  -- | The number of objects transferred between a Snowball and Amazon S3. dtObjectsTransferred :: Lens' DataTransfer (Maybe Integer)-dtObjectsTransferred = lens _dtObjectsTransferred (\ s a -> s{_dtObjectsTransferred = a});+dtObjectsTransferred = lens _dtObjectsTransferred (\ s a -> s{_dtObjectsTransferred = a})  -- | The number of bytes transferred between a Snowball and Amazon S3. dtBytesTransferred :: Lens' DataTransfer (Maybe Integer)-dtBytesTransferred = lens _dtBytesTransferred (\ s a -> s{_dtBytesTransferred = a});+dtBytesTransferred = lens _dtBytesTransferred (\ s a -> s{_dtBytesTransferred = a})  instance FromJSON DataTransfer where         parseJSON@@ -490,7 +490,7 @@  -- | The Amazon Resource Name (ARN) for any local Amazon S3 resource that is an AWS Lambda function's event trigger associated with this job. etdEventResourceARN :: Lens' EventTriggerDefinition (Maybe Text)-etdEventResourceARN = lens _etdEventResourceARN (\ s a -> s{_etdEventResourceARN = a});+etdEventResourceARN = lens _etdEventResourceARN (\ s a -> s{_etdEventResourceARN = a})  instance FromJSON EventTriggerDefinition where         parseJSON@@ -546,43 +546,43 @@     :: JobListEntry jobListEntry =   JobListEntry'-  { _jleJobType = Nothing-  , _jleJobId = Nothing-  , _jleJobState = Nothing-  , _jleSnowballType = Nothing-  , _jleCreationDate = Nothing-  , _jleDescription = Nothing-  , _jleIsMaster = Nothing-  }+    { _jleJobType = Nothing+    , _jleJobId = Nothing+    , _jleJobState = Nothing+    , _jleSnowballType = Nothing+    , _jleCreationDate = Nothing+    , _jleDescription = Nothing+    , _jleIsMaster = Nothing+    }   -- | The type of job. jleJobType :: Lens' JobListEntry (Maybe JobType)-jleJobType = lens _jleJobType (\ s a -> s{_jleJobType = a});+jleJobType = lens _jleJobType (\ s a -> s{_jleJobType = a})  -- | The automatically generated ID for a job, for example @JID123e4567-e89b-12d3-a456-426655440000@ . jleJobId :: Lens' JobListEntry (Maybe Text)-jleJobId = lens _jleJobId (\ s a -> s{_jleJobId = a});+jleJobId = lens _jleJobId (\ s a -> s{_jleJobId = a})  -- | The current state of this job. jleJobState :: Lens' JobListEntry (Maybe JobState)-jleJobState = lens _jleJobState (\ s a -> s{_jleJobState = a});+jleJobState = lens _jleJobState (\ s a -> s{_jleJobState = a})  -- | The type of appliance used with this job. jleSnowballType :: Lens' JobListEntry (Maybe SnowballType)-jleSnowballType = lens _jleSnowballType (\ s a -> s{_jleSnowballType = a});+jleSnowballType = lens _jleSnowballType (\ s a -> s{_jleSnowballType = a})  -- | The creation date for this job. jleCreationDate :: Lens' JobListEntry (Maybe UTCTime)-jleCreationDate = lens _jleCreationDate (\ s a -> s{_jleCreationDate = a}) . mapping _Time;+jleCreationDate = lens _jleCreationDate (\ s a -> s{_jleCreationDate = a}) . mapping _Time  -- | The optional description of this specific job, for example @Important Photos 2016-08-11@ . jleDescription :: Lens' JobListEntry (Maybe Text)-jleDescription = lens _jleDescription (\ s a -> s{_jleDescription = a});+jleDescription = lens _jleDescription (\ s a -> s{_jleDescription = a})  -- | A value that indicates that this job is a master job. A master job represents a successful request to create an export job. Master jobs aren't associated with any Snowballs. Instead, each master job will have at least one job part, and each job part is associated with a Snowball. It might take some time before the job parts associated with a particular master job are listed, because they are created after the master job is created. jleIsMaster :: Lens' JobListEntry (Maybe Bool)-jleIsMaster = lens _jleIsMaster (\ s a -> s{_jleIsMaster = a});+jleIsMaster = lens _jleIsMaster (\ s a -> s{_jleIsMaster = a})  instance FromJSON JobListEntry where         parseJSON@@ -631,23 +631,23 @@     :: JobLogs jobLogs =   JobLogs'-  { _jlJobFailureLogURI = Nothing-  , _jlJobCompletionReportURI = Nothing-  , _jlJobSuccessLogURI = Nothing-  }+    { _jlJobFailureLogURI = Nothing+    , _jlJobCompletionReportURI = Nothing+    , _jlJobSuccessLogURI = Nothing+    }   -- | A link to an Amazon S3 presigned URL where the job failure log is located. jlJobFailureLogURI :: Lens' JobLogs (Maybe Text)-jlJobFailureLogURI = lens _jlJobFailureLogURI (\ s a -> s{_jlJobFailureLogURI = a});+jlJobFailureLogURI = lens _jlJobFailureLogURI (\ s a -> s{_jlJobFailureLogURI = a})  -- | A link to an Amazon S3 presigned URL where the job completion report is located. jlJobCompletionReportURI :: Lens' JobLogs (Maybe Text)-jlJobCompletionReportURI = lens _jlJobCompletionReportURI (\ s a -> s{_jlJobCompletionReportURI = a});+jlJobCompletionReportURI = lens _jlJobCompletionReportURI (\ s a -> s{_jlJobCompletionReportURI = a})  -- | A link to an Amazon S3 presigned URL where the job success log is located. jlJobSuccessLogURI :: Lens' JobLogs (Maybe Text)-jlJobSuccessLogURI = lens _jlJobSuccessLogURI (\ s a -> s{_jlJobSuccessLogURI = a});+jlJobSuccessLogURI = lens _jlJobSuccessLogURI (\ s a -> s{_jlJobSuccessLogURI = a})  instance FromJSON JobLogs where         parseJSON@@ -729,93 +729,93 @@     :: JobMetadata jobMetadata =   JobMetadata'-  { _jmJobType = Nothing-  , _jmKMSKeyARN = Nothing-  , _jmJobId = Nothing-  , _jmJobLogInfo = Nothing-  , _jmNotification = Nothing-  , _jmJobState = Nothing-  , _jmForwardingAddressId = Nothing-  , _jmShippingDetails = Nothing-  , _jmAddressId = Nothing-  , _jmSnowballType = Nothing-  , _jmDataTransferProgress = Nothing-  , _jmResources = Nothing-  , _jmClusterId = Nothing-  , _jmCreationDate = Nothing-  , _jmDescription = Nothing-  , _jmRoleARN = Nothing-  , _jmSnowballCapacityPreference = Nothing-  }+    { _jmJobType = Nothing+    , _jmKMSKeyARN = Nothing+    , _jmJobId = Nothing+    , _jmJobLogInfo = Nothing+    , _jmNotification = Nothing+    , _jmJobState = Nothing+    , _jmForwardingAddressId = Nothing+    , _jmShippingDetails = Nothing+    , _jmAddressId = Nothing+    , _jmSnowballType = Nothing+    , _jmDataTransferProgress = Nothing+    , _jmResources = Nothing+    , _jmClusterId = Nothing+    , _jmCreationDate = Nothing+    , _jmDescription = Nothing+    , _jmRoleARN = Nothing+    , _jmSnowballCapacityPreference = Nothing+    }   -- | The type of job. jmJobType :: Lens' JobMetadata (Maybe JobType)-jmJobType = lens _jmJobType (\ s a -> s{_jmJobType = a});+jmJobType = lens _jmJobType (\ s a -> s{_jmJobType = a})  -- | The Amazon Resource Name (ARN) for the AWS Key Management Service (AWS KMS) key associated with this job. This ARN was created using the <http://docs.aws.amazon.com/kms/latest/APIReference/API_CreateKey.html CreateKey> API action in AWS KMS. jmKMSKeyARN :: Lens' JobMetadata (Maybe Text)-jmKMSKeyARN = lens _jmKMSKeyARN (\ s a -> s{_jmKMSKeyARN = a});+jmKMSKeyARN = lens _jmKMSKeyARN (\ s a -> s{_jmKMSKeyARN = a})  -- | The automatically generated ID for a job, for example @JID123e4567-e89b-12d3-a456-426655440000@ . jmJobId :: Lens' JobMetadata (Maybe Text)-jmJobId = lens _jmJobId (\ s a -> s{_jmJobId = a});+jmJobId = lens _jmJobId (\ s a -> s{_jmJobId = a})  -- | Links to Amazon S3 presigned URLs for the job report and logs. For import jobs, the PDF job report becomes available at the end of the import process. For export jobs, your job report typically becomes available while the Snowball for your job part is being delivered to you. jmJobLogInfo :: Lens' JobMetadata (Maybe JobLogs)-jmJobLogInfo = lens _jmJobLogInfo (\ s a -> s{_jmJobLogInfo = a});+jmJobLogInfo = lens _jmJobLogInfo (\ s a -> s{_jmJobLogInfo = a})  -- | The Amazon Simple Notification Service (Amazon SNS) notification settings associated with a specific job. The @Notification@ object is returned as a part of the response syntax of the @DescribeJob@ action in the @JobMetadata@ data type. jmNotification :: Lens' JobMetadata (Maybe Notification)-jmNotification = lens _jmNotification (\ s a -> s{_jmNotification = a});+jmNotification = lens _jmNotification (\ s a -> s{_jmNotification = a})  -- | The current status of the jobs. jmJobState :: Lens' JobMetadata (Maybe JobState)-jmJobState = lens _jmJobState (\ s a -> s{_jmJobState = a});+jmJobState = lens _jmJobState (\ s a -> s{_jmJobState = a})  -- | The ID of the address that you want a job shipped to, after it will be shipped to its primary address. This field is not supported in most regions. jmForwardingAddressId :: Lens' JobMetadata (Maybe Text)-jmForwardingAddressId = lens _jmForwardingAddressId (\ s a -> s{_jmForwardingAddressId = a});+jmForwardingAddressId = lens _jmForwardingAddressId (\ s a -> s{_jmForwardingAddressId = a})  -- | A job's shipping information, including inbound and outbound tracking numbers and shipping speed options. jmShippingDetails :: Lens' JobMetadata (Maybe ShippingDetails)-jmShippingDetails = lens _jmShippingDetails (\ s a -> s{_jmShippingDetails = a});+jmShippingDetails = lens _jmShippingDetails (\ s a -> s{_jmShippingDetails = a})  -- | The ID for the address that you want the Snowball shipped to. jmAddressId :: Lens' JobMetadata (Maybe Text)-jmAddressId = lens _jmAddressId (\ s a -> s{_jmAddressId = a});+jmAddressId = lens _jmAddressId (\ s a -> s{_jmAddressId = a})  -- | The type of appliance used with this job. jmSnowballType :: Lens' JobMetadata (Maybe SnowballType)-jmSnowballType = lens _jmSnowballType (\ s a -> s{_jmSnowballType = a});+jmSnowballType = lens _jmSnowballType (\ s a -> s{_jmSnowballType = a})  -- | A value that defines the real-time status of a Snowball's data transfer while the appliance is at AWS. This data is only available while a job has a @JobState@ value of @InProgress@ , for both import and export jobs. jmDataTransferProgress :: Lens' JobMetadata (Maybe DataTransfer)-jmDataTransferProgress = lens _jmDataTransferProgress (\ s a -> s{_jmDataTransferProgress = a});+jmDataTransferProgress = lens _jmDataTransferProgress (\ s a -> s{_jmDataTransferProgress = a})  -- | An array of @S3Resource@ objects. Each @S3Resource@ object represents an Amazon S3 bucket that your transferred data will be exported from or imported into. jmResources :: Lens' JobMetadata (Maybe JobResource)-jmResources = lens _jmResources (\ s a -> s{_jmResources = a});+jmResources = lens _jmResources (\ s a -> s{_jmResources = a})  -- | The 39-character ID for the cluster, for example @CID123e4567-e89b-12d3-a456-426655440000@ . jmClusterId :: Lens' JobMetadata (Maybe Text)-jmClusterId = lens _jmClusterId (\ s a -> s{_jmClusterId = a});+jmClusterId = lens _jmClusterId (\ s a -> s{_jmClusterId = a})  -- | The creation date for this job. jmCreationDate :: Lens' JobMetadata (Maybe UTCTime)-jmCreationDate = lens _jmCreationDate (\ s a -> s{_jmCreationDate = a}) . mapping _Time;+jmCreationDate = lens _jmCreationDate (\ s a -> s{_jmCreationDate = a}) . mapping _Time  -- | The description of the job, provided at job creation. jmDescription :: Lens' JobMetadata (Maybe Text)-jmDescription = lens _jmDescription (\ s a -> s{_jmDescription = a});+jmDescription = lens _jmDescription (\ s a -> s{_jmDescription = a})  -- | The role ARN associated with this job. This ARN was created using the <http://docs.aws.amazon.com/IAM/latest/APIReference/API_CreateRole.html CreateRole> API action in AWS Identity and Access Management (IAM). jmRoleARN :: Lens' JobMetadata (Maybe Text)-jmRoleARN = lens _jmRoleARN (\ s a -> s{_jmRoleARN = a});+jmRoleARN = lens _jmRoleARN (\ s a -> s{_jmRoleARN = a})  -- | The Snowball capacity preference for this job, specified at job creation. In US regions, you can choose between 50 TB and 80 TB Snowballs. All other regions use 80 TB capacity Snowballs. jmSnowballCapacityPreference :: Lens' JobMetadata (Maybe SnowballCapacity)-jmSnowballCapacityPreference = lens _jmSnowballCapacityPreference (\ s a -> s{_jmSnowballCapacityPreference = a});+jmSnowballCapacityPreference = lens _jmSnowballCapacityPreference (\ s a -> s{_jmSnowballCapacityPreference = a})  instance FromJSON JobMetadata where         parseJSON@@ -869,11 +869,11 @@  -- | The Python-language Lambda functions for this job. jrLambdaResources :: Lens' JobResource [LambdaResource]-jrLambdaResources = lens _jrLambdaResources (\ s a -> s{_jrLambdaResources = a}) . _Default . _Coerce;+jrLambdaResources = lens _jrLambdaResources (\ s a -> s{_jrLambdaResources = a}) . _Default . _Coerce  -- | An array of @S3Resource@ objects. jrS3Resources :: Lens' JobResource [S3Resource]-jrS3Resources = lens _jrS3Resources (\ s a -> s{_jrS3Resources = a}) . _Default . _Coerce;+jrS3Resources = lens _jrS3Resources (\ s a -> s{_jrS3Resources = a}) . _Default . _Coerce  instance FromJSON JobResource where         parseJSON@@ -919,11 +919,11 @@  -- | The key that ends an optional key range for an export job. Ranges are inclusive and UTF-8 binary sorted. krEndMarker :: Lens' KeyRange (Maybe Text)-krEndMarker = lens _krEndMarker (\ s a -> s{_krEndMarker = a});+krEndMarker = lens _krEndMarker (\ s a -> s{_krEndMarker = a})  -- | The key that starts an optional key range for an export job. Ranges are inclusive and UTF-8 binary sorted. krBeginMarker :: Lens' KeyRange (Maybe Text)-krBeginMarker = lens _krBeginMarker (\ s a -> s{_krBeginMarker = a});+krBeginMarker = lens _krBeginMarker (\ s a -> s{_krBeginMarker = a})  instance FromJSON KeyRange where         parseJSON@@ -969,11 +969,11 @@  -- | The array of ARNs for 'S3Resource' objects to trigger the 'LambdaResource' objects associated with this job. lrEventTriggers :: Lens' LambdaResource [EventTriggerDefinition]-lrEventTriggers = lens _lrEventTriggers (\ s a -> s{_lrEventTriggers = a}) . _Default . _Coerce;+lrEventTriggers = lens _lrEventTriggers (\ s a -> s{_lrEventTriggers = a}) . _Default . _Coerce  -- | An Amazon Resource Name (ARN) that represents an AWS Lambda function to be triggered by PUT object actions on the associated local Amazon S3 resource. lrLambdaARN :: Lens' LambdaResource (Maybe Text)-lrLambdaARN = lens _lrLambdaARN (\ s a -> s{_lrLambdaARN = a});+lrLambdaARN = lens _lrLambdaARN (\ s a -> s{_lrLambdaARN = a})  instance FromJSON LambdaResource where         parseJSON@@ -1021,23 +1021,23 @@     :: Notification notification =   Notification'-  { _nNotifyAll = Nothing-  , _nSNSTopicARN = Nothing-  , _nJobStatesToNotify = Nothing-  }+    { _nNotifyAll = Nothing+    , _nSNSTopicARN = Nothing+    , _nJobStatesToNotify = Nothing+    }   -- | Any change in job state will trigger a notification for this job. nNotifyAll :: Lens' Notification (Maybe Bool)-nNotifyAll = lens _nNotifyAll (\ s a -> s{_nNotifyAll = a});+nNotifyAll = lens _nNotifyAll (\ s a -> s{_nNotifyAll = a})  -- | The new SNS @TopicArn@ that you want to associate with this job. You can create Amazon Resource Names (ARNs) for topics by using the <http://docs.aws.amazon.com/sns/latest/api/API_CreateTopic.html CreateTopic> Amazon SNS API action. You can subscribe email addresses to an Amazon SNS topic through the AWS Management Console, or by using the <http://docs.aws.amazon.com/sns/latest/api/API_Subscribe.html Subscribe> AWS Simple Notification Service (SNS) API action. nSNSTopicARN :: Lens' Notification (Maybe Text)-nSNSTopicARN = lens _nSNSTopicARN (\ s a -> s{_nSNSTopicARN = a});+nSNSTopicARN = lens _nSNSTopicARN (\ s a -> s{_nSNSTopicARN = a})  -- | The list of job states that will trigger a notification for this job. nJobStatesToNotify :: Lens' Notification [JobState]-nJobStatesToNotify = lens _nJobStatesToNotify (\ s a -> s{_nJobStatesToNotify = a}) . _Default . _Coerce;+nJobStatesToNotify = lens _nJobStatesToNotify (\ s a -> s{_nJobStatesToNotify = a}) . _Default . _Coerce  instance FromJSON Notification where         parseJSON@@ -1084,11 +1084,11 @@  -- | For export jobs, you can provide an optional @KeyRange@ within a specific Amazon S3 bucket. The length of the range is defined at job creation, and has either an inclusive @BeginMarker@ , an inclusive @EndMarker@ , or both. Ranges are UTF-8 binary sorted. srKeyRange :: Lens' S3Resource (Maybe KeyRange)-srKeyRange = lens _srKeyRange (\ s a -> s{_srKeyRange = a});+srKeyRange = lens _srKeyRange (\ s a -> s{_srKeyRange = a})  -- | The Amazon Resource Name (ARN) of an Amazon S3 bucket. srBucketARN :: Lens' S3Resource (Maybe Text)-srBucketARN = lens _srBucketARN (\ s a -> s{_srBucketARN = a});+srBucketARN = lens _srBucketARN (\ s a -> s{_srBucketARN = a})  instance FromJSON S3Resource where         parseJSON@@ -1133,11 +1133,11 @@  -- | Status information for a shipment. sStatus :: Lens' Shipment (Maybe Text)-sStatus = lens _sStatus (\ s a -> s{_sStatus = a});+sStatus = lens _sStatus (\ s a -> s{_sStatus = a})  -- | The tracking number for this job. Using this tracking number with your region's carrier's website, you can track a Snowball as the carrier transports it. For India, the carrier is Amazon Logistics. For all other regions, UPS is the carrier. sTrackingNumber :: Lens' Shipment (Maybe Text)-sTrackingNumber = lens _sTrackingNumber (\ s a -> s{_sTrackingNumber = a});+sTrackingNumber = lens _sTrackingNumber (\ s a -> s{_sTrackingNumber = a})  instance FromJSON Shipment where         parseJSON@@ -1168,30 +1168,30 @@ -- -- * 'sdShippingOption' - The shipping speed for a particular job. This speed doesn't dictate how soon you'll get the Snowball from the job's creation date. This speed represents how quickly it moves to its destination while in transit. Regional shipping speeds are as follows:     * In Australia, you have access to express shipping. Typically, Snowballs shipped express are delivered in about a day.     * In the European Union (EU), you have access to express shipping. Typically, Snowballs shipped express are delivered in about a day. In addition, most countries in the EU have access to standard shipping, which typically takes less than a week, one way.     * In India, Snowballs are delivered in one to seven days.     * In the United States of America (US), you have access to one-day shipping and two-day shipping. ----- * 'sdOutboundShipment' - The @Status@ and @TrackingNumber@ values for a Snowball being returned to AWS for a particular job.+-- * 'sdOutboundShipment' - The @Status@ and @TrackingNumber@ values for a Snowball being delivered to the address that you specified for a particular job. ----- * 'sdInboundShipment' - The @Status@ and @TrackingNumber@ values for a Snowball being delivered to the address that you specified for a particular job.+-- * 'sdInboundShipment' - The @Status@ and @TrackingNumber@ values for a Snowball being returned to AWS for a particular job. shippingDetails     :: ShippingDetails shippingDetails =   ShippingDetails'-  { _sdShippingOption = Nothing-  , _sdOutboundShipment = Nothing-  , _sdInboundShipment = Nothing-  }+    { _sdShippingOption = Nothing+    , _sdOutboundShipment = Nothing+    , _sdInboundShipment = Nothing+    }   -- | The shipping speed for a particular job. This speed doesn't dictate how soon you'll get the Snowball from the job's creation date. This speed represents how quickly it moves to its destination while in transit. Regional shipping speeds are as follows:     * In Australia, you have access to express shipping. Typically, Snowballs shipped express are delivered in about a day.     * In the European Union (EU), you have access to express shipping. Typically, Snowballs shipped express are delivered in about a day. In addition, most countries in the EU have access to standard shipping, which typically takes less than a week, one way.     * In India, Snowballs are delivered in one to seven days.     * In the United States of America (US), you have access to one-day shipping and two-day shipping. sdShippingOption :: Lens' ShippingDetails (Maybe ShippingOption)-sdShippingOption = lens _sdShippingOption (\ s a -> s{_sdShippingOption = a});+sdShippingOption = lens _sdShippingOption (\ s a -> s{_sdShippingOption = a}) --- | The @Status@ and @TrackingNumber@ values for a Snowball being returned to AWS for a particular job.+-- | The @Status@ and @TrackingNumber@ values for a Snowball being delivered to the address that you specified for a particular job. sdOutboundShipment :: Lens' ShippingDetails (Maybe Shipment)-sdOutboundShipment = lens _sdOutboundShipment (\ s a -> s{_sdOutboundShipment = a});+sdOutboundShipment = lens _sdOutboundShipment (\ s a -> s{_sdOutboundShipment = a}) --- | The @Status@ and @TrackingNumber@ values for a Snowball being delivered to the address that you specified for a particular job.+-- | The @Status@ and @TrackingNumber@ values for a Snowball being returned to AWS for a particular job. sdInboundShipment :: Lens' ShippingDetails (Maybe Shipment)-sdInboundShipment = lens _sdInboundShipment (\ s a -> s{_sdInboundShipment = a});+sdInboundShipment = lens _sdInboundShipment (\ s a -> s{_sdInboundShipment = a})  instance FromJSON ShippingDetails where         parseJSON
gen/Network/AWS/Snowball/Types/Sum.hs view
@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.Snowball.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
gen/Network/AWS/Snowball/UpdateCluster.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Snowball.UpdateCluster--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -87,48 +87,48 @@     -> UpdateCluster updateCluster pClusterId_ =   UpdateCluster'-  { _ucNotification = Nothing-  , _ucForwardingAddressId = Nothing-  , _ucAddressId = Nothing-  , _ucShippingOption = Nothing-  , _ucResources = Nothing-  , _ucDescription = Nothing-  , _ucRoleARN = Nothing-  , _ucClusterId = pClusterId_-  }+    { _ucNotification = Nothing+    , _ucForwardingAddressId = Nothing+    , _ucAddressId = Nothing+    , _ucShippingOption = Nothing+    , _ucResources = Nothing+    , _ucDescription = Nothing+    , _ucRoleARN = Nothing+    , _ucClusterId = pClusterId_+    }   -- | The new or updated 'Notification' object. ucNotification :: Lens' UpdateCluster (Maybe Notification)-ucNotification = lens _ucNotification (\ s a -> s{_ucNotification = a});+ucNotification = lens _ucNotification (\ s a -> s{_ucNotification = a})  -- | The updated ID for the forwarding address for a cluster. This field is not supported in most regions. ucForwardingAddressId :: Lens' UpdateCluster (Maybe Text)-ucForwardingAddressId = lens _ucForwardingAddressId (\ s a -> s{_ucForwardingAddressId = a});+ucForwardingAddressId = lens _ucForwardingAddressId (\ s a -> s{_ucForwardingAddressId = a})  -- | The ID of the updated 'Address' object. ucAddressId :: Lens' UpdateCluster (Maybe Text)-ucAddressId = lens _ucAddressId (\ s a -> s{_ucAddressId = a});+ucAddressId = lens _ucAddressId (\ s a -> s{_ucAddressId = a})  -- | The updated shipping option value of this cluster's 'ShippingDetails' object. ucShippingOption :: Lens' UpdateCluster (Maybe ShippingOption)-ucShippingOption = lens _ucShippingOption (\ s a -> s{_ucShippingOption = a});+ucShippingOption = lens _ucShippingOption (\ s a -> s{_ucShippingOption = a})  -- | The updated arrays of 'JobResource' objects that can include updated 'S3Resource' objects or 'LambdaResource' objects. ucResources :: Lens' UpdateCluster (Maybe JobResource)-ucResources = lens _ucResources (\ s a -> s{_ucResources = a});+ucResources = lens _ucResources (\ s a -> s{_ucResources = a})  -- | The updated description of this cluster. ucDescription :: Lens' UpdateCluster (Maybe Text)-ucDescription = lens _ucDescription (\ s a -> s{_ucDescription = a});+ucDescription = lens _ucDescription (\ s a -> s{_ucDescription = a})  -- | The new role Amazon Resource Name (ARN) that you want to associate with this cluster. To create a role ARN, use the <http://docs.aws.amazon.com/IAM/latest/APIReference/API_CreateRole.html CreateRole> API action in AWS Identity and Access Management (IAM). ucRoleARN :: Lens' UpdateCluster (Maybe Text)-ucRoleARN = lens _ucRoleARN (\ s a -> s{_ucRoleARN = a});+ucRoleARN = lens _ucRoleARN (\ s a -> s{_ucRoleARN = a})  -- | The cluster ID of the cluster that you want to update, for example @CID123e4567-e89b-12d3-a456-426655440000@ . ucClusterId :: Lens' UpdateCluster Text-ucClusterId = lens _ucClusterId (\ s a -> s{_ucClusterId = a});+ucClusterId = lens _ucClusterId (\ s a -> s{_ucClusterId = a})  instance AWSRequest UpdateCluster where         type Rs UpdateCluster = UpdateClusterResponse@@ -192,6 +192,6 @@  -- | -- | The response status code. ucrsResponseStatus :: Lens' UpdateClusterResponse Int-ucrsResponseStatus = lens _ucrsResponseStatus (\ s a -> s{_ucrsResponseStatus = a});+ucrsResponseStatus = lens _ucrsResponseStatus (\ s a -> s{_ucrsResponseStatus = a})  instance NFData UpdateClusterResponse where
gen/Network/AWS/Snowball/UpdateJob.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Snowball.UpdateJob--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -91,53 +91,53 @@     -> UpdateJob updateJob pJobId_ =   UpdateJob'-  { _ujNotification = Nothing-  , _ujForwardingAddressId = Nothing-  , _ujAddressId = Nothing-  , _ujShippingOption = Nothing-  , _ujResources = Nothing-  , _ujDescription = Nothing-  , _ujRoleARN = Nothing-  , _ujSnowballCapacityPreference = Nothing-  , _ujJobId = pJobId_-  }+    { _ujNotification = Nothing+    , _ujForwardingAddressId = Nothing+    , _ujAddressId = Nothing+    , _ujShippingOption = Nothing+    , _ujResources = Nothing+    , _ujDescription = Nothing+    , _ujRoleARN = Nothing+    , _ujSnowballCapacityPreference = Nothing+    , _ujJobId = pJobId_+    }   -- | The new or updated 'Notification' object. ujNotification :: Lens' UpdateJob (Maybe Notification)-ujNotification = lens _ujNotification (\ s a -> s{_ujNotification = a});+ujNotification = lens _ujNotification (\ s a -> s{_ujNotification = a})  -- | The updated ID for the forwarding address for a job. This field is not supported in most regions. ujForwardingAddressId :: Lens' UpdateJob (Maybe Text)-ujForwardingAddressId = lens _ujForwardingAddressId (\ s a -> s{_ujForwardingAddressId = a});+ujForwardingAddressId = lens _ujForwardingAddressId (\ s a -> s{_ujForwardingAddressId = a})  -- | The ID of the updated 'Address' object. ujAddressId :: Lens' UpdateJob (Maybe Text)-ujAddressId = lens _ujAddressId (\ s a -> s{_ujAddressId = a});+ujAddressId = lens _ujAddressId (\ s a -> s{_ujAddressId = a})  -- | The updated shipping option value of this job's 'ShippingDetails' object. ujShippingOption :: Lens' UpdateJob (Maybe ShippingOption)-ujShippingOption = lens _ujShippingOption (\ s a -> s{_ujShippingOption = a});+ujShippingOption = lens _ujShippingOption (\ s a -> s{_ujShippingOption = a})  -- | The updated 'S3Resource' object (for a single Amazon S3 bucket or key range), or the updated 'JobResource' object (for multiple buckets or key ranges). ujResources :: Lens' UpdateJob (Maybe JobResource)-ujResources = lens _ujResources (\ s a -> s{_ujResources = a});+ujResources = lens _ujResources (\ s a -> s{_ujResources = a})  -- | The updated description of this job's 'JobMetadata' object. ujDescription :: Lens' UpdateJob (Maybe Text)-ujDescription = lens _ujDescription (\ s a -> s{_ujDescription = a});+ujDescription = lens _ujDescription (\ s a -> s{_ujDescription = a})  -- | The new role Amazon Resource Name (ARN) that you want to associate with this job. To create a role ARN, use the <http://docs.aws.amazon.com/IAM/latest/APIReference/API_CreateRole.html CreateRole> AWS Identity and Access Management (IAM) API action. ujRoleARN :: Lens' UpdateJob (Maybe Text)-ujRoleARN = lens _ujRoleARN (\ s a -> s{_ujRoleARN = a});+ujRoleARN = lens _ujRoleARN (\ s a -> s{_ujRoleARN = a})  -- | The updated @SnowballCapacityPreference@ of this job's 'JobMetadata' object. The 50 TB Snowballs are only available in the US regions. ujSnowballCapacityPreference :: Lens' UpdateJob (Maybe SnowballCapacity)-ujSnowballCapacityPreference = lens _ujSnowballCapacityPreference (\ s a -> s{_ujSnowballCapacityPreference = a});+ujSnowballCapacityPreference = lens _ujSnowballCapacityPreference (\ s a -> s{_ujSnowballCapacityPreference = a})  -- | The job ID of the job that you want to update, for example @JID123e4567-e89b-12d3-a456-426655440000@ . ujJobId :: Lens' UpdateJob Text-ujJobId = lens _ujJobId (\ s a -> s{_ujJobId = a});+ujJobId = lens _ujJobId (\ s a -> s{_ujJobId = a})  instance AWSRequest UpdateJob where         type Rs UpdateJob = UpdateJobResponse@@ -203,6 +203,6 @@  -- | -- | The response status code. ujrsResponseStatus :: Lens' UpdateJobResponse Int-ujrsResponseStatus = lens _ujrsResponseStatus (\ s a -> s{_ujrsResponseStatus = a});+ujrsResponseStatus = lens _ujrsResponseStatus (\ s a -> s{_ujrsResponseStatus = a})  instance NFData UpdateJobResponse where
gen/Network/AWS/Snowball/Waiters.hs view
@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.Snowball.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
test/Main.hs view
@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
test/Test/AWS/Gen/Snowball.hs view
@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.Snowball--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
test/Test/AWS/Snowball.hs view
@@ -3,7 +3,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-}  -- Module      : Test.AWS.Snowball--- Copyright   : (c) 2013-2016 Brendan Hay+-- 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
test/Test/AWS/Snowball/Internal.hs view
@@ -3,7 +3,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-}  -- Module      : Test.AWS.Snowball.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- 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