diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.1.0` +`1.2.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.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 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 @@ -25,8 +25,8 @@ -- /See:/ module Network.AWS.Lambda ( - -- * Service - Lambda + -- * Service Configuration + lambda -- * Errors -- $errors 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 @@ -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'{..} 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 @@ -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/" 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 @@ -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" 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 @@ -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 diff --git a/gen/Network/AWS/Lambda/DeleteFunction.hs b/gen/Network/AWS/Lambda/DeleteFunction.hs --- a/gen/Network/AWS/Lambda/DeleteFunction.hs +++ b/gen/Network/AWS/Lambda/DeleteFunction.hs @@ -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 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 @@ -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 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 @@ -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 -> 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 @@ -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 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 @@ -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 -> diff --git a/gen/Network/AWS/Lambda/Invoke.hs b/gen/Network/AWS/Lambda/Invoke.hs --- a/gen/Network/AWS/Lambda/Invoke.hs +++ b/gen/Network/AWS/Lambda/Invoke.hs @@ -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'{..} 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 @@ -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 -> 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 @@ -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 -> diff --git a/gen/Network/AWS/Lambda/RemovePermission.hs b/gen/Network/AWS/Lambda/RemovePermission.hs --- a/gen/Network/AWS/Lambda/RemovePermission.hs +++ b/gen/Network/AWS/Lambda/RemovePermission.hs @@ -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 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 @@ -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 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 @@ -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. -- 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 @@ -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'{..} 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 @@ -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'{..} 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 @@ -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'{..} 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 @@ -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)