Implement batch mode read on SQS

This improves the read/sync speed of the cli by a factor of 10.

infrastructure/aws/aws.go

@@ -62,11 +62,13 @@ func (infra *AwsInfrastructure) Receive(results chan *result.LambdaResults) {
 
 	timeoutStart := time.Now()
 	for {
-		lambdaResult := adaptor.Receive()
-		if lambdaResult != nil {
-			lambdaAggregate := &data.Lambdas[lambdaResult.RunnerID]
-			result.AddResult(lambdaAggregate, lambdaResult)
-			results <- data
+		lambdaResults := adaptor.Receive()
+		if lambdaResults != nil {
+			for _, lambdaResult := range lambdaResults {
+				lambdaAggregate := &data.Lambdas[lambdaResult.RunnerID]
+				result.AddResult(lambdaAggregate, lambdaResult)
+				results <- data
+			}
 			if data.AllLambdasFinished() {
 				break
 			}

infrastructure/aws/sqsadapter/sqsadapter.go

@@ -38,10 +38,10 @@ func getClient(awsConfig *aws.Config) *sqs.SQS {
 }
 
 // Receive a result, or timeout in 1 second
-func (adaptor Adapter) Receive() *api.RunnerResult {
+func (adaptor Adapter) Receive() []*api.RunnerResult {
 	params := &sqs.ReceiveMessageInput{
 		QueueUrl:            aws.String(adaptor.QueueURL),
-		MaxNumberOfMessages: aws.Int64(1),
+		MaxNumberOfMessages: aws.Int64(10),
 		VisibilityTimeout:   aws.Int64(1),
 		WaitTimeSeconds:     aws.Int64(1),
 	}
@@ -56,25 +56,34 @@ func (adaptor Adapter) Receive() *api.RunnerResult {
 		return nil
 	}
 
-	item := resp.Messages[0]
+	items := resp.Messages
+	results := make([]*api.RunnerResult, 0)
+	deleteEntries := make([]*sqs.DeleteMessageBatchRequestEntry, 0)
+	for _, item := range items {
+		result, jsonerr := resultFromJSON(*item.Body)
+		if jsonerr != nil {
+			fmt.Println(err.Error())
+			return nil
+		}
+		deleteEntries = append(deleteEntries, &sqs.DeleteMessageBatchRequestEntry{
+			Id:            aws.String(*item.MessageId),
+			ReceiptHandle: aws.String(*item.ReceiptHandle),
+		})
+		results = append(results, result)
+	}
 
-	deleteParams := &sqs.DeleteMessageInput{
-		QueueUrl:      aws.String(adaptor.QueueURL),
-		ReceiptHandle: aws.String(*item.ReceiptHandle),
+	deleteParams := &sqs.DeleteMessageBatchInput{
+		Entries:  deleteEntries,
+		QueueUrl: aws.String(adaptor.QueueURL),
 	}
-	_, delerr := adaptor.Client.DeleteMessage(deleteParams)
+	_, delerr := adaptor.Client.DeleteMessageBatch(deleteParams)
 
 	if delerr != nil {
-		fmt.Println(err.Error())
+		fmt.Println(delerr.Error())
 		return nil
 	}
 
-	result, jsonerr := resultFromJSON(*item.Body)
-	if jsonerr != nil {
-		fmt.Println(err.Error())
-		return nil
-	}
-	return result
+	return results
 }
 
 func resultFromJSON(str string) (*api.RunnerResult, error) {

infrastructure/infrastructure.go

@@ -67,7 +67,6 @@ func InvokeLambdas(inf Infrastructure) {
 }
 
 func Aggregate(i Infrastructure) chan *result.LambdaResults {
-	fmt.Println("AGGREGATE")
 	results := make(chan *result.LambdaResults)
 	go i.Receive(results)
 	return results