blob: 0900f13717251fea3220eed2f2a57d7d0e8462de (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
module History.IssueEvent (IssueEvent (..)) where
import History.CommitHash (CommitHash)
import Issue (Issue)
import Patch (Patch)
data IssueEvent
= IssueCreated
{ hash :: CommitHash,
issue :: Issue,
patch :: Patch
}
| IssueChanged
{ hash :: CommitHash,
oldIssue :: Issue,
issue :: Issue,
patch :: Patch
}
| IssueDeleted
{ hash :: CommitHash,
issue :: Issue,
patch :: Patch
}
deriving (Show)
|
