haskell-cloud-services

Simplifying wrapper for AWS SDKs

Example Wirings

Mail Exchange

import CloudServices     (MailExchange (..))
import CloudServices.AWS (SESEnvironment, awsNorthVirginiaDefaultEnv)

instance MailExchange <runtime implementation> where
    sendMail = sendMailInSES

instance SESEnvironment IO where
    sesEnvironment = awsNorthVirginiaDefaultEnv

MessageQueue

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

Object Store

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

Links

• Amazonka [Hackage] [GitHub]