module Stratosphere.S3ObjectLambda.AccessPointPolicy (
        AccessPointPolicy(..), mkAccessPointPolicy
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data AccessPointPolicy
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-s3objectlambda-accesspointpolicy.html>
    AccessPointPolicy {AccessPointPolicy -> ()
haddock_workaround_ :: (),
                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-s3objectlambda-accesspointpolicy.html#cfn-s3objectlambda-accesspointpolicy-objectlambdaaccesspoint>
                       AccessPointPolicy -> Value Text
objectLambdaAccessPoint :: (Value Prelude.Text),
                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-s3objectlambda-accesspointpolicy.html#cfn-s3objectlambda-accesspointpolicy-policydocument>
                       AccessPointPolicy -> Object
policyDocument :: JSON.Object}
  deriving stock (AccessPointPolicy -> AccessPointPolicy -> Bool
(AccessPointPolicy -> AccessPointPolicy -> Bool)
-> (AccessPointPolicy -> AccessPointPolicy -> Bool)
-> Eq AccessPointPolicy
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AccessPointPolicy -> AccessPointPolicy -> Bool
== :: AccessPointPolicy -> AccessPointPolicy -> Bool
$c/= :: AccessPointPolicy -> AccessPointPolicy -> Bool
/= :: AccessPointPolicy -> AccessPointPolicy -> Bool
Prelude.Eq, Int -> AccessPointPolicy -> ShowS
[AccessPointPolicy] -> ShowS
AccessPointPolicy -> String
(Int -> AccessPointPolicy -> ShowS)
-> (AccessPointPolicy -> String)
-> ([AccessPointPolicy] -> ShowS)
-> Show AccessPointPolicy
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AccessPointPolicy -> ShowS
showsPrec :: Int -> AccessPointPolicy -> ShowS
$cshow :: AccessPointPolicy -> String
show :: AccessPointPolicy -> String
$cshowList :: [AccessPointPolicy] -> ShowS
showList :: [AccessPointPolicy] -> ShowS
Prelude.Show)
mkAccessPointPolicy ::
  Value Prelude.Text -> JSON.Object -> AccessPointPolicy
mkAccessPointPolicy :: Value Text -> Object -> AccessPointPolicy
mkAccessPointPolicy Value Text
objectLambdaAccessPoint Object
policyDocument
  = AccessPointPolicy
      {haddock_workaround_ :: ()
haddock_workaround_ = (),
       objectLambdaAccessPoint :: Value Text
objectLambdaAccessPoint = Value Text
objectLambdaAccessPoint,
       policyDocument :: Object
policyDocument = Object
policyDocument}
instance ToResourceProperties AccessPointPolicy where
  toResourceProperties :: AccessPointPolicy -> ResourceProperties
toResourceProperties AccessPointPolicy {()
Object
Value Text
haddock_workaround_ :: AccessPointPolicy -> ()
objectLambdaAccessPoint :: AccessPointPolicy -> Value Text
policyDocument :: AccessPointPolicy -> Object
haddock_workaround_ :: ()
objectLambdaAccessPoint :: Value Text
policyDocument :: Object
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::S3ObjectLambda::AccessPointPolicy",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"ObjectLambdaAccessPoint"
                         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
objectLambdaAccessPoint,
                       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 AccessPointPolicy where
  toJSON :: AccessPointPolicy -> Value
toJSON AccessPointPolicy {()
Object
Value Text
haddock_workaround_ :: AccessPointPolicy -> ()
objectLambdaAccessPoint :: AccessPointPolicy -> Value Text
policyDocument :: AccessPointPolicy -> Object
haddock_workaround_ :: ()
objectLambdaAccessPoint :: Value Text
policyDocument :: Object
..}
    = [(Key, Value)] -> Value
JSON.object
        [Key
"ObjectLambdaAccessPoint" 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
objectLambdaAccessPoint,
         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 "ObjectLambdaAccessPoint" AccessPointPolicy where
  type PropertyType "ObjectLambdaAccessPoint" AccessPointPolicy = Value Prelude.Text
  set :: PropertyType "ObjectLambdaAccessPoint" AccessPointPolicy
-> AccessPointPolicy -> AccessPointPolicy
set PropertyType "ObjectLambdaAccessPoint" AccessPointPolicy
newValue AccessPointPolicy {()
Object
Value Text
haddock_workaround_ :: AccessPointPolicy -> ()
objectLambdaAccessPoint :: AccessPointPolicy -> Value Text
policyDocument :: AccessPointPolicy -> Object
haddock_workaround_ :: ()
objectLambdaAccessPoint :: Value Text
policyDocument :: Object
..}
    = AccessPointPolicy {objectLambdaAccessPoint :: Value Text
objectLambdaAccessPoint = PropertyType "ObjectLambdaAccessPoint" AccessPointPolicy
Value Text
newValue, ()
Object
haddock_workaround_ :: ()
policyDocument :: Object
haddock_workaround_ :: ()
policyDocument :: Object
..}
instance Property "PolicyDocument" AccessPointPolicy where
  type PropertyType "PolicyDocument" AccessPointPolicy = JSON.Object
  set :: PropertyType "PolicyDocument" AccessPointPolicy
-> AccessPointPolicy -> AccessPointPolicy
set PropertyType "PolicyDocument" AccessPointPolicy
newValue AccessPointPolicy {()
Object
Value Text
haddock_workaround_ :: AccessPointPolicy -> ()
objectLambdaAccessPoint :: AccessPointPolicy -> Value Text
policyDocument :: AccessPointPolicy -> Object
haddock_workaround_ :: ()
objectLambdaAccessPoint :: Value Text
policyDocument :: Object
..}
    = AccessPointPolicy {policyDocument :: Object
policyDocument = Object
PropertyType "PolicyDocument" AccessPointPolicy
newValue, ()
Value Text
haddock_workaround_ :: ()
objectLambdaAccessPoint :: Value Text
haddock_workaround_ :: ()
objectLambdaAccessPoint :: Value Text
..}