app/Issue/Provenance.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

module Issue.Provenance
  ( Provenance (..),
  )
where

import Data.Binary (Binary)
import GHC.Generics (Generic)
import Git qualified

data Provenance = Provenance
  { first :: Git.Commit,
    last :: Git.Commit
  }
  deriving (Eq, Show, Generic, Binary)