• 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.headers.Host
import org.http4s.{EntityDecoder, Headers, Method, Request, UrlForm}
import org.aws4s._
import org.aws4s.core.Command.Validator
import org.aws4s.core.{Command, RenderedParam, ServiceName}

private[sqs] abstract class SqsCommand[F[_]: Effect, R: EntityDecoder[F, ?]] extends Command[F, String, R] {

  val q:      Queue
  val action: String

  override final val serviceName:    ServiceName    = ServiceName.Sqs
  override final val payloadSigning: PayloadSigning = PayloadSigning.Signed
  override final val region: Region = q.region

  override final val validator: Validator[String] = _ => None
  override final val requestGenerator: List[RenderedParam[String]] => F[Request[F]] = { params =>
    val body = params.map(p => (p.name, p.value)).foldLeft(UrlForm())((form, newPair) => form + newPair) + ("Action" -> action)
    Request[F](Method.POST, q.uri, headers = Headers(Host(q.host))).withBody[UrlForm](body)
  }
}