serverless-haskell 0.0.4 → 0.0.6

raw patch · 4 files changed

+27/−24 lines, 4 filesdep +raw-strings-qqdep −aeson-qq

Dependencies added: raw-strings-qq

Dependencies removed: aeson-qq

Files

• serverless-haskell.cabal +3/−3
• test/AWSLambda/Events/KinesisEventSpec.hs +7/−5
• test/AWSLambda/Events/S3EventSpec.hs +10/−9
• test/AWSLambda/Events/SNSEventSpec.hs +7/−7

@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: c93ee15cc03bec645bc7c0bcc5d79dc780a7a7637006e21bf6351a5eb31d55bf+-- hash: 8744fabb134bae654aeb0568028f9f99e96f2f7feeb7526d6c85b95685022f8e  name:           serverless-haskell-version:        0.0.4+version:        0.0.6 synopsis:       Deploying Haskell code onto AWS Lambda using Serverless description:    Utilities to help process the events from AWS Lambda when deployed with the serverless-haskell plugin. category:       AWS, Cloud, Network@@ -63,7 +63,6 @@   build-depends:       aeson     , aeson-casing-    , aeson-qq     , amazonka-core     , amazonka-kinesis     , amazonka-s3@@ -72,6 +71,7 @@     , hspec     , hspec-discover     , lens+    , raw-strings-qq     , serverless-haskell     , text     , time

@@ -7,21 +7,23 @@ import           AWSLambda.Events.Records  import           Data.Aeson-import           Data.Aeson.QQ-import           Data.ByteString               (ByteString)+import           Data.ByteString.Lazy          (ByteString)+ import qualified Network.AWS.Kinesis.Types     as Kinesis import           Network.AWS.Types             (Region (..)) +import           Text.RawString.QQ+ import           Test.Hspec  spec :: Spec spec =   describe "KinesisEvent" $     it "parses sample event" $-      fromJSON sampleKinesisJSON `shouldBe` Success sampleKinesisEvent+      decode sampleKinesisJSON `shouldBe` Just sampleKinesisEvent -sampleKinesisJSON :: Value-sampleKinesisJSON = [aesonQQ|+sampleKinesisJSON :: ByteString+sampleKinesisJSON = [r| {     "Records": [         {

@@ -7,25 +7,26 @@ import           AWSLambda.Events.S3Event  import           Data.Aeson-import           Data.Aeson.QQ-import           Data.ByteString           (ByteString)-import qualified Data.HashMap.Strict       as HashMap+import           Data.ByteString.Lazy     (ByteString) import           Data.Time.Calendar import           Data.Time.Clock+ import           Network.AWS.S3 +import           Text.RawString.QQ+ import           Test.Hspec  spec :: Spec spec =   describe "S3Event" $ do     it "parses sample Put event" $-      fromJSON sampleS3PutJSON `shouldBe` Success sampleS3PutEvent+      decode sampleS3PutJSON `shouldBe` Just sampleS3PutEvent     it "parses sample Delete event" $-      fromJSON sampleS3DeleteJSON `shouldBe` Success sampleS3DeleteEvent+      decode sampleS3DeleteJSON `shouldBe` Just sampleS3DeleteEvent -sampleS3PutJSON :: Value-sampleS3PutJSON = [aesonQQ|+sampleS3PutJSON :: ByteString+sampleS3PutJSON = [r| {   "Records": [     {@@ -116,8 +117,8 @@     ]   } -sampleS3DeleteJSON :: Value-sampleS3DeleteJSON = [aesonQQ|+sampleS3DeleteJSON :: ByteString+sampleS3DeleteJSON = [r|   {   "Records": [     {

@@ -7,23 +7,23 @@ import           AWSLambda.Events.SNSEvent  import           Data.Aeson-import           Data.Aeson.QQ-import           Data.ByteString           (ByteString)+import           Data.ByteString.Lazy      (ByteString) import qualified Data.HashMap.Strict       as HashMap-import           Data.Time.Clock import           Data.Time.Calendar-import           Network.AWS.Types         (Region (..))+import           Data.Time.Clock +import           Text.RawString.QQ+ import           Test.Hspec  spec :: Spec spec =   describe "SNSEvent" $     it "parses sample event" $-      fromJSON sampleSNSJSON `shouldBe` Success sampleSNSEvent+      decode sampleSNSJSON `shouldBe` Just sampleSNSEvent -sampleSNSJSON :: Value-sampleSNSJSON = [aesonQQ|+sampleSNSJSON :: ByteString+sampleSNSJSON = [r| {   "Records": [     {