module Stratosphere.Lightsail.Container (
module Exports, Container(..), mkContainer
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Lightsail.Container.ContainerServiceDeploymentProperty as Exports
import {-# SOURCE #-} Stratosphere.Lightsail.Container.PrivateRegistryAccessProperty as Exports
import {-# SOURCE #-} Stratosphere.Lightsail.Container.PublicDomainNameProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Tag
import Stratosphere.Value
data Container
=
Container {Container -> ()
haddock_workaround_ :: (),
Container -> Maybe ContainerServiceDeploymentProperty
containerServiceDeployment :: (Prelude.Maybe ContainerServiceDeploymentProperty),
Container -> Maybe (Value Bool)
isDisabled :: (Prelude.Maybe (Value Prelude.Bool)),
Container -> Value Text
power :: (Value Prelude.Text),
Container -> Maybe PrivateRegistryAccessProperty
privateRegistryAccess :: (Prelude.Maybe PrivateRegistryAccessProperty),
Container -> Maybe [PublicDomainNameProperty]
publicDomainNames :: (Prelude.Maybe [PublicDomainNameProperty]),
Container -> Value Integer
scale :: (Value Prelude.Integer),
Container -> Value Text
serviceName :: (Value Prelude.Text),
Container -> Maybe [Tag]
tags :: (Prelude.Maybe [Tag])}
deriving stock (Container -> Container -> Bool
(Container -> Container -> Bool)
-> (Container -> Container -> Bool) -> Eq Container
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Container -> Container -> Bool
== :: Container -> Container -> Bool
$c/= :: Container -> Container -> Bool
/= :: Container -> Container -> Bool
Prelude.Eq, Int -> Container -> ShowS
[Container] -> ShowS
Container -> String
(Int -> Container -> ShowS)
-> (Container -> String)
-> ([Container] -> ShowS)
-> Show Container
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Container -> ShowS
showsPrec :: Int -> Container -> ShowS
$cshow :: Container -> String
show :: Container -> String
$cshowList :: [Container] -> ShowS
showList :: [Container] -> ShowS
Prelude.Show)
mkContainer ::
Value Prelude.Text
-> Value Prelude.Integer -> Value Prelude.Text -> Container
mkContainer :: Value Text -> Value Integer -> Value Text -> Container
mkContainer Value Text
power Value Integer
scale Value Text
serviceName
= Container
{haddock_workaround_ :: ()
haddock_workaround_ = (), power :: Value Text
power = Value Text
power, scale :: Value Integer
scale = Value Integer
scale,
serviceName :: Value Text
serviceName = Value Text
serviceName,
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
containerServiceDeployment = Maybe ContainerServiceDeploymentProperty
forall a. Maybe a
Prelude.Nothing,
isDisabled :: Maybe (Value Bool)
isDisabled = Maybe (Value Bool)
forall a. Maybe a
Prelude.Nothing,
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
privateRegistryAccess = Maybe PrivateRegistryAccessProperty
forall a. Maybe a
Prelude.Nothing,
publicDomainNames :: Maybe [PublicDomainNameProperty]
publicDomainNames = Maybe [PublicDomainNameProperty]
forall a. Maybe a
Prelude.Nothing, tags :: Maybe [Tag]
tags = Maybe [Tag]
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties Container where
toResourceProperties :: Container -> ResourceProperties
toResourceProperties Container {Maybe [Tag]
Maybe [PublicDomainNameProperty]
Maybe (Value Bool)
Maybe PrivateRegistryAccessProperty
Maybe ContainerServiceDeploymentProperty
()
Value Integer
Value Text
haddock_workaround_ :: Container -> ()
containerServiceDeployment :: Container -> Maybe ContainerServiceDeploymentProperty
isDisabled :: Container -> Maybe (Value Bool)
power :: Container -> Value Text
privateRegistryAccess :: Container -> Maybe PrivateRegistryAccessProperty
publicDomainNames :: Container -> Maybe [PublicDomainNameProperty]
scale :: Container -> Value Integer
serviceName :: Container -> Value Text
tags :: Container -> Maybe [Tag]
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::Lightsail::Container",
supportsTags :: Bool
supportsTags = Bool
Prelude.True,
properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
[Key
"Power" 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
power, Key
"Scale" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
scale,
Key
"ServiceName" 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
serviceName]
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> ContainerServiceDeploymentProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ContainerServiceDeployment"
(ContainerServiceDeploymentProperty -> (Key, Value))
-> Maybe ContainerServiceDeploymentProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ContainerServiceDeploymentProperty
containerServiceDeployment,
Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"IsDisabled" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
isDisabled,
Key -> PrivateRegistryAccessProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PrivateRegistryAccess"
(PrivateRegistryAccessProperty -> (Key, Value))
-> Maybe PrivateRegistryAccessProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PrivateRegistryAccessProperty
privateRegistryAccess,
Key -> [PublicDomainNameProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PublicDomainNames" ([PublicDomainNameProperty] -> (Key, Value))
-> Maybe [PublicDomainNameProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [PublicDomainNameProperty]
publicDomainNames,
Key -> [Tag] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" ([Tag] -> (Key, Value)) -> Maybe [Tag] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags]))}
instance JSON.ToJSON Container where
toJSON :: Container -> Value
toJSON Container {Maybe [Tag]
Maybe [PublicDomainNameProperty]
Maybe (Value Bool)
Maybe PrivateRegistryAccessProperty
Maybe ContainerServiceDeploymentProperty
()
Value Integer
Value Text
haddock_workaround_ :: Container -> ()
containerServiceDeployment :: Container -> Maybe ContainerServiceDeploymentProperty
isDisabled :: Container -> Maybe (Value Bool)
power :: Container -> Value Text
privateRegistryAccess :: Container -> Maybe PrivateRegistryAccessProperty
publicDomainNames :: Container -> Maybe [PublicDomainNameProperty]
scale :: Container -> Value Integer
serviceName :: Container -> Value Text
tags :: Container -> Maybe [Tag]
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
..}
= [(Key, Value)] -> Value
JSON.object
([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
[Key
"Power" 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
power, Key
"Scale" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
scale,
Key
"ServiceName" 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
serviceName]
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> ContainerServiceDeploymentProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ContainerServiceDeployment"
(ContainerServiceDeploymentProperty -> (Key, Value))
-> Maybe ContainerServiceDeploymentProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ContainerServiceDeploymentProperty
containerServiceDeployment,
Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"IsDisabled" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
isDisabled,
Key -> PrivateRegistryAccessProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PrivateRegistryAccess"
(PrivateRegistryAccessProperty -> (Key, Value))
-> Maybe PrivateRegistryAccessProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PrivateRegistryAccessProperty
privateRegistryAccess,
Key -> [PublicDomainNameProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PublicDomainNames" ([PublicDomainNameProperty] -> (Key, Value))
-> Maybe [PublicDomainNameProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [PublicDomainNameProperty]
publicDomainNames,
Key -> [Tag] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" ([Tag] -> (Key, Value)) -> Maybe [Tag] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags])))
instance Property "ContainerServiceDeployment" Container where
type PropertyType "ContainerServiceDeployment" Container = ContainerServiceDeploymentProperty
set :: PropertyType "ContainerServiceDeployment" Container
-> Container -> Container
set PropertyType "ContainerServiceDeployment" Container
newValue Container {Maybe [Tag]
Maybe [PublicDomainNameProperty]
Maybe (Value Bool)
Maybe PrivateRegistryAccessProperty
Maybe ContainerServiceDeploymentProperty
()
Value Integer
Value Text
haddock_workaround_ :: Container -> ()
containerServiceDeployment :: Container -> Maybe ContainerServiceDeploymentProperty
isDisabled :: Container -> Maybe (Value Bool)
power :: Container -> Value Text
privateRegistryAccess :: Container -> Maybe PrivateRegistryAccessProperty
publicDomainNames :: Container -> Maybe [PublicDomainNameProperty]
scale :: Container -> Value Integer
serviceName :: Container -> Value Text
tags :: Container -> Maybe [Tag]
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
..}
= Container
{containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
containerServiceDeployment = ContainerServiceDeploymentProperty
-> Maybe ContainerServiceDeploymentProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ContainerServiceDeployment" Container
ContainerServiceDeploymentProperty
newValue, Maybe [Tag]
Maybe [PublicDomainNameProperty]
Maybe (Value Bool)
Maybe PrivateRegistryAccessProperty
()
Value Integer
Value Text
haddock_workaround_ :: ()
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
haddock_workaround_ :: ()
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
..}
instance Property "IsDisabled" Container where
type PropertyType "IsDisabled" Container = Value Prelude.Bool
set :: PropertyType "IsDisabled" Container -> Container -> Container
set PropertyType "IsDisabled" Container
newValue Container {Maybe [Tag]
Maybe [PublicDomainNameProperty]
Maybe (Value Bool)
Maybe PrivateRegistryAccessProperty
Maybe ContainerServiceDeploymentProperty
()
Value Integer
Value Text
haddock_workaround_ :: Container -> ()
containerServiceDeployment :: Container -> Maybe ContainerServiceDeploymentProperty
isDisabled :: Container -> Maybe (Value Bool)
power :: Container -> Value Text
privateRegistryAccess :: Container -> Maybe PrivateRegistryAccessProperty
publicDomainNames :: Container -> Maybe [PublicDomainNameProperty]
scale :: Container -> Value Integer
serviceName :: Container -> Value Text
tags :: Container -> Maybe [Tag]
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
..}
= Container {isDisabled :: Maybe (Value Bool)
isDisabled = Value Bool -> Maybe (Value Bool)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "IsDisabled" Container
Value Bool
newValue, Maybe [Tag]
Maybe [PublicDomainNameProperty]
Maybe PrivateRegistryAccessProperty
Maybe ContainerServiceDeploymentProperty
()
Value Integer
Value Text
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
..}
instance Property "Power" Container where
type PropertyType "Power" Container = Value Prelude.Text
set :: PropertyType "Power" Container -> Container -> Container
set PropertyType "Power" Container
newValue Container {Maybe [Tag]
Maybe [PublicDomainNameProperty]
Maybe (Value Bool)
Maybe PrivateRegistryAccessProperty
Maybe ContainerServiceDeploymentProperty
()
Value Integer
Value Text
haddock_workaround_ :: Container -> ()
containerServiceDeployment :: Container -> Maybe ContainerServiceDeploymentProperty
isDisabled :: Container -> Maybe (Value Bool)
power :: Container -> Value Text
privateRegistryAccess :: Container -> Maybe PrivateRegistryAccessProperty
publicDomainNames :: Container -> Maybe [PublicDomainNameProperty]
scale :: Container -> Value Integer
serviceName :: Container -> Value Text
tags :: Container -> Maybe [Tag]
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
..} = Container {power :: Value Text
power = PropertyType "Power" Container
Value Text
newValue, Maybe [Tag]
Maybe [PublicDomainNameProperty]
Maybe (Value Bool)
Maybe PrivateRegistryAccessProperty
Maybe ContainerServiceDeploymentProperty
()
Value Integer
Value Text
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
..}
instance Property "PrivateRegistryAccess" Container where
type PropertyType "PrivateRegistryAccess" Container = PrivateRegistryAccessProperty
set :: PropertyType "PrivateRegistryAccess" Container
-> Container -> Container
set PropertyType "PrivateRegistryAccess" Container
newValue Container {Maybe [Tag]
Maybe [PublicDomainNameProperty]
Maybe (Value Bool)
Maybe PrivateRegistryAccessProperty
Maybe ContainerServiceDeploymentProperty
()
Value Integer
Value Text
haddock_workaround_ :: Container -> ()
containerServiceDeployment :: Container -> Maybe ContainerServiceDeploymentProperty
isDisabled :: Container -> Maybe (Value Bool)
power :: Container -> Value Text
privateRegistryAccess :: Container -> Maybe PrivateRegistryAccessProperty
publicDomainNames :: Container -> Maybe [PublicDomainNameProperty]
scale :: Container -> Value Integer
serviceName :: Container -> Value Text
tags :: Container -> Maybe [Tag]
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
..}
= Container {privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
privateRegistryAccess = PrivateRegistryAccessProperty
-> Maybe PrivateRegistryAccessProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "PrivateRegistryAccess" Container
PrivateRegistryAccessProperty
newValue, Maybe [Tag]
Maybe [PublicDomainNameProperty]
Maybe (Value Bool)
Maybe ContainerServiceDeploymentProperty
()
Value Integer
Value Text
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
..}
instance Property "PublicDomainNames" Container where
type PropertyType "PublicDomainNames" Container = [PublicDomainNameProperty]
set :: PropertyType "PublicDomainNames" Container
-> Container -> Container
set PropertyType "PublicDomainNames" Container
newValue Container {Maybe [Tag]
Maybe [PublicDomainNameProperty]
Maybe (Value Bool)
Maybe PrivateRegistryAccessProperty
Maybe ContainerServiceDeploymentProperty
()
Value Integer
Value Text
haddock_workaround_ :: Container -> ()
containerServiceDeployment :: Container -> Maybe ContainerServiceDeploymentProperty
isDisabled :: Container -> Maybe (Value Bool)
power :: Container -> Value Text
privateRegistryAccess :: Container -> Maybe PrivateRegistryAccessProperty
publicDomainNames :: Container -> Maybe [PublicDomainNameProperty]
scale :: Container -> Value Integer
serviceName :: Container -> Value Text
tags :: Container -> Maybe [Tag]
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
..}
= Container {publicDomainNames :: Maybe [PublicDomainNameProperty]
publicDomainNames = [PublicDomainNameProperty] -> Maybe [PublicDomainNameProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [PublicDomainNameProperty]
PropertyType "PublicDomainNames" Container
newValue, Maybe [Tag]
Maybe (Value Bool)
Maybe PrivateRegistryAccessProperty
Maybe ContainerServiceDeploymentProperty
()
Value Integer
Value Text
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
..}
instance Property "Scale" Container where
type PropertyType "Scale" Container = Value Prelude.Integer
set :: PropertyType "Scale" Container -> Container -> Container
set PropertyType "Scale" Container
newValue Container {Maybe [Tag]
Maybe [PublicDomainNameProperty]
Maybe (Value Bool)
Maybe PrivateRegistryAccessProperty
Maybe ContainerServiceDeploymentProperty
()
Value Integer
Value Text
haddock_workaround_ :: Container -> ()
containerServiceDeployment :: Container -> Maybe ContainerServiceDeploymentProperty
isDisabled :: Container -> Maybe (Value Bool)
power :: Container -> Value Text
privateRegistryAccess :: Container -> Maybe PrivateRegistryAccessProperty
publicDomainNames :: Container -> Maybe [PublicDomainNameProperty]
scale :: Container -> Value Integer
serviceName :: Container -> Value Text
tags :: Container -> Maybe [Tag]
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
..} = Container {scale :: Value Integer
scale = PropertyType "Scale" Container
Value Integer
newValue, Maybe [Tag]
Maybe [PublicDomainNameProperty]
Maybe (Value Bool)
Maybe PrivateRegistryAccessProperty
Maybe ContainerServiceDeploymentProperty
()
Value Text
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
serviceName :: Value Text
tags :: Maybe [Tag]
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
serviceName :: Value Text
tags :: Maybe [Tag]
..}
instance Property "ServiceName" Container where
type PropertyType "ServiceName" Container = Value Prelude.Text
set :: PropertyType "ServiceName" Container -> Container -> Container
set PropertyType "ServiceName" Container
newValue Container {Maybe [Tag]
Maybe [PublicDomainNameProperty]
Maybe (Value Bool)
Maybe PrivateRegistryAccessProperty
Maybe ContainerServiceDeploymentProperty
()
Value Integer
Value Text
haddock_workaround_ :: Container -> ()
containerServiceDeployment :: Container -> Maybe ContainerServiceDeploymentProperty
isDisabled :: Container -> Maybe (Value Bool)
power :: Container -> Value Text
privateRegistryAccess :: Container -> Maybe PrivateRegistryAccessProperty
publicDomainNames :: Container -> Maybe [PublicDomainNameProperty]
scale :: Container -> Value Integer
serviceName :: Container -> Value Text
tags :: Container -> Maybe [Tag]
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
..}
= Container {serviceName :: Value Text
serviceName = PropertyType "ServiceName" Container
Value Text
newValue, Maybe [Tag]
Maybe [PublicDomainNameProperty]
Maybe (Value Bool)
Maybe PrivateRegistryAccessProperty
Maybe ContainerServiceDeploymentProperty
()
Value Integer
Value Text
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
tags :: Maybe [Tag]
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
tags :: Maybe [Tag]
..}
instance Property "Tags" Container where
type PropertyType "Tags" Container = [Tag]
set :: PropertyType "Tags" Container -> Container -> Container
set PropertyType "Tags" Container
newValue Container {Maybe [Tag]
Maybe [PublicDomainNameProperty]
Maybe (Value Bool)
Maybe PrivateRegistryAccessProperty
Maybe ContainerServiceDeploymentProperty
()
Value Integer
Value Text
haddock_workaround_ :: Container -> ()
containerServiceDeployment :: Container -> Maybe ContainerServiceDeploymentProperty
isDisabled :: Container -> Maybe (Value Bool)
power :: Container -> Value Text
privateRegistryAccess :: Container -> Maybe PrivateRegistryAccessProperty
publicDomainNames :: Container -> Maybe [PublicDomainNameProperty]
scale :: Container -> Value Integer
serviceName :: Container -> Value Text
tags :: Container -> Maybe [Tag]
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
tags :: Maybe [Tag]
..}
= Container {tags :: Maybe [Tag]
tags = [Tag] -> Maybe [Tag]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [Tag]
PropertyType "Tags" Container
newValue, Maybe [PublicDomainNameProperty]
Maybe (Value Bool)
Maybe PrivateRegistryAccessProperty
Maybe ContainerServiceDeploymentProperty
()
Value Integer
Value Text
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
haddock_workaround_ :: ()
containerServiceDeployment :: Maybe ContainerServiceDeploymentProperty
isDisabled :: Maybe (Value Bool)
power :: Value Text
privateRegistryAccess :: Maybe PrivateRegistryAccessProperty
publicDomainNames :: Maybe [PublicDomainNameProperty]
scale :: Value Integer
serviceName :: Value Text
..}