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

Remove showRow.

Browse Source
This commit is contained in:
Rob Rix 2015-12-30 18:37:38 -05:00
parent 3f22926e86
commit c6ef5b4ef8
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/PatchOutput.hs
View File

@ -46,13 +46,6 @@ showChange sources change = showLines (snd sources) ' ' (unRight <$> context cha
showLines :: Source Char -> Char -> [Line (SplitDiff leaf Info)] -> String
showLines source prefix lines = fromMaybe "" . mconcat $ fmap (prefix :) . showLine source <$> lines
showRow :: (Source Char, Source Char) -> Row (SplitDiff leaf Info) -> String
showRow sources (Row lineA lineB) = if stringA == stringB
then maybe "" (' ' :) stringB
else maybe "" ('-' :) stringA ++ maybe "" ('+' :) stringB
where stringA = showLine (fst sources) lineA
stringB = showLine (snd sources) lineB
showLine :: Source Char -> Line (SplitDiff leaf Info) -> Maybe String
showLine _ EmptyLine = Nothing
showLine source line = Just . toString . (`slice` source) . unionRanges $ getRange <$> unLine line