github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-02 20:41:38 +03:00
Code Issues Projects Releases Wiki Activity

Add colgroups to tables.

Browse Source
This commit is contained in:
Rob Rix 2015-12-15 10:10:51 -05:00
parent ece14e5b8d
commit 766142efd4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Split.hs
View File

@ -61,7 +61,8 @@ split diff before after = return . renderHtml
. docTypeHtml . docTypeHtml
. ((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))
. 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