diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2023-11-28 12:44:16 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2023-11-28 12:44:16 +0100 |
| commit | 457cc50cf9cbf8906695758acadee4bf39a4eed8 (patch) | |
| tree | 09dd7c92faf47fed230165037db48218b675afdd /app/Main.hs | |
| parent | 34e3154c7ae1b002ff85cd0837c3cbf7d672d458 (diff) | |
change provenance's hash form `Text` to `CommitHash`
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 ++ " <" |