License	AGPL-3
Maintainer	stu235271@mail.uni-kiel.de stu236925@mail.uni-kiel.de
Safe Haskell	None
Language	Haskell2010

Docs.TextRevision

Description

This module contains definitions for revisions of TextElements.

Synopsis

newtype TextRevisionID = TextRevisionID {
- unTextRevisionID :: Int64
}
data TextRevisionSelector
- = Latest
- | LatestAsOf UTCTime
- | Specific TextRevisionID
data TextRevision = TextRevision {
- header :: TextRevisionHeader
- content :: Text
- commentAnchors :: Vector CommentAnchor
}
data TextRevisionHeader = TextRevisionHeader {
- identifier :: TextRevisionID
- timestamp :: UTCTime
- author :: UserRef
}
data TextElementRevision = TextElementRevision {
- textElement :: TextElement
- revision :: Maybe TextRevision
}
data ConflictStatus
data TextRevisionHistory = TextRevisionHistory TextElementRef [TextRevisionHeader]
data NewTextRevision = NewTextRevision {
- newTextRevisionElement :: TextElementRef
- newTextRevisionParent :: Maybe TextRevisionID
- newTextRevisionContent :: Text
- newTextRevisionCommentAnchors :: Vector CommentAnchor
- newTextRevisionIsAutoSave :: Bool
}
data TextRevisionRef = TextRevisionRef TextElementRef TextRevisionSelector
newtype DraftRevisionID = DraftRevisionID {
- unDraftRevisionID :: Int64
}
data DraftRevision = DraftRevision {
- draftHeader :: DraftRevisionHeader
- draftContent :: Text
- draftCommentAnchors :: Vector CommentAnchor
}
data DraftRevisionHeader = DraftRevisionHeader {
- draftIdentifier :: DraftRevisionID
- basedOnRevision :: TextRevisionID
- creationTimestamp :: UTCTime
- lastUpdatedTimestamp :: UTCTime
- draftAuthor :: UserRef
}
data Rendered a = Rendered {
- element :: a
- html :: Text
}
contentsNotChanged :: TextRevision -> NewTextRevision -> Bool
prettyPrintTextRevisionRef :: TextRevisionRef -> String
textRevisionRef :: DocumentID -> TextElementID -> TextRevisionSelector -> TextRevisionRef
specificTextRevision :: TextRevisionSelector -> Maybe TextRevisionID
latestTextRevisionAsOf :: TextRevisionSelector -> Maybe UTCTime

Documentation

newtype TextRevisionID Source #

ID for a text revision

Constructors

TextRevisionID
Fields unTextRevisionID :: Int64

Instances

Instances details

FromJSON TextRevisionID Source #
Instance details Defined in Docs.TextRevision Methods parseJSON :: Value -> Parser TextRevisionID parseJSONList :: Value -> Parser [TextRevisionID] omittedField :: Maybe TextRevisionID
ToJSON TextRevisionID Source #
Instance details Defined in Docs.TextRevision Methods toJSON :: TextRevisionID -> Value toEncoding :: TextRevisionID -> Encoding toJSONList :: [TextRevisionID] -> Value toEncodingList :: [TextRevisionID] -> Encoding omitField :: TextRevisionID -> Bool
Show TextRevisionID Source #
Instance details Defined in Docs.TextRevision Methods showsPrec :: Int -> TextRevisionID -> ShowS # show :: TextRevisionID -> String # showList :: [TextRevisionID] -> ShowS #
Eq TextRevisionID Source #
Instance details Defined in Docs.TextRevision Methods (==) :: TextRevisionID -> TextRevisionID -> Bool # (/=) :: TextRevisionID -> TextRevisionID -> Bool #
Ord TextRevisionID Source #
Instance details Defined in Docs.TextRevision Methods compare :: TextRevisionID -> TextRevisionID -> Ordering # (<) :: TextRevisionID -> TextRevisionID -> Bool # (<=) :: TextRevisionID -> TextRevisionID -> Bool # (>) :: TextRevisionID -> TextRevisionID -> Bool # (>=) :: TextRevisionID -> TextRevisionID -> Bool # max :: TextRevisionID -> TextRevisionID -> TextRevisionID # min :: TextRevisionID -> TextRevisionID -> TextRevisionID #
FromHttpApiData TextRevisionID Source #
Instance details Defined in Docs.TextRevision Methods parseUrlPiece :: Text -> Either Text TextRevisionID parseHeader :: ByteString -> Either Text TextRevisionID parseQueryParam :: Text -> Either Text TextRevisionID
ToParamSchema TextRevisionID Source #
Instance details Defined in Docs.TextRevision Methods toParamSchema :: Proxy TextRevisionID -> Schema
ToSchema TextRevisionID Source #
Instance details Defined in Docs.TextRevision Methods declareNamedSchema :: Proxy TextRevisionID -> Declare (Definitions Schema) NamedSchema

