amazonka-cloudtrail 1.2.0.2 → 1.3.0

raw patch · 13 files changed

+124/−124 lines, 13 filesdep ~amazonka-cloudtraildep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-cloudtrail, amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-cloudtrail.cabal +5/−5
• gen/Network/AWS/CloudTrail.hs +13/−13
• gen/Network/AWS/CloudTrail/CreateTrail.hs +8/−8
• gen/Network/AWS/CloudTrail/DeleteTrail.hs +8/−8
• gen/Network/AWS/CloudTrail/DescribeTrails.hs +9/−9
• gen/Network/AWS/CloudTrail/GetTrailStatus.hs +8/−8
• gen/Network/AWS/CloudTrail/LookupEvents.hs +10/−10
• gen/Network/AWS/CloudTrail/StartLogging.hs +8/−8
• gen/Network/AWS/CloudTrail/StopLogging.hs +8/−8
• gen/Network/AWS/CloudTrail/Types.hs +28/−28
• gen/Network/AWS/CloudTrail/Types/Product.hs +10/−10
• gen/Network/AWS/CloudTrail/UpdateTrail.hs +8/−8

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-cloudtrail-version:               1.2.0.2+version:               1.3.0 synopsis:              Amazon CloudTrail SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -79,7 +79,7 @@         , Network.AWS.CloudTrail.Types.Sum      build-depends:-          amazonka-core == 1.2.0.*+          amazonka-core == 1.3.0.*         , base          >= 4.7     && < 5  test-suite amazonka-cloudtrail-test@@ -99,9 +99,9 @@         , Test.AWS.CloudTrail.Internal      build-depends:-          amazonka-core == 1.2.0.*-        , amazonka-test == 1.2.0.*-        , amazonka-cloudtrail == 1.2.0.*+          amazonka-core == 1.3.0.*+        , amazonka-test == 1.3.0.*+        , amazonka-cloudtrail == 1.3.0.*         , base         , bytestring         , lens

@@ -59,33 +59,33 @@     -- ** InvalidCloudWatchLogsRoleARNException     , _InvalidCloudWatchLogsRoleARNException -    -- ** InvalidTrailNameException-    , _InvalidTrailNameException-     -- ** InvalidLookupAttributesException     , _InvalidLookupAttributesException -    -- ** TrailNotFoundException-    , _TrailNotFoundException--    -- ** CloudWatchLogsDeliveryUnavailableException-    , _CloudWatchLogsDeliveryUnavailableException+    -- ** InvalidTrailNameException+    , _InvalidTrailNameException      -- ** InvalidSNSTopicNameException     , _InvalidSNSTopicNameException -    -- ** InvalidCloudWatchLogsLogGroupARNException-    , _InvalidCloudWatchLogsLogGroupARNException+    -- ** CloudWatchLogsDeliveryUnavailableException+    , _CloudWatchLogsDeliveryUnavailableException +    -- ** TrailNotFoundException+    , _TrailNotFoundException+     -- ** InvalidS3BucketNameException     , _InvalidS3BucketNameException -    -- ** InvalidNextTokenException-    , _InvalidNextTokenException+    -- ** InvalidCloudWatchLogsLogGroupARNException+    , _InvalidCloudWatchLogsLogGroupARNException      -- ** S3BucketDoesNotExistException     , _S3BucketDoesNotExistException +    -- ** InvalidNextTokenException+    , _InvalidNextTokenException+     -- ** InvalidMaxResultsException     , _InvalidMaxResultsException @@ -134,8 +134,8 @@     , Event     , event     , eUsername-    , eEventTime     , eResources+    , eEventTime     , eCloudTrailEvent     , eEventName     , eEventId

