module Stratosphere.CloudFront.StreamingDistribution.S3OriginProperty (
        S3OriginProperty(..), mkS3OriginProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data S3OriginProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-s3origin.html>
    S3OriginProperty {S3OriginProperty -> ()
haddock_workaround_ :: (),
                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-s3origin.html#cfn-cloudfront-streamingdistribution-s3origin-domainname>
                      S3OriginProperty -> Value Text
domainName :: (Value Prelude.Text),
                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-s3origin.html#cfn-cloudfront-streamingdistribution-s3origin-originaccessidentity>
                      S3OriginProperty -> Value Text
originAccessIdentity :: (Value Prelude.Text)}
  deriving stock (S3OriginProperty -> S3OriginProperty -> Bool
(S3OriginProperty -> S3OriginProperty -> Bool)
-> (S3OriginProperty -> S3OriginProperty -> Bool)
-> Eq S3OriginProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: S3OriginProperty -> S3OriginProperty -> Bool
== :: S3OriginProperty -> S3OriginProperty -> Bool
$c/= :: S3OriginProperty -> S3OriginProperty -> Bool
/= :: S3OriginProperty -> S3OriginProperty -> Bool
Prelude.Eq, Int -> S3OriginProperty -> ShowS
[S3OriginProperty] -> ShowS
S3OriginProperty -> String
(Int -> S3OriginProperty -> ShowS)
-> (S3OriginProperty -> String)
-> ([S3OriginProperty] -> ShowS)
-> Show S3OriginProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> S3OriginProperty -> ShowS
showsPrec :: Int -> S3OriginProperty -> ShowS
$cshow :: S3OriginProperty -> String
show :: S3OriginProperty -> String
$cshowList :: [S3OriginProperty] -> ShowS
showList :: [S3OriginProperty] -> ShowS
Prelude.Show)
mkS3OriginProperty ::
  Value Prelude.Text -> Value Prelude.Text -> S3OriginProperty
mkS3OriginProperty :: Value Text -> Value Text -> S3OriginProperty
mkS3OriginProperty Value Text
domainName Value Text
originAccessIdentity
  = S3OriginProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), domainName :: Value Text
domainName = Value Text
domainName,
       originAccessIdentity :: Value Text
originAccessIdentity = Value Text
originAccessIdentity}
instance ToResourceProperties S3OriginProperty where
  toResourceProperties :: S3OriginProperty -> ResourceProperties
toResourceProperties S3OriginProperty {()
Value Text
haddock_workaround_ :: S3OriginProperty -> ()
domainName :: S3OriginProperty -> Value Text
originAccessIdentity :: S3OriginProperty -> Value Text
haddock_workaround_ :: ()
domainName :: Value Text
originAccessIdentity :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::CloudFront::StreamingDistribution.S3Origin",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"DomainName" 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
domainName,
                       Key
"OriginAccessIdentity" 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
originAccessIdentity]}
instance JSON.ToJSON S3OriginProperty where
  toJSON :: S3OriginProperty -> Value
toJSON S3OriginProperty {()
Value Text
haddock_workaround_ :: S3OriginProperty -> ()
domainName :: S3OriginProperty -> Value Text
originAccessIdentity :: S3OriginProperty -> Value Text
haddock_workaround_ :: ()
domainName :: Value Text
originAccessIdentity :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object
        [Key
"DomainName" 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
domainName,
         Key
"OriginAccessIdentity" 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
originAccessIdentity]
instance Property "DomainName" S3OriginProperty where
  type PropertyType "DomainName" S3OriginProperty = Value Prelude.Text
  set :: PropertyType "DomainName" S3OriginProperty
-> S3OriginProperty -> S3OriginProperty
set PropertyType "DomainName" S3OriginProperty
newValue S3OriginProperty {()
Value Text
haddock_workaround_ :: S3OriginProperty -> ()
domainName :: S3OriginProperty -> Value Text
originAccessIdentity :: S3OriginProperty -> Value Text
haddock_workaround_ :: ()
domainName :: Value Text
originAccessIdentity :: Value Text
..}
    = S3OriginProperty {domainName :: Value Text
domainName = PropertyType "DomainName" S3OriginProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
originAccessIdentity :: Value Text
haddock_workaround_ :: ()
originAccessIdentity :: Value Text
..}
instance Property "OriginAccessIdentity" S3OriginProperty where
  type PropertyType "OriginAccessIdentity" S3OriginProperty = Value Prelude.Text
  set :: PropertyType "OriginAccessIdentity" S3OriginProperty
-> S3OriginProperty -> S3OriginProperty
set PropertyType "OriginAccessIdentity" S3OriginProperty
newValue S3OriginProperty {()
Value Text
haddock_workaround_ :: S3OriginProperty -> ()
domainName :: S3OriginProperty -> Value Text
originAccessIdentity :: S3OriginProperty -> Value Text
haddock_workaround_ :: ()
domainName :: Value Text
originAccessIdentity :: Value Text
..}
    = S3OriginProperty {originAccessIdentity :: Value Text
originAccessIdentity = PropertyType "OriginAccessIdentity" S3OriginProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
domainName :: Value Text
haddock_workaround_ :: ()
domainName :: Value Text
..}