Simplifying wrapper for AWS SDKs
import CloudServices (MailExchange (..))
import CloudServices.AWS (SESEnvironment, awsNorthVirginiaDefaultEnv)
instance MailExchange <runtime implementation> where
sendMail = sendMailInSES
instance SESEnvironment IO where
sesEnvironment = awsNorthVirginiaDefaultEnv
import CloudServices (MessageQueue (..))
import CloudServices.AWS (SQSEnvironment, awsDefaultEnv)
instance MessageQueue <runtime implementation> where
sendMessage = sendMessageInSQS
receiveMessages = receiveMessagesInSQS
deleteMessage = deleteMessageInSQS
instance SQSEnvironment IO where
sqsEnvironment = awsDefaultEnv
import CloudServices (ObjectStore (..))
import CloudServices.AWS (S3Environment, awsDefaultEnv)
instance ObjectStore <runtime implementation> where
getObject = getObjectInS3
putObject = putObjectInS3
listObjects = listObjectsInS3
instance S3Environment IO where
s3Environment = awsDefaultEnv