From 457cc50cf9cbf8906695758acadee4bf39a4eed8 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Tue, 28 Nov 2023 12:44:16 +0100 Subject: change provenance's hash form `Text` to `CommitHash` --- app/Main.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'app/Main.hs') diff --git a/app/Main.hs b/app/Main.hs index 4491747..2e3cae1 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -406,7 +406,7 @@ import Data.Text.Lazy qualified as LT import Data.Text.Lazy.IO qualified as LT import Data.Time.Clock (UTCTime (utctDay)) import History (getHistory) -import History.CommitHash qualified as CH +import History.CommitHash qualified as C import History.IssueEvent (IssueEvent (..)) import Issue (Issue (..)) import Issue qualified as I @@ -643,7 +643,7 @@ main = do putDoc colorize noPager width . P.vsep $ concatMap ( \(hash, es') -> - let shortHash = P.annotate (P.color P.Yellow) . P.pretty $ CH.toShortText hash + let shortHash = P.annotate (P.color P.Yellow) . P.pretty $ C.toShortText hash in map ( \e -> let kwd = P.annotate (P.color P.Green) . P.pretty . T.pack @@ -688,7 +688,7 @@ main = do ++ ":" ++ show issue.start.row ++ "\nvia " - ++ T.unpack issue.provenance.first.hash + ++ T.unpack (C.toText issue.provenance.first.hash) ++ "\nby " ++ T.unpack issue.provenance.first.author.name ++ " <" -- cgit v1.2.3