diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.2.0.2` +`1.3.0` ## Description diff --git a/amazonka-lambda.cabal b/amazonka-lambda.cabal --- a/amazonka-lambda.cabal +++ b/amazonka-lambda.cabal @@ -1,5 +1,5 @@ name: amazonka-lambda -version: 1.2.0.2 +version: 1.3.0 synopsis: Amazon Lambda SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -74,7 +74,7 @@ , Network.AWS.Lambda.Types.Sum build-depends: - amazonka-core == 1.2.0.* + amazonka-core == 1.3.0.* , base >= 4.7 && < 5 test-suite amazonka-lambda-test @@ -94,9 +94,9 @@ , Test.AWS.Lambda.Internal build-depends: - amazonka-core == 1.2.0.* - , amazonka-test == 1.2.0.* - , amazonka-lambda == 1.2.0.* + amazonka-core == 1.3.0.* + , amazonka-test == 1.3.0.* + , amazonka-lambda == 1.3.0.* , base , bytestring , lens diff --git a/gen/Network/AWS/Lambda.hs b/gen/Network/AWS/Lambda.hs --- a/gen/Network/AWS/Lambda.hs +++ b/gen/Network/AWS/Lambda.hs @@ -70,12 +70,12 @@ -- ** GetFunctionConfiguration , module Network.AWS.Lambda.GetFunctionConfiguration - -- ** UpdateEventSourceMapping - , module Network.AWS.Lambda.UpdateEventSourceMapping - -- ** DeleteEventSourceMapping , module Network.AWS.Lambda.DeleteEventSourceMapping + -- ** UpdateEventSourceMapping + , module Network.AWS.Lambda.UpdateEventSourceMapping + -- ** RemovePermission , module Network.AWS.Lambda.RemovePermission @@ -133,8 +133,8 @@ , EventSourceMappingConfiguration , eventSourceMappingConfiguration , esmcEventSourceARN - , esmcFunctionARN , esmcState + , esmcFunctionARN , esmcUUId , esmcLastProcessingResult , esmcBatchSize @@ -158,8 +158,8 @@ -- ** FunctionConfiguration , FunctionConfiguration , functionConfiguration - , fcRuntime , fcMemorySize + , fcRuntime , fcFunctionARN , fcRole , fcFunctionName diff --git a/gen/Network/AWS/Lambda/AddPermission.hs b/gen/Network/AWS/Lambda/AddPermission.hs --- a/gen/Network/AWS/Lambda/AddPermission.hs +++ b/gen/Network/AWS/Lambda/AddPermission.hs @@ -50,7 +50,7 @@ , AddPermissionResponse -- * Response Lenses , aprsStatement - , aprsStatus + , aprsResponseStatus ) where import Network.AWS.Lambda.Types @@ -189,8 +189,8 @@ -- | /See:/ 'addPermissionResponse' smart constructor. data AddPermissionResponse = AddPermissionResponse' - { _aprsStatement :: !(Maybe Text) - , _aprsStatus :: !Int + { _aprsStatement :: !(Maybe Text) + , _aprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'AddPermissionResponse' with the minimum fields required to make a request. @@ -199,14 +199,14 @@ -- -- * 'aprsStatement' -- --- * 'aprsStatus' +-- * 'aprsResponseStatus' addPermissionResponse - :: Int -- ^ 'aprsStatus' + :: Int -- ^ 'aprsResponseStatus' -> AddPermissionResponse -addPermissionResponse pStatus_ = +addPermissionResponse pResponseStatus_ = AddPermissionResponse' { _aprsStatement = Nothing - , _aprsStatus = pStatus_ + , _aprsResponseStatus = pResponseStatus_ } -- | The permission statement you specified in the request. The response @@ -216,5 +216,5 @@ aprsStatement = lens _aprsStatement (\ s a -> s{_aprsStatement = a}); -- | The response status code. -aprsStatus :: Lens' AddPermissionResponse Int -aprsStatus = lens _aprsStatus (\ s a -> s{_aprsStatus = a}); +aprsResponseStatus :: Lens' AddPermissionResponse Int +aprsResponseStatus = lens _aprsResponseStatus (\ s a -> s{_aprsResponseStatus = a}); diff --git a/gen/Network/AWS/Lambda/CreateEventSourceMapping.hs b/gen/Network/AWS/Lambda/CreateEventSourceMapping.hs --- a/gen/Network/AWS/Lambda/CreateEventSourceMapping.hs +++ b/gen/Network/AWS/Lambda/CreateEventSourceMapping.hs @@ -57,8 +57,8 @@ , EventSourceMappingConfiguration -- * Response Lenses , esmcEventSourceARN - , esmcFunctionARN , esmcState + , esmcFunctionARN , esmcUUId , esmcLastProcessingResult , esmcBatchSize diff --git a/gen/Network/AWS/Lambda/CreateFunction.hs b/gen/Network/AWS/Lambda/CreateFunction.hs --- a/gen/Network/AWS/Lambda/CreateFunction.hs +++ b/gen/Network/AWS/Lambda/CreateFunction.hs @@ -46,8 +46,8 @@ , functionConfiguration , FunctionConfiguration -- * Response Lenses - , fcRuntime , fcMemorySize + , fcRuntime , fcFunctionARN , fcRole , fcFunctionName diff --git a/gen/Network/AWS/Lambda/DeleteEventSourceMapping.hs b/gen/Network/AWS/Lambda/DeleteEventSourceMapping.hs --- a/gen/Network/AWS/Lambda/DeleteEventSourceMapping.hs +++ b/gen/Network/AWS/Lambda/DeleteEventSourceMapping.hs @@ -38,8 +38,8 @@ , EventSourceMappingConfiguration -- * Response Lenses , esmcEventSourceARN - , esmcFunctionARN , esmcState + , esmcFunctionARN , esmcUUId , esmcLastProcessingResult , esmcBatchSize diff --git a/gen/Network/AWS/Lambda/GetEventSourceMapping.hs b/gen/Network/AWS/Lambda/GetEventSourceMapping.hs --- a/gen/Network/AWS/Lambda/GetEventSourceMapping.hs +++ b/gen/Network/AWS/Lambda/GetEventSourceMapping.hs @@ -38,8 +38,8 @@ , EventSourceMappingConfiguration -- * Response Lenses , esmcEventSourceARN - , esmcFunctionARN , esmcState + , esmcFunctionARN , esmcUUId , esmcLastProcessingResult , esmcBatchSize diff --git a/gen/Network/AWS/Lambda/GetFunction.hs b/gen/Network/AWS/Lambda/GetFunction.hs --- a/gen/Network/AWS/Lambda/GetFunction.hs +++ b/gen/Network/AWS/Lambda/GetFunction.hs @@ -41,7 +41,7 @@ -- * Response Lenses , gfrsCode , gfrsConfiguration - , gfrsStatus + , gfrsResponseStatus ) where import Network.AWS.Lambda.Types @@ -108,9 +108,9 @@ -- -- /See:/ 'getFunctionResponse' smart constructor. data GetFunctionResponse = GetFunctionResponse' - { _gfrsCode :: !(Maybe FunctionCodeLocation) - , _gfrsConfiguration :: !(Maybe FunctionConfiguration) - , _gfrsStatus :: !Int + { _gfrsCode :: !(Maybe FunctionCodeLocation) + , _gfrsConfiguration :: !(Maybe FunctionConfiguration) + , _gfrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetFunctionResponse' with the minimum fields required to make a request. @@ -121,15 +121,15 @@ -- -- * 'gfrsConfiguration' -- --- * 'gfrsStatus' +-- * 'gfrsResponseStatus' getFunctionResponse - :: Int -- ^ 'gfrsStatus' + :: Int -- ^ 'gfrsResponseStatus' -> GetFunctionResponse -getFunctionResponse pStatus_ = +getFunctionResponse pResponseStatus_ = GetFunctionResponse' { _gfrsCode = Nothing , _gfrsConfiguration = Nothing - , _gfrsStatus = pStatus_ + , _gfrsResponseStatus = pResponseStatus_ } -- | Undocumented member. @@ -141,5 +141,5 @@ gfrsConfiguration = lens _gfrsConfiguration (\ s a -> s{_gfrsConfiguration = a}); -- | The response status code. -gfrsStatus :: Lens' GetFunctionResponse Int -gfrsStatus = lens _gfrsStatus (\ s a -> s{_gfrsStatus = a}); +gfrsResponseStatus :: Lens' GetFunctionResponse Int +gfrsResponseStatus = lens _gfrsResponseStatus (\ s a -> s{_gfrsResponseStatus = a}); diff --git a/gen/Network/AWS/Lambda/GetFunctionConfiguration.hs b/gen/Network/AWS/Lambda/GetFunctionConfiguration.hs --- a/gen/Network/AWS/Lambda/GetFunctionConfiguration.hs +++ b/gen/Network/AWS/Lambda/GetFunctionConfiguration.hs @@ -38,8 +38,8 @@ , functionConfiguration , FunctionConfiguration -- * Response Lenses - , fcRuntime , fcMemorySize + , fcRuntime , fcFunctionARN , fcRole , fcFunctionName diff --git a/gen/Network/AWS/Lambda/GetPolicy.hs b/gen/Network/AWS/Lambda/GetPolicy.hs --- a/gen/Network/AWS/Lambda/GetPolicy.hs +++ b/gen/Network/AWS/Lambda/GetPolicy.hs @@ -37,7 +37,7 @@ , GetPolicyResponse -- * Response Lenses , gprsPolicy - , gprsStatus + , gprsResponseStatus ) where import Network.AWS.Lambda.Types @@ -100,8 +100,8 @@ -- | /See:/ 'getPolicyResponse' smart constructor. data GetPolicyResponse = GetPolicyResponse' - { _gprsPolicy :: !(Maybe Text) - , _gprsStatus :: !Int + { _gprsPolicy :: !(Maybe Text) + , _gprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetPolicyResponse' with the minimum fields required to make a request. @@ -110,14 +110,14 @@ -- -- * 'gprsPolicy' -- --- * 'gprsStatus' +-- * 'gprsResponseStatus' getPolicyResponse - :: Int -- ^ 'gprsStatus' + :: Int -- ^ 'gprsResponseStatus' -> GetPolicyResponse -getPolicyResponse pStatus_ = +getPolicyResponse pResponseStatus_ = GetPolicyResponse' { _gprsPolicy = Nothing - , _gprsStatus = pStatus_ + , _gprsResponseStatus = pResponseStatus_ } -- | The access policy associated with the specified function. The response @@ -127,5 +127,5 @@ gprsPolicy = lens _gprsPolicy (\ s a -> s{_gprsPolicy = a}); -- | The response status code. -gprsStatus :: Lens' GetPolicyResponse Int -gprsStatus = lens _gprsStatus (\ s a -> s{_gprsStatus = a}); +gprsResponseStatus :: Lens' GetPolicyResponse Int +gprsResponseStatus = lens _gprsResponseStatus (\ s a -> s{_gprsResponseStatus = a}); diff --git a/gen/Network/AWS/Lambda/ListEventSourceMappings.hs b/gen/Network/AWS/Lambda/ListEventSourceMappings.hs --- a/gen/Network/AWS/Lambda/ListEventSourceMappings.hs +++ b/gen/Network/AWS/Lambda/ListEventSourceMappings.hs @@ -39,8 +39,8 @@ , ListEventSourceMappings -- * Request Lenses , lesmEventSourceARN - , lesmMaxItems , lesmMarker + , lesmMaxItems , lesmFunctionName -- * Destructuring the Response @@ -49,7 +49,7 @@ -- * Response Lenses , lesmrsEventSourceMappings , lesmrsNextMarker - , lesmrsStatus + , lesmrsResponseStatus ) where import Network.AWS.Lambda.Types @@ -62,8 +62,8 @@ -- | /See:/ 'listEventSourceMappings' smart constructor. data ListEventSourceMappings = ListEventSourceMappings' { _lesmEventSourceARN :: !(Maybe Text) - , _lesmMaxItems :: !(Maybe Nat) , _lesmMarker :: !(Maybe Text) + , _lesmMaxItems :: !(Maybe Nat) , _lesmFunctionName :: !(Maybe Text) } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -73,18 +73,18 @@ -- -- * 'lesmEventSourceARN' -- --- * 'lesmMaxItems' --- -- * 'lesmMarker' -- +-- * 'lesmMaxItems' +-- -- * 'lesmFunctionName' listEventSourceMappings :: ListEventSourceMappings listEventSourceMappings = ListEventSourceMappings' { _lesmEventSourceARN = Nothing - , _lesmMaxItems = Nothing , _lesmMarker = Nothing + , _lesmMaxItems = Nothing , _lesmFunctionName = Nothing } @@ -92,17 +92,17 @@ lesmEventSourceARN :: Lens' ListEventSourceMappings (Maybe Text) lesmEventSourceARN = lens _lesmEventSourceARN (\ s a -> s{_lesmEventSourceARN = a}); --- | Optional integer. Specifies the maximum number of event sources to --- return in response. This value must be greater than 0. -lesmMaxItems :: Lens' ListEventSourceMappings (Maybe Natural) -lesmMaxItems = lens _lesmMaxItems (\ s a -> s{_lesmMaxItems = a}) . mapping _Nat; - -- | Optional string. An opaque pagination token returned from a previous -- 'ListEventSourceMappings' operation. If present, specifies to continue -- the list from where the returning call left off. lesmMarker :: Lens' ListEventSourceMappings (Maybe Text) lesmMarker = lens _lesmMarker (\ s a -> s{_lesmMarker = a}); +-- | Optional integer. Specifies the maximum number of event sources to +-- return in response. This value must be greater than 0. +lesmMaxItems :: Lens' ListEventSourceMappings (Maybe Natural) +lesmMaxItems = lens _lesmMaxItems (\ s a -> s{_lesmMaxItems = a}) . mapping _Nat; + -- | The name of the Lambda function. -- -- You can specify an unqualified function name (for example, @@ -145,7 +145,7 @@ toQuery ListEventSourceMappings'{..} = mconcat ["EventSourceArn" =: _lesmEventSourceARN, - "MaxItems" =: _lesmMaxItems, "Marker" =: _lesmMarker, + "Marker" =: _lesmMarker, "MaxItems" =: _lesmMaxItems, "FunctionName" =: _lesmFunctionName] -- | Contains a list of event sources (see @@ -155,7 +155,7 @@ data ListEventSourceMappingsResponse = ListEventSourceMappingsResponse' { _lesmrsEventSourceMappings :: !(Maybe [EventSourceMappingConfiguration]) , _lesmrsNextMarker :: !(Maybe Text) - , _lesmrsStatus :: !Int + , _lesmrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListEventSourceMappingsResponse' with the minimum fields required to make a request. @@ -166,15 +166,15 @@ -- -- * 'lesmrsNextMarker' -- --- * 'lesmrsStatus' +-- * 'lesmrsResponseStatus' listEventSourceMappingsResponse - :: Int -- ^ 'lesmrsStatus' + :: Int -- ^ 'lesmrsResponseStatus' -> ListEventSourceMappingsResponse -listEventSourceMappingsResponse pStatus_ = +listEventSourceMappingsResponse pResponseStatus_ = ListEventSourceMappingsResponse' { _lesmrsEventSourceMappings = Nothing , _lesmrsNextMarker = Nothing - , _lesmrsStatus = pStatus_ + , _lesmrsResponseStatus = pResponseStatus_ } -- | An array of 'EventSourceMappingConfiguration' objects. @@ -186,5 +186,5 @@ lesmrsNextMarker = lens _lesmrsNextMarker (\ s a -> s{_lesmrsNextMarker = a}); -- | The response status code. -lesmrsStatus :: Lens' ListEventSourceMappingsResponse Int -lesmrsStatus = lens _lesmrsStatus (\ s a -> s{_lesmrsStatus = a}); +lesmrsResponseStatus :: Lens' ListEventSourceMappingsResponse Int +lesmrsResponseStatus = lens _lesmrsResponseStatus (\ s a -> s{_lesmrsResponseStatus = a}); diff --git a/gen/Network/AWS/Lambda/ListFunctions.hs b/gen/Network/AWS/Lambda/ListFunctions.hs --- a/gen/Network/AWS/Lambda/ListFunctions.hs +++ b/gen/Network/AWS/Lambda/ListFunctions.hs @@ -34,8 +34,8 @@ listFunctions , ListFunctions -- * Request Lenses - , lfMaxItems , lfMarker + , lfMaxItems -- * Destructuring the Response , listFunctionsResponse @@ -43,7 +43,7 @@ -- * Response Lenses , lfrsNextMarker , lfrsFunctions - , lfrsStatus + , lfrsResponseStatus ) where import Network.AWS.Lambda.Types @@ -55,36 +55,36 @@ -- | /See:/ 'listFunctions' smart constructor. data ListFunctions = ListFunctions' - { _lfMaxItems :: !(Maybe Nat) - , _lfMarker :: !(Maybe Text) + { _lfMarker :: !(Maybe Text) + , _lfMaxItems :: !(Maybe Nat) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListFunctions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'lfMaxItems' --- -- * 'lfMarker' +-- +-- * 'lfMaxItems' listFunctions :: ListFunctions listFunctions = ListFunctions' - { _lfMaxItems = Nothing - , _lfMarker = Nothing + { _lfMarker = Nothing + , _lfMaxItems = Nothing } --- | Optional integer. Specifies the maximum number of AWS Lambda functions --- to return in response. This parameter value must be greater than 0. -lfMaxItems :: Lens' ListFunctions (Maybe Natural) -lfMaxItems = lens _lfMaxItems (\ s a -> s{_lfMaxItems = a}) . mapping _Nat; - -- | Optional string. An opaque pagination token returned from a previous -- 'ListFunctions' operation. If present, indicates where to continue the -- listing. lfMarker :: Lens' ListFunctions (Maybe Text) lfMarker = lens _lfMarker (\ s a -> s{_lfMarker = a}); +-- | Optional integer. Specifies the maximum number of AWS Lambda functions +-- to return in response. This parameter value must be greater than 0. +lfMaxItems :: Lens' ListFunctions (Maybe Natural) +lfMaxItems = lens _lfMaxItems (\ s a -> s{_lfMaxItems = a}) . mapping _Nat; + instance AWSPager ListFunctions where page rq rs | stop (rs ^. lfrsNextMarker) = Nothing @@ -112,16 +112,16 @@ instance ToQuery ListFunctions where toQuery ListFunctions'{..} = mconcat - ["MaxItems" =: _lfMaxItems, "Marker" =: _lfMarker] + ["Marker" =: _lfMarker, "MaxItems" =: _lfMaxItems] -- | Contains a list of AWS Lambda function configurations (see -- FunctionConfiguration. -- -- /See:/ 'listFunctionsResponse' smart constructor. data ListFunctionsResponse = ListFunctionsResponse' - { _lfrsNextMarker :: !(Maybe Text) - , _lfrsFunctions :: !(Maybe [FunctionConfiguration]) - , _lfrsStatus :: !Int + { _lfrsNextMarker :: !(Maybe Text) + , _lfrsFunctions :: !(Maybe [FunctionConfiguration]) + , _lfrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListFunctionsResponse' with the minimum fields required to make a request. @@ -132,15 +132,15 @@ -- -- * 'lfrsFunctions' -- --- * 'lfrsStatus' +-- * 'lfrsResponseStatus' listFunctionsResponse - :: Int -- ^ 'lfrsStatus' + :: Int -- ^ 'lfrsResponseStatus' -> ListFunctionsResponse -listFunctionsResponse pStatus_ = +listFunctionsResponse pResponseStatus_ = ListFunctionsResponse' { _lfrsNextMarker = Nothing , _lfrsFunctions = Nothing - , _lfrsStatus = pStatus_ + , _lfrsResponseStatus = pResponseStatus_ } -- | A string, present if there are more functions. @@ -152,5 +152,5 @@ lfrsFunctions = lens _lfrsFunctions (\ s a -> s{_lfrsFunctions = a}) . _Default . _Coerce; -- | The response status code. -lfrsStatus :: Lens' ListFunctionsResponse Int -lfrsStatus = lens _lfrsStatus (\ s a -> s{_lfrsStatus = a}); +lfrsResponseStatus :: Lens' ListFunctionsResponse Int +lfrsResponseStatus = lens _lfrsResponseStatus (\ s a -> s{_lfrsResponseStatus = a}); diff --git a/gen/Network/AWS/Lambda/Types.hs b/gen/Network/AWS/Lambda/Types.hs --- a/gen/Network/AWS/Lambda/Types.hs +++ b/gen/Network/AWS/Lambda/Types.hs @@ -43,8 +43,8 @@ , EventSourceMappingConfiguration , eventSourceMappingConfiguration , esmcEventSourceARN - , esmcFunctionARN , esmcState + , esmcFunctionARN , esmcUUId , esmcLastProcessingResult , esmcBatchSize @@ -68,8 +68,8 @@ -- * FunctionConfiguration , FunctionConfiguration , functionConfiguration - , fcRuntime , fcMemorySize + , fcRuntime , fcFunctionARN , fcRole , fcFunctionName diff --git a/gen/Network/AWS/Lambda/Types/Product.hs b/gen/Network/AWS/Lambda/Types/Product.hs --- a/gen/Network/AWS/Lambda/Types/Product.hs +++ b/gen/Network/AWS/Lambda/Types/Product.hs @@ -26,8 +26,8 @@ -- /See:/ 'eventSourceMappingConfiguration' smart constructor. data EventSourceMappingConfiguration = EventSourceMappingConfiguration' { _esmcEventSourceARN :: !(Maybe Text) - , _esmcFunctionARN :: !(Maybe Text) , _esmcState :: !(Maybe Text) + , _esmcFunctionARN :: !(Maybe Text) , _esmcUUId :: !(Maybe Text) , _esmcLastProcessingResult :: !(Maybe Text) , _esmcBatchSize :: !(Maybe Nat) @@ -41,10 +41,10 @@ -- -- * 'esmcEventSourceARN' -- --- * 'esmcFunctionARN' --- -- * 'esmcState' -- +-- * 'esmcFunctionARN' +-- -- * 'esmcUUId' -- -- * 'esmcLastProcessingResult' @@ -59,8 +59,8 @@ eventSourceMappingConfiguration = EventSourceMappingConfiguration' { _esmcEventSourceARN = Nothing - , _esmcFunctionARN = Nothing , _esmcState = Nothing + , _esmcFunctionARN = Nothing , _esmcUUId = Nothing , _esmcLastProcessingResult = Nothing , _esmcBatchSize = Nothing @@ -73,17 +73,17 @@ esmcEventSourceARN :: Lens' EventSourceMappingConfiguration (Maybe Text) esmcEventSourceARN = lens _esmcEventSourceARN (\ s a -> s{_esmcEventSourceARN = a}); --- | The Lambda function to invoke when AWS Lambda detects an event on the --- stream. -esmcFunctionARN :: Lens' EventSourceMappingConfiguration (Maybe Text) -esmcFunctionARN = lens _esmcFunctionARN (\ s a -> s{_esmcFunctionARN = a}); - -- | The state of the event source mapping. It can be \"Creating\", -- \"Enabled\", \"Disabled\", \"Enabling\", \"Disabling\", \"Updating\", or -- \"Deleting\". esmcState :: Lens' EventSourceMappingConfiguration (Maybe Text) esmcState = lens _esmcState (\ s a -> s{_esmcState = a}); +-- | The Lambda function to invoke when AWS Lambda detects an event on the +-- stream. +esmcFunctionARN :: Lens' EventSourceMappingConfiguration (Maybe Text) +esmcFunctionARN = lens _esmcFunctionARN (\ s a -> s{_esmcFunctionARN = a}); + -- | The AWS Lambda assigned opaque identifier for the mapping. esmcUUId :: Lens' EventSourceMappingConfiguration (Maybe Text) esmcUUId = lens _esmcUUId (\ s a -> s{_esmcUUId = a}); @@ -114,8 +114,8 @@ = withObject "EventSourceMappingConfiguration" (\ x -> EventSourceMappingConfiguration' <$> - (x .:? "EventSourceArn") <*> (x .:? "FunctionArn") - <*> (x .:? "State") + (x .:? "EventSourceArn") <*> (x .:? "State") <*> + (x .:? "FunctionArn") <*> (x .:? "UUID") <*> (x .:? "LastProcessingResult") <*> (x .:? "BatchSize") @@ -234,8 +234,8 @@ -- -- /See:/ 'functionConfiguration' smart constructor. data FunctionConfiguration = FunctionConfiguration' - { _fcRuntime :: !(Maybe Runtime) - , _fcMemorySize :: !(Maybe Nat) + { _fcMemorySize :: !(Maybe Nat) + , _fcRuntime :: !(Maybe Runtime) , _fcFunctionARN :: !(Maybe Text) , _fcRole :: !(Maybe Text) , _fcFunctionName :: !(Maybe Text) @@ -250,10 +250,10 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'fcRuntime' --- -- * 'fcMemorySize' -- +-- * 'fcRuntime' +-- -- * 'fcFunctionARN' -- -- * 'fcRole' @@ -273,8 +273,8 @@ :: FunctionConfiguration functionConfiguration = FunctionConfiguration' - { _fcRuntime = Nothing - , _fcMemorySize = Nothing + { _fcMemorySize = Nothing + , _fcRuntime = Nothing , _fcFunctionARN = Nothing , _fcRole = Nothing , _fcFunctionName = Nothing @@ -285,15 +285,15 @@ , _fcDescription = Nothing } --- | The runtime environment for the Lambda function. -fcRuntime :: Lens' FunctionConfiguration (Maybe Runtime) -fcRuntime = lens _fcRuntime (\ s a -> s{_fcRuntime = a}); - -- | The memory size, in MB, you configured for the function. Must be a -- multiple of 64 MB. fcMemorySize :: Lens' FunctionConfiguration (Maybe Natural) fcMemorySize = lens _fcMemorySize (\ s a -> s{_fcMemorySize = a}) . mapping _Nat; +-- | The runtime environment for the Lambda function. +fcRuntime :: Lens' FunctionConfiguration (Maybe Runtime) +fcRuntime = lens _fcRuntime (\ s a -> s{_fcRuntime = a}); + -- | The Amazon Resource Name (ARN) assigned to the function. fcFunctionARN :: Lens' FunctionConfiguration (Maybe Text) fcFunctionARN = lens _fcFunctionARN (\ s a -> s{_fcFunctionARN = a}); @@ -336,7 +336,7 @@ = withObject "FunctionConfiguration" (\ x -> FunctionConfiguration' <$> - (x .:? "Runtime") <*> (x .:? "MemorySize") <*> + (x .:? "MemorySize") <*> (x .:? "Runtime") <*> (x .:? "FunctionArn") <*> (x .:? "Role") <*> (x .:? "FunctionName") diff --git a/gen/Network/AWS/Lambda/UpdateEventSourceMapping.hs b/gen/Network/AWS/Lambda/UpdateEventSourceMapping.hs --- a/gen/Network/AWS/Lambda/UpdateEventSourceMapping.hs +++ b/gen/Network/AWS/Lambda/UpdateEventSourceMapping.hs @@ -44,8 +44,8 @@ , EventSourceMappingConfiguration -- * Response Lenses , esmcEventSourceARN - , esmcFunctionARN , esmcState + , esmcFunctionARN , esmcUUId , esmcLastProcessingResult , esmcBatchSize diff --git a/gen/Network/AWS/Lambda/UpdateFunctionCode.hs b/gen/Network/AWS/Lambda/UpdateFunctionCode.hs --- a/gen/Network/AWS/Lambda/UpdateFunctionCode.hs +++ b/gen/Network/AWS/Lambda/UpdateFunctionCode.hs @@ -42,8 +42,8 @@ , functionConfiguration , FunctionConfiguration -- * Response Lenses - , fcRuntime , fcMemorySize + , fcRuntime , fcFunctionARN , fcRole , fcFunctionName diff --git a/gen/Network/AWS/Lambda/UpdateFunctionConfiguration.hs b/gen/Network/AWS/Lambda/UpdateFunctionConfiguration.hs --- a/gen/Network/AWS/Lambda/UpdateFunctionConfiguration.hs +++ b/gen/Network/AWS/Lambda/UpdateFunctionConfiguration.hs @@ -45,8 +45,8 @@ , functionConfiguration , FunctionConfiguration -- * Response Lenses - , fcRuntime , fcMemorySize + , fcRuntime , fcFunctionARN , fcRole , fcFunctionName diff --git a/test/Test/AWS/Gen/Lambda.hs b/test/Test/AWS/Gen/Lambda.hs --- a/test/Test/AWS/Gen/Lambda.hs +++ b/test/Test/AWS/Gen/Lambda.hs @@ -31,12 +31,12 @@ -- [ testGetFunctionConfiguration $ -- getFunctionConfiguration -- --- , testUpdateEventSourceMapping $ --- updateEventSourceMapping --- -- , testDeleteEventSourceMapping $ -- deleteEventSourceMapping -- +-- , testUpdateEventSourceMapping $ +-- updateEventSourceMapping +-- -- , testRemovePermission $ -- removePermission -- @@ -82,10 +82,10 @@ -- [ testGetFunctionConfigurationResponse $ -- functionConfiguration -- --- , testUpdateEventSourceMappingResponse $ +-- , testDeleteEventSourceMappingResponse $ -- eventSourceMappingConfiguration -- --- , testDeleteEventSourceMappingResponse $ +-- , testUpdateEventSourceMappingResponse $ -- eventSourceMappingConfiguration -- -- , testRemovePermissionResponse $ @@ -137,16 +137,16 @@ "GetFunctionConfiguration" "fixture/GetFunctionConfiguration.yaml" -testUpdateEventSourceMapping :: UpdateEventSourceMapping -> TestTree -testUpdateEventSourceMapping = req - "UpdateEventSourceMapping" - "fixture/UpdateEventSourceMapping.yaml" - testDeleteEventSourceMapping :: DeleteEventSourceMapping -> TestTree testDeleteEventSourceMapping = req "DeleteEventSourceMapping" "fixture/DeleteEventSourceMapping.yaml" +testUpdateEventSourceMapping :: UpdateEventSourceMapping -> TestTree +testUpdateEventSourceMapping = req + "UpdateEventSourceMapping" + "fixture/UpdateEventSourceMapping.yaml" + testRemovePermission :: RemovePermission -> TestTree testRemovePermission = req "RemovePermission" @@ -221,19 +221,19 @@ lambda (Proxy :: Proxy GetFunctionConfiguration) -testUpdateEventSourceMappingResponse :: EventSourceMappingConfiguration -> TestTree -testUpdateEventSourceMappingResponse = res - "UpdateEventSourceMappingResponse" - "fixture/UpdateEventSourceMappingResponse.proto" - lambda - (Proxy :: Proxy UpdateEventSourceMapping) - testDeleteEventSourceMappingResponse :: EventSourceMappingConfiguration -> TestTree testDeleteEventSourceMappingResponse = res "DeleteEventSourceMappingResponse" "fixture/DeleteEventSourceMappingResponse.proto" lambda (Proxy :: Proxy DeleteEventSourceMapping) + +testUpdateEventSourceMappingResponse :: EventSourceMappingConfiguration -> TestTree +testUpdateEventSourceMappingResponse = res + "UpdateEventSourceMappingResponse" + "fixture/UpdateEventSourceMappingResponse.proto" + lambda + (Proxy :: Proxy UpdateEventSourceMapping) testRemovePermissionResponse :: RemovePermissionResponse -> TestTree testRemovePermissionResponse = res