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)