data TextRevisionSelector Source #

Selector for a text revision

Constructors

Latest
LatestAsOf UTCTime
Specific TextRevisionID

Instances

Instances details

FromJSON TextRevisionSelector Source #
Instance details Defined in Docs.TextRevision Methods parseJSON :: Value -> Parser TextRevisionSelector parseJSONList :: Value -> Parser [TextRevisionSelector] omittedField :: Maybe TextRevisionSelector
ToJSON TextRevisionSelector Source #
Instance details Defined in Docs.TextRevision Methods toJSON :: TextRevisionSelector -> Value toEncoding :: TextRevisionSelector -> Encoding toJSONList :: [TextRevisionSelector] -> Value toEncodingList :: [TextRevisionSelector] -> Encoding omitField :: TextRevisionSelector -> Bool
FromHttpApiData TextRevisionSelector Source #
Instance details Defined in Docs.TextRevision Methods parseUrlPiece :: Text -> Either Text TextRevisionSelector parseHeader :: ByteString -> Either Text TextRevisionSelector parseQueryParam :: Text -> Either Text TextRevisionSelector
ToParamSchema TextRevisionSelector Source #
Instance details Defined in Docs.TextRevision Methods toParamSchema :: Proxy TextRevisionSelector -> Schema
ToSchema TextRevisionSelector Source #
Instance details Defined in Docs.TextRevision Methods declareNamedSchema :: Proxy TextRevisionSelector -> Declare (Definitions Schema) NamedSchema

data TextRevision Source #

A text revision.

Constructors

TextRevision
Fields header :: TextRevisionHeader meta data about the revision content :: Text the content of the revision commentAnchors :: Vector CommentAnchor anchors for comments in the revisions text

Instances

Instances details

FromJSON TextRevision Source #

Instance details

Defined in Docs.TextRevision

Methods

parseJSON :: Value -> Parser TextRevision

parseJSONList :: Value -> Parser [TextRevision]

omittedField :: Maybe TextRevision

ToJSON TextRevision Source #

Instance details

Defined in Docs.TextRevision

Methods

toJSON :: TextRevision -> Value

toEncoding :: TextRevision -> Encoding

toJSONList :: [TextRevision] -> Value

toEncodingList :: [TextRevision] -> Encoding

omitField :: TextRevision -> Bool

Generic TextRevision Source #

Instance details

Defined in Docs.TextRevision

Associated Types

type Rep TextRevision

Instance details

Defined in Docs.TextRevision