@@ -49,7 +49,7 @@     , ctrsIncludeGlobalServiceEvents     , ctrsCloudWatchLogsRoleARN     , ctrsS3BucketName-    , ctrsStatus+    , ctrsResponseStatus     ) where  import           Network.AWS.CloudTrail.Types@@ -196,7 +196,7 @@     , _ctrsIncludeGlobalServiceEvents :: !(Maybe Bool)     , _ctrsCloudWatchLogsRoleARN      :: !(Maybe Text)     , _ctrsS3BucketName               :: !(Maybe Text)-    , _ctrsStatus                     :: !Int+    , _ctrsResponseStatus             :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateTrailResponse' with the minimum fields required to make a request.@@ -217,11 +217,11 @@ -- -- * 'ctrsS3BucketName' ----- * 'ctrsStatus'+-- * 'ctrsResponseStatus' createTrailResponse-    :: Int -- ^ 'ctrsStatus'+    :: Int -- ^ 'ctrsResponseStatus'     -> CreateTrailResponse-createTrailResponse pStatus_ =+createTrailResponse pResponseStatus_ =     CreateTrailResponse'     { _ctrsS3KeyPrefix = Nothing     , _ctrsSNSTopicName = Nothing@@ -230,7 +230,7 @@     , _ctrsIncludeGlobalServiceEvents = Nothing     , _ctrsCloudWatchLogsRoleARN = Nothing     , _ctrsS3BucketName = Nothing-    , _ctrsStatus = pStatus_+    , _ctrsResponseStatus = pResponseStatus_     }  -- | Specifies the Amazon S3 key prefix that precedes the name of the bucket@@ -268,5 +268,5 @@ ctrsS3BucketName = lens _ctrsS3BucketName (\ s a -> s{_ctrsS3BucketName = a});  -- | The response status code.-ctrsStatus :: Lens' CreateTrailResponse Int-ctrsStatus = lens _ctrsStatus (\ s a -> s{_ctrsStatus = a});+ctrsResponseStatus :: Lens' CreateTrailResponse Int+ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a});

@@ -33,7 +33,7 @@     , deleteTrailResponse     , DeleteTrailResponse     -- * Response Lenses-    , drsStatus+    , drsResponseStatus     ) where  import           Network.AWS.CloudTrail.Types@@ -99,22 +99,22 @@ -- -- /See:/ 'deleteTrailResponse' smart constructor. newtype DeleteTrailResponse = DeleteTrailResponse'-    { _drsStatus :: Int+    { _drsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteTrailResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drsStatus'+-- * 'drsResponseStatus' deleteTrailResponse-    :: Int -- ^ 'drsStatus'+    :: Int -- ^ 'drsResponseStatus'     -> DeleteTrailResponse-deleteTrailResponse pStatus_ =+deleteTrailResponse pResponseStatus_ =     DeleteTrailResponse'-    { _drsStatus = pStatus_+    { _drsResponseStatus = pResponseStatus_     }  -- | The response status code.-drsStatus :: Lens' DeleteTrailResponse Int-drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a});+drsResponseStatus :: Lens' DeleteTrailResponse Int+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});

@@ -35,7 +35,7 @@     , DescribeTrailsResponse     -- * Response Lenses     , dtrsTrailList-    , dtrsStatus+    , dtrsResponseStatus     ) where  import           Network.AWS.CloudTrail.Types@@ -104,8 +104,8 @@ -- -- /See:/ 'describeTrailsResponse' smart constructor. data DescribeTrailsResponse = DescribeTrailsResponse'-    { _dtrsTrailList :: !(Maybe [Trail])-    , _dtrsStatus    :: !Int+    { _dtrsTrailList      :: !(Maybe [Trail])+    , _dtrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeTrailsResponse' with the minimum fields required to make a request.@@ -114,14 +114,14 @@ -- -- * 'dtrsTrailList' ----- * 'dtrsStatus'+-- * 'dtrsResponseStatus' describeTrailsResponse-    :: Int -- ^ 'dtrsStatus'+    :: Int -- ^ 'dtrsResponseStatus'     -> DescribeTrailsResponse-describeTrailsResponse pStatus_ =+describeTrailsResponse pResponseStatus_ =     DescribeTrailsResponse'     { _dtrsTrailList = Nothing-    , _dtrsStatus = pStatus_+    , _dtrsResponseStatus = pResponseStatus_     }  -- | The list of trails.@@ -129,5 +129,5 @@ dtrsTrailList = lens _dtrsTrailList (\ s a -> s{_dtrsTrailList = a}) . _Default . _Coerce;  -- | The response status code.-dtrsStatus :: Lens' DescribeTrailsResponse Int-dtrsStatus = lens _dtrsStatus (\ s a -> s{_dtrsStatus = a});+dtrsResponseStatus :: Lens' DescribeTrailsResponse Int+dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});

