diff options
Diffstat (limited to 'app/Issue/Provenance.hs')
-rw-r--r-- | app/Issue/Provenance.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/app/Issue/Provenance.hs b/app/Issue/Provenance.hs index b5fd396..addb6fe 100644 --- a/app/Issue/Provenance.hs +++ b/app/Issue/Provenance.hs @@ -20,6 +20,8 @@ import Data.Time.Calendar (Day (..), toModifiedJulianDay) import Data.Time.Clock (DiffTime, UTCTime (..), picosecondsToDiffTime) import Exception qualified as E import GHC.Generics (Generic) +import History.CommitHash (CommitHash) +import History.CommitHash qualified as C import Process (sh) import System.Process.Typed (setWorkingDir) import Prelude hiding (lines) @@ -31,9 +33,7 @@ data Provenance = Provenance deriving (Show, Generic, Binary, Eq) data Commit = Commit - { -- TODO `T.Text` -> `CommitHash` - -- @difficulty easy - hash :: T.Text, + { hash :: CommitHash, date :: UTCTime, author :: Author } @@ -73,7 +73,7 @@ commitFromHEAD cwd = do let date = read (unpack rawDate) in pure Commit - { hash = hash, + { hash = C.Commit hash, date = date, author = Author authorName authorEmail } |