Merge pull request #30 from theam/layer-separation

v2 - Removal of layer

Author: NickSeagull

.circleci/config.yml

@@ -20,11 +20,6 @@ jobs:
             - stack-{{checksum "stack.yaml"}}-{{checksum "package.yaml"}}
       - run: stack setup
       - run: stack build
-      - run: cd $(stack path --local-install-root)/bin/ && zip -j /tmp/runtime.zip bootstrap
-      - save-cache:
-          key: zip-file
-          paths:
-            - "/tmp/runtime.zip"
       - save-cache:
           key: stack-{{ checksum "stack.yaml" }}
           paths:
@@ -63,42 +58,12 @@ jobs:
       - store_test_results:
           path: ~/.stack-work/logs/*
 
-  deploy:
-    docker:
-      - image: circleci/python:2.7-jessie
-    working_directory: ~/aws-lambda-haskell-runtime
-    steps:
-      - checkout
-      - restore-cache:
-          key: zip-file
-          paths:
-            - "/tmp/"
-      - run:
-          name: Install awscli
-          command: sudo pip install awscli
-      - run:
-          name: Deploy to AWS Layers
-          command: |
-            LAYER_NAME="aws-haskell-runtime"
-            REGIONS_LIST="us-east-1 us-east-2 us-west-1 us-west-2 ap-south-1 ap-northeast-2 ap-southeast-1 ap-southeast-2 ap-northeast-1 ca-central-1 eu-central-1 eu-west-1 eu-west-2 eu-west-3 eu-north-1 sa-east-1"
-            for region in $REGIONS_LIST
-            do
-              aws lambda publish-layer-version --layer-name $LAYER_NAME --zip-file fileb:///tmp/runtime.zip --region $region
-              aws lambda add-layer-version-permission --layer-name $LAYER_NAME --version-number $(aws lambda list-layer-versions --layer-name $LAYER_NAME --region $region | grep Version | tail -n+3 | head -n 1 | cut -d: -f2- | rev | cut -d, -f2 | rev) --principal '*' --action lambda:GetLayerVersion --statement-id allow-getLayerVersion-all --region $region
-            done
-
 workflows:
   version: 2
   build-and-deploy:
     jobs:
       - build
       - test
-      - deploy:
-          requires:
-            - build
-          filters:
-            branches:
-              only: master
 
 general:
   branches:

ChangeLog.md

@@ -1,4 +1,4 @@
-Copyright 2018 The Agile Monkeys
+Copyright 2019 The Agile Monkeys
 
 Licensed under the Apache License, Version 2.0 (the "License");
 you may not use this file except in compliance with the License.

LICENSE

@@ -9,7 +9,7 @@ This package provides a way of running Haskell projects on AWS Lambda.
 ## Sample lambda function
 
 ```
-stack new my-haskell-lambda https://github.com/theam/aws-lambda-haskell-runtime/raw/master/stack-template.hsfiles --resolver=lts-13.0 --omit-packages
+stack new my-haskell-lambda https://github.com/theam/aws-lambda-haskell-runtime/raw/master/stack-template.hsfiles --resolver=lts-13.25 --omit-packages
 cd my-haskell-lambda
 stack docker pull
 ```
@@ -21,7 +21,7 @@ packages:
 - .
 
 extra-deps:
-- aws-lambda-haskell-runtime-1.0.10
+- aws-lambda-haskell-runtime-2.0.0
 ```
 
 to your `stack.yaml`
@@ -34,15 +34,6 @@ make
 
 Now you should have a `build/function.zip` file that you can upload to your lambda.
 
-## Lambda function configuration
-
-When creating your lambda function you need to provide a layer with the Haskell runtime. We have deployed the layer to our AWS account, you can use it or deploy it to your own AWS account.
-
-The ARN of the runtime layer is:
-```
-arn:aws:lambda:<YOUR REGION>:785355572843:layer:aws-haskell-runtime:5
-````
-
 ## Full user guide
 
 Take a look at the [Getting Started with the Haskell AWS Lambda Runtime](https://medium.com/the-theam-journey/getting-started-with-the-haskell-aws-lambda-runtime-951b2322c7a3) guide.

Makefile

@@ -1,5 +1,5 @@
 name: aws-lambda-haskell-runtime
-version: 1.1.1
+version: 2.0.0
 github: "theam/aws-lambda-haskell-runtime"
 license: Apache-2.0
 author: Nikita Tchayka
@@ -23,11 +23,8 @@ library:
     - bytestring
     - http-client
     - http-types
-    - optparse-generic
-    - process
     - template-haskell
     - text
-    - uuid
     - safe-exceptions-checked
     - path
     - path-io
@@ -36,14 +33,6 @@ library:
     - Aws.Lambda
     - Aws.Lambda.Runtime
 
-executables:
-  bootstrap:
-    source-dirs: app
-    main: Main.hs
-    dependencies:
-      - aws-lambda-haskell-runtime
-      - http-client
-
 tests:
   aws-lambda-haskell-runtime-test:
     main: Spec.hs

README.md

@@ -3,4 +3,5 @@ module Aws.Lambda
   ) where
 
 import Aws.Lambda.Configuration as Reexported
+import Aws.Lambda.Runtime as Reexported
 import Aws.Lambda.Runtime.Context as Reexported

app/Main.hs

@@ -1,12 +1,9 @@
 {-# OPTIONS_GHC -fno-warn-unused-pattern-binds #-}
 module Aws.Lambda.Configuration
   ( Main.LambdaOptions(..)
-  , Main.generate
-  , Main.getRecord
-  , configureLambda
-  , IPC.returnAndFail
-  , IPC.returnAndSucceed
+  , generateLambdaDispatcher
   , Dispatch.decodeObj
+  , Dispatch.encodeObj
   )
 where
 
@@ -15,13 +12,11 @@ import qualified Language.Haskell.TH as Meta
 import qualified Aws.Lambda.Meta.Dispatch as Dispatch
 import qualified Aws.Lambda.Meta.Main as Main
 import qualified Aws.Lambda.Meta.Run as Run
-import qualified Aws.Lambda.Runtime.IPC as IPC
 
-{-| Generates a @main@ function to be used with the
-AWS Lambda layer.
+{-| Generates a @main@ function that acts as a dispatcher
 -}
-configureLambda :: Meta.DecsQ
-configureLambda = do
+generateLambdaDispatcher :: Meta.DecsQ
+generateLambdaDispatcher = do
   main <- Main.generate
   run <- Run.generate
   return (main <> [run])

package.yaml

@@ -3,6 +3,7 @@ module Aws.Lambda.Meta.Common
   ( declarationName
   , expressionName
   , getFieldsFrom
+  , constructorName
   ) where
 
 import Data.Text (Text)
@@ -19,6 +20,10 @@ declarationName = pure . VarP . mkName . Text.unpack
 expressionName :: Text -> Q Exp
 expressionName = pure . VarE . mkName . Text.unpack
 
+-- | Helper for defining names for constructors
+-- think of @Foo@ in @quux = Foo 3@
+constructorName :: Text -> Q Exp
+constructorName = pure . ConE . mkName . Text.unpack
 
 -- | Helper for extracting fields of a specified record
 -- it expects the constructor name as the first parameter,