module Aws.Route53.Commands.ChangeResourceRecordSets where
import Aws.Route53.Core
import Aws.Core
import Text.Hamlet.XML (xml)
import qualified Data.Text as T
import qualified Data.Text.Encoding as T
import Data.Map (empty)
import qualified Text.XML as XML
import qualified Data.ByteString as B
data ACTION = CREATE | DELETE | UPSERT
deriving (Show)
data ChangeResourceRecordSets = ChangeResourceRecordSets
{ crrHostedZoneId :: HostedZoneId
, crrComment :: Maybe T.Text
, crrsChanges :: [(ACTION, ResourceRecordSet)]
} deriving (Show)
data ChangeResourceRecordSetsResponse = ChangeResourceRecordSetsResponse
{ crrsrChangeInfo :: ChangeInfo
} deriving (Show)
instance SignQuery ChangeResourceRecordSets where
type ServiceConfiguration ChangeResourceRecordSets = Route53Configuration
signQuery ChangeResourceRecordSets{..} = route53SignQuery method resource query body
where
method = Post
resource = (T.encodeUtf8 . qualifiedIdText) crrHostedZoneId `B.append` "/rrset"
query = []
body = Just $ XML.Element "ChangeResourceRecordSetsRequest" empty
[xml|
<ChangeBatch>
$maybe c <- crrComment
<Comment>#{c}
<Changes>
$forall change <- crrsChanges
<Change>
<Action>#{T.pack (show (fst change))}
^{[XML.NodeElement (toXml (snd change))]}
|]
instance ResponseConsumer r ChangeResourceRecordSetsResponse where
type ResponseMetadata ChangeResourceRecordSetsResponse = Route53Metadata
responseConsumer _ = route53ResponseConsumer parse
where
parse cursor = do
route53CheckResponseType () "ChangeResourceRecordSetsResponse" cursor
changeInfo <- r53Parse cursor
return $ ChangeResourceRecordSetsResponse changeInfo
instance Transaction ChangeResourceRecordSets ChangeResourceRecordSetsResponse