mirror of
https://github.com/github/semantic.git
synced 2024-12-25 16:02:43 +03:00
Add all four columns correctly.
This commit is contained in:
parent
30c1f97e1e
commit
e5af22ca19
@ -63,7 +63,7 @@ split diff before after = return . renderHtml
|
||||
. ((head $ link ! A.rel (stringValue "stylesheet") ! A.href (stringValue "style.css")) <>)
|
||||
. body
|
||||
. (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)
|
||||
where
|
||||
rows = fst $ diffToRows diff (0, 0) before after
|
||||
|
Loading…
Reference in New Issue
Block a user