module Stratosphere.S3Outposts.BucketPolicy (
        BucketPolicy(..), mkBucketPolicy
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data BucketPolicy
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-s3outposts-bucketpolicy.html>
    BucketPolicy {BucketPolicy -> ()
haddock_workaround_ :: (),
                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-s3outposts-bucketpolicy.html#cfn-s3outposts-bucketpolicy-bucket>
                  BucketPolicy -> Value Text
bucket :: (Value Prelude.Text),
                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-s3outposts-bucketpolicy.html#cfn-s3outposts-bucketpolicy-policydocument>
                  BucketPolicy -> Object
policyDocument :: JSON.Object}
  deriving stock (BucketPolicy -> BucketPolicy -> Bool
(BucketPolicy -> BucketPolicy -> Bool)
-> (BucketPolicy -> BucketPolicy -> Bool) -> Eq BucketPolicy
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BucketPolicy -> BucketPolicy -> Bool
== :: BucketPolicy -> BucketPolicy -> Bool
$c/= :: BucketPolicy -> BucketPolicy -> Bool
/= :: BucketPolicy -> BucketPolicy -> Bool
Prelude.Eq, Int -> BucketPolicy -> ShowS
[BucketPolicy] -> ShowS
BucketPolicy -> String
(Int -> BucketPolicy -> ShowS)
-> (BucketPolicy -> String)
-> ([BucketPolicy] -> ShowS)
-> Show BucketPolicy
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> BucketPolicy -> ShowS
showsPrec :: Int -> BucketPolicy -> ShowS
$cshow :: BucketPolicy -> String
show :: BucketPolicy -> String
$cshowList :: [BucketPolicy] -> ShowS
showList :: [BucketPolicy] -> ShowS
Prelude.Show)
mkBucketPolicy :: Value Prelude.Text -> JSON.Object -> BucketPolicy
mkBucketPolicy :: Value Text -> Object -> BucketPolicy
mkBucketPolicy Value Text
bucket Object
policyDocument
  = BucketPolicy
      {haddock_workaround_ :: ()
haddock_workaround_ = (), bucket :: Value Text
bucket = Value Text
bucket,
       policyDocument :: Object
policyDocument = Object
policyDocument}
instance ToResourceProperties BucketPolicy where
  toResourceProperties :: BucketPolicy -> ResourceProperties
toResourceProperties BucketPolicy {()
Object
Value Text
haddock_workaround_ :: BucketPolicy -> ()
bucket :: BucketPolicy -> Value Text
policyDocument :: BucketPolicy -> Object
haddock_workaround_ :: ()
bucket :: Value Text
policyDocument :: Object
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::S3Outposts::BucketPolicy",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"Bucket" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
bucket,
                       Key
"PolicyDocument" Key -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Object
policyDocument]}
instance JSON.ToJSON BucketPolicy where
  toJSON :: BucketPolicy -> Value
toJSON BucketPolicy {()
Object
Value Text
haddock_workaround_ :: BucketPolicy -> ()
bucket :: BucketPolicy -> Value Text
policyDocument :: BucketPolicy -> Object
haddock_workaround_ :: ()
bucket :: Value Text
policyDocument :: Object
..}
    = [(Key, Value)] -> Value
JSON.object
        [Key
"Bucket" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
bucket, Key
"PolicyDocument" Key -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Object
policyDocument]
instance Property "Bucket" BucketPolicy where
  type PropertyType "Bucket" BucketPolicy = Value Prelude.Text
  set :: PropertyType "Bucket" BucketPolicy -> BucketPolicy -> BucketPolicy
set PropertyType "Bucket" BucketPolicy
newValue BucketPolicy {()
Object
Value Text
haddock_workaround_ :: BucketPolicy -> ()
bucket :: BucketPolicy -> Value Text
policyDocument :: BucketPolicy -> Object
haddock_workaround_ :: ()
bucket :: Value Text
policyDocument :: Object
..}
    = BucketPolicy {bucket :: Value Text
bucket = PropertyType "Bucket" BucketPolicy
Value Text
newValue, ()
Object
haddock_workaround_ :: ()
policyDocument :: Object
haddock_workaround_ :: ()
policyDocument :: Object
..}
instance Property "PolicyDocument" BucketPolicy where
  type PropertyType "PolicyDocument" BucketPolicy = JSON.Object
  set :: PropertyType "PolicyDocument" BucketPolicy
-> BucketPolicy -> BucketPolicy
set PropertyType "PolicyDocument" BucketPolicy
newValue BucketPolicy {()
Object
Value Text
haddock_workaround_ :: BucketPolicy -> ()
bucket :: BucketPolicy -> Value Text
policyDocument :: BucketPolicy -> Object
haddock_workaround_ :: ()
bucket :: Value Text
policyDocument :: Object
..}
    = BucketPolicy {policyDocument :: Object
policyDocument = Object
PropertyType "PolicyDocument" BucketPolicy
newValue, ()
Value Text
haddock_workaround_ :: ()
bucket :: Value Text
haddock_workaround_ :: ()
bucket :: Value Text
..}