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

just construct a tuple

Browse Source
This commit is contained in:
joshvera 2015-12-10 21:13:24 -05:00
parent 9647c7f25f
commit d2595b16cb
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Split.hs
View File

@ -64,12 +64,13 @@ split diff before after = return . renderHtml
. body
. (table ! A.class_ (stringValue "diff")) $ toMarkup
[ (colgroup colgroupHtml),
tbody . mconcat $ toMarkup <$> ((reverse . snd $ foldl numberRows (0, []) rows) :: [(Int, Row)]) ]
tbody . mconcat $ toMarkup <$> ((reverse $ foldl numberRows [] rows) :: [(Int, Row)]) ]
where
colgroupHtml :: Html
colgroupHtml = (toMarkup [ col ! A.width (stringValue "40"), col, col ! A.width (stringValue "40"), col ])
rows = fst $ diffToRows diff (0, 0) before after
numberRows (count, rows) row = (count + 1, (count + 1, row):rows)
numberRows [] row = [(1, row)]
numberRows rows@((count, _):_) row = (count + 1, row):rows