diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2023-12-03 13:29:00 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2023-12-03 13:29:00 +0100 |
| commit | 32c76fb1f411896a4727ba2a76cdfc9dcd3dc48a (patch) | |
| tree | 9237f6dcd3c165d864861ab9533c0ed4a093d2a7 /app/History/CommitInfo.hs | |
| parent | 22c71e24edc8655f15c8dba02244b8e6d059da5c (diff) | |
feat: color patches
Diffstat (limited to 'app/History/CommitInfo.hs')
| -rw-r--r-- | app/History/CommitInfo.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/app/History/CommitInfo.hs b/app/History/CommitInfo.hs index dbb7e20..c5224b2 100644 --- a/app/History/CommitInfo.hs +++ b/app/History/CommitInfo.hs @@ -20,6 +20,7 @@ import History.PartialCommitInfo (PartialCommitInfo (..)) import Issue (Issue (..)) import Issue.Provenance qualified as I import Parallel (parSequence) +import Patch qualified as P import Process (sh) import System.FilePath ((</>)) import System.IO.Temp (withSystemTempDirectory) @@ -109,7 +110,7 @@ diffCommitInfos maybeOldInfo newInfo = let cwd = tmp T.writeFile (tmp </> "old") old T.writeFile (tmp </> "new") new - LT.toStrict . LT.decodeUtf8 <$> sh ("git diff --no-index -- old new || :" & setWorkingDir cwd) + P.parse . LT.toStrict . LT.decodeUtf8 <$> sh ("git diff --no-index -- old new || :" & setWorkingDir cwd) mergeListsBy :: (a -> a -> Bool) -> (a -> a -> b) -> (a -> b) -> (a -> b) -> [a] -> [a] -> [b] mergeListsBy eq onBoth onLeft onRight lefts rights = |