From 04ea70629e75c82ba6c34ba4872843c097f5a084 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 8 Dec 2015 12:17:11 -0500 Subject: [PATCH] Declare the type for textElements. --- src/Split.hs | 1 + 1 file changed, 1 insertion(+) 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)