module Stratosphere.Omics.SequenceStore (
        module Exports, SequenceStore(..), mkSequenceStore
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Omics.SequenceStore.SseConfigProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data SequenceStore
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-omics-sequencestore.html>
    SequenceStore {SequenceStore -> ()
haddock_workaround_ :: (),
                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-omics-sequencestore.html#cfn-omics-sequencestore-accessloglocation>
                   SequenceStore -> Maybe (Value Text)
accessLogLocation :: (Prelude.Maybe (Value Prelude.Text)),
                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-omics-sequencestore.html#cfn-omics-sequencestore-description>
                   SequenceStore -> Maybe (Value Text)
description :: (Prelude.Maybe (Value Prelude.Text)),
                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-omics-sequencestore.html#cfn-omics-sequencestore-etagalgorithmfamily>
                   SequenceStore -> Maybe (Value Text)
eTagAlgorithmFamily :: (Prelude.Maybe (Value Prelude.Text)),
                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-omics-sequencestore.html#cfn-omics-sequencestore-fallbacklocation>
                   SequenceStore -> Maybe (Value Text)
fallbackLocation :: (Prelude.Maybe (Value Prelude.Text)),
                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-omics-sequencestore.html#cfn-omics-sequencestore-name>
                   SequenceStore -> Value Text
name :: (Value Prelude.Text),
                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-omics-sequencestore.html#cfn-omics-sequencestore-propagatedsetleveltags>
                   SequenceStore -> Maybe (ValueList Text)
propagatedSetLevelTags :: (Prelude.Maybe (ValueList Prelude.Text)),
                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-omics-sequencestore.html#cfn-omics-sequencestore-s3accesspolicy>
                   SequenceStore -> Maybe Object
s3AccessPolicy :: (Prelude.Maybe JSON.Object),
                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-omics-sequencestore.html#cfn-omics-sequencestore-sseconfig>
                   SequenceStore -> Maybe SseConfigProperty
sseConfig :: (Prelude.Maybe SseConfigProperty),
                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-omics-sequencestore.html#cfn-omics-sequencestore-tags>
                   SequenceStore -> Maybe (Map Text (Value Text))
tags :: (Prelude.Maybe (Prelude.Map Prelude.Text (Value Prelude.Text)))}
  deriving stock (SequenceStore -> SequenceStore -> Bool
(SequenceStore -> SequenceStore -> Bool)
-> (SequenceStore -> SequenceStore -> Bool) -> Eq SequenceStore
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SequenceStore -> SequenceStore -> Bool
== :: SequenceStore -> SequenceStore -> Bool
$c/= :: SequenceStore -> SequenceStore -> Bool
/= :: SequenceStore -> SequenceStore -> Bool
Prelude.Eq, Int -> SequenceStore -> ShowS
[SequenceStore] -> ShowS
SequenceStore -> String
(Int -> SequenceStore -> ShowS)
-> (SequenceStore -> String)
-> ([SequenceStore] -> ShowS)
-> Show SequenceStore
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SequenceStore -> ShowS
showsPrec :: Int -> SequenceStore -> ShowS
$cshow :: SequenceStore -> String
show :: SequenceStore -> String
$cshowList :: [SequenceStore] -> ShowS
showList :: [SequenceStore] -> ShowS
Prelude.Show)
mkSequenceStore :: Value Prelude.Text -> SequenceStore
mkSequenceStore :: Value Text -> SequenceStore
mkSequenceStore Value Text
name
  = SequenceStore
      {haddock_workaround_ :: ()
haddock_workaround_ = (), name :: Value Text
name = Value Text
name,
       accessLogLocation :: Maybe (Value Text)
accessLogLocation = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, description :: Maybe (Value Text)
description = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       eTagAlgorithmFamily :: Maybe (Value Text)
eTagAlgorithmFamily = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       fallbackLocation :: Maybe (Value Text)
fallbackLocation = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       propagatedSetLevelTags :: Maybe (ValueList Text)
propagatedSetLevelTags = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing,
       s3AccessPolicy :: Maybe Object
s3AccessPolicy = Maybe Object
forall a. Maybe a
Prelude.Nothing, sseConfig :: Maybe SseConfigProperty
sseConfig = Maybe SseConfigProperty
forall a. Maybe a
Prelude.Nothing,
       tags :: Maybe (Map Text (Value Text))
tags = Maybe (Map Text (Value Text))
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties SequenceStore where
  toResourceProperties :: SequenceStore -> ResourceProperties
toResourceProperties SequenceStore {Maybe Object
Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SseConfigProperty
()
Value Text
haddock_workaround_ :: SequenceStore -> ()
accessLogLocation :: SequenceStore -> Maybe (Value Text)
description :: SequenceStore -> Maybe (Value Text)
eTagAlgorithmFamily :: SequenceStore -> Maybe (Value Text)
fallbackLocation :: SequenceStore -> Maybe (Value Text)
name :: SequenceStore -> Value Text
propagatedSetLevelTags :: SequenceStore -> Maybe (ValueList Text)
s3AccessPolicy :: SequenceStore -> Maybe Object
sseConfig :: SequenceStore -> Maybe SseConfigProperty
tags :: SequenceStore -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Omics::SequenceStore",
         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
"Name" 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
name]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [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..=) Key
"AccessLogLocation" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
accessLogLocation,
                               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..=) Key
"Description" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
description,
                               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..=) Key
