github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-28 01:11:52 +03:00
Code Issues Projects Releases Wiki Activity

Use showLines to render changes.

Browse Source
This commit is contained in:
Rob Rix 2015-12-30 18:36:28 -05:00
parent 4ba7a017cc
commit 0c87606997
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/PatchOutput.hs
View File

@ -41,7 +41,7 @@ showHunk :: (Source Char, Source Char) -> Hunk (SplitDiff a Info) -> String
showHunk sources hunk = header hunk ++ concat (showChange sources <$> changes hunk) ++ concat (showRow sources <$> trailingContext hunk) showHunk sources hunk = header hunk ++ concat (showChange sources <$> changes hunk) ++ concat (showRow sources <$> trailingContext hunk)
showChange :: (Source Char, Source Char) -> Change (SplitDiff a Info) -> String showChange :: (Source Char, Source Char) -> Change (SplitDiff a Info) -> String
showChange sources change = concat (showRow sources <$> context change) ++ fromMaybe "" (mconcat (fmap ('-' :) . showLine (fst sources) . unLeft <$> contents change)) ++ fromMaybe "" (mconcat (fmap ('+' :) . showLine (snd sources) . unRight <$> contents change)) showChange sources change = concat (showRow sources <$> context change) ++ showLines (fst sources) '-' (unLeft <$> contents change) ++ showLines (snd sources) '+' (unRight <$> contents change)
showLines :: Source Char -> Char -> [Line (SplitDiff leaf Info)] -> String showLines :: Source Char -> Char -> [Line (SplitDiff leaf Info)] -> String
showLines source prefix lines = fromMaybe "" . mconcat $ fmap (prefix :) . showLine source <$> lines showLines source prefix lines = fromMaybe "" . mconcat $ fmap (prefix :) . showLine source <$> lines