From ea1236f2cf6d3ef4b739b2ca28f47a3bbed42295 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Tue, 17 Oct 2023 14:14:48 +0200 Subject: refactor history --- app/History/IssueEvent.hs | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 app/History/IssueEvent.hs (limited to 'app/History/IssueEvent.hs') diff --git a/app/History/IssueEvent.hs b/app/History/IssueEvent.hs new file mode 100644 index 0000000..88886dd --- /dev/null +++ b/app/History/IssueEvent.hs @@ -0,0 +1,19 @@ +module History.IssueEvent (IssueEvent (..)) where + +import History.CommitHash (CommitHash) +import Issue (Issue) + +data IssueEvent + = IssueCreated + { hash :: CommitHash, + issue :: Issue + } + | IssueChanged + { hash :: CommitHash, + issue :: Issue + } + | IssueDeleted + { hash :: CommitHash, + issue :: Issue + } + deriving (Show) -- cgit v1.2.3