amazonka-lambda 1.1.0 → 1.2.0

raw patch · 22 files changed

+115/−105 lines, 22 filesdep ~amazonka-coredep ~amazonka-lambdadep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-lambda.cabal +5/−5
• gen/Network/AWS/Lambda.hs +2/−2
• gen/Network/AWS/Lambda/AddPermission.hs +7/−6
• gen/Network/AWS/Lambda/CreateEventSourceMapping.hs +7/−7
• gen/Network/AWS/Lambda/CreateFunction.hs +10/−8
• gen/Network/AWS/Lambda/DeleteEventSourceMapping.hs +1/−2
• gen/Network/AWS/Lambda/DeleteFunction.hs +1/−2
• gen/Network/AWS/Lambda/GetEventSourceMapping.hs +1/−2
• gen/Network/AWS/Lambda/GetFunction.hs +1/−2
• gen/Network/AWS/Lambda/GetFunctionConfiguration.hs +1/−2
• gen/Network/AWS/Lambda/GetPolicy.hs +1/−2
• gen/Network/AWS/Lambda/Invoke.hs +3/−3
• gen/Network/AWS/Lambda/ListEventSourceMappings.hs +1/−2
• gen/Network/AWS/Lambda/ListFunctions.hs +1/−2
• gen/Network/AWS/Lambda/RemovePermission.hs +1/−2
• gen/Network/AWS/Lambda/Types.hs +32/−36
• gen/Network/AWS/Lambda/Types/Product.hs +5/−4
• gen/Network/AWS/Lambda/UpdateEventSourceMapping.hs +5/−5
• gen/Network/AWS/Lambda/UpdateFunctionCode.hs +6/−5
• gen/Network/AWS/Lambda/UpdateFunctionConfiguration.hs +7/−5
• test/Test/AWS/Gen/Lambda.hs +16/−0

@@ -8,7 +8,7 @@  ## Version -`1.1.0`+`1.2.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-lambda-version:               1.1.0+version:               1.2.0 synopsis:              Amazon Lambda SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -74,7 +74,7 @@         , Network.AWS.Lambda.Types.Sum      build-depends:-          amazonka-core == 1.1.0.*+          amazonka-core == 1.2.0.*         , base          >= 4.7     && < 5  test-suite amazonka-lambda-test@@ -93,9 +93,9 @@         , Test.AWS.Lambda.Internal      build-depends:-          amazonka-core == 1.1.0-        , amazonka-test == 1.1.0-        , amazonka-lambda == 1.1.0+          amazonka-core == 1.2.0+        , amazonka-test == 1.2.0+        , amazonka-lambda == 1.2.0         , base         , bytestring         , lens

@@ -25,8 +25,8 @@ -- /See:/ <http://docs.aws.amazon.com/lambda/latest/dg/API_Reference.html AWS API Reference> module Network.AWS.Lambda     (-    -- * Service-      Lambda+    -- * Service Configuration+      lambda      -- * Errors     -- $errors

