hs-aws-lambda 0.1.0.3 → 0.1.0.4

raw patch · 3 files changed

+31/−28 lines, 3 files

Files

• hs-aws-lambda.cabal +1/−1
• src/AWS/Lambda/RuntimeAPI.hs +20/−13
• src/AWS/Lambda/RuntimeAPI/Types.hs +10/−14

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           hs-aws-lambda-version:        0.1.0.3+version:        0.1.0.4 synopsis:       A modern and easy-to-use wrapper for Docker-based Lambda implementations description:    Please see the README on GitHub at <https://github.com/RobertFischer/hs-aws-lambda#readme> category:       AWS

@@ -2,20 +2,27 @@ 	( runLambda 	) where -import AWS.Lambda.RuntimeAPI.Types-import Data.Aeson ( encode, eitherDecode' )-import Data.List ( find )-import System.Environment ( lookupEnv )-import Text.Read ( readMaybe )-import UnliftIO-import qualified Data.ByteString.Char8 as C8-import qualified Data.CaseInsensitive as CI-import qualified Data.Map.Strict as Map-import qualified Network.HTTP.Client as HTTP+import           AWS.Lambda.RuntimeAPI.Types+import           Control.DeepSeq              (NFData)+import           Control.Exception.Safe       (MonadThrow)+import           Control.Monad                (forever, void)+import           Data.Aeson                   (FromJSON, ToJSON, eitherDecode',+                                               encode)+import qualified Data.ByteString.Char8        as C8+import qualified Data.CaseInsensitive         as CI+import           Data.List                    (find)+import qualified Data.Map.Strict              as Map+import           Data.String                  (IsString (..))+import           Data.Text                    (Text)+import qualified Data.Text                    as Text+import           Data.Typeable                (typeOf)+import qualified Network.HTTP.Client          as HTTP import qualified Network.HTTP.Client.Internal as HTTP-import qualified Network.HTTP.Types.Header as HTTP-import qualified Network.HTTP.Types.Status as HTTP-import qualified Data.Text as Text+import qualified Network.HTTP.Types.Header    as HTTP+import qualified Network.HTTP.Types.Status    as HTTP+import           System.Environment           (lookupEnv)+import           Text.Read                    (readMaybe)+import           UnliftIO  cts :: Text -> String cts = Text.unpack

@@ -8,20 +8,15 @@ 		, ErrorInfo 		) where -import           Control.DeepSeq        (NFData, NFData1)-import           Control.Exception.Safe (MonadThrow, throw)-import           Control.Monad          (forever, void)-import           Data.Aeson             (FromJSON, FromJSON1, Options, ToJSON,-                                         ToJSON1)-import qualified Data.Aeson             as JSON-import qualified Data.Char              as Char-import           Data.Function          ((&))-import           Data.String            (IsString (..), fromString)-import           Data.Text              (Text)-import           Data.Typeable          (typeOf)-import           Data.Word              (Word64)+import           Control.DeepSeq     (NFData, NFData1)+import           Data.Aeson          (FromJSON, FromJSON1, Options, ToJSON,+                                      ToJSON1)+import qualified Data.Aeson          as JSON+import qualified Data.Char           as Char+import           Data.Text           (Text)+import           Data.Word           (Word64) import           GHC.Generics-import qualified Network.HTTP.Client    as HTTP+import qualified Network.HTTP.Client as HTTP  -- | Our implementation of how to map the field names to JSON labels modifyFieldLabel :: String -> String@@ -61,7 +56,8 @@ -- | Represents the data provided to an invocation of the lambda data LambdaInvocation payload = LambdaInvocation 	{ liAwsRequestId :: Text      -- ^ The unique ID for this request-	, liDeadlineMs :: Word        64 -- ^ The timetsamp of the deadline in Unix time+	, liDeadlineMs+		:: Word64 -- ^ The timetsamp of the deadline in Unix time 	, liInvokedFunctionArn :: Text-- ^ This function's ARN 	, liTraceId :: Text           -- ^ The details about this AWS X-Ray trace 	, liMobileMetadata