module Stratosphere.Resources.SQSQueuePolicy where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
data SQSQueuePolicy =
SQSQueuePolicy
{ _sQSQueuePolicyPolicyDocument :: Object
, _sQSQueuePolicyQueues :: [Val Text]
} deriving (Show, Generic)
instance ToJSON SQSQueuePolicy where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 15, omitNothingFields = True }
instance FromJSON SQSQueuePolicy where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 15, omitNothingFields = True }
sqsQueuePolicy
:: Object
-> [Val Text]
-> SQSQueuePolicy
sqsQueuePolicy policyDocumentarg queuesarg =
SQSQueuePolicy
{ _sQSQueuePolicyPolicyDocument = policyDocumentarg
, _sQSQueuePolicyQueues = queuesarg
}
sqsqpPolicyDocument :: Lens' SQSQueuePolicy Object
sqsqpPolicyDocument = lens _sQSQueuePolicyPolicyDocument (\s a -> s { _sQSQueuePolicyPolicyDocument = a })
sqsqpQueues :: Lens' SQSQueuePolicy [Val Text]
sqsqpQueues = lens _sQSQueuePolicyQueues (\s a -> s { _sQSQueuePolicyQueues = a })