"ETagAlgorithmFamily" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
eTagAlgorithmFamily,
                               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..=) Key
"FallbackLocation" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
fallbackLocation,
                               Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PropagatedSetLevelTags"
                                 (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
propagatedSetLevelTags,
                               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..=) Key
"S3AccessPolicy" (Object -> (Key, Value)) -> Maybe Object -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Object
s3AccessPolicy,
                               Key -> SseConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SseConfig" (SseConfigProperty -> (Key, Value))
-> Maybe SseConfigProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SseConfigProperty
sseConfig,
                               Key -> Map Text (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..=) Key
"Tags" (Map Text (Value Text) -> (Key, Value))
-> Maybe (Map Text (Value Text)) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Map Text (Value Text))
tags]))}
instance JSON.ToJSON SequenceStore where
  toJSON :: SequenceStore -> Value
toJSON SequenceStore {Maybe Object
Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SseConfigProperty
()
Value Text
haddock_workaround_ :: SequenceStore -> ()
accessLogLocation :: SequenceStore -> Maybe (Value Text)
description :: SequenceStore -> Maybe (Value Text)
eTagAlgorithmFamily :: SequenceStore -> Maybe (Value Text)
fallbackLocation :: SequenceStore -> Maybe (Value Text)
name :: SequenceStore -> Value Text
propagatedSetLevelTags :: SequenceStore -> Maybe (ValueList Text)
s3AccessPolicy :: SequenceStore -> Maybe Object
sseConfig :: SequenceStore -> Maybe SseConfigProperty
tags :: SequenceStore -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
..}
    = [(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
"Name" 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
name]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [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..=) Key
"AccessLogLocation" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
accessLogLocation,
                  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..=) Key
"Description" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
description,
                  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..=) Key
"ETagAlgorithmFamily" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
eTagAlgorithmFamily,
                  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..=) Key
"FallbackLocation" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
fallbackLocation,
                  Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PropagatedSetLevelTags"
                    (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
propagatedSetLevelTags,
                  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..=) Key
"S3AccessPolicy" (Object -> (Key, Value)) -> Maybe Object -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Object
s3AccessPolicy,
                  Key -> SseConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SseConfig" (SseConfigProperty -> (Key, Value))
-> Maybe SseConfigProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SseConfigProperty
sseConfig,
                  Key -> Map Text (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..=) Key
"Tags" (Map Text (Value Text) -> (Key, Value))
-> Maybe (Map Text (Value Text)) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Map Text (Value Text))
tags])))
instance Property "AccessLogLocation" SequenceStore where
  type PropertyType "AccessLogLocation" SequenceStore = Value Prelude.Text
  set :: PropertyType "AccessLogLocation" SequenceStore
