1
1
mirror of https://github.com/github/semantic.git synced 2024-12-20 05:11:44 +03:00

Declare the type for textElements.

This commit is contained in:
Rob Rix 2015-12-08 12:17:11 -05:00
parent 202beacef9
commit 04ea70629e

View File

@ -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)