• 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.kms

import cats.effect.Effect
import cats.implicits._
import io.circe.{Decoder, Json}
import org.aws4s.core.ExtraEntityDecoderInstances._
import org.aws4s._
import org.aws4s.core.{Command, CommandPayload, RenderedParam, ServiceName}
import org.http4s.circe._
import org.http4s.headers.{Host, `Content-Type`}
import org.http4s.{Header, Headers, MediaType, Method, Request, Uri}

private[kms] abstract class KmsCommand[F[_]: Effect, R: Decoder] extends Command[F, Json, R] {
  override def serviceName:    ServiceName    = ServiceName.Kms
  override def payloadSigning: PayloadSigning = PayloadSigning.Signed

  def action: String

  override final val requestGenerator: List[RenderedParam[Json]] => F[Request[F]] = { params =>
    val host = s"kms.${region.name}.amazonaws.com"
    val payload: Json = CommandPayload.jsonObject(params)
    Request[F](
      Method.POST,
      Uri.unsafeFromString(s"https://$host/"),
      headers = Headers(Header("X-Amz-Target", s"TrentService.$action"), Host(host))
    ).withBody(payload).map(_.withContentType(`Content-Type`.apply(MediaType.fromKey(("application", "x-amz-json-1.1")))))
  }
}