License | BSD3 |
---|---|
Maintainer | Oleg Grenrus <oleg.grenrus@iki.fi> |
Safe Haskell | None |
Language | Haskell2010 |
- data Message = Message {
- _msgContent :: !MessageContent
- _msgTags :: ![Text]
- _msgCreatedAt :: !UTCTime
- _msgEditedAt :: !(Maybe UTCTime)
- _msgFlowId :: !FlowId
- _msgUser :: !UserId
- _msgId :: !MessageId
- type MessageId = Identifier Integer Message
- msgContent :: Lens' Message MessageContent
- msgTags :: Lens' Message [Text]
- msgCreatedAt :: Lens' Message UTCTime
- msgEditedAt :: Lens' Message (Maybe UTCTime)
- msgFlowId :: Lens' Message FlowId
- msgId :: Lens' Message MessageId
- msgUser :: Lens' Message UserId
- data MessageEvent
- messageEventToString :: MessageEvent -> String
- messageEventFromString :: String -> Maybe MessageEvent
- data MessageContent
- = MTMessage !Text
- | MTStatus String
- | MTComment !Comment
- | MTAction !Value
- | MTTagChange !Value
- | MTMessageEdit !Value
- | MTActivityUser !Value
- | MTFile !Value
- | MTMail !Mail
- | MTActivity
- | MTDiscussion
- _MTStatus :: Prism' MessageContent String
- _MTComment :: Prism' MessageContent Comment
- _MTAction :: Prism' MessageContent Value
- _MTTagChange :: Prism' MessageContent Value
- _MTMessageEdit :: Prism' MessageContent Value
- _MTActivityUser :: Prism' MessageContent Value
- _MTFile :: Prism' MessageContent Value
- _MTMail :: Prism' MessageContent Mail
- _MTActivity :: Prism' MessageContent ()
- _MTDiscussion :: Prism' MessageContent ()
- data Comment = Comment {
- _commentText :: !Text
- _commentTitle :: !Text
- commentText :: Lens' Comment Text
- commentTitle :: Lens' Comment Text
- data Mail = Mail {
- _mailSubject :: !Text
- _mailContent :: !Text
- _mailTo :: ![MailAddress]
- _mailFrom :: ![MailAddress]
- _mailCc :: ![MailAddress]
- _mailBcc :: ![MailAddress]
- _mailReplyTo :: ![MailAddress]
- mailSubject :: Lens' Mail Text
- mailContent :: Lens' Mail Text
- mailFrom :: Lens' Mail [MailAddress]
- mailTo :: Lens' Mail [MailAddress]
- mailCc :: Lens' Mail [MailAddress]
- mailBcc :: Lens' Mail [MailAddress]
- mailReplyTo :: Lens' Mail [MailAddress]
- data MailAddress = MailAddress {
- _mailAddress :: !Text
- _mailAddressName :: !(Maybe Text)
- mailAddress :: Lens' MailAddress Text
- mailAddressName :: Lens' MailAddress (Maybe Text)
Message
Message | |
|
type MessageId = Identifier Integer Message Source
Opaque User identifier
Content
data MessageEvent Source
EventMessage | |
EventStatus | |
EventComment | This message type is likely to change in the near future. |
EventAction | |
EventTagChange | |
EventMessageEdit | |
EventActivityUser | |
EventFile | |
EventMail | |
EventActivity | |
EventDiscussion |
data MessageContent Source
MTMessage !Text | |
MTStatus String | |
MTComment !Comment | This message type is likely to change in the near future. |
MTAction !Value | |
MTTagChange !Value | |
MTMessageEdit !Value | |
MTActivityUser !Value | |
MTFile !Value | |
MTMail !Mail | |
MTActivity | |
MTDiscussion |
Comment
Comment | |
|
|
mailFrom :: Lens' Mail [MailAddress] Source
mailTo :: Lens' Mail [MailAddress] Source
mailCc :: Lens' Mail [MailAddress] Source
mailBcc :: Lens' Mail [MailAddress] Source
data MailAddress Source
MailAddress | |
|