• Example Search
• Project Search

• Java
• Python
• JavaScript
• TypeScript
• C++
• Scala
• Blog

• aws4s-master
  • src
    • main
      • scala
        • org
          • aws4s
            • sqs
              • ReceiptHandle.scala
              • SqsParam.scala
              • SendMessage.scala
              • ReceiveRequestAttemptId.scala
              • Sqs.scala
              • Message.scala
              • ReceiveMessage.scala
              • MessageDeduplicationId.scala
              • TextParamValue.scala
              • Queue.scala
              • SqsCommand.scala
              • DeleteMessage.scala
              • MaxNumberOfMessages.scala
              • SequenceNumber.scala
              • MessageId.scala
              • VisibilityTimeout.scala
              • DelaySeconds.scala
              • WaitTimeSeconds.scala
              • MessageBody.scala
            • Arn.scala
            • s3
              • ListBuckets.scala
              • ObjectPath.scala
              • S3.scala
              • DeleteObject.scala
              • PutObject.scala
              • GetObject.scala
              • S3ObjectCommand.scala
              • BucketName.scala
              • S3ServiceCommand.scala
            • utils
              • Sized.scala
            • kms
              • Decrypt.scala
              • KeyDescription.scala
              • CreateKey.scala
              • GrantToken.scala
              • Kms.scala
              • Ciphertext.scala
              • Encrypt.scala
              • KmsParam.scala
              • GrantTokens.scala
              • Blob.scala
              • ScheduleKeyDeletion.scala
              • KeyMetadata.scala
              • KeyId.scala
              • PendingWindowInDays.scala
              • KmsAggregateParam.scala
              • EncryptionContext.scala
              • Plaintext.scala
              • KmsCommand.scala
            • Failure.scala
            • Region.scala
            • Credentials.scala
            • PayloadSigning.scala
            • dynamodb
              • AttributeType.scala
              • KeySchemaElement.scala
              • TableDescription.scala
              • CreateTable.scala
              • DynamoDbAggregateParam.scala
              • TableName.scala
              • ProvisionedThroughput.scala
              • Index.scala
              • CapacityUnit.scala
              • KeySchema.scala
              • KeyType.scala
              • DynamoDbCommand.scala
              • AttributeDefinition.scala
              • DeleteTable.scala
              • AttributeDefinitions.scala
              • DynamoDbParam.scala
              • DeleteTableSuccess.scala
              • DynamoDb.scala
              • AttributeName.scala
            • core
              • Param.scala
              • RequestSigning.scala
              • ResponseContent.scala
              • CommandPayload.scala
              • Command.scala
              • XmlParsing.scala
              • ServiceName.scala
              • AggregateParamValidator.scala
              • RenderedParam.scala
              • ParamValidator.scala
              • ExtraCirceDecoders.scala
              • Service.scala
              • AggregateParamRenderer.scala
              • Clock.scala
              • ExtraEntityDecoderInstances.scala
              • ParamRenderer.scala
    • test
      • scala
        • org
          • aws4s
            • sqs
              • SqsSmokeTest.scala
            • s3
              • S3SmokeTest.scala
            • kms
              • KmsSmokeTest.scala
            • dynamodb
              • DynamoDbSmokeTest.scala
            • core
              • SmokeTest.scala
              • RequestSigningSpec.scala
  • _config.yml
  • LICENSE
  • project
    • build.properties
    • plugins.sbt
  • .travis.yml
  • README.md
  • .scalafmt.conf
  • build.sbt
  • .gitignore
  • version.sbt

package org.aws4s.sqs

import cats.effect.Effect
import org.http4s.EntityDecoder
import cats.implicits._
import org.aws4s.core.{CommandPayload, ExtraEntityDecoderInstances, Param}

private[sqs] case class ReceiveMessage[F[_]: Effect](
    q:                       Queue,
    maxNumberOfMessages:     Option[MaxNumberOfMessages],
    visibilityTimeout:       Option[VisibilityTimeout],
    waitTimeSeconds:         Option[WaitTimeSeconds],
    receiveRequestAttemptId: Option[ReceiveRequestAttemptId],
) extends SqsCommand[F, ReceiveMessageSuccess] {

  override val action: String = "ReceiveMessage"

  override final val params: List[Param[String]] =
    CommandPayload.params()(
      maxNumberOfMessages,
      visibilityTimeout,
      waitTimeSeconds,
      receiveRequestAttemptId
    )
}

case class ReceiveMessageSuccess(
    messages: List[Message]
)

object ReceiveMessageSuccess {
  implicit def entityDecoder[F[_]: Effect]: EntityDecoder[F, ReceiveMessageSuccess] =
    ExtraEntityDecoderInstances.fromXml { elem =>
      if (elem.label == "ReceiveMessageResponse")
        (elem \ "ReceiveMessageResult" \ "Message").toList.traverse(Message.parse) map { messages =>
          ReceiveMessageSuccess(messages)
        } else None
    }
}