@@ -44,7 +44,7 @@     , gtsrsLatestCloudWatchLogsDeliveryError     , gtsrsLatestNotificationTime     , gtsrsStopLoggingTime-    , gtsrsStatus+    , gtsrsResponseStatus     ) where  import           Network.AWS.CloudTrail.Types@@ -129,7 +129,7 @@     , _gtsrsLatestCloudWatchLogsDeliveryError :: !(Maybe Text)     , _gtsrsLatestNotificationTime            :: !(Maybe POSIX)     , _gtsrsStopLoggingTime                   :: !(Maybe POSIX)-    , _gtsrsStatus                            :: !Int+    , _gtsrsResponseStatus                    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetTrailStatusResponse' with the minimum fields required to make a request.@@ -154,11 +154,11 @@ -- -- * 'gtsrsStopLoggingTime' ----- * 'gtsrsStatus'+-- * 'gtsrsResponseStatus' getTrailStatusResponse-    :: Int -- ^ 'gtsrsStatus'+    :: Int -- ^ 'gtsrsResponseStatus'     -> GetTrailStatusResponse-getTrailStatusResponse pStatus_ =+getTrailStatusResponse pResponseStatus_ =     GetTrailStatusResponse'     { _gtsrsLatestDeliveryError = Nothing     , _gtsrsStartLoggingTime = Nothing@@ -169,7 +169,7 @@     , _gtsrsLatestCloudWatchLogsDeliveryError = Nothing     , _gtsrsLatestNotificationTime = Nothing     , _gtsrsStopLoggingTime = Nothing-    , _gtsrsStatus = pStatus_+    , _gtsrsResponseStatus = pResponseStatus_     }  -- | Displays any Amazon S3 error that CloudTrail encountered when attempting@@ -223,5 +223,5 @@ gtsrsStopLoggingTime = lens _gtsrsStopLoggingTime (\ s a -> s{_gtsrsStopLoggingTime = a}) . mapping _Time;  -- | The response status code.-gtsrsStatus :: Lens' GetTrailStatusResponse Int-gtsrsStatus = lens _gtsrsStatus (\ s a -> s{_gtsrsStatus = a});+gtsrsResponseStatus :: Lens' GetTrailStatusResponse Int+gtsrsResponseStatus = lens _gtsrsResponseStatus (\ s a -> s{_gtsrsResponseStatus = a});

@@ -53,7 +53,7 @@     -- * Response Lenses     , lersNextToken     , lersEvents-    , lersStatus+    , lersResponseStatus     ) where  import           Network.AWS.CloudTrail.Types@@ -167,9 +167,9 @@ -- -- /See:/ 'lookupEventsResponse' smart constructor. data LookupEventsResponse = LookupEventsResponse'-    { _lersNextToken :: !(Maybe Text)-    , _lersEvents    :: !(Maybe [Event])-    , _lersStatus    :: !Int+    { _lersNextToken      :: !(Maybe Text)+    , _lersEvents         :: !(Maybe [Event])+    , _lersResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'LookupEventsResponse' with the minimum fields required to make a request.@@ -180,15 +180,15 @@ -- -- * 'lersEvents' ----- * 'lersStatus'+-- * 'lersResponseStatus' lookupEventsResponse-    :: Int -- ^ 'lersStatus'+    :: Int -- ^ 'lersResponseStatus'     -> LookupEventsResponse-lookupEventsResponse pStatus_ =+lookupEventsResponse pResponseStatus_ =     LookupEventsResponse'     { _lersNextToken = Nothing     , _lersEvents = Nothing-    , _lersStatus = pStatus_+    , _lersResponseStatus = pResponseStatus_     }  -- | The token to use to get the next page of results after a previous API@@ -207,5 +207,5 @@ lersEvents = lens _lersEvents (\ s a -> s{_lersEvents = a}) . _Default . _Coerce;  -- | The response status code.-lersStatus :: Lens' LookupEventsResponse Int-lersStatus = lens _lersStatus (\ s a -> s{_lersStatus = a});+lersResponseStatus :: Lens' LookupEventsResponse Int+lersResponseStatus = lens _lersResponseStatus (\ s a -> s{_lersResponseStatus = a});

