diff --git a/src/Split.hs b/src/Split.hs
index 73cec0b51..bfcdf11ef 100644
--- a/src/Split.hs
+++ b/src/Split.hs
@@ -84,11 +84,11 @@ instance Show Row where
   show (Row left right) = "\n" ++ show left ++ " | " ++ show right
 
 instance ToMarkup (Int, Line, Int, Line) where
-  toMarkup (_, EmptyLine, _, EmptyLine) = tr $ numberTd "" <> td (string "") <> numberTd "" <> toMarkup (string "") <> string "\n"
-  toMarkup (_, EmptyLine, num, right) = tr $ numberTd "" <> td (string "") <>
+  toMarkup (_, EmptyLine, _, EmptyLine) = tr $ numberTd "" <> toMarkup EmptyLine <> numberTd "" <> toMarkup EmptyLine <> string "\n"
+  toMarkup (_, EmptyLine, num, right) = tr $ numberTd "" <> toMarkup EmptyLine <>
                                                numberTd (show num) <> toMarkup right <> string "\n"
   toMarkup (num, left, _, EmptyLine) = tr $ numberTd (show num)  <> toMarkup left <>
-                                              numberTd "" <> td (string "") <> string "\n"
+                                              numberTd "" <> toMarkup EmptyLine <> string "\n"
   toMarkup (leftNum, left, rightNum, right) = tr $ numberTd (show leftNum) <> toMarkup left <>
                                           numberTd (show rightNum) <> toMarkup right <> string "\n"