-> SequenceStore -> SequenceStore
set PropertyType "AccessLogLocation" SequenceStore
newValue SequenceStore {Maybe Object
Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SseConfigProperty
()
Value Text
haddock_workaround_ :: SequenceStore -> ()
accessLogLocation :: SequenceStore -> Maybe (Value Text)
description :: SequenceStore -> Maybe (Value Text)
eTagAlgorithmFamily :: SequenceStore -> Maybe (Value Text)
fallbackLocation :: SequenceStore -> Maybe (Value Text)
name :: SequenceStore -> Value Text
propagatedSetLevelTags :: SequenceStore -> Maybe (ValueList Text)
s3AccessPolicy :: SequenceStore -> Maybe Object
sseConfig :: SequenceStore -> Maybe SseConfigProperty
tags :: SequenceStore -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
..}
    = SequenceStore {accessLogLocation :: Maybe (Value Text)
accessLogLocation = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AccessLogLocation" SequenceStore
Value Text
newValue, Maybe Object
Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SseConfigProperty
()
Value Text
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
..}
instance Property "Description" SequenceStore where
  type PropertyType "Description" SequenceStore = Value Prelude.Text
  set :: PropertyType "Description" SequenceStore
-> SequenceStore -> SequenceStore
set PropertyType "Description" SequenceStore
newValue SequenceStore {Maybe Object
Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SseConfigProperty
()
Value Text
haddock_workaround_ :: SequenceStore -> ()
accessLogLocation :: SequenceStore -> Maybe (Value Text)
description :: SequenceStore -> Maybe (Value Text)
eTagAlgorithmFamily :: SequenceStore -> Maybe (Value Text)
fallbackLocation :: SequenceStore -> Maybe (Value Text)
name :: SequenceStore -> Value Text
propagatedSetLevelTags :: SequenceStore -> Maybe (ValueList Text)
s3AccessPolicy :: SequenceStore -> Maybe Object
sseConfig :: SequenceStore -> Maybe SseConfigProperty
tags :: SequenceStore -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
..}
    = SequenceStore {description :: Maybe (Value Text)
description = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Description" SequenceStore
Value Text
newValue, Maybe Object
Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SseConfigProperty
()
Value Text
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
..}
instance Property "ETagAlgorithmFamily" SequenceStore where
  type PropertyType "ETagAlgorithmFamily" SequenceStore = Value Prelude.Text
  set :: PropertyType "ETagAlgorithmFamily" SequenceStore
-> SequenceStore -> SequenceStore
set PropertyType "ETagAlgorithmFamily" SequenceStore
newValue SequenceStore {Maybe Object
Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SseConfigProperty
()
Value Text
haddock_workaround_ :: SequenceStore -> ()
accessLogLocation :: SequenceStore -> Maybe (Value Text)
description :: SequenceStore -> Maybe (Value Text)
eTagAlgorithmFamily :: SequenceStore -> Maybe (Value Text)
fallbackLocation :: SequenceStore -> Maybe (Value Text)
name :: SequenceStore -> Value Text
propagatedSetLevelTags :: SequenceStore -> Maybe (ValueList Text)
s3AccessPolicy :: SequenceStore -> Maybe Object
sseConfig :: SequenceStore -> Maybe SseConfigProperty
tags :: SequenceStore -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
..}
    = SequenceStore {eTagAlgorithmFamily :: Maybe (Value Text)
eTagAlgorithmFamily = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ETagAlgorithmFamily" SequenceStore
Value Text
newValue, Maybe Object
Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SseConfigProperty
()
Value Text
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
..}
instance Property "FallbackLocation" SequenceStore where
  type PropertyType "FallbackLocation" SequenceStore = Value Prelude.Text
  set :: PropertyType "FallbackLocation" SequenceStore