@@ -33,7 +33,7 @@     , startLoggingResponse     , StartLoggingResponse     -- * Response Lenses-    , srsStatus+    , srsResponseStatus     ) where  import           Network.AWS.CloudTrail.Types@@ -99,22 +99,22 @@ -- -- /See:/ 'startLoggingResponse' smart constructor. newtype StartLoggingResponse = StartLoggingResponse'-    { _srsStatus :: Int+    { _srsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'StartLoggingResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'srsStatus'+-- * 'srsResponseStatus' startLoggingResponse-    :: Int -- ^ 'srsStatus'+    :: Int -- ^ 'srsResponseStatus'     -> StartLoggingResponse-startLoggingResponse pStatus_ =+startLoggingResponse pResponseStatus_ =     StartLoggingResponse'-    { _srsStatus = pStatus_+    { _srsResponseStatus = pResponseStatus_     }  -- | The response status code.-srsStatus :: Lens' StartLoggingResponse Int-srsStatus = lens _srsStatus (\ s a -> s{_srsStatus = a});+srsResponseStatus :: Lens' StartLoggingResponse Int+srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a});

@@ -36,7 +36,7 @@     , stopLoggingResponse     , StopLoggingResponse     -- * Response Lenses-    , slrsStatus+    , slrsResponseStatus     ) where  import           Network.AWS.CloudTrail.Types@@ -104,22 +104,22 @@ -- -- /See:/ 'stopLoggingResponse' smart constructor. newtype StopLoggingResponse = StopLoggingResponse'-    { _slrsStatus :: Int+    { _slrsResponseStatus :: Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'StopLoggingResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'slrsStatus'+-- * 'slrsResponseStatus' stopLoggingResponse-    :: Int -- ^ 'slrsStatus'+    :: Int -- ^ 'slrsResponseStatus'     -> StopLoggingResponse-stopLoggingResponse pStatus_ =+stopLoggingResponse pResponseStatus_ =     StopLoggingResponse'-    { _slrsStatus = pStatus_+    { _slrsResponseStatus = pResponseStatus_     }  -- | The response status code.-slrsStatus :: Lens' StopLoggingResponse Int-slrsStatus = lens _slrsStatus (\ s a -> s{_slrsStatus = a});+slrsResponseStatus :: Lens' StopLoggingResponse Int+slrsResponseStatus = lens _slrsResponseStatus (\ s a -> s{_slrsResponseStatus = a});

