diff --git a/src/Split.hs b/src/Split.hs
index 8af355b0b..f5323b8b8 100644
--- a/src/Split.hs
+++ b/src/Split.hs
@@ -136,6 +136,7 @@ contextRows childIndices previousIndices sources = zipWithMaybe rowFromMaybeRows
     leftElements = textElements (Range (fst previousIndices) (fst childIndices)) (fst sources)
     rightElements = textElements (Range (snd previousIndices) (snd childIndices)) (snd sources)
 
+textElements :: Range -> String -> [HTML]
 textElements range source = Text <$> actualLines (substring range source)
 
 starts :: (Range , Range) -> (Int, Int)