module Stratosphere.CloudFront.KeyValueStore.ImportSourceProperty (
        ImportSourceProperty(..), mkImportSourceProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data ImportSourceProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-keyvaluestore-importsource.html>
    ImportSourceProperty {ImportSourceProperty -> ()
haddock_workaround_ :: (),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-keyvaluestore-importsource.html#cfn-cloudfront-keyvaluestore-importsource-sourcearn>
                          ImportSourceProperty -> Value Text
sourceArn :: (Value Prelude.Text),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-keyvaluestore-importsource.html#cfn-cloudfront-keyvaluestore-importsource-sourcetype>
                          ImportSourceProperty -> Value Text
sourceType :: (Value Prelude.Text)}
  deriving stock (ImportSourceProperty -> ImportSourceProperty -> Bool
(ImportSourceProperty -> ImportSourceProperty -> Bool)
-> (ImportSourceProperty -> ImportSourceProperty -> Bool)
-> Eq ImportSourceProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ImportSourceProperty -> ImportSourceProperty -> Bool
== :: ImportSourceProperty -> ImportSourceProperty -> Bool
$c/= :: ImportSourceProperty -> ImportSourceProperty -> Bool
/= :: ImportSourceProperty -> ImportSourceProperty -> Bool
Prelude.Eq, Int -> ImportSourceProperty -> ShowS
[ImportSourceProperty] -> ShowS
ImportSourceProperty -> String
(Int -> ImportSourceProperty -> ShowS)
-> (ImportSourceProperty -> String)
-> ([ImportSourceProperty] -> ShowS)
-> Show ImportSourceProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ImportSourceProperty -> ShowS
showsPrec :: Int -> ImportSourceProperty -> ShowS
$cshow :: ImportSourceProperty -> String
show :: ImportSourceProperty -> String
$cshowList :: [ImportSourceProperty] -> ShowS
showList :: [ImportSourceProperty] -> ShowS
Prelude.Show)
mkImportSourceProperty ::
  Value Prelude.Text -> Value Prelude.Text -> ImportSourceProperty
mkImportSourceProperty :: Value Text -> Value Text -> ImportSourceProperty
mkImportSourceProperty Value Text
sourceArn Value Text
sourceType
  = ImportSourceProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), sourceArn :: Value Text
sourceArn = Value Text
sourceArn,
       sourceType :: Value Text
sourceType = Value Text
sourceType}
instance ToResourceProperties ImportSourceProperty where
  toResourceProperties :: ImportSourceProperty -> ResourceProperties
toResourceProperties ImportSourceProperty {()
Value Text
haddock_workaround_ :: ImportSourceProperty -> ()
sourceArn :: ImportSourceProperty -> Value Text
sourceType :: ImportSourceProperty -> Value Text
haddock_workaround_ :: ()
sourceArn :: Value Text
sourceType :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::CloudFront::KeyValueStore.ImportSource",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"SourceArn" 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
sourceArn,
                       Key
"SourceType" 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
sourceType]}
instance JSON.ToJSON ImportSourceProperty where
  toJSON :: ImportSourceProperty -> Value
toJSON ImportSourceProperty {()
Value Text
haddock_workaround_ :: ImportSourceProperty -> ()
sourceArn :: ImportSourceProperty -> Value Text
sourceType :: ImportSourceProperty -> Value Text
haddock_workaround_ :: ()
sourceArn :: Value Text
sourceType :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object
        [Key
"SourceArn" 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
sourceArn, Key
"SourceType" 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
sourceType]
instance Property "SourceArn" ImportSourceProperty where
  type PropertyType "SourceArn" ImportSourceProperty = Value Prelude.Text
  set :: PropertyType "SourceArn" ImportSourceProperty
-> ImportSourceProperty -> ImportSourceProperty
set PropertyType "SourceArn" ImportSourceProperty
newValue ImportSourceProperty {()
Value Text
haddock_workaround_ :: ImportSourceProperty -> ()
sourceArn :: ImportSourceProperty -> Value Text
sourceType :: ImportSourceProperty -> Value Text
haddock_workaround_ :: ()
sourceArn :: Value Text
sourceType :: Value Text
..}
    = ImportSourceProperty {sourceArn :: Value Text
sourceArn = PropertyType "SourceArn" ImportSourceProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
sourceType :: Value Text
haddock_workaround_ :: ()
sourceType :: Value Text
..}
instance Property "SourceType" ImportSourceProperty where
  type PropertyType "SourceType" ImportSourceProperty = Value Prelude.Text
  set :: PropertyType "SourceType" ImportSourceProperty
-> ImportSourceProperty -> ImportSourceProperty
set PropertyType "SourceType" ImportSourceProperty
newValue ImportSourceProperty {()
Value Text
haddock_workaround_ :: ImportSourceProperty -> ()
sourceArn :: ImportSourceProperty -> Value Text
sourceType :: ImportSourceProperty -> Value Text
haddock_workaround_ :: ()
sourceArn :: Value Text
sourceType :: Value Text
..}
    = ImportSourceProperty {sourceType :: Value Text
sourceType = PropertyType "SourceType" ImportSourceProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
sourceArn :: Value Text
haddock_workaround_ :: ()
sourceArn :: Value Text
..}