github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 17:04:47 +03:00
Code Issues Projects Releases Wiki Activity

Move showLine to the top level.

Browse Source
This commit is contained in:
Rob Rix 2015-12-30 15:27:00 -05:00
parent be2476cfda
commit 636e526311
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/PatchOutput.hs
View File

@ -29,8 +29,10 @@ showChange sources change = concat (showLine ' ' (snd sources) . unRight <$> con
where showRow (Row lineA lineB) = if lineA == lineB
then showLine ' ' (snd sources) lineB
else showLine '-' (fst sources) lineA ++ showLine '+' (snd sources) lineB
showLine _ _ EmptyLine = ""
showLine prefix source line = prefix : (toString . (`slice` source) . unionRanges $ getRange <$> unLine line)
showLine :: Char -> Source Char -> Line (SplitDiff leaf Info) -> String
showLine _ _ EmptyLine = ""
showLine prefix source line = prefix : (toString . (`slice` source) . unionRanges $ getRange <$> unLine line)
getRange :: SplitDiff leaf Info -> Range
getRange (Free (Annotated (Info range _) _)) = range