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

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

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
12 13
    | EWikiEdit       WikiEditId WikiEdit -- New WikiEdit made.
    | EWikiPage       WikiPageId WikiPage -- New WikiPage posted.