@@ -21,15 +21,15 @@     , _MaximumNumberOfTrailsExceededException     , _InsufficientSNSTopicPolicyException     , _InvalidCloudWatchLogsRoleARNException-    , _InvalidTrailNameException     , _InvalidLookupAttributesException-    , _TrailNotFoundException-    , _CloudWatchLogsDeliveryUnavailableException+    , _InvalidTrailNameException     , _InvalidSNSTopicNameException-    , _InvalidCloudWatchLogsLogGroupARNException+    , _CloudWatchLogsDeliveryUnavailableException+    , _TrailNotFoundException     , _InvalidS3BucketNameException-    , _InvalidNextTokenException+    , _InvalidCloudWatchLogsLogGroupARNException     , _S3BucketDoesNotExistException+    , _InvalidNextTokenException     , _InvalidMaxResultsException     , _TrailAlreadyExistsException     , _InvalidS3PrefixException@@ -41,8 +41,8 @@     , Event     , event     , eUsername-    , eEventTime     , eResources+    , eEventTime     , eCloudTrailEvent     , eEventName     , eEventId@@ -136,31 +136,36 @@ _InvalidCloudWatchLogsRoleARNException =     _ServiceError . hasStatus 400 . hasCode "InvalidCloudWatchLogsRoleArn" +-- | Occurs when an invalid lookup attribute is specified.+_InvalidLookupAttributesException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidLookupAttributesException =+    _ServiceError . hasStatus 400 . hasCode "InvalidLookupAttributes"+ -- | This exception is thrown when the provided trail name is not valid. _InvalidTrailNameException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidTrailNameException =     _ServiceError . hasStatus 400 . hasCode "InvalidTrailName" --- | Occurs when an invalid lookup attribute is specified.-_InvalidLookupAttributesException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidLookupAttributesException =-    _ServiceError . hasStatus 400 . hasCode "InvalidLookupAttributes"+-- | This exception is thrown when the provided SNS topic name is not valid.+_InvalidSNSTopicNameException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidSNSTopicNameException =+    _ServiceError . hasStatus 400 . hasCode "InvalidSnsTopicName" +-- | Cannot set a CloudWatch Logs delivery for this region.+_CloudWatchLogsDeliveryUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError+_CloudWatchLogsDeliveryUnavailableException =+    _ServiceError . hasStatus 400 . hasCode "CloudWatchLogsDeliveryUnavailable"+ -- | This exception is thrown when the trail with the given name is not -- found. _TrailNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _TrailNotFoundException =     _ServiceError . hasStatus 404 . hasCode "TrailNotFound" --- | Cannot set a CloudWatch Logs delivery for this region.-_CloudWatchLogsDeliveryUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError-_CloudWatchLogsDeliveryUnavailableException =-    _ServiceError . hasStatus 400 . hasCode "CloudWatchLogsDeliveryUnavailable"---- | This exception is thrown when the provided SNS topic name is not valid.-_InvalidSNSTopicNameException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidSNSTopicNameException =-    _ServiceError . hasStatus 400 . hasCode "InvalidSnsTopicName"+-- | This exception is thrown when the provided S3 bucket name is not valid.+_InvalidS3BucketNameException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidS3BucketNameException =+    _ServiceError . hasStatus 400 . hasCode "InvalidS3BucketName"  -- | This exception is thrown when the provided CloudWatch log group is not -- valid.@@ -168,21 +173,16 @@ _InvalidCloudWatchLogsLogGroupARNException =     _ServiceError . hasStatus 400 . hasCode "InvalidCloudWatchLogsLogGroupArn" --- | This exception is thrown when the provided S3 bucket name is not valid.-_InvalidS3BucketNameException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidS3BucketNameException =-    _ServiceError . hasStatus 400 . hasCode "InvalidS3BucketName"+-- | This exception is thrown when the specified S3 bucket does not exist.+_S3BucketDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError+_S3BucketDoesNotExistException =+    _ServiceError . hasStatus 404 . hasCode "S3BucketDoesNotExist"  -- | Invalid token or token that was previously used in a request with -- different parameters. This exception is thrown if the token is invalid. _InvalidNextTokenException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidNextTokenException =     _ServiceError . hasStatus 400 . hasCode "InvalidNextToken"---- | This exception is thrown when the specified S3 bucket does not exist.-_S3BucketDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError-_S3BucketDoesNotExistException =-    _ServiceError . hasStatus 404 . hasCode "S3BucketDoesNotExist"  -- | This exception is thrown if the limit specified is invalid. _InvalidMaxResultsException :: AsError a => Getting (First ServiceError) a ServiceError

