module Aws.SimpleDb.Commands.CreateDomain
where
import Aws.Response
import Aws.Signature
import Aws.SimpleDb.Info
import Aws.SimpleDb.Metadata
import Aws.SimpleDb.Query
import Aws.SimpleDb.Response
import Aws.Transaction
import qualified Data.Text as T
import qualified Data.Text.Encoding as T
data CreateDomain
= CreateDomain {
cdDomainName :: T.Text
}
deriving (Show)
data CreateDomainResponse
= CreateDomainResponse
deriving (Show)
createDomain :: T.Text -> CreateDomain
createDomain name = CreateDomain { cdDomainName = name }
instance SignQuery CreateDomain where
type Info CreateDomain = SdbInfo
signQuery CreateDomain{..} = sdbSignQuery [("Action", "CreateDomain"), ("DomainName", T.encodeUtf8 cdDomainName)]
instance ResponseIteratee CreateDomainResponse where
type ResponseMetadata CreateDomainResponse = SdbMetadata
responseIteratee = sdbResponseIteratee $ sdbCheckResponseType CreateDomainResponse "CreateDomainResponse"
instance Transaction CreateDomain CreateDomainResponse