We are no longer offering accounts on this server. Consider https://gitlab.freedesktop.org/ as a place to host projects.

Internal.hs 381 Bytes
Newer Older
Mitchell Rosen's avatar
Mitchell Rosen committed
1 2 3 4 5 6 7 8 9 10
module Model.SnowdriftEvent.Internal where

import Model

-- A sum type of all events, each of which have their own database table.
data SnowdriftEvent
    = ECommentPosted  CommentId Comment   -- Comment approved.
    | ECommentPending CommentId Comment   -- Comment unapproved (pending approval).
    | EMessageSent    MessageId Message
    | EWikiEdit       WikiEditId WikiEdit