github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-07 16:07:28 +03:00
Code Issues Projects Releases Wiki Activity

Add a function to render numbered lines to markup with indication of changes.

Browse Source
This commit is contained in:
Rob Rix 2015-12-22 17:55:30 -05:00
parent b89218a944
commit e974ea43af
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Split.hs
View File

@ -45,6 +45,9 @@ split diff before after = return . renderHtml
columnWidth = max (20 + digits maxNumber * 8) 40 columnWidth = max (20 + digits maxNumber * 8) 40
numberedLinesToMarkup :: (Int, Line (SplitDiff a Info), Int, Line (SplitDiff a Info)) -> Markup
numberedLinesToMarkup (m, left, n, right) = tr $ toMarkup (foldl (||) False $ hasChanges <$> unLine left, m, renderable before left) <> toMarkup (foldl (||) False $ hasChanges <$> unLine right, n, renderable after right) <> string "\n"
renderable source = fmap (Renderable . (,) source) renderable source = fmap (Renderable . (,) source)
hasChanges diff = foldl (||) False $ const True <$> diff hasChanges diff = foldl (||) False $ const True <$> diff