@@ -26,8 +26,8 @@ -- /See:/ 'event' smart constructor. data Event = Event'     { _eUsername        :: !(Maybe Text)-    , _eEventTime       :: !(Maybe POSIX)     , _eResources       :: !(Maybe [Resource])+    , _eEventTime       :: !(Maybe POSIX)     , _eCloudTrailEvent :: !(Maybe Text)     , _eEventName       :: !(Maybe Text)     , _eEventId         :: !(Maybe Text)@@ -39,10 +39,10 @@ -- -- * 'eUsername' ----- * 'eEventTime'--- -- * 'eResources' --+-- * 'eEventTime'+-- -- * 'eCloudTrailEvent' -- -- * 'eEventName'@@ -53,8 +53,8 @@ event =     Event'     { _eUsername = Nothing-    , _eEventTime = Nothing     , _eResources = Nothing+    , _eEventTime = Nothing     , _eCloudTrailEvent = Nothing     , _eEventName = Nothing     , _eEventId = Nothing@@ -65,14 +65,14 @@ eUsername :: Lens' Event (Maybe Text) eUsername = lens _eUsername (\ s a -> s{_eUsername = a}); --- | The date and time of the event returned.-eEventTime :: Lens' Event (Maybe UTCTime)-eEventTime = lens _eEventTime (\ s a -> s{_eEventTime = a}) . mapping _Time;- -- | A list of resources referenced by the event returned. eResources :: Lens' Event [Resource] eResources = lens _eResources (\ s a -> s{_eResources = a}) . _Default . _Coerce; +-- | The date and time of the event returned.+eEventTime :: Lens' Event (Maybe UTCTime)+eEventTime = lens _eEventTime (\ s a -> s{_eEventTime = a}) . mapping _Time;+ -- | A JSON string that contains a representation of the event returned. eCloudTrailEvent :: Lens' Event (Maybe Text) eCloudTrailEvent = lens _eCloudTrailEvent (\ s a -> s{_eCloudTrailEvent = a});@@ -90,8 +90,8 @@           = withObject "Event"               (\ x ->                  Event' <$>-                   (x .:? "Username") <*> (x .:? "EventTime") <*>-                     (x .:? "Resources" .!= mempty)+                   (x .:? "Username") <*> (x .:? "Resources" .!= mempty)+                     <*> (x .:? "EventTime")                      <*> (x .:? "CloudTrailEvent")                      <*> (x .:? "EventName")                      <*> (x .:? "EventId"))

@@ -52,7 +52,7 @@     , utrsIncludeGlobalServiceEvents     , utrsCloudWatchLogsRoleARN     , utrsS3BucketName-    , utrsStatus+    , utrsResponseStatus     ) where  import           Network.AWS.CloudTrail.Types@@ -198,7 +198,7 @@     , _utrsIncludeGlobalServiceEvents :: !(Maybe Bool)     , _utrsCloudWatchLogsRoleARN      :: !(Maybe Text)     , _utrsS3BucketName               :: !(Maybe Text)-    , _utrsStatus                     :: !Int+    , _utrsResponseStatus             :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'UpdateTrailResponse' with the minimum fields required to make a request.@@ -219,11 +219,11 @@ -- -- * 'utrsS3BucketName' ----- * 'utrsStatus'+-- * 'utrsResponseStatus' updateTrailResponse-    :: Int -- ^ 'utrsStatus'+    :: Int -- ^ 'utrsResponseStatus'     -> UpdateTrailResponse-updateTrailResponse pStatus_ =+updateTrailResponse pResponseStatus_ =     UpdateTrailResponse'     { _utrsS3KeyPrefix = Nothing     , _utrsSNSTopicName = Nothing@@ -232,7 +232,7 @@     , _utrsIncludeGlobalServiceEvents = Nothing     , _utrsCloudWatchLogsRoleARN = Nothing     , _utrsS3BucketName = Nothing-    , _utrsStatus = pStatus_+    , _utrsResponseStatus = pResponseStatus_     }  -- | Specifies the Amazon S3 key prefix that precedes the name of the bucket@@ -270,5 +270,5 @@ utrsS3BucketName = lens _utrsS3BucketName (\ s a -> s{_utrsS3BucketName = a});  -- | The response status code.-utrsStatus :: Lens' UpdateTrailResponse Int-utrsStatus = lens _utrsStatus (\ s a -> s{_utrsStatus = a});+utrsResponseStatus :: Lens' UpdateTrailResponse Int+utrsResponseStatus = lens _utrsResponseStatus (\ s a -> s{_utrsResponseStatus = a});