stratosphere-cloud9-1.0.0: gen/Stratosphere/Cloud9/EnvironmentEC2/RepositoryProperty.hs

module Stratosphere.Cloud9.EnvironmentEC2.RepositoryProperty (
        RepositoryProperty(..), mkRepositoryProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data RepositoryProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloud9-environmentec2-repository.html>
    RepositoryProperty {haddock_workaround_ :: (),
                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloud9-environmentec2-repository.html#cfn-cloud9-environmentec2-repository-pathcomponent>
                        pathComponent :: (Value Prelude.Text),
                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloud9-environmentec2-repository.html#cfn-cloud9-environmentec2-repository-repositoryurl>
                        repositoryUrl :: (Value Prelude.Text)}
  deriving stock (Prelude.Eq, Prelude.Show)
mkRepositoryProperty ::
  Value Prelude.Text -> Value Prelude.Text -> RepositoryProperty
mkRepositoryProperty pathComponent repositoryUrl
  = RepositoryProperty
      {haddock_workaround_ = (), pathComponent = pathComponent,
       repositoryUrl = repositoryUrl}
instance ToResourceProperties RepositoryProperty where
  toResourceProperties RepositoryProperty {..}
    = ResourceProperties
        {awsType = "AWS::Cloud9::EnvironmentEC2.Repository",
         supportsTags = Prelude.False,
         properties = ["PathComponent" JSON..= pathComponent,
                       "RepositoryUrl" JSON..= repositoryUrl]}
instance JSON.ToJSON RepositoryProperty where
  toJSON RepositoryProperty {..}
    = JSON.object
        ["PathComponent" JSON..= pathComponent,
         "RepositoryUrl" JSON..= repositoryUrl]
instance Property "PathComponent" RepositoryProperty where
  type PropertyType "PathComponent" RepositoryProperty = Value Prelude.Text
  set newValue RepositoryProperty {..}
    = RepositoryProperty {pathComponent = newValue, ..}
instance Property "RepositoryUrl" RepositoryProperty where
  type PropertyType "RepositoryUrl" RepositoryProperty = Value Prelude.Text
  set newValue RepositoryProperty {..}
    = RepositoryProperty {repositoryUrl = newValue, ..}