Safe Haskell	Safe-Inferred
Language	GHC2021

WikiMusic.Model.Comment

Documentation

data Comment Source #

Constructors

Comment
Fields identifier :: UUID parentIdentifier :: Maybe UUID createdBy :: UUID visibilityStatus :: Int contents :: Text approvedBy :: Maybe UUID createdAt :: UTCTime lastEditedAt :: Maybe UTCTime

Instances

Instances details

FromJSON Comment Source #
Instance details Defined in WikiMusic.Model.Comment Methods parseJSON :: Value -> Parser Comment # parseJSONList :: Value -> Parser [Comment] # omittedField :: Maybe Comment #
ToJSON Comment Source #
Instance details Defined in WikiMusic.Model.Comment Methods toJSON :: Comment -> Value # toEncoding :: Comment -> Encoding # toJSONList :: [Comment] -> Value # toEncodingList :: [Comment] -> Encoding # omitField :: Comment -> Bool #
Generic Comment Source #
Instance details Defined in WikiMusic.Model.Comment Associated Types type Rep Comment :: Type -> Type # Methods from :: Comment -> Rep Comment x # to :: Rep Comment x -> Comment #
Show Comment Source #
Instance details Defined in WikiMusic.Model.Comment Methods showsPrec :: Int -> Comment -> ShowS # show :: Comment -> String # showList :: [Comment] -> ShowS #
Eq Comment Source #
Instance details Defined in WikiMusic.Model.Comment Methods (==) :: Comment -> Comment -> Bool # (/=) :: Comment -> Comment -> Bool #
ToSchema Comment Source #
Instance details Defined in WikiMusic.Model.Comment Methods declareNamedSchema :: Proxy Comment -> Declare (Definitions Schema) NamedSchema #
(k ~ A_Lens, a ~ Maybe UUID, b ~ Maybe UUID) => LabelOptic "approvedBy" k Comment Comment a b Source #
Instance details Defined in WikiMusic.Model.Comment Methods labelOptic :: Optic k NoIx Comment Comment a b #
(k ~ A_Lens, a ~ Text, b ~ Text) => LabelOptic "contents" k Comment Comment a b Source #
Instance details Defined in WikiMusic.Model.Comment Methods labelOptic :: Optic k NoIx Comment Comment a b #
(k ~ A_Lens, a ~ UTCTime, b ~ UTCTime) => LabelOptic "createdAt" k Comment Comment a b Source #
Instance details Defined in WikiMusic.Model.Comment Methods labelOptic :: Optic k NoIx Comment Comment a b #
(k ~ A_Lens, a ~ UUID, b ~ UUID) => LabelOptic "createdBy" k Comment Comment a b Source #
Instance details Defined in WikiMusic.Model.Comment Methods labelOptic :: Optic k NoIx Comment Comment a b #
(k ~ A_Lens, a ~ UUID, b ~ UUID) => LabelOptic "identifier" k Comment Comment a b Source #
Instance details Defined in WikiMusic.Model.Comment Methods labelOptic :: Optic k NoIx Comment Comment a b #
(k ~ A_Lens, a ~ Maybe UTCTime, b ~ Maybe UTCTime) => LabelOptic "lastEditedAt" k Comment Comment a b Source #
Instance details Defined in WikiMusic.Model.Comment Methods labelOptic :: Optic k NoIx Comment Comment a b #
(k ~ A_Lens, a ~ Maybe UUID, b ~ Maybe UUID) => LabelOptic "parentIdentifier" k Comment Comment a b Source #
Instance details Defined in WikiMusic.Model.Comment Methods labelOptic :: Optic k NoIx Comment Comment a b #
(k ~ A_Lens, a ~ Int, b ~ Int) => LabelOptic "visibilityStatus" k Comment Comment a b Source #
Instance details Defined in WikiMusic.Model.Comment Methods labelOptic :: Optic k NoIx Comment Comment a b #
type Rep Comment Source #
Instance details Defined in WikiMusic.Model.Comment type Rep Comment = D1 ('MetaData "Comment" "WikiMusic.Model.Comment" "wikimusic-model-hs-1.2.0.0-2AFmU6Rx8U3ctQHH6pLAk" 'False) (C1 ('MetaCons "Comment" 'PrefixI 'True) (((S1 ('MetaSel ('Just "identifier") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UUID) :: S1 ('MetaSel ('Just "parentIdentifier") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe UUID))) :: (S1 ('MetaSel ('Just "createdBy") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UUID) :: S1 ('MetaSel ('Just "visibilityStatus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int))) :: ((S1 ('MetaSel ('Just "contents") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: S1 ('MetaSel ('Just "approvedBy") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe UUID))) :: (S1 ('MetaSel ('Just "createdAt") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UTCTime) :*: S1 ('MetaSel ('Just "lastEditedAt") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe UTCTime))))))

parseCommentRows :: (JoinKinds k1 l k2, Is k2 A_Getter, LabelOptic "identifier" l u v a1 a1, LabelOptic "comment" k1 b b u v) => (a2 -> b) -> [a2] -> [(a1, b)] Source #