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

Compute the maximum line number.

Browse Source
This commit is contained in:
Rob Rix 2015-12-17 09:59:59 -05:00
parent 705e6047fa
commit 68775ef33f
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

@ -68,6 +68,9 @@ split diff before after = return . renderHtml
where where
rows = fst $ diffToRows diff (0, 0) before after rows = fst $ diffToRows diff (0, 0) before after
numbered = foldl numberRows [] rows numbered = foldl numberRows [] rows
maxNumber = case numbered of
[] -> 0
((x, _, y, _) : _) -> max x y
numberRows :: [(Int, Line, Int, Line)] -> Row -> [(Int, Line, Int, Line)] numberRows :: [(Int, Line, Int, Line)] -> Row -> [(Int, Line, Int, Line)]
numberRows [] (Row EmptyLine EmptyLine) = [] numberRows [] (Row EmptyLine EmptyLine) = []