@@ -157,9 +157,8 @@ apPrincipal = lens _apPrincipal (\ s a -> s{_apPrincipal = a});  instance AWSRequest AddPermission where-        type Sv AddPermission = Lambda         type Rs AddPermission = AddPermissionResponse-        request = postJSON+        request = postJSON lambda         response           = receiveJSON               (\ s h x ->@@ -172,10 +171,12 @@ instance ToJSON AddPermission where         toJSON AddPermission'{..}           = object-              ["SourceAccount" .= _apSourceAccount,-               "SourceArn" .= _apSourceARN,-               "StatementId" .= _apStatementId,-               "Action" .= _apAction, "Principal" .= _apPrincipal]+              (catMaybes+                 [("SourceAccount" .=) <$> _apSourceAccount,+                  ("SourceArn" .=) <$> _apSourceARN,+                  Just ("StatementId" .= _apStatementId),+                  Just ("Action" .= _apAction),+                  Just ("Principal" .= _apPrincipal)])  instance ToPath AddPermission where         toPath AddPermission'{..}

@@ -150,10 +150,9 @@ cesmStartingPosition = lens _cesmStartingPosition (\ s a -> s{_cesmStartingPosition = a});  instance AWSRequest CreateEventSourceMapping where-        type Sv CreateEventSourceMapping = Lambda         type Rs CreateEventSourceMapping =              EventSourceMappingConfiguration-        request = postJSON+        request = postJSON lambda         response = receiveJSON (\ s h x -> eitherParseJSON x)  instance ToHeaders CreateEventSourceMapping where@@ -162,11 +161,12 @@ instance ToJSON CreateEventSourceMapping where         toJSON CreateEventSourceMapping'{..}           = object-              ["Enabled" .= _cesmEnabled,-               "BatchSize" .= _cesmBatchSize,-               "EventSourceArn" .= _cesmEventSourceARN,-               "FunctionName" .= _cesmFunctionName,-               "StartingPosition" .= _cesmStartingPosition]+              (catMaybes+                 [("Enabled" .=) <$> _cesmEnabled,+                  ("BatchSize" .=) <$> _cesmBatchSize,+                  Just ("EventSourceArn" .= _cesmEventSourceARN),+                  Just ("FunctionName" .= _cesmFunctionName),+                  Just ("StartingPosition" .= _cesmStartingPosition)])  instance ToPath CreateEventSourceMapping where         toPath = const "/2015-03-31/event-source-mappings/"

@@ -173,9 +173,8 @@ cfCode = lens _cfCode (\ s a -> s{_cfCode = a});  instance AWSRequest CreateFunction where-        type Sv CreateFunction = Lambda         type Rs CreateFunction = FunctionConfiguration-        request = postJSON+        request = postJSON lambda         response = receiveJSON (\ s h x -> eitherParseJSON x)  instance ToHeaders CreateFunction where@@ -184,12 +183,15 @@ instance ToJSON CreateFunction where         toJSON CreateFunction'{..}           = object-              ["MemorySize" .= _cfMemorySize,-               "Timeout" .= _cfTimeout,-               "Description" .= _cfDescription,-               "FunctionName" .= _cfFunctionName,-               "Runtime" .= _cfRuntime, "Role" .= _cfRole,-               "Handler" .= _cfHandler, "Code" .= _cfCode]+              (catMaybes+                 [("MemorySize" .=) <$> _cfMemorySize,+                  ("Timeout" .=) <$> _cfTimeout,+                  ("Description" .=) <$> _cfDescription,+                  Just ("FunctionName" .= _cfFunctionName),+                  Just ("Runtime" .= _cfRuntime),+                  Just ("Role" .= _cfRole),+                  Just ("Handler" .= _cfHandler),+                  Just ("Code" .= _cfCode)])  instance ToPath CreateFunction where         toPath = const "/2015-03-31/functions"

@@ -76,10 +76,9 @@ desmUUId = lens _desmUUId (\ s a -> s{_desmUUId = a});  instance AWSRequest DeleteEventSourceMapping where-        type Sv DeleteEventSourceMapping = Lambda         type Rs DeleteEventSourceMapping =              EventSourceMappingConfiguration-        request = delete+        request = delete lambda         response = receiveJSON (\ s h x -> eitherParseJSON x)  instance ToHeaders DeleteEventSourceMapping where

@@ -78,9 +78,8 @@ dfFunctionName = lens _dfFunctionName (\ s a -> s{_dfFunctionName = a});  instance AWSRequest DeleteFunction where-        type Sv DeleteFunction = Lambda         type Rs DeleteFunction = DeleteFunctionResponse-        request = delete+        request = delete lambda         response = receiveNull DeleteFunctionResponse'  instance ToHeaders DeleteFunction where

@@ -76,10 +76,9 @@ gesmUUId = lens _gesmUUId (\ s a -> s{_gesmUUId = a});  instance AWSRequest GetEventSourceMapping where-        type Sv GetEventSourceMapping = Lambda         type Rs GetEventSourceMapping =              EventSourceMappingConfiguration-        request = get+        request = get lambda         response = receiveJSON (\ s h x -> eitherParseJSON x)  instance ToHeaders GetEventSourceMapping where

@@ -82,9 +82,8 @@ gfFunctionName = lens _gfFunctionName (\ s a -> s{_gfFunctionName = a});  instance AWSRequest GetFunction where-        type Sv GetFunction = Lambda         type Rs GetFunction = GetFunctionResponse-        request = get+        request = get lambda         response           = receiveJSON               (\ s h x ->

@@ -89,10 +89,9 @@ gfcFunctionName = lens _gfcFunctionName (\ s a -> s{_gfcFunctionName = a});  instance AWSRequest GetFunctionConfiguration where-        type Sv GetFunctionConfiguration = Lambda         type Rs GetFunctionConfiguration =              FunctionConfiguration-        request = get+        request = get lambda         response = receiveJSON (\ s h x -> eitherParseJSON x)  instance ToHeaders GetFunctionConfiguration where

@@ -78,9 +78,8 @@ gpFunctionName = lens _gpFunctionName (\ s a -> s{_gpFunctionName = a});  instance AWSRequest GetPolicy where-        type Sv GetPolicy = Lambda         type Rs GetPolicy = GetPolicyResponse-        request = get+        request = get lambda         response           = receiveJSON               (\ s h x ->

@@ -140,9 +140,8 @@ iFunctionName = lens _iFunctionName (\ s a -> s{_iFunctionName = a});  instance AWSRequest Invoke where-        type Sv Invoke = Lambda         type Rs Invoke = InvokeResponse-        request = postJSON+        request = postJSON lambda         response           = receiveJSON               (\ s h x ->@@ -160,7 +159,8 @@                "X-Amz-Client-Context" =# _iClientContext]  instance ToJSON Invoke where-        toJSON Invoke'{..} = object ["Payload" .= _iPayload]+        toJSON Invoke'{..}+          = object (catMaybes [("Payload" .=) <$> _iPayload])  instance ToPath Invoke where         toPath Invoke'{..}

@@ -124,10 +124,9 @@             Just $ rq & lesmMarker .~ rs ^. lesmrsNextMarker  instance AWSRequest ListEventSourceMappings where-        type Sv ListEventSourceMappings = Lambda         type Rs ListEventSourceMappings =              ListEventSourceMappingsResponse-        request = get+        request = get lambda         response           = receiveJSON               (\ s h x ->

@@ -93,9 +93,8 @@             Just $ rq & lfMarker .~ rs ^. lfrsNextMarker  instance AWSRequest ListFunctions where-        type Sv ListFunctions = Lambda         type Rs ListFunctions = ListFunctionsResponse-        request = get+        request = get lambda         response           = receiveJSON               (\ s h x ->

@@ -89,9 +89,8 @@ rpStatementId = lens _rpStatementId (\ s a -> s{_rpStatementId = a});  instance AWSRequest RemovePermission where-        type Sv RemovePermission = Lambda         type Rs RemovePermission = RemovePermissionResponse-        request = delete+        request = delete lambda         response = receiveNull RemovePermissionResponse'  instance ToHeaders RemovePermission where

@@ -1,5 +1,4 @@ {-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE TypeFamilies      #-}  -- Derived from AWS service descriptions, licensed under Apache 2.0. @@ -13,8 +12,8 @@ -- module Network.AWS.Lambda.Types     (-    -- * Service-      Lambda+    -- * Service Configuration+      lambda      -- * Errors     , _PolicyLengthExceededException@@ -86,39 +85,36 @@ import           Network.AWS.Prelude import           Network.AWS.Sign.V4 --- | Version @2015-03-31@ of the Amazon Lambda SDK.-data Lambda--instance AWSService Lambda where-    type Sg Lambda = V4-    service = const svc-      where-        svc =-            Service-            { _svcAbbrev = "Lambda"-            , _svcPrefix = "lambda"-            , _svcVersion = "2015-03-31"-            , _svcEndpoint = defaultEndpoint svc-            , _svcTimeout = Just 70-            , _svcStatus = statusSuccess-            , _svcError = parseJSONError-            , _svcRetry = retry-            }-        retry =-            Exponential-            { _retryBase = 5.0e-2-            , _retryGrowth = 2-            , _retryAttempts = 5-            , _retryCheck = check-            }-        check e-          | has (hasCode "ThrottlingException" . hasStatus 400) e =-              Just "throttling_exception"-          | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"-          | has (hasStatus 503) e = Just "service_unavailable"-          | has (hasStatus 500) e = Just "general_server_error"-          | has (hasStatus 509) e = Just "limit_exceeded"-          | otherwise = Nothing+-- | API version '2015-03-31' of the Amazon Lambda SDK configuration.+lambda :: Service+lambda =+    Service+    { _svcAbbrev = "Lambda"+    , _svcSigner = v4+    , _svcPrefix = "lambda"+    , _svcVersion = "2015-03-31"+    , _svcEndpoint = defaultEndpoint lambda+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError+    , _svcRetry = retry+    }+  where+    retry =+        Exponential+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }+    check e+      | has (hasCode "ThrottlingException" . hasStatus 400) e =+          Just "throttling_exception"+      | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 503) e = Just "service_unavailable"+      | has (hasStatus 500) e = Just "general_server_error"+      | has (hasStatus 509) e = Just "limit_exceeded"+      | otherwise = Nothing  -- | Lambda function access policy is limited to 20 KB. _PolicyLengthExceededException :: AsError a => Getting (First ServiceError) a ServiceError

@@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE OverloadedStrings  #-} {-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-} @@ -186,9 +185,11 @@ instance ToJSON FunctionCode where         toJSON FunctionCode'{..}           = object-              ["S3ObjectVersion" .= _fcS3ObjectVersion,-               "S3Key" .= _fcS3Key, "ZipFile" .= _fcZipFile,-               "S3Bucket" .= _fcS3Bucket]+              (catMaybes+                 [("S3ObjectVersion" .=) <$> _fcS3ObjectVersion,+                  ("S3Key" .=) <$> _fcS3Key,+                  ("ZipFile" .=) <$> _fcZipFile,+                  ("S3Bucket" .=) <$> _fcS3Bucket])  -- | The object for the Lambda function location. --

@@ -117,10 +117,9 @@ uesmUUId = lens _uesmUUId (\ s a -> s{_uesmUUId = a});  instance AWSRequest UpdateEventSourceMapping where-        type Sv UpdateEventSourceMapping = Lambda         type Rs UpdateEventSourceMapping =              EventSourceMappingConfiguration-        request = putJSON+        request = putJSON lambda         response = receiveJSON (\ s h x -> eitherParseJSON x)  instance ToHeaders UpdateEventSourceMapping where@@ -129,9 +128,10 @@ instance ToJSON UpdateEventSourceMapping where         toJSON UpdateEventSourceMapping'{..}           = object-              ["Enabled" .= _uesmEnabled,-               "BatchSize" .= _uesmBatchSize,-               "FunctionName" .= _uesmFunctionName]+              (catMaybes+                 [("Enabled" .=) <$> _uesmEnabled,+                  ("BatchSize" .=) <$> _uesmBatchSize,+                  ("FunctionName" .=) <$> _uesmFunctionName])  instance ToPath UpdateEventSourceMapping where         toPath UpdateEventSourceMapping'{..}

@@ -134,9 +134,8 @@ uFunctionName = lens _uFunctionName (\ s a -> s{_uFunctionName = a});  instance AWSRequest UpdateFunctionCode where-        type Sv UpdateFunctionCode = Lambda         type Rs UpdateFunctionCode = FunctionConfiguration-        request = putJSON+        request = putJSON lambda         response = receiveJSON (\ s h x -> eitherParseJSON x)  instance ToHeaders UpdateFunctionCode where@@ -145,9 +144,11 @@ instance ToJSON UpdateFunctionCode where         toJSON UpdateFunctionCode'{..}           = object-              ["S3ObjectVersion" .= _uS3ObjectVersion,-               "S3Key" .= _uS3Key, "ZipFile" .= _uZipFile,-               "S3Bucket" .= _uS3Bucket]+              (catMaybes+                 [("S3ObjectVersion" .=) <$> _uS3ObjectVersion,+                  ("S3Key" .=) <$> _uS3Key,+                  ("ZipFile" .=) <$> _uZipFile,+                  ("S3Bucket" .=) <$> _uS3Bucket])  instance ToPath UpdateFunctionCode where         toPath UpdateFunctionCode'{..}

@@ -146,10 +146,9 @@ ufcFunctionName = lens _ufcFunctionName (\ s a -> s{_ufcFunctionName = a});  instance AWSRequest UpdateFunctionConfiguration where-        type Sv UpdateFunctionConfiguration = Lambda         type Rs UpdateFunctionConfiguration =              FunctionConfiguration-        request = putJSON+        request = putJSON lambda         response = receiveJSON (\ s h x -> eitherParseJSON x)  instance ToHeaders UpdateFunctionConfiguration where@@ -158,9 +157,12 @@ instance ToJSON UpdateFunctionConfiguration where         toJSON UpdateFunctionConfiguration'{..}           = object-              ["MemorySize" .= _ufcMemorySize, "Role" .= _ufcRole,-               "Handler" .= _ufcHandler, "Timeout" .= _ufcTimeout,-               "Description" .= _ufcDescription]+              (catMaybes+                 [("MemorySize" .=) <$> _ufcMemorySize,+                  ("Role" .=) <$> _ufcRole,+                  ("Handler" .=) <$> _ufcHandler,+                  ("Timeout" .=) <$> _ufcTimeout,+                  ("Description" .=) <$> _ufcDescription])  instance ToPath UpdateFunctionConfiguration where         toPath UpdateFunctionConfiguration'{..}

@@ -218,94 +218,110 @@ testGetFunctionConfigurationResponse = res     "GetFunctionConfigurationResponse"     "fixture/GetFunctionConfigurationResponse"+    lambda     (Proxy :: Proxy GetFunctionConfiguration)  testUpdateEventSourceMappingResponse :: EventSourceMappingConfiguration -> TestTree testUpdateEventSourceMappingResponse = res     "UpdateEventSourceMappingResponse"     "fixture/UpdateEventSourceMappingResponse"+    lambda     (Proxy :: Proxy UpdateEventSourceMapping)  testDeleteEventSourceMappingResponse :: EventSourceMappingConfiguration -> TestTree testDeleteEventSourceMappingResponse = res     "DeleteEventSourceMappingResponse"     "fixture/DeleteEventSourceMappingResponse"+    lambda     (Proxy :: Proxy DeleteEventSourceMapping)  testRemovePermissionResponse :: RemovePermissionResponse -> TestTree testRemovePermissionResponse = res     "RemovePermissionResponse"     "fixture/RemovePermissionResponse"+    lambda     (Proxy :: Proxy RemovePermission)  testInvokeResponse :: InvokeResponse -> TestTree testInvokeResponse = res     "InvokeResponse"     "fixture/InvokeResponse"+    lambda     (Proxy :: Proxy Invoke)  testGetEventSourceMappingResponse :: EventSourceMappingConfiguration -> TestTree testGetEventSourceMappingResponse = res     "GetEventSourceMappingResponse"     "fixture/GetEventSourceMappingResponse"+    lambda     (Proxy :: Proxy GetEventSourceMapping)  testCreateFunctionResponse :: FunctionConfiguration -> TestTree testCreateFunctionResponse = res     "CreateFunctionResponse"     "fixture/CreateFunctionResponse"+    lambda     (Proxy :: Proxy CreateFunction)  testCreateEventSourceMappingResponse :: EventSourceMappingConfiguration -> TestTree testCreateEventSourceMappingResponse = res     "CreateEventSourceMappingResponse"     "fixture/CreateEventSourceMappingResponse"+    lambda     (Proxy :: Proxy CreateEventSourceMapping)  testGetFunctionResponse :: GetFunctionResponse -> TestTree testGetFunctionResponse = res     "GetFunctionResponse"     "fixture/GetFunctionResponse"+    lambda     (Proxy :: Proxy GetFunction)  testListEventSourceMappingsResponse :: ListEventSourceMappingsResponse -> TestTree testListEventSourceMappingsResponse = res     "ListEventSourceMappingsResponse"     "fixture/ListEventSourceMappingsResponse"+    lambda     (Proxy :: Proxy ListEventSourceMappings)  testAddPermissionResponse :: AddPermissionResponse -> TestTree testAddPermissionResponse = res     "AddPermissionResponse"     "fixture/AddPermissionResponse"+    lambda     (Proxy :: Proxy AddPermission)  testDeleteFunctionResponse :: DeleteFunctionResponse -> TestTree testDeleteFunctionResponse = res     "DeleteFunctionResponse"     "fixture/DeleteFunctionResponse"+    lambda     (Proxy :: Proxy DeleteFunction)  testUpdateFunctionConfigurationResponse :: FunctionConfiguration -> TestTree testUpdateFunctionConfigurationResponse = res     "UpdateFunctionConfigurationResponse"     "fixture/UpdateFunctionConfigurationResponse"+    lambda     (Proxy :: Proxy UpdateFunctionConfiguration)  testListFunctionsResponse :: ListFunctionsResponse -> TestTree testListFunctionsResponse = res     "ListFunctionsResponse"     "fixture/ListFunctionsResponse"+    lambda     (Proxy :: Proxy ListFunctions)  testUpdateFunctionCodeResponse :: FunctionConfiguration -> TestTree testUpdateFunctionCodeResponse = res     "UpdateFunctionCodeResponse"     "fixture/UpdateFunctionCodeResponse"+    lambda     (Proxy :: Proxy UpdateFunctionCode)  testGetPolicyResponse :: GetPolicyResponse -> TestTree testGetPolicyResponse = res     "GetPolicyResponse"     "fixture/GetPolicyResponse"+    lambda     (Proxy :: Proxy GetPolicy)