-> SequenceStore -> SequenceStore
set PropertyType "FallbackLocation" SequenceStore
newValue SequenceStore {Maybe Object
Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SseConfigProperty
()
Value Text
haddock_workaround_ :: SequenceStore -> ()
accessLogLocation :: SequenceStore -> Maybe (Value Text)
description :: SequenceStore -> Maybe (Value Text)
eTagAlgorithmFamily :: SequenceStore -> Maybe (Value Text)
fallbackLocation :: SequenceStore -> Maybe (Value Text)
name :: SequenceStore -> Value Text
propagatedSetLevelTags :: SequenceStore -> Maybe (ValueList Text)
s3AccessPolicy :: SequenceStore -> Maybe Object
sseConfig :: SequenceStore -> Maybe SseConfigProperty
tags :: SequenceStore -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
..}
    = SequenceStore {fallbackLocation :: Maybe (Value Text)
fallbackLocation = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "FallbackLocation" SequenceStore
Value Text
newValue, Maybe Object
Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SseConfigProperty
()
Value Text
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
..}
instance Property "Name" SequenceStore where
  type PropertyType "Name" SequenceStore = Value Prelude.Text
  set :: PropertyType "Name" SequenceStore -> SequenceStore -> SequenceStore
set PropertyType "Name" SequenceStore
newValue SequenceStore {Maybe Object
Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SseConfigProperty
()
Value Text
haddock_workaround_ :: SequenceStore -> ()
accessLogLocation :: SequenceStore -> Maybe (Value Text)
description :: SequenceStore -> Maybe (Value Text)
eTagAlgorithmFamily :: SequenceStore -> Maybe (Value Text)
fallbackLocation :: SequenceStore -> Maybe (Value Text)
name :: SequenceStore -> Value Text
propagatedSetLevelTags :: SequenceStore -> Maybe (ValueList Text)
s3AccessPolicy :: SequenceStore -> Maybe Object
sseConfig :: SequenceStore -> Maybe SseConfigProperty
tags :: SequenceStore -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
..}
    = SequenceStore {name :: Value Text
name = PropertyType "Name" SequenceStore
Value Text
newValue, Maybe Object
Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SseConfigProperty
()
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
..}
instance Property "PropagatedSetLevelTags" SequenceStore where
  type PropertyType "PropagatedSetLevelTags" SequenceStore = ValueList Prelude.Text
  set :: PropertyType "PropagatedSetLevelTags" SequenceStore
-> SequenceStore -> SequenceStore
set PropertyType "PropagatedSetLevelTags" SequenceStore
newValue SequenceStore {Maybe Object
Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SseConfigProperty
()
Value Text
haddock_workaround_ :: SequenceStore -> ()
accessLogLocation :: SequenceStore -> Maybe (Value Text)
description :: SequenceStore -> Maybe (Value Text)
eTagAlgorithmFamily :: SequenceStore -> Maybe (Value Text)
fallbackLocation :: SequenceStore -> Maybe (Value Text)
name :: SequenceStore -> Value Text
propagatedSetLevelTags :: SequenceStore -> Maybe (ValueList Text)
s3AccessPolicy :: SequenceStore -> Maybe Object
sseConfig :: SequenceStore -> Maybe SseConfigProperty
tags :: SequenceStore -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
..}
    = SequenceStore
        {propagatedSetLevelTags :: Maybe (ValueList Text)
propagatedSetLevelTags = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "PropagatedSetLevelTags" SequenceStore
ValueList Text
newValue, Maybe Object
Maybe (Map Text (Value Text))
Maybe (Value Text)
Maybe SseConfigProperty
()
Value Text
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
..}
instance Property "S3AccessPolicy" SequenceStore where
  type PropertyType "S3AccessPolicy" SequenceStore = JSON.Object
  set :: PropertyType "S3AccessPolicy" SequenceStore
-> SequenceStore -> SequenceStore
set PropertyType "S3AccessPolicy" SequenceStore
newValue SequenceStore {Maybe Object
Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SseConfigProperty
()
Value Text
haddock_workaround_ :: SequenceStore -> ()
accessLogLocation :: SequenceStore -> Maybe (Value Text)
description :: SequenceStore -> Maybe (Value Text)
eTagAlgorithmFamily :: SequenceStore -> Maybe (Value Text)
fallbackLocation :: SequenceStore -> Maybe (Value Text)
name :: SequenceStore -> Value Text
propagatedSetLevelTags :: SequenceStore -> Maybe (ValueList Text)
s3AccessPolicy :: SequenceStore -> Maybe Object
sseConfig :: SequenceStore -> Maybe SseConfigProperty
tags :: SequenceStore -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
..}
    = SequenceStore {s3AccessPolicy :: Maybe Object
s3AccessPolicy = Object -> Maybe Object
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure Object
PropertyType "S3AccessPolicy" SequenceStore
newValue, Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SseConfigProperty
()
Value Text
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
..}
instance Property "SseConfig" SequenceStore where
  type PropertyType "SseConfig" SequenceStore = SseConfigProperty
  set :: PropertyType "SseConfig" SequenceStore
-> SequenceStore -> SequenceStore
set PropertyType "SseConfig" SequenceStore
newValue SequenceStore {Maybe Object
Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SseConfigProperty
()
Value Text
haddock_workaround_ :: SequenceStore -> ()
accessLogLocation :: SequenceStore -> Maybe (Value Text)
description :: SequenceStore -> Maybe (Value Text)
eTagAlgorithmFamily :: SequenceStore -> Maybe (Value Text)
fallbackLocation :: SequenceStore -> Maybe (Value Text)
name :: SequenceStore -> Value Text
propagatedSetLevelTags :: SequenceStore -> Maybe (ValueList Text)
s3AccessPolicy :: SequenceStore -> Maybe Object
sseConfig :: SequenceStore -> Maybe SseConfigProperty
tags :: SequenceStore -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
..}
    = SequenceStore {sseConfig :: Maybe SseConfigProperty
sseConfig = SseConfigProperty -> Maybe SseConfigProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SseConfig" SequenceStore
SseConfigProperty
newValue, Maybe Object
Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
tags :: Maybe (Map Text (Value Text))
..}
instance Property "Tags" SequenceStore where
  type PropertyType "Tags" SequenceStore = Prelude.Map Prelude.Text (Value Prelude.Text)
  set :: PropertyType "Tags" SequenceStore -> SequenceStore -> SequenceStore
set PropertyType "Tags" SequenceStore
newValue SequenceStore {Maybe Object
Maybe (Map Text (Value Text))
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SseConfigProperty
()
Value Text
haddock_workaround_ :: SequenceStore -> ()
accessLogLocation :: SequenceStore -> Maybe (Value Text)
description :: SequenceStore -> Maybe (Value Text)
eTagAlgorithmFamily :: SequenceStore -> Maybe (Value Text)
fallbackLocation :: SequenceStore -> Maybe (Value Text)
name :: SequenceStore -> Value Text
propagatedSetLevelTags :: SequenceStore -> Maybe (ValueList Text)
s3AccessPolicy :: SequenceStore -> Maybe Object
sseConfig :: SequenceStore -> Maybe SseConfigProperty
tags :: SequenceStore -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
tags :: Maybe (Map Text (Value Text))
..}
    = SequenceStore {tags :: Maybe (Map Text (Value Text))
tags = Map Text (Value Text) -> Maybe (Map Text (Value Text))
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure Map Text (Value Text)
PropertyType "Tags" SequenceStore
newValue, Maybe Object
Maybe (ValueList Text)
Maybe (Value Text)
Maybe SseConfigProperty
()
Value Text
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
haddock_workaround_ :: ()
accessLogLocation :: Maybe (Value Text)
description :: Maybe (Value Text)
eTagAlgorithmFamily :: Maybe (Value Text)
fallbackLocation :: Maybe (Value Text)
name :: Value Text
propagatedSetLevelTags :: Maybe (ValueList Text)
s3AccessPolicy :: Maybe Object
sseConfig :: Maybe SseConfigProperty
..}