type Rep TextRevision = D1 ('MetaData "TextRevision" "Docs.TextRevision" "backend-0.1.0.0-2H73EnUlGVcEtlIi2XNQz3" 'False) (C1 ('MetaCons "TextRevision" 'PrefixI 'True) (S1 ('MetaSel ('Just "header") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 TextRevisionHeader) :*: (S1 ('MetaSel ('Just "content") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "commentAnchors") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector CommentAnchor)))))

Methods

from :: TextRevision -> Rep TextRevision x #

to :: Rep TextRevision x -> TextRevision #

ToSchema TextRevision Source #

Instance details

Defined in Docs.TextRevision

Methods

declareNamedSchema :: Proxy TextRevision -> Declare (Definitions Schema) NamedSchema

type Rep TextRevision Source #

Instance details

Defined in Docs.TextRevision

type Rep TextRevision = D1 ('MetaData "TextRevision" "Docs.TextRevision" "backend-0.1.0.0-2H73EnUlGVcEtlIi2XNQz3" 'False) (C1 ('MetaCons "TextRevision" 'PrefixI 'True) (S1 ('MetaSel ('Just "header") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 TextRevisionHeader) :*: (S1 ('MetaSel ('Just "content") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "commentAnchors") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector CommentAnchor)))))

data TextRevisionHeader Source #

Header of a text revision. Contains metadata for a text revision.

Constructors

TextRevisionHeader
Fields identifier :: TextRevisionID the id of the revision timestamp :: UTCTime the creation timestamp of the revision author :: UserRef the user who created the revision

Instances

Instances details

FromJSON TextRevisionHeader Source #

Instance details

Defined in Docs.TextRevision

Methods

parseJSON :: Value -> Parser TextRevisionHeader

parseJSONList :: Value -> Parser [TextRevisionHeader]

omittedField :: Maybe TextRevisionHeader

ToJSON TextRevisionHeader Source #

Instance details

Defined in Docs.TextRevision

Methods

toJSON :: TextRevisionHeader -> Value

toEncoding :: TextRevisionHeader -> Encoding

toJSONList :: [TextRevisionHeader] -> Value

toEncodingList :: [TextRevisionHeader] -> Encoding

omitField :: TextRevisionHeader -> Bool

Generic TextRevisionHeader Source #

Instance details

Defined in Docs.TextRevision

Associated Types

type Rep TextRevisionHeader

Instance details

Defined in Docs.TextRevision

type Rep TextRevisionHeader = D1 ('MetaData "TextRevisionHeader" "Docs.TextRevision" "backend-0.1.0.0-2H73EnUlGVcEtlIi2XNQz3" 'False) (C1 ('MetaCons "TextRevisionHeader" 'PrefixI 'True) (S1 ('MetaSel ('Just "identifier") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 TextRevisionID) :*: (S1 ('MetaSel ('Just "timestamp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UTCTime) :*: S1 ('MetaSel ('Just "author") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UserRef))))

Methods

from :: TextRevisionHeader -> Rep TextRevisionHeader x #

to :: Rep TextRevisionHeader x -> TextRevisionHeader #

Show TextRevisionHeader Source #

Instance details

Defined in Docs.TextRevision

Methods

showsPrec :: Int -> TextRevisionHeader -> ShowS #

show :: TextRevisionHeader -> String #

showList :: [TextRevisionHeader] -> ShowS #

ToSchema TextRevisionHeader Source #

Instance details

Defined in Docs.TextRevision

Methods

declareNamedSchema :: Proxy TextRevisionHeader -> Declare (Definitions Schema) NamedSchema

type Rep TextRevisionHeader Source #

Instance details

Defined in Docs.TextRevision

type Rep TextRevisionHeader = D1 ('MetaData "TextRevisionHeader" "Docs.TextRevision" "backend-0.1.0.0-2H73EnUlGVcEtlIi2XNQz3" 'False) (C1 ('MetaCons "TextRevisionHeader" 'PrefixI 'True) (S1 ('MetaSel ('Just "identifier") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 TextRevisionID) :*: (S1 ('MetaSel ('Just "timestamp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UTCTime) :*: S1 ('MetaSel ('Just "author") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UserRef))))

data TextElementRevision Source #

A text revision with the text element it belongs to.

Constructors

TextElementRevision
Fields textElement :: TextElement revision :: Maybe TextRevision

Instances

Instances details

FromJSON TextElementRevision Source #

Instance details

Defined in Docs.TextRevision

Methods

parseJSON :: Value -> Parser TextElementRevision

parseJSONList :: Value -> Parser [TextElementRevision]

omittedField :: Maybe TextElementRevision

ToJSON TextElementRevision Source #

Instance details

Defined in Docs.TextRevision

Methods

toJSON :: TextElementRevision -> Value

toEncoding :: TextElementRevision -> Encoding

toJSONList :: [TextElementRevision] -> Value

toEncodingList :: [TextElementRevision] -> Encoding

omitField :: TextElementRevision -> Bool

Renderable TextElementRevision Source #

Instance details

Defined in Docs.Renderable

Methods

kindOf :: TextElementRevision -> KindName Source #

typeOf :: TextElementRevision -> TypeName Source #

contentOf :: TextElementRevision -> Text Source #

Generic TextElementRevision Source #

Instance details

Defined in Docs.TextRevision

Associated Types

type Rep TextElementRevision

Instance details

Defined in Docs.TextRevision

type Rep TextElementRevision = D1 ('MetaData "TextElementRevision" "Docs.TextRevision" "backend-0.1.0.0-2H73EnUlGVcEtlIi2XNQz3" 'False) (C1 ('MetaCons "TextElementRevision" 'PrefixI 'True) (S1 ('MetaSel ('Just "textElement") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 TextElement) :*: S1 ('MetaSel ('Just "revision") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe TextRevision))))

Methods

from :: TextElementRevision -> Rep TextElementRevision x #

to :: Rep TextElementRevision x -> TextElementRevision #

ToSchema TextElementRevision Source #

Instance details

Defined in Docs.TextRevision

Methods

declareNamedSchema :: Proxy TextElementRevision -> Declare (Definitions Schema) NamedSchema

type Rep TextElementRevision Source #

Instance details

Defined in Docs.TextRevision

type Rep TextElementRevision = D1 ('MetaData "TextElementRevision" "Docs.TextRevision" "backend-0.1.0.0-2H73EnUlGVcEtlIi2XNQz3" 'False) (C1 ('MetaCons "TextElementRevision" 'PrefixI 'True) (S1 ('MetaSel ('Just "textElement") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 TextElement) :*: S1 ('MetaSel ('Just "revision") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe TextRevision))))

data ConflictStatus Source #

A conflict with another text revision.

Constructors

Conflict TextRevisionID
NoConflict TextRevision
DraftCreated DraftRevision TextRevisionID	created draft and conflicting revision ID

Instances

Instances details

FromJSON ConflictStatus Source #
Instance details Defined in Docs.TextRevision Methods parseJSON :: Value -> Parser ConflictStatus parseJSONList :: Value -> Parser [ConflictStatus] omittedField :: Maybe ConflictStatus
ToJSON ConflictStatus Source #
Instance details Defined in Docs.TextRevision Methods toJSON :: ConflictStatus -> Value toEncoding :: ConflictStatus -> Encoding toJSONList :: [ConflictStatus] -> Value toEncodingList :: [ConflictStatus] -> Encoding omitField :: ConflictStatus -> Bool
ToSchema ConflictStatus Source #
Instance details Defined in Docs.TextRevision Methods declareNamedSchema :: Proxy ConflictStatus -> Declare (Definitions Schema) NamedSchema

data TextRevisionHistory Source #

A sequence of revisions for a text element

Constructors

TextRevisionHistory TextElementRef [TextRevisionHeader]

Instances

Instances details

FromJSON TextRevisionHistory Source #
Instance details Defined in Docs.TextRevision Methods parseJSON :: Value -> Parser TextRevisionHistory parseJSONList :: Value -> Parser [TextRevisionHistory] omittedField :: Maybe TextRevisionHistory
ToJSON TextRevisionHistory Source #
Instance details Defined in Docs.TextRevision Methods toJSON :: TextRevisionHistory -> Value toEncoding :: TextRevisionHistory -> Encoding toJSONList :: [TextRevisionHistory] -> Value toEncodingList :: [TextRevisionHistory] -> Encoding omitField :: TextRevisionHistory -> Bool
ToSchema TextRevisionHistory Source #
Instance details Defined in Docs.TextRevision Methods declareNamedSchema :: Proxy TextRevisionHistory -> Declare (Definitions Schema) NamedSchema

data NewTextRevision Source #

Information required to create a new text revision.

Constructors

NewTextRevision
Fields newTextRevisionElement :: TextElementRef newTextRevisionParent :: Maybe TextRevisionID newTextRevisionContent :: Text newTextRevisionCommentAnchors :: Vector CommentAnchor newTextRevisionIsAutoSave :: Bool

data TextRevisionRef Source #

A reference to a TextRevision

Constructors

TextRevisionRef TextElementRef TextRevisionSelector

Instances

Instances details

FromJSON TextRevisionRef Source #

Instance details

Defined in Docs.TextRevision

Methods

parseJSON :: Value -> Parser TextRevisionRef

parseJSONList :: Value -> Parser [TextRevisionRef]

omittedField :: Maybe TextRevisionRef

ToJSON TextRevisionRef Source #

Instance details

Defined in Docs.TextRevision

Methods

toJSON :: TextRevisionRef -> Value

toEncoding :: TextRevisionRef -> Encoding

toJSONList :: [TextRevisionRef] -> Value

toEncodingList :: [TextRevisionRef] -> Encoding

omitField :: TextRevisionRef -> Bool

Generic TextRevisionRef Source #

Instance details

Defined in Docs.TextRevision

Associated Types

type Rep TextRevisionRef

Instance details

Defined in Docs.TextRevision

type Rep TextRevisionRef = D1 ('MetaData "TextRevisionRef" "Docs.TextRevision" "backend-0.1.0.0-2H73EnUlGVcEtlIi2XNQz3" 'False) (C1 ('MetaCons "TextRevisionRef" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 TextElementRef) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 TextRevisionSelector)))

Methods

from :: TextRevisionRef -> Rep TextRevisionRef x #

to :: Rep TextRevisionRef x -> TextRevisionRef #

ToSchema TextRevisionRef Source #

Instance details

Defined in Docs.TextRevision

Methods

declareNamedSchema :: Proxy TextRevisionRef -> Declare (Definitions Schema) NamedSchema

type Rep TextRevisionRef Source #

Instance details

Defined in Docs.TextRevision

type Rep TextRevisionRef = D1 ('MetaData "TextRevisionRef" "Docs.TextRevision" "backend-0.1.0.0-2H73EnUlGVcEtlIi2XNQz3" 'False) (C1 ('MetaCons "TextRevisionRef" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 TextElementRef) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 TextRevisionSelector)))

newtype DraftRevisionID Source #

ID for a draft text revision

Constructors

DraftRevisionID
Fields unDraftRevisionID :: Int64

Instances

Instances details

FromJSON DraftRevisionID Source #
Instance details Defined in Docs.TextRevision Methods parseJSON :: Value -> Parser DraftRevisionID parseJSONList :: Value -> Parser [DraftRevisionID] omittedField :: Maybe DraftRevisionID
ToJSON DraftRevisionID Source #
Instance details Defined in Docs.TextRevision Methods toJSON :: DraftRevisionID -> Value toEncoding :: DraftRevisionID -> Encoding toJSONList :: [DraftRevisionID] -> Value toEncodingList :: [DraftRevisionID] -> Encoding omitField :: DraftRevisionID -> Bool
Show DraftRevisionID Source #
Instance details Defined in Docs.TextRevision Methods showsPrec :: Int -> DraftRevisionID -> ShowS # show :: DraftRevisionID -> String # showList :: [DraftRevisionID] -> ShowS #
Eq DraftRevisionID Source #
Instance details Defined in Docs.TextRevision Methods (==) :: DraftRevisionID -> DraftRevisionID -> Bool # (/=) :: DraftRevisionID -> DraftRevisionID -> Bool #
Ord DraftRevisionID Source #
Instance details Defined in Docs.TextRevision Methods compare :: DraftRevisionID -> DraftRevisionID -> Ordering # (<) :: DraftRevisionID -> DraftRevisionID -> Bool # (<=) :: DraftRevisionID -> DraftRevisionID -> Bool # (>) :: DraftRevisionID -> DraftRevisionID -> Bool # (>=) :: DraftRevisionID -> DraftRevisionID -> Bool # max :: DraftRevisionID -> DraftRevisionID -> DraftRevisionID # min :: DraftRevisionID -> DraftRevisionID -> DraftRevisionID #
ToSchema DraftRevisionID Source #
Instance details Defined in Docs.TextRevision Methods declareNamedSchema :: Proxy DraftRevisionID -> Declare (Definitions Schema) NamedSchema

data DraftRevision Source #

A draft text revision.

Constructors

DraftRevision
Fields draftHeader :: DraftRevisionHeader draftContent :: Text draftCommentAnchors :: Vector CommentAnchor

Instances

Instances details

FromJSON DraftRevision Source #

Instance details

Defined in Docs.TextRevision

Methods

parseJSON :: Value -> Parser DraftRevision

parseJSONList :: Value -> Parser [DraftRevision]

omittedField :: Maybe DraftRevision

ToJSON DraftRevision Source #

Instance details

Defined in Docs.TextRevision

Methods

toJSON :: DraftRevision -> Value

toEncoding :: DraftRevision -> Encoding

toJSONList :: [DraftRevision] -> Value

toEncodingList :: [DraftRevision] -> Encoding

omitField :: DraftRevision -> Bool

Generic DraftRevision Source #

Instance details

Defined in Docs.TextRevision

Associated Types

type Rep DraftRevision

Instance details

Defined in Docs.TextRevision

type Rep DraftRevision = D1 ('MetaData "DraftRevision" "Docs.TextRevision" "backend-0.1.0.0-2H73EnUlGVcEtlIi2XNQz3" 'False) (C1 ('MetaCons "DraftRevision" 'PrefixI 'True) (S1 ('MetaSel ('Just "draftHeader") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 DraftRevisionHeader) :*: (S1 ('MetaSel ('Just "draftContent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "draftCommentAnchors") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector CommentAnchor)))))

Methods

from :: DraftRevision -> Rep DraftRevision x #

to :: Rep DraftRevision x -> DraftRevision #

ToSchema DraftRevision Source #

Instance details

Defined in Docs.TextRevision

Methods

declareNamedSchema :: Proxy DraftRevision -> Declare (Definitions Schema) NamedSchema

type Rep DraftRevision Source #

Instance details

Defined in Docs.TextRevision

type Rep DraftRevision = D1 ('MetaData "DraftRevision" "Docs.TextRevision" "backend-0.1.0.0-2H73EnUlGVcEtlIi2XNQz3" 'False) (C1 ('MetaCons "DraftRevision" 'PrefixI 'True) (S1 ('MetaSel ('Just "draftHeader") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 DraftRevisionHeader) :*: (S1 ('MetaSel ('Just "draftContent") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "draftCommentAnchors") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Vector CommentAnchor)))))

data DraftRevisionHeader Source #

Header of a draft text revision.

Constructors

DraftRevisionHeader
Fields draftIdentifier :: DraftRevisionID basedOnRevision :: TextRevisionID creationTimestamp :: UTCTime lastUpdatedTimestamp :: UTCTime draftAuthor :: UserRef