diff --git a/src/Split.hs b/src/Split.hs
index 2127d2758..adb16a4d8 100644
--- a/src/Split.hs
+++ b/src/Split.hs
@@ -58,7 +58,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 . 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
   where
     rows = fst $ diffToRows diff (0, 0) before after