diff options
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 ++ " <" |