diff --git a/src/Split.hs b/src/Split.hs
index ea9af35a8..deeefa728 100644
--- a/src/Split.hs
+++ b/src/Split.hs
@@ -173,6 +173,7 @@ contextRows childIndices previousIndices sources = zipWithMaybe rowFromMaybeRows
 
 elementAndBreak :: (String -> HTML) -> String -> [HTML]
 elementAndBreak _ "" = []
+elementAndBreak _ "\n" = [ Break ]
 elementAndBreak constructor x | '\n' <- last x = [ constructor $ init x, Break ]
 elementAndBreak constructor x = [ constructor x ]