1
1
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00

Use makeSource to construct the sources.

This commit is contained in:
Rob Rix 2015-12-23 21:52:44 -05:00
parent c1f606a499
commit 20fab3f0fa

View File

@ -68,7 +68,7 @@ split diff before after = return . renderHtml
hasChanges diff = or $ const True <$> diff
sources = (Source (0, before), Source (0, after))
sources = (makeSource before, makeSource after)
numberRows :: [(Int, Line a, Int, Line a)] -> Row a -> [(Int, Line a, Int, Line a)]
numberRows [] (Row EmptyLine EmptyLine) = []