aboutsummaryrefslogtreecommitdiffstats
path: root/app/Issue
diff options
context:
space:
mode:
Diffstat (limited to 'app/Issue')
-rw-r--r--app/Issue/Provenance.hs8
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
}