github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-26 08:25:19 +03:00
Code Issues Projects Releases Wiki Activity

Add all four columns correctly.

Browse Source
This commit is contained in:
Rob Rix 2015-12-16 23:08:27 -05:00
parent 30c1f97e1e
commit e5af22ca19
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Split.hs
View File

@ -63,7 +63,7 @@ split diff before after = return . renderHtml
. ((head $ link ! A.rel (stringValue "stylesheet") ! A.href (stringValue "style.css")) <>) . ((head $ link ! A.rel (stringValue "stylesheet") ! A.href (stringValue "style.css")) <>)
. body . body
. (table ! A.class_ (stringValue "diff")) $ . (table ! A.class_ (stringValue "diff")) $
((<>) (colgroup (col ! A.width (stringValue "44")) <> col <> (col ! A.width (stringValue "44")) <> col)) ((<>) (colgroup $ (col ! A.width (stringValue "44")) <> col <> (col ! A.width (stringValue "44")) <> col))
. mconcat $ toMarkup <$> (reverse $ foldl numberRows [] rows) . mconcat $ toMarkup <$> (reverse $ foldl numberRows [] rows)
where where
rows = fst $ diffToRows diff (0, 0) before after rows = fst $ diffToRows diff (0, 0) before after