github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-05 14:11:33 +03:00
Code Issues Projects Releases Wiki Activity

Use an operator section to avoid some awkwardness.

Browse Source
This commit is contained in:
Rob Rix 2015-12-21 10:12:14 -05:00
parent 09fb6238c4
commit 3d17c9a8f0
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

@ -58,7 +58,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 . show $ columnWidth)) <> col <> (col ! A.width (stringValue . show $ columnWidth)) <> col)) ((colgroup $ (col ! A.width (stringValue . show $ columnWidth)) <> col <> (col ! A.width (stringValue . show $ columnWidth)) <> col) <>)
. mconcat $ toMarkup <$> reverse numbered . mconcat $ toMarkup <$> reverse numbered
where where
rows = fst $ diffToRows diff (0, 0) before after rows = fst $ diffToRows diff (0, 0) before after