github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-20 13:21:59 +03:00
Code Issues Projects Releases Wiki Activity

Declare the type for textElements.

Browse Source
This commit is contained in:
Rob Rix 2015-12-08 12:17:11 -05:00
parent 202beacef9
commit 04ea70629e
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Split.hs
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)