module Stratosphere.SSM.Document (
        module Exports, Document(..), mkDocument
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.SSM.Document.AttachmentsSourceProperty as Exports
import {-# SOURCE #-} Stratosphere.SSM.Document.DocumentRequiresProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Tag
import Stratosphere.Value
data Document
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-document.html>
    Document {Document -> ()
haddock_workaround_ :: (),
              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-document.html#cfn-ssm-document-attachments>
              Document -> Maybe [AttachmentsSourceProperty]
attachments :: (Prelude.Maybe [AttachmentsSourceProperty]),
              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-document.html#cfn-ssm-document-content>
              Document -> Object
content :: JSON.Object,
              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-document.html#cfn-ssm-document-documentformat>
              Document -> Maybe (Value Text)
documentFormat :: (Prelude.Maybe (Value Prelude.Text)),
              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-document.html#cfn-ssm-document-documenttype>
              Document -> Maybe (Value Text)
documentType :: (Prelude.Maybe (Value Prelude.Text)),
              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-document.html#cfn-ssm-document-name>
              Document -> Maybe (Value Text)
name :: (Prelude.Maybe (Value Prelude.Text)),
              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-document.html#cfn-ssm-document-requires>
              Document -> Maybe [DocumentRequiresProperty]
requires :: (Prelude.Maybe [DocumentRequiresProperty]),
              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-document.html#cfn-ssm-document-tags>
              Document -> Maybe [Tag]
tags :: (Prelude.Maybe [Tag]),
              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-document.html#cfn-ssm-document-targettype>
              Document -> Maybe (Value Text)
targetType :: (Prelude.Maybe (Value Prelude.Text)),
              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-document.html#cfn-ssm-document-updatemethod>
              Document -> Maybe (Value Text)
updateMethod :: (Prelude.Maybe (Value Prelude.Text)),
              -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-document.html#cfn-ssm-document-versionname>
              Document -> Maybe (Value Text)
versionName :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (Document -> Document -> Bool
(Document -> Document -> Bool)
-> (Document -> Document -> Bool) -> Eq Document
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Document -> Document -> Bool
== :: Document -> Document -> Bool
$c/= :: Document -> Document -> Bool
/= :: Document -> Document -> Bool
Prelude.Eq, Int -> Document -> ShowS
[Document] -> ShowS
Document -> String
(Int -> Document -> ShowS)
-> (Document -> String) -> ([Document] -> ShowS) -> Show Document
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Document -> ShowS
showsPrec :: Int -> Document -> ShowS
$cshow :: Document -> String
show :: Document -> String
$cshowList :: [Document] -> ShowS
showList :: [Document] -> ShowS
Prelude.Show)
mkDocument :: JSON.Object -> Document
mkDocument :: Object -> Document
mkDocument Object
content
  = Document
      {haddock_workaround_ :: ()
haddock_workaround_ = (), content :: Object
content = Object
content,
       attachments :: Maybe [AttachmentsSourceProperty]
attachments = Maybe [AttachmentsSourceProperty]
forall a. Maybe a
Prelude.Nothing, documentFormat :: Maybe (Value Text)
documentFormat = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       documentType :: Maybe (Value Text)
documentType = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, name :: Maybe (Value Text)
name = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       requires :: Maybe [DocumentRequiresProperty]
requires = Maybe [DocumentRequiresProperty]
forall a. Maybe a
Prelude.Nothing, tags :: Maybe [Tag]
tags = Maybe [Tag]
forall a. Maybe a
Prelude.Nothing,
       targetType :: Maybe (Value Text)
targetType = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, updateMethod :: Maybe (Value Text)
updateMethod = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       versionName :: Maybe (Value Text)
versionName = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties Document where
  toResourceProperties :: Document -> ResourceProperties
toResourceProperties Document {Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: Document -> ()
attachments :: Document -> Maybe [AttachmentsSourceProperty]
content :: Document -> Object
documentFormat :: Document -> Maybe (Value Text)
documentType :: Document -> Maybe (Value Text)
name :: Document -> Maybe (Value Text)
requires :: Document -> Maybe [DocumentRequiresProperty]
tags :: Document -> Maybe [Tag]
targetType :: Document -> Maybe (Value Text)
updateMethod :: Document -> Maybe (Value Text)
versionName :: Document -> Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::SSM::Document", 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
"Content" 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..= Object
content]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [Key -> [AttachmentsSourceProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Attachments" ([AttachmentsSourceProperty] -> (Key, Value))
-> Maybe [AttachmentsSourceProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [AttachmentsSourceProperty]
attachments,
                               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
"DocumentFormat" (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)
documentFormat,
                               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
"DocumentType" (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)
documentType,
                               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
"Name" (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)
name,
                               Key -> [DocumentRequiresProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Requires" ([DocumentRequiresProperty] -> (Key, Value))
-> Maybe [DocumentRequiresProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [DocumentRequiresProperty]
requires,
                               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,
                               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
"TargetType" (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)
targetType,
                               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
"UpdateMethod" (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)
updateMethod,
                               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
"VersionName" (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)
versionName]))}
instance JSON.ToJSON Document where
  toJSON :: Document -> Value
toJSON Document {Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: Document -> ()
attachments :: Document -> Maybe [AttachmentsSourceProperty]
content :: Document -> Object
documentFormat :: Document -> Maybe (Value Text)
documentType :: Document -> Maybe (Value Text)
name :: Document -> Maybe (Value Text)
requires :: Document -> Maybe [DocumentRequiresProperty]
tags :: Document -> Maybe [Tag]
targetType :: Document -> Maybe (Value Text)
updateMethod :: Document -> Maybe (Value Text)
versionName :: Document -> Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (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
"Content" 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..= Object
content]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [Key -> [AttachmentsSourceProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Attachments" ([AttachmentsSourceProperty] -> (Key, Value))
-> Maybe [AttachmentsSourceProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [AttachmentsSourceProperty]
attachments,
                  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
"DocumentFormat" (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)
documentFormat,
                  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
"DocumentType" (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)
documentType,
                  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
"Name" (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)
name,
                  Key -> [DocumentRequiresProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Requires" ([DocumentRequiresProperty] -> (Key, Value))
-> Maybe [DocumentRequiresProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [DocumentRequiresProperty]
requires,
                  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,
                  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
"TargetType" (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)
targetType,
                  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
"UpdateMethod" (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)
updateMethod,
                  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
"VersionName" (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)
versionName])))
instance Property "Attachments" Document where
  type PropertyType "Attachments" Document = [AttachmentsSourceProperty]
  set :: PropertyType "Attachments" Document -> Document -> Document
set PropertyType "Attachments" Document
newValue Document {Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: Document -> ()
attachments :: Document -> Maybe [AttachmentsSourceProperty]
content :: Document -> Object
documentFormat :: Document -> Maybe (Value Text)
documentType :: Document -> Maybe (Value Text)
name :: Document -> Maybe (Value Text)
requires :: Document -> Maybe [DocumentRequiresProperty]
tags :: Document -> Maybe [Tag]
targetType :: Document -> Maybe (Value Text)
updateMethod :: Document -> Maybe (Value Text)
versionName :: Document -> Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..}
    = Document {attachments :: Maybe [AttachmentsSourceProperty]
attachments = [AttachmentsSourceProperty] -> Maybe [AttachmentsSourceProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [AttachmentsSourceProperty]
PropertyType "Attachments" Document
newValue, Maybe [Tag]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: ()
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
haddock_workaround_ :: ()
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..}
instance Property "Content" Document where
  type PropertyType "Content" Document = JSON.Object
  set :: PropertyType "Content" Document -> Document -> Document
set PropertyType "Content" Document
newValue Document {Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: Document -> ()
attachments :: Document -> Maybe [AttachmentsSourceProperty]
content :: Document -> Object
documentFormat :: Document -> Maybe (Value Text)
documentType :: Document -> Maybe (Value Text)
name :: Document -> Maybe (Value Text)
requires :: Document -> Maybe [DocumentRequiresProperty]
tags :: Document -> Maybe [Tag]
targetType :: Document -> Maybe (Value Text)
updateMethod :: Document -> Maybe (Value Text)
versionName :: Document -> Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..} = Document {content :: Object
content = Object
PropertyType "Content" Document
newValue, Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..}
instance Property "DocumentFormat" Document where
  type PropertyType "DocumentFormat" Document = Value Prelude.Text
  set :: PropertyType "DocumentFormat" Document -> Document -> Document
set PropertyType "DocumentFormat" Document
newValue Document {Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: Document -> ()
attachments :: Document -> Maybe [AttachmentsSourceProperty]
content :: Document -> Object
documentFormat :: Document -> Maybe (Value Text)
documentType :: Document -> Maybe (Value Text)
name :: Document -> Maybe (Value Text)
requires :: Document -> Maybe [DocumentRequiresProperty]
tags :: Document -> Maybe [Tag]
targetType :: Document -> Maybe (Value Text)
updateMethod :: Document -> Maybe (Value Text)
versionName :: Document -> Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..}
    = Document {documentFormat :: Maybe (Value Text)
documentFormat = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "DocumentFormat" Document
Value Text
newValue, Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..}
instance Property "DocumentType" Document where
  type PropertyType "DocumentType" Document = Value Prelude.Text
  set :: PropertyType "DocumentType" Document -> Document -> Document
set PropertyType "DocumentType" Document
newValue Document {Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: Document -> ()
attachments :: Document -> Maybe [AttachmentsSourceProperty]
content :: Document -> Object
documentFormat :: Document -> Maybe (Value Text)
documentType :: Document -> Maybe (Value Text)
name :: Document -> Maybe (Value Text)
requires :: Document -> Maybe [DocumentRequiresProperty]
tags :: Document -> Maybe [Tag]
targetType :: Document -> Maybe (Value Text)
updateMethod :: Document -> Maybe (Value Text)
versionName :: Document -> Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..}
    = Document {documentType :: Maybe (Value Text)
documentType = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "DocumentType" Document
Value Text
newValue, Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..}
instance Property "Name" Document where
  type PropertyType "Name" Document = Value Prelude.Text
  set :: PropertyType "Name" Document -> Document -> Document
set PropertyType "Name" Document
newValue Document {Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: Document -> ()
attachments :: Document -> Maybe [AttachmentsSourceProperty]
content :: Document -> Object
documentFormat :: Document -> Maybe (Value Text)
documentType :: Document -> Maybe (Value Text)
name :: Document -> Maybe (Value Text)
requires :: Document -> Maybe [DocumentRequiresProperty]
tags :: Document -> Maybe [Tag]
targetType :: Document -> Maybe (Value Text)
updateMethod :: Document -> Maybe (Value Text)
versionName :: Document -> Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..}
    = Document {name :: Maybe (Value Text)
name = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Name" Document
Value Text
newValue, Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..}
instance Property "Requires" Document where
  type PropertyType "Requires" Document = [DocumentRequiresProperty]
  set :: PropertyType "Requires" Document -> Document -> Document
set PropertyType "Requires" Document
newValue Document {Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: Document -> ()
attachments :: Document -> Maybe [AttachmentsSourceProperty]
content :: Document -> Object
documentFormat :: Document -> Maybe (Value Text)
documentType :: Document -> Maybe (Value Text)
name :: Document -> Maybe (Value Text)
requires :: Document -> Maybe [DocumentRequiresProperty]
tags :: Document -> Maybe [Tag]
targetType :: Document -> Maybe (Value Text)
updateMethod :: Document -> Maybe (Value Text)
versionName :: Document -> Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..}
    = Document {requires :: Maybe [DocumentRequiresProperty]
requires = [DocumentRequiresProperty] -> Maybe [DocumentRequiresProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [DocumentRequiresProperty]
PropertyType "Requires" Document
newValue, Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..}
instance Property "Tags" Document where
  type PropertyType "Tags" Document = [Tag]
  set :: PropertyType "Tags" Document -> Document -> Document
set PropertyType "Tags" Document
newValue Document {Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: Document -> ()
attachments :: Document -> Maybe [AttachmentsSourceProperty]
content :: Document -> Object
documentFormat :: Document -> Maybe (Value Text)
documentType :: Document -> Maybe (Value Text)
name :: Document -> Maybe (Value Text)
requires :: Document -> Maybe [DocumentRequiresProperty]
tags :: Document -> Maybe [Tag]
targetType :: Document -> Maybe (Value Text)
updateMethod :: Document -> Maybe (Value Text)
versionName :: Document -> Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..}
    = Document {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" Document
newValue, Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..}
instance Property "TargetType" Document where
  type PropertyType "TargetType" Document = Value Prelude.Text
  set :: PropertyType "TargetType" Document -> Document -> Document
set PropertyType "TargetType" Document
newValue Document {Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: Document -> ()
attachments :: Document -> Maybe [AttachmentsSourceProperty]
content :: Document -> Object
documentFormat :: Document -> Maybe (Value Text)
documentType :: Document -> Maybe (Value Text)
name :: Document -> Maybe (Value Text)
requires :: Document -> Maybe [DocumentRequiresProperty]
tags :: Document -> Maybe [Tag]
targetType :: Document -> Maybe (Value Text)
updateMethod :: Document -> Maybe (Value Text)
versionName :: Document -> Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..}
    = Document {targetType :: Maybe (Value Text)
targetType = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "TargetType" Document
Value Text
newValue, Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..}
instance Property "UpdateMethod" Document where
  type PropertyType "UpdateMethod" Document = Value Prelude.Text
  set :: PropertyType "UpdateMethod" Document -> Document -> Document
set PropertyType "UpdateMethod" Document
newValue Document {Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: Document -> ()
attachments :: Document -> Maybe [AttachmentsSourceProperty]
content :: Document -> Object
documentFormat :: Document -> Maybe (Value Text)
documentType :: Document -> Maybe (Value Text)
name :: Document -> Maybe (Value Text)
requires :: Document -> Maybe [DocumentRequiresProperty]
tags :: Document -> Maybe [Tag]
targetType :: Document -> Maybe (Value Text)
updateMethod :: Document -> Maybe (Value Text)
versionName :: Document -> Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..}
    = Document {updateMethod :: Maybe (Value Text)
updateMethod = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "UpdateMethod" Document
Value Text
newValue, Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
versionName :: Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..}
instance Property "VersionName" Document where
  type PropertyType "VersionName" Document = Value Prelude.Text
  set :: PropertyType "VersionName" Document -> Document -> Document
set PropertyType "VersionName" Document
newValue Document {Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: Document -> ()
attachments :: Document -> Maybe [AttachmentsSourceProperty]
content :: Document -> Object
documentFormat :: Document -> Maybe (Value Text)
documentType :: Document -> Maybe (Value Text)
name :: Document -> Maybe (Value Text)
requires :: Document -> Maybe [DocumentRequiresProperty]
tags :: Document -> Maybe [Tag]
targetType :: Document -> Maybe (Value Text)
updateMethod :: Document -> Maybe (Value Text)
versionName :: Document -> Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
versionName :: Maybe (Value Text)
..}
    = Document {versionName :: Maybe (Value Text)
versionName = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "VersionName" Document
Value Text
newValue, Maybe [Tag]
Maybe [AttachmentsSourceProperty]
Maybe [DocumentRequiresProperty]
Maybe (Value Text)
()
Object
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
haddock_workaround_ :: ()
attachments :: Maybe [AttachmentsSourceProperty]
content :: Object
documentFormat :: Maybe (Value Text)
documentType :: Maybe (Value Text)
name :: Maybe (Value Text)
requires :: Maybe [DocumentRequiresProperty]
tags :: Maybe [Tag]
targetType :: Maybe (Value Text)
updateMethod :: Maybe (Value Text)
..}