packages feed

amazonka-health 1.5.0 → 1.6.0

raw patch · 17 files changed

+223/−221 lines, 17 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-health.cabal view
@@ -1,5 +1,5 @@ name:                  amazonka-health-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Health APIs and Notifications 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@@ -59,7 +59,7 @@         , Network.AWS.AWSHealth.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-health-test@@ -79,8 +79,8 @@         , Test.AWS.AWSHealth.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-health         , base         , bytestring
gen/Network/AWS/AWSHealth.hs view
@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.AWSHealth--- 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/AWSHealth/DescribeAffectedEntities.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AWSHealth.DescribeAffectedEntities--- 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@@ -78,28 +78,28 @@     -> DescribeAffectedEntities describeAffectedEntities pFilter_ =   DescribeAffectedEntities'-  { _daeLocale = Nothing-  , _daeNextToken = Nothing-  , _daeMaxResults = Nothing-  , _daeFilter = pFilter_-  }+    { _daeLocale = Nothing+    , _daeNextToken = Nothing+    , _daeMaxResults = Nothing+    , _daeFilter = pFilter_+    }   -- | The locale (language) to return information in. English (en) is the default and the only supported value at this time. daeLocale :: Lens' DescribeAffectedEntities (Maybe Text)-daeLocale = lens _daeLocale (\ s a -> s{_daeLocale = a});+daeLocale = lens _daeLocale (\ s a -> s{_daeLocale = a})  -- | If the results of a search are large, only a portion of the results are returned, and a @nextToken@ pagination token is returned in the response. To retrieve the next batch of results, reissue the search request and include the returned token. When all results have been returned, the response does not contain a pagination token value. daeNextToken :: Lens' DescribeAffectedEntities (Maybe Text)-daeNextToken = lens _daeNextToken (\ s a -> s{_daeNextToken = a});+daeNextToken = lens _daeNextToken (\ s a -> s{_daeNextToken = a})  -- | The maximum number of items to return in one batch, between 10 and 100, inclusive. daeMaxResults :: Lens' DescribeAffectedEntities (Maybe Natural)-daeMaxResults = lens _daeMaxResults (\ s a -> s{_daeMaxResults = a}) . mapping _Nat;+daeMaxResults = lens _daeMaxResults (\ s a -> s{_daeMaxResults = a}) . mapping _Nat  -- | Values to narrow the results returned. At least one event ARN is required. daeFilter :: Lens' DescribeAffectedEntities EntityFilter-daeFilter = lens _daeFilter (\ s a -> s{_daeFilter = a});+daeFilter = lens _daeFilter (\ s a -> s{_daeFilter = a})  instance AWSPager DescribeAffectedEntities where         page rq rs@@ -170,23 +170,23 @@     -> DescribeAffectedEntitiesResponse describeAffectedEntitiesResponse pResponseStatus_ =   DescribeAffectedEntitiesResponse'-  { _daersEntities = Nothing-  , _daersNextToken = Nothing-  , _daersResponseStatus = pResponseStatus_-  }+    { _daersEntities = Nothing+    , _daersNextToken = Nothing+    , _daersResponseStatus = pResponseStatus_+    }   -- | The entities that match the filter criteria. daersEntities :: Lens' DescribeAffectedEntitiesResponse [AffectedEntity]-daersEntities = lens _daersEntities (\ s a -> s{_daersEntities = a}) . _Default . _Coerce;+daersEntities = lens _daersEntities (\ s a -> s{_daersEntities = a}) . _Default . _Coerce  -- | If the results of a search are large, only a portion of the results are returned, and a @nextToken@ pagination token is returned in the response. To retrieve the next batch of results, reissue the search request and include the returned token. When all results have been returned, the response does not contain a pagination token value. daersNextToken :: Lens' DescribeAffectedEntitiesResponse (Maybe Text)-daersNextToken = lens _daersNextToken (\ s a -> s{_daersNextToken = a});+daersNextToken = lens _daersNextToken (\ s a -> s{_daersNextToken = a})  -- | -- | The response status code. daersResponseStatus :: Lens' DescribeAffectedEntitiesResponse Int-daersResponseStatus = lens _daersResponseStatus (\ s a -> s{_daersResponseStatus = a});+daersResponseStatus = lens _daersResponseStatus (\ s a -> s{_daersResponseStatus = a})  instance NFData DescribeAffectedEntitiesResponse          where
gen/Network/AWS/AWSHealth/DescribeEntityAggregates.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AWSHealth.DescribeEntityAggregates--- 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 @@  -- | A list of event ARNs (unique identifiers). For example: @"arn:aws:health:us-east-1::event/AWS_EC2_MAINTENANCE_5331", "arn:aws:health:us-west-1::event/AWS_EBS_LOST_VOLUME_xyz"@ deaEventARNs :: Lens' DescribeEntityAggregates (Maybe (NonEmpty Text))-deaEventARNs = lens _deaEventARNs (\ s a -> s{_deaEventARNs = a}) . mapping _List1;+deaEventARNs = lens _deaEventARNs (\ s a -> s{_deaEventARNs = a}) . mapping _List1  instance AWSRequest DescribeEntityAggregates where         type Rs DescribeEntityAggregates =@@ -119,16 +119,16 @@     -> DescribeEntityAggregatesResponse describeEntityAggregatesResponse pResponseStatus_ =   DescribeEntityAggregatesResponse'-  {_dearsEntityAggregates = Nothing, _dearsResponseStatus = pResponseStatus_}+    {_dearsEntityAggregates = Nothing, _dearsResponseStatus = pResponseStatus_}   -- | The number of entities that are affected by each of the specified events. dearsEntityAggregates :: Lens' DescribeEntityAggregatesResponse [EntityAggregate]-dearsEntityAggregates = lens _dearsEntityAggregates (\ s a -> s{_dearsEntityAggregates = a}) . _Default . _Coerce;+dearsEntityAggregates = lens _dearsEntityAggregates (\ s a -> s{_dearsEntityAggregates = a}) . _Default . _Coerce  -- | -- | The response status code. dearsResponseStatus :: Lens' DescribeEntityAggregatesResponse Int-dearsResponseStatus = lens _dearsResponseStatus (\ s a -> s{_dearsResponseStatus = a});+dearsResponseStatus = lens _dearsResponseStatus (\ s a -> s{_dearsResponseStatus = a})  instance NFData DescribeEntityAggregatesResponse          where
gen/Network/AWS/AWSHealth/DescribeEventAggregates.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AWSHealth.DescribeEventAggregates--- 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@@ -76,28 +76,28 @@     -> DescribeEventAggregates describeEventAggregates pAggregateField_ =   DescribeEventAggregates'-  { _deaNextToken = Nothing-  , _deaFilter = Nothing-  , _deaMaxResults = Nothing-  , _deaAggregateField = pAggregateField_-  }+    { _deaNextToken = Nothing+    , _deaFilter = Nothing+    , _deaMaxResults = Nothing+    , _deaAggregateField = pAggregateField_+    }   -- | If the results of a search are large, only a portion of the results are returned, and a @nextToken@ pagination token is returned in the response. To retrieve the next batch of results, reissue the search request and include the returned token. When all results have been returned, the response does not contain a pagination token value. deaNextToken :: Lens' DescribeEventAggregates (Maybe Text)-deaNextToken = lens _deaNextToken (\ s a -> s{_deaNextToken = a});+deaNextToken = lens _deaNextToken (\ s a -> s{_deaNextToken = a})  -- | Values to narrow the results returned. deaFilter :: Lens' DescribeEventAggregates (Maybe EventFilter)-deaFilter = lens _deaFilter (\ s a -> s{_deaFilter = a});+deaFilter = lens _deaFilter (\ s a -> s{_deaFilter = a})  -- | The maximum number of items to return in one batch, between 10 and 100, inclusive. deaMaxResults :: Lens' DescribeEventAggregates (Maybe Natural)-deaMaxResults = lens _deaMaxResults (\ s a -> s{_deaMaxResults = a}) . mapping _Nat;+deaMaxResults = lens _deaMaxResults (\ s a -> s{_deaMaxResults = a}) . mapping _Nat  -- | The only currently supported value is @eventTypeCategory@ . deaAggregateField :: Lens' DescribeEventAggregates EventAggregateField-deaAggregateField = lens _deaAggregateField (\ s a -> s{_deaAggregateField = a});+deaAggregateField = lens _deaAggregateField (\ s a -> s{_deaAggregateField = a})  instance AWSPager DescribeEventAggregates where         page rq rs@@ -169,22 +169,22 @@     -> DescribeEventAggregatesResponse describeEventAggregatesResponse pResponseStatus_ =   DescribeEventAggregatesResponse'-  { _drsNextToken = Nothing-  , _drsEventAggregates = Nothing-  , _drsResponseStatus = pResponseStatus_-  }+    { _drsNextToken = Nothing+    , _drsEventAggregates = Nothing+    , _drsResponseStatus = pResponseStatus_+    }   -- | If the results of a search are large, only a portion of the results are returned, and a @nextToken@ pagination token is returned in the response. To retrieve the next batch of results, reissue the search request and include the returned token. When all results have been returned, the response does not contain a pagination token value. drsNextToken :: Lens' DescribeEventAggregatesResponse (Maybe Text)-drsNextToken = lens _drsNextToken (\ s a -> s{_drsNextToken = a});+drsNextToken = lens _drsNextToken (\ s a -> s{_drsNextToken = a})  -- | The number of events in each category that meet the optional filter criteria. drsEventAggregates :: Lens' DescribeEventAggregatesResponse [EventAggregate]-drsEventAggregates = lens _drsEventAggregates (\ s a -> s{_drsEventAggregates = a}) . _Default . _Coerce;+drsEventAggregates = lens _drsEventAggregates (\ s a -> s{_drsEventAggregates = a}) . _Default . _Coerce  -- | -- | The response status code. drsResponseStatus :: Lens' DescribeEventAggregatesResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DescribeEventAggregatesResponse where
gen/Network/AWS/AWSHealth/DescribeEventDetails.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AWSHealth.DescribeEventDetails--- 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,16 +67,16 @@     -> DescribeEventDetails describeEventDetails pEventARNs_ =   DescribeEventDetails'-  {_dedLocale = Nothing, _dedEventARNs = _List1 # pEventARNs_}+    {_dedLocale = Nothing, _dedEventARNs = _List1 # pEventARNs_}   -- | The locale (language) to return information in. English (en) is the default and the only supported value at this time. dedLocale :: Lens' DescribeEventDetails (Maybe Text)-dedLocale = lens _dedLocale (\ s a -> s{_dedLocale = a});+dedLocale = lens _dedLocale (\ s a -> s{_dedLocale = a})  -- | A list of event ARNs (unique identifiers). For example: @"arn:aws:health:us-east-1::event/AWS_EC2_MAINTENANCE_5331", "arn:aws:health:us-west-1::event/AWS_EBS_LOST_VOLUME_xyz"@ dedEventARNs :: Lens' DescribeEventDetails (NonEmpty Text)-dedEventARNs = lens _dedEventARNs (\ s a -> s{_dedEventARNs = a}) . _List1;+dedEventARNs = lens _dedEventARNs (\ s a -> s{_dedEventARNs = a}) . _List1  instance AWSRequest DescribeEventDetails where         type Rs DescribeEventDetails =@@ -139,22 +139,22 @@     -> DescribeEventDetailsResponse describeEventDetailsResponse pResponseStatus_ =   DescribeEventDetailsResponse'-  { _dedrsSuccessfulSet = Nothing-  , _dedrsFailedSet = Nothing-  , _dedrsResponseStatus = pResponseStatus_-  }+    { _dedrsSuccessfulSet = Nothing+    , _dedrsFailedSet = Nothing+    , _dedrsResponseStatus = pResponseStatus_+    }   -- | Information about the events that could be retrieved. dedrsSuccessfulSet :: Lens' DescribeEventDetailsResponse [EventDetails]-dedrsSuccessfulSet = lens _dedrsSuccessfulSet (\ s a -> s{_dedrsSuccessfulSet = a}) . _Default . _Coerce;+dedrsSuccessfulSet = lens _dedrsSuccessfulSet (\ s a -> s{_dedrsSuccessfulSet = a}) . _Default . _Coerce  -- | Error messages for any events that could not be retrieved. dedrsFailedSet :: Lens' DescribeEventDetailsResponse [EventDetailsErrorItem]-dedrsFailedSet = lens _dedrsFailedSet (\ s a -> s{_dedrsFailedSet = a}) . _Default . _Coerce;+dedrsFailedSet = lens _dedrsFailedSet (\ s a -> s{_dedrsFailedSet = a}) . _Default . _Coerce  -- | -- | The response status code. dedrsResponseStatus :: Lens' DescribeEventDetailsResponse Int-dedrsResponseStatus = lens _dedrsResponseStatus (\ s a -> s{_dedrsResponseStatus = a});+dedrsResponseStatus = lens _dedrsResponseStatus (\ s a -> s{_dedrsResponseStatus = a})  instance NFData DescribeEventDetailsResponse where
gen/Network/AWS/AWSHealth/DescribeEventTypes.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AWSHealth.DescribeEventTypes--- 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@@ -75,28 +75,28 @@     :: DescribeEventTypes describeEventTypes =   DescribeEventTypes'-  { _detLocale = Nothing-  , _detNextToken = Nothing-  , _detFilter = Nothing-  , _detMaxResults = Nothing-  }+    { _detLocale = Nothing+    , _detNextToken = Nothing+    , _detFilter = Nothing+    , _detMaxResults = Nothing+    }   -- | The locale (language) to return information in. English (en) is the default and the only supported value at this time. detLocale :: Lens' DescribeEventTypes (Maybe Text)-detLocale = lens _detLocale (\ s a -> s{_detLocale = a});+detLocale = lens _detLocale (\ s a -> s{_detLocale = a})  -- | If the results of a search are large, only a portion of the results are returned, and a @nextToken@ pagination token is returned in the response. To retrieve the next batch of results, reissue the search request and include the returned token. When all results have been returned, the response does not contain a pagination token value. detNextToken :: Lens' DescribeEventTypes (Maybe Text)-detNextToken = lens _detNextToken (\ s a -> s{_detNextToken = a});+detNextToken = lens _detNextToken (\ s a -> s{_detNextToken = a})  -- | Values to narrow the results returned. detFilter :: Lens' DescribeEventTypes (Maybe EventTypeFilter)-detFilter = lens _detFilter (\ s a -> s{_detFilter = a});+detFilter = lens _detFilter (\ s a -> s{_detFilter = a})  -- | The maximum number of items to return in one batch, between 10 and 100, inclusive. detMaxResults :: Lens' DescribeEventTypes (Maybe Natural)-detMaxResults = lens _detMaxResults (\ s a -> s{_detMaxResults = a}) . mapping _Nat;+detMaxResults = lens _detMaxResults (\ s a -> s{_detMaxResults = a}) . mapping _Nat  instance AWSPager DescribeEventTypes where         page rq rs@@ -168,22 +168,22 @@     -> DescribeEventTypesResponse describeEventTypesResponse pResponseStatus_ =   DescribeEventTypesResponse'-  { _detrsEventTypes = Nothing-  , _detrsNextToken = Nothing-  , _detrsResponseStatus = pResponseStatus_-  }+    { _detrsEventTypes = Nothing+    , _detrsNextToken = Nothing+    , _detrsResponseStatus = pResponseStatus_+    }   -- | A list of event types that match the filter criteria. Event types have a category (@issue@ , @accountNotification@ , or @scheduledChange@ ), a service (for example, @EC2@ , @RDS@ , @DATAPIPELINE@ , @BILLING@ ), and a code (in the format @AWS_/SERVICE/ _/DESCRIPTION/ @ ; for example, @AWS_EC2_SYSTEM_MAINTENANCE_EVENT@ ). detrsEventTypes :: Lens' DescribeEventTypesResponse [EventType]-detrsEventTypes = lens _detrsEventTypes (\ s a -> s{_detrsEventTypes = a}) . _Default . _Coerce;+detrsEventTypes = lens _detrsEventTypes (\ s a -> s{_detrsEventTypes = a}) . _Default . _Coerce  -- | If the results of a search are large, only a portion of the results are returned, and a @nextToken@ pagination token is returned in the response. To retrieve the next batch of results, reissue the search request and include the returned token. When all results have been returned, the response does not contain a pagination token value. detrsNextToken :: Lens' DescribeEventTypesResponse (Maybe Text)-detrsNextToken = lens _detrsNextToken (\ s a -> s{_detrsNextToken = a});+detrsNextToken = lens _detrsNextToken (\ s a -> s{_detrsNextToken = a})  -- | -- | The response status code. detrsResponseStatus :: Lens' DescribeEventTypesResponse Int-detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a});+detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a})  instance NFData DescribeEventTypesResponse where
gen/Network/AWS/AWSHealth/DescribeEvents.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.AWSHealth.DescribeEvents--- 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@@ -77,28 +77,28 @@     :: DescribeEvents describeEvents =   DescribeEvents'-  { _deLocale = Nothing-  , _deNextToken = Nothing-  , _deFilter = Nothing-  , _deMaxResults = Nothing-  }+    { _deLocale = Nothing+    , _deNextToken = Nothing+    , _deFilter = Nothing+    , _deMaxResults = Nothing+    }   -- | The locale (language) to return information in. English (en) is the default and the only supported value at this time. deLocale :: Lens' DescribeEvents (Maybe Text)-deLocale = lens _deLocale (\ s a -> s{_deLocale = a});+deLocale = lens _deLocale (\ s a -> s{_deLocale = a})  -- | If the results of a search are large, only a portion of the results are returned, and a @nextToken@ pagination token is returned in the response. To retrieve the next batch of results, reissue the search request and include the returned token. When all results have been returned, the response does not contain a pagination token value. deNextToken :: Lens' DescribeEvents (Maybe Text)-deNextToken = lens _deNextToken (\ s a -> s{_deNextToken = a});+deNextToken = lens _deNextToken (\ s a -> s{_deNextToken = a})  -- | Values to narrow the results returned. deFilter :: Lens' DescribeEvents (Maybe EventFilter)-deFilter = lens _deFilter (\ s a -> s{_deFilter = a});+deFilter = lens _deFilter (\ s a -> s{_deFilter = a})  -- | The maximum number of items to return in one batch, between 10 and 100, inclusive. deMaxResults :: Lens' DescribeEvents (Maybe Natural)-deMaxResults = lens _deMaxResults (\ s a -> s{_deMaxResults = a}) . mapping _Nat;+deMaxResults = lens _deMaxResults (\ s a -> s{_deMaxResults = a}) . mapping _Nat  instance AWSPager DescribeEvents where         page rq rs@@ -167,22 +167,22 @@     -> DescribeEventsResponse describeEventsResponse pResponseStatus_ =   DescribeEventsResponse'-  { _dersNextToken = Nothing-  , _dersEvents = Nothing-  , _dersResponseStatus = pResponseStatus_-  }+    { _dersNextToken = Nothing+    , _dersEvents = Nothing+    , _dersResponseStatus = pResponseStatus_+    }   -- | If the results of a search are large, only a portion of the results are returned, and a @nextToken@ pagination token is returned in the response. To retrieve the next batch of results, reissue the search request and include the returned token. When all results have been returned, the response does not contain a pagination token value. dersNextToken :: Lens' DescribeEventsResponse (Maybe Text)-dersNextToken = lens _dersNextToken (\ s a -> s{_dersNextToken = a});+dersNextToken = lens _dersNextToken (\ s a -> s{_dersNextToken = a})  -- | The events that match the specified filter criteria. dersEvents :: Lens' DescribeEventsResponse [Event]-dersEvents = lens _dersEvents (\ s a -> s{_dersEvents = a}) . _Default . _Coerce;+dersEvents = lens _dersEvents (\ s a -> s{_dersEvents = a}) . _Default . _Coerce  -- | -- | The response status code. dersResponseStatus :: Lens' DescribeEventsResponse Int-dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a});+dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a})  instance NFData DescribeEventsResponse where
gen/Network/AWS/AWSHealth/Types.hs view
@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.AWSHealth.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@@ -145,24 +145,24 @@ awsHealth :: Service awsHealth =   Service-  { _svcAbbrev = "AWSHealth"-  , _svcSigner = v4-  , _svcPrefix = "health"-  , _svcVersion = "2016-08-04"-  , _svcEndpoint = defaultEndpoint awsHealth-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "AWSHealth"-  , _svcRetry = retry-  }+    { _svcAbbrev = "AWSHealth"+    , _svcSigner = v4+    , _svcPrefix = "health"+    , _svcVersion = "2016-08-04"+    , _svcEndpoint = defaultEndpoint awsHealth+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "AWSHealth"+    , _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"@@ -171,6 +171,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/AWSHealth/Types/Product.hs view
@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.AWSHealth.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@@ -58,43 +58,43 @@     :: AffectedEntity affectedEntity =   AffectedEntity'-  { _aeLastUpdatedTime = Nothing-  , _aeEntityValue = Nothing-  , _aeAwsAccountId = Nothing-  , _aeEventARN = Nothing-  , _aeEntityARN = Nothing-  , _aeTags = Nothing-  , _aeStatusCode = Nothing-  }+    { _aeLastUpdatedTime = Nothing+    , _aeEntityValue = Nothing+    , _aeAwsAccountId = Nothing+    , _aeEventARN = Nothing+    , _aeEntityARN = Nothing+    , _aeTags = Nothing+    , _aeStatusCode = Nothing+    }   -- | The most recent time that the entity was updated. aeLastUpdatedTime :: Lens' AffectedEntity (Maybe UTCTime)-aeLastUpdatedTime = lens _aeLastUpdatedTime (\ s a -> s{_aeLastUpdatedTime = a}) . mapping _Time;+aeLastUpdatedTime = lens _aeLastUpdatedTime (\ s a -> s{_aeLastUpdatedTime = a}) . mapping _Time  -- | The ID of the affected entity. aeEntityValue :: Lens' AffectedEntity (Maybe Text)-aeEntityValue = lens _aeEntityValue (\ s a -> s{_aeEntityValue = a});+aeEntityValue = lens _aeEntityValue (\ s a -> s{_aeEntityValue = a})  -- | The 12-digit AWS account number that contains the affected entity. aeAwsAccountId :: Lens' AffectedEntity (Maybe Text)-aeAwsAccountId = lens _aeAwsAccountId (\ s a -> s{_aeAwsAccountId = a});+aeAwsAccountId = lens _aeAwsAccountId (\ s a -> s{_aeAwsAccountId = a})  -- | The unique identifier for the event. Format: @arn:aws:health:/event-region/ ::event//EVENT_TYPE_PLUS_ID/ @ . Example: @arn:aws:health:us-east-1::event/AWS_EC2_MAINTENANCE_5331@ aeEventARN :: Lens' AffectedEntity (Maybe Text)-aeEventARN = lens _aeEventARN (\ s a -> s{_aeEventARN = a});+aeEventARN = lens _aeEventARN (\ s a -> s{_aeEventARN = a})  -- | The unique identifier for the entity. Format: @arn:aws:health:/entity-region/ :/aws-account/ :entity//entity-id/ @ . Example: @arn:aws:health:us-east-1:111222333444:entity/AVh5GGT7ul1arKr1sE1K@ aeEntityARN :: Lens' AffectedEntity (Maybe Text)-aeEntityARN = lens _aeEntityARN (\ s a -> s{_aeEntityARN = a});+aeEntityARN = lens _aeEntityARN (\ s a -> s{_aeEntityARN = a})  -- | A map of entity tags attached to the affected entity. aeTags :: Lens' AffectedEntity (HashMap Text Text)-aeTags = lens _aeTags (\ s a -> s{_aeTags = a}) . _Default . _Map;+aeTags = lens _aeTags (\ s a -> s{_aeTags = a}) . _Default . _Map  -- | The most recent status of the entity affected by the event. The possible values are @IMPAIRED@ , @UNIMPAIRED@ , and @UNKNOWN@ . aeStatusCode :: Lens' AffectedEntity (Maybe EntityStatusCode)-aeStatusCode = lens _aeStatusCode (\ s a -> s{_aeStatusCode = a});+aeStatusCode = lens _aeStatusCode (\ s a -> s{_aeStatusCode = a})  instance FromJSON AffectedEntity where         parseJSON@@ -137,11 +137,11 @@  -- | The ending date and time of a time range. dtrTo :: Lens' DateTimeRange (Maybe UTCTime)-dtrTo = lens _dtrTo (\ s a -> s{_dtrTo = a}) . mapping _Time;+dtrTo = lens _dtrTo (\ s a -> s{_dtrTo = a}) . mapping _Time  -- | The starting date and time of a time range. dtrFrom :: Lens' DateTimeRange (Maybe UTCTime)-dtrFrom = lens _dtrFrom (\ s a -> s{_dtrFrom = a}) . mapping _Time;+dtrFrom = lens _dtrFrom (\ s a -> s{_dtrFrom = a}) . mapping _Time  instance Hashable DateTimeRange where @@ -178,11 +178,11 @@  -- | The number entities that match the criteria for the specified events. eCount :: Lens' EntityAggregate (Maybe Int)-eCount = lens _eCount (\ s a -> s{_eCount = a});+eCount = lens _eCount (\ s a -> s{_eCount = a})  -- | The unique identifier for the event. Format: @arn:aws:health:/event-region/ ::event//EVENT_TYPE_PLUS_ID/ @ . Example: @arn:aws:health:us-east-1::event/AWS_EC2_MAINTENANCE_5331@ eEventARN :: Lens' EntityAggregate (Maybe Text)-eEventARN = lens _eEventARN (\ s a -> s{_eEventARN = a});+eEventARN = lens _eEventARN (\ s a -> s{_eEventARN = a})  instance FromJSON EntityAggregate where         parseJSON@@ -230,38 +230,38 @@     -> EntityFilter entityFilter pEventARNs_ =   EntityFilter'-  { _eStatusCodes = Nothing-  , _eEntityARNs = Nothing-  , _eEntityValues = Nothing-  , _eTags = Nothing-  , _eLastUpdatedTimes = Nothing-  , _eEventARNs = _List1 # pEventARNs_-  }+    { _eStatusCodes = Nothing+    , _eEntityARNs = Nothing+    , _eEntityValues = Nothing+    , _eTags = Nothing+    , _eLastUpdatedTimes = Nothing+    , _eEventARNs = _List1 # pEventARNs_+    }   -- | A list of entity status codes (@IMPAIRED@ , @UNIMPAIRED@ , or @UNKNOWN@ ). eStatusCodes :: Lens' EntityFilter (Maybe (NonEmpty EntityStatusCode))-eStatusCodes = lens _eStatusCodes (\ s a -> s{_eStatusCodes = a}) . mapping _List1;+eStatusCodes = lens _eStatusCodes (\ s a -> s{_eStatusCodes = a}) . mapping _List1  -- | A list of entity ARNs (unique identifiers). eEntityARNs :: Lens' EntityFilter (Maybe (NonEmpty Text))-eEntityARNs = lens _eEntityARNs (\ s a -> s{_eEntityARNs = a}) . mapping _List1;+eEntityARNs = lens _eEntityARNs (\ s a -> s{_eEntityARNs = a}) . mapping _List1  -- | A list of IDs for affected entities. eEntityValues :: Lens' EntityFilter (Maybe (NonEmpty Text))-eEntityValues = lens _eEntityValues (\ s a -> s{_eEntityValues = a}) . mapping _List1;+eEntityValues = lens _eEntityValues (\ s a -> s{_eEntityValues = a}) . mapping _List1  -- | A map of entity tags attached to the affected entity. eTags :: Lens' EntityFilter [HashMap Text Text]-eTags = lens _eTags (\ s a -> s{_eTags = a}) . _Default . _Coerce;+eTags = lens _eTags (\ s a -> s{_eTags = a}) . _Default . _Coerce  -- | A list of the most recent dates and times that the entity was updated. eLastUpdatedTimes :: Lens' EntityFilter (Maybe (NonEmpty DateTimeRange))-eLastUpdatedTimes = lens _eLastUpdatedTimes (\ s a -> s{_eLastUpdatedTimes = a}) . mapping _List1;+eLastUpdatedTimes = lens _eLastUpdatedTimes (\ s a -> s{_eLastUpdatedTimes = a}) . mapping _List1  -- | A list of event ARNs (unique identifiers). For example: @"arn:aws:health:us-east-1::event/AWS_EC2_MAINTENANCE_5331", "arn:aws:health:us-west-1::event/AWS_EBS_LOST_VOLUME_xyz"@ eEventARNs :: Lens' EntityFilter (NonEmpty Text)-eEventARNs = lens _eEventARNs (\ s a -> s{_eEventARNs = a}) . _List1;+eEventARNs = lens _eEventARNs (\ s a -> s{_eEventARNs = a}) . _List1  instance Hashable EntityFilter where @@ -324,58 +324,58 @@     :: Event event =   Event'-  { _eLastUpdatedTime = Nothing-  , _eArn = Nothing-  , _eService = Nothing-  , _eStartTime = Nothing-  , _eEventTypeCode = Nothing-  , _eEventTypeCategory = Nothing-  , _eAvailabilityZone = Nothing-  , _eEndTime = Nothing-  , _eRegion = Nothing-  , _eStatusCode = Nothing-  }+    { _eLastUpdatedTime = Nothing+    , _eArn = Nothing+    , _eService = Nothing+    , _eStartTime = Nothing+    , _eEventTypeCode = Nothing+    , _eEventTypeCategory = Nothing+    , _eAvailabilityZone = Nothing+    , _eEndTime = Nothing+    , _eRegion = Nothing+    , _eStatusCode = Nothing+    }   -- | The most recent date and time that the event was updated. eLastUpdatedTime :: Lens' Event (Maybe UTCTime)-eLastUpdatedTime = lens _eLastUpdatedTime (\ s a -> s{_eLastUpdatedTime = a}) . mapping _Time;+eLastUpdatedTime = lens _eLastUpdatedTime (\ s a -> s{_eLastUpdatedTime = a}) . mapping _Time  -- | The unique identifier for the event. Format: @arn:aws:health:/event-region/ ::event//EVENT_TYPE_PLUS_ID/ @ . Example: @arn:aws:health:us-east-1::event/AWS_EC2_MAINTENANCE_5331@ eArn :: Lens' Event (Maybe Text)-eArn = lens _eArn (\ s a -> s{_eArn = a});+eArn = lens _eArn (\ s a -> s{_eArn = a})  -- | The AWS service that is affected by the event. For example, @EC2@ , @RDS@ . eService :: Lens' Event (Maybe Text)-eService = lens _eService (\ s a -> s{_eService = a});+eService = lens _eService (\ s a -> s{_eService = a})  -- | The date and time that the event began. eStartTime :: Lens' Event (Maybe UTCTime)-eStartTime = lens _eStartTime (\ s a -> s{_eStartTime = a}) . mapping _Time;+eStartTime = lens _eStartTime (\ s a -> s{_eStartTime = a}) . mapping _Time  -- | The unique identifier for the event type. The format is @AWS_/SERVICE/ _/DESCRIPTION/ @ ; for example, @AWS_EC2_SYSTEM_MAINTENANCE_EVENT@ . eEventTypeCode :: Lens' Event (Maybe Text)-eEventTypeCode = lens _eEventTypeCode (\ s a -> s{_eEventTypeCode = a});+eEventTypeCode = lens _eEventTypeCode (\ s a -> s{_eEventTypeCode = a})  -- | The eEventTypeCategory :: Lens' Event (Maybe EventTypeCategory)-eEventTypeCategory = lens _eEventTypeCategory (\ s a -> s{_eEventTypeCategory = a});+eEventTypeCategory = lens _eEventTypeCategory (\ s a -> s{_eEventTypeCategory = a})  -- | The AWS Availability Zone of the event. For example, us-east-1a. eAvailabilityZone :: Lens' Event (Maybe Text)-eAvailabilityZone = lens _eAvailabilityZone (\ s a -> s{_eAvailabilityZone = a});+eAvailabilityZone = lens _eAvailabilityZone (\ s a -> s{_eAvailabilityZone = a})  -- | The date and time that the event ended. eEndTime :: Lens' Event (Maybe UTCTime)-eEndTime = lens _eEndTime (\ s a -> s{_eEndTime = a}) . mapping _Time;+eEndTime = lens _eEndTime (\ s a -> s{_eEndTime = a}) . mapping _Time  -- | The AWS region name of the event. eRegion :: Lens' Event (Maybe Text)-eRegion = lens _eRegion (\ s a -> s{_eRegion = a});+eRegion = lens _eRegion (\ s a -> s{_eRegion = a})  -- | The most recent status of the event. Possible values are @open@ , @closed@ , and @upcoming@ . eStatusCode :: Lens' Event (Maybe EventStatusCode)-eStatusCode = lens _eStatusCode (\ s a -> s{_eStatusCode = a});+eStatusCode = lens _eStatusCode (\ s a -> s{_eStatusCode = a})  instance FromJSON Event where         parseJSON@@ -422,11 +422,11 @@  -- | The number of events of the associated issue type. eaCount :: Lens' EventAggregate (Maybe Int)-eaCount = lens _eaCount (\ s a -> s{_eaCount = a});+eaCount = lens _eaCount (\ s a -> s{_eaCount = a})  -- | The issue type for the associated count. eaAggregateValue :: Lens' EventAggregate (Maybe Text)-eaAggregateValue = lens _eaAggregateValue (\ s a -> s{_eaAggregateValue = a});+eaAggregateValue = lens _eaAggregateValue (\ s a -> s{_eaAggregateValue = a})  instance FromJSON EventAggregate where         parseJSON@@ -461,7 +461,7 @@  -- | The most recent description of the event. edLatestDescription :: Lens' EventDescription (Maybe Text)-edLatestDescription = lens _edLatestDescription (\ s a -> s{_edLatestDescription = a});+edLatestDescription = lens _edLatestDescription (\ s a -> s{_edLatestDescription = a})  instance FromJSON EventDescription where         parseJSON@@ -498,23 +498,23 @@     :: EventDetails eventDetails =   EventDetails'-  { _edEvent = Nothing-  , _edEventDescription = Nothing-  , _edEventMetadata = Nothing-  }+    { _edEvent = Nothing+    , _edEventDescription = Nothing+    , _edEventMetadata = Nothing+    }   -- | Summary information about the event. edEvent :: Lens' EventDetails (Maybe Event)-edEvent = lens _edEvent (\ s a -> s{_edEvent = a});+edEvent = lens _edEvent (\ s a -> s{_edEvent = a})  -- | The most recent description of the event. edEventDescription :: Lens' EventDetails (Maybe EventDescription)-edEventDescription = lens _edEventDescription (\ s a -> s{_edEventDescription = a});+edEventDescription = lens _edEventDescription (\ s a -> s{_edEventDescription = a})  -- | Additional metadata about the event. edEventMetadata :: Lens' EventDetails (HashMap Text Text)-edEventMetadata = lens _edEventMetadata (\ s a -> s{_edEventMetadata = a}) . _Default . _Map;+edEventMetadata = lens _edEventMetadata (\ s a -> s{_edEventMetadata = a}) . _Default . _Map  instance FromJSON EventDetails where         parseJSON@@ -553,23 +553,23 @@     :: EventDetailsErrorItem eventDetailsErrorItem =   EventDetailsErrorItem'-  { _edeiEventARN = Nothing-  , _edeiErrorName = Nothing-  , _edeiErrorMessage = Nothing-  }+    { _edeiEventARN = Nothing+    , _edeiErrorName = Nothing+    , _edeiErrorMessage = Nothing+    }   -- | The unique identifier for the event. Format: @arn:aws:health:/event-region/ ::event//EVENT_TYPE_PLUS_ID/ @ . Example: @arn:aws:health:us-east-1::event/AWS_EC2_MAINTENANCE_5331@ edeiEventARN :: Lens' EventDetailsErrorItem (Maybe Text)-edeiEventARN = lens _edeiEventARN (\ s a -> s{_edeiEventARN = a});+edeiEventARN = lens _edeiEventARN (\ s a -> s{_edeiEventARN = a})  -- | The name of the error. edeiErrorName :: Lens' EventDetailsErrorItem (Maybe Text)-edeiErrorName = lens _edeiErrorName (\ s a -> s{_edeiErrorName = a});+edeiErrorName = lens _edeiErrorName (\ s a -> s{_edeiErrorName = a})  -- | A message that describes the error. edeiErrorMessage :: Lens' EventDetailsErrorItem (Maybe Text)-edeiErrorMessage = lens _edeiErrorMessage (\ s a -> s{_edeiErrorMessage = a});+edeiErrorMessage = lens _edeiErrorMessage (\ s a -> s{_edeiErrorMessage = a})  instance FromJSON EventDetailsErrorItem where         parseJSON@@ -638,73 +638,73 @@     :: EventFilter eventFilter =   EventFilter'-  { _efEventARNs = Nothing-  , _efEventTypeCategories = Nothing-  , _efEventTypeCodes = Nothing-  , _efRegions = Nothing-  , _efEventStatusCodes = Nothing-  , _efEndTimes = Nothing-  , _efAvailabilityZones = Nothing-  , _efEntityARNs = Nothing-  , _efEntityValues = Nothing-  , _efStartTimes = Nothing-  , _efServices = Nothing-  , _efTags = Nothing-  , _efLastUpdatedTimes = Nothing-  }+    { _efEventARNs = Nothing+    , _efEventTypeCategories = Nothing+    , _efEventTypeCodes = Nothing+    , _efRegions = Nothing+    , _efEventStatusCodes = Nothing+    , _efEndTimes = Nothing+    , _efAvailabilityZones = Nothing+    , _efEntityARNs = Nothing+    , _efEntityValues = Nothing+    , _efStartTimes = Nothing+    , _efServices = Nothing+    , _efTags = Nothing+    , _efLastUpdatedTimes = Nothing+    }   -- | A list of event ARNs (unique identifiers). For example: @"arn:aws:health:us-east-1::event/AWS_EC2_MAINTENANCE_5331", "arn:aws:health:us-west-1::event/AWS_EBS_LOST_VOLUME_xyz"@ efEventARNs :: Lens' EventFilter (Maybe (NonEmpty Text))-efEventARNs = lens _efEventARNs (\ s a -> s{_efEventARNs = a}) . mapping _List1;+efEventARNs = lens _efEventARNs (\ s a -> s{_efEventARNs = a}) . mapping _List1  -- | A list of event type category codes (@issue@ , @scheduledChange@ , or @accountNotification@ ). efEventTypeCategories :: Lens' EventFilter (Maybe (NonEmpty EventTypeCategory))-efEventTypeCategories = lens _efEventTypeCategories (\ s a -> s{_efEventTypeCategories = a}) . mapping _List1;+efEventTypeCategories = lens _efEventTypeCategories (\ s a -> s{_efEventTypeCategories = a}) . mapping _List1  -- | A list of unique identifiers for event types. For example, @"AWS_EC2_SYSTEM_MAINTENANCE_EVENT","AWS_RDS_MAINTENANCE_SCHEDULED"@ efEventTypeCodes :: Lens' EventFilter (Maybe (NonEmpty Text))-efEventTypeCodes = lens _efEventTypeCodes (\ s a -> s{_efEventTypeCodes = a}) . mapping _List1;+efEventTypeCodes = lens _efEventTypeCodes (\ s a -> s{_efEventTypeCodes = a}) . mapping _List1  -- | A list of AWS regions. efRegions :: Lens' EventFilter (Maybe (NonEmpty Text))-efRegions = lens _efRegions (\ s a -> s{_efRegions = a}) . mapping _List1;+efRegions = lens _efRegions (\ s a -> s{_efRegions = a}) . mapping _List1  -- | A list of event status codes. efEventStatusCodes :: Lens' EventFilter (Maybe (NonEmpty EventStatusCode))-efEventStatusCodes = lens _efEventStatusCodes (\ s a -> s{_efEventStatusCodes = a}) . mapping _List1;+efEventStatusCodes = lens _efEventStatusCodes (\ s a -> s{_efEventStatusCodes = a}) . mapping _List1  -- | A list of dates and times that the event ended. efEndTimes :: Lens' EventFilter (Maybe (NonEmpty DateTimeRange))-efEndTimes = lens _efEndTimes (\ s a -> s{_efEndTimes = a}) . mapping _List1;+efEndTimes = lens _efEndTimes (\ s a -> s{_efEndTimes = a}) . mapping _List1  -- | A list of AWS availability zones. efAvailabilityZones :: Lens' EventFilter [Text]-efAvailabilityZones = lens _efAvailabilityZones (\ s a -> s{_efAvailabilityZones = a}) . _Default . _Coerce;+efAvailabilityZones = lens _efAvailabilityZones (\ s a -> s{_efAvailabilityZones = a}) . _Default . _Coerce  -- | A list of entity ARNs (unique identifiers). efEntityARNs :: Lens' EventFilter (Maybe (NonEmpty Text))-efEntityARNs = lens _efEntityARNs (\ s a -> s{_efEntityARNs = a}) . mapping _List1;+efEntityARNs = lens _efEntityARNs (\ s a -> s{_efEntityARNs = a}) . mapping _List1  -- | A list of entity identifiers, such as EC2 instance IDs (@i-34ab692e@ ) or EBS volumes (@vol-426ab23e@ ). efEntityValues :: Lens' EventFilter (Maybe (NonEmpty Text))-efEntityValues = lens _efEntityValues (\ s a -> s{_efEntityValues = a}) . mapping _List1;+efEntityValues = lens _efEntityValues (\ s a -> s{_efEntityValues = a}) . mapping _List1  -- | A list of dates and times that the event began. efStartTimes :: Lens' EventFilter (Maybe (NonEmpty DateTimeRange))-efStartTimes = lens _efStartTimes (\ s a -> s{_efStartTimes = a}) . mapping _List1;+efStartTimes = lens _efStartTimes (\ s a -> s{_efStartTimes = a}) . mapping _List1  -- | The AWS services associated with the event. For example, @EC2@ , @RDS@ . efServices :: Lens' EventFilter (Maybe (NonEmpty Text))-efServices = lens _efServices (\ s a -> s{_efServices = a}) . mapping _List1;+efServices = lens _efServices (\ s a -> s{_efServices = a}) . mapping _List1  -- | A map of entity tags attached to the affected entity. efTags :: Lens' EventFilter [HashMap Text Text]-efTags = lens _efTags (\ s a -> s{_efTags = a}) . _Default . _Coerce;+efTags = lens _efTags (\ s a -> s{_efTags = a}) . _Default . _Coerce  -- | A list of dates and times that the event was last updated. efLastUpdatedTimes :: Lens' EventFilter (Maybe (NonEmpty DateTimeRange))-efLastUpdatedTimes = lens _efLastUpdatedTimes (\ s a -> s{_efLastUpdatedTimes = a}) . mapping _List1;+efLastUpdatedTimes = lens _efLastUpdatedTimes (\ s a -> s{_efLastUpdatedTimes = a}) . mapping _List1  instance Hashable EventFilter where @@ -758,15 +758,15 @@  -- | The AWS service that is affected by the event. For example, @EC2@ , @RDS@ . etService :: Lens' EventType (Maybe Text)-etService = lens _etService (\ s a -> s{_etService = a});+etService = lens _etService (\ s a -> s{_etService = a})  -- | A list of event type category codes (@issue@ , @scheduledChange@ , or @accountNotification@ ). etCategory :: Lens' EventType (Maybe EventTypeCategory)-etCategory = lens _etCategory (\ s a -> s{_etCategory = a});+etCategory = lens _etCategory (\ s a -> s{_etCategory = a})  -- | The unique identifier for the event type. The format is @AWS_/SERVICE/ _/DESCRIPTION/ @ ; for example, @AWS_EC2_SYSTEM_MAINTENANCE_EVENT@ . etCode :: Lens' EventType (Maybe Text)-etCode = lens _etCode (\ s a -> s{_etCode = a});+etCode = lens _etCode (\ s a -> s{_etCode = a})  instance FromJSON EventType where         parseJSON@@ -805,23 +805,23 @@     :: EventTypeFilter eventTypeFilter =   EventTypeFilter'-  { _etfEventTypeCategories = Nothing-  , _etfEventTypeCodes = Nothing-  , _etfServices = Nothing-  }+    { _etfEventTypeCategories = Nothing+    , _etfEventTypeCodes = Nothing+    , _etfServices = Nothing+    }   -- | A list of event type category codes (@issue@ , @scheduledChange@ , or @accountNotification@ ). etfEventTypeCategories :: Lens' EventTypeFilter (Maybe (NonEmpty EventTypeCategory))-etfEventTypeCategories = lens _etfEventTypeCategories (\ s a -> s{_etfEventTypeCategories = a}) . mapping _List1;+etfEventTypeCategories = lens _etfEventTypeCategories (\ s a -> s{_etfEventTypeCategories = a}) . mapping _List1  -- | A list of event type codes. etfEventTypeCodes :: Lens' EventTypeFilter (Maybe (NonEmpty Text))-etfEventTypeCodes = lens _etfEventTypeCodes (\ s a -> s{_etfEventTypeCodes = a}) . mapping _List1;+etfEventTypeCodes = lens _etfEventTypeCodes (\ s a -> s{_etfEventTypeCodes = a}) . mapping _List1  -- | The AWS services associated with the event. For example, @EC2@ , @RDS@ . etfServices :: Lens' EventTypeFilter (Maybe (NonEmpty Text))-etfServices = lens _etfServices (\ s a -> s{_etfServices = a}) . mapping _List1;+etfServices = lens _etfServices (\ s a -> s{_etfServices = a}) . mapping _List1  instance Hashable EventTypeFilter where
gen/Network/AWS/AWSHealth/Types/Sum.hs view
@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.AWSHealth.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/AWSHealth/Waiters.hs view
@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.AWSHealth.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/AWSHealth.hs view
@@ -1,6 +1,6 @@ -- | -- Module      : Test.AWS.AWSHealth--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated
test/Test/AWS/AWSHealth/Internal.hs view
@@ -1,6 +1,6 @@ -- | -- Module      : Test.AWS.AWSHealth.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated
test/Test/AWS/Gen/AWSHealth.hs view
@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.AWSHealth--- 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