blob: 933b04744abaf9934fdea91627c920aa7adcf195 (
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 Data.Text qualified as T
import History.CommitHash (CommitHash)
import Issue (Issue)
data IssueEvent
= IssueCreated
{ hash :: CommitHash,
issue :: Issue,
patch :: T.Text
}
| IssueChanged
{ hash :: CommitHash,
oldIssue :: Issue,
issue :: Issue,
patch :: T.Text
}
| IssueDeleted
{ hash :: CommitHash,
issue :: Issue,
patch :: T.Text
}
deriving (Show)
|
