app/Issue/Provenance.hs


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

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

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

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