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

Merge pull request #275 from github/declare-the-type-of-textElements

Browse Source 
Declare the type of textElements.
This commit is contained in:
Josh Vera 2015-12-08 12:38:10 -05:00
commit 4a0b320640
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) leftElements = textElements (Range (fst previousIndices) (fst childIndices)) (fst sources)
rightElements = textElements (Range (snd previousIndices) (snd childIndices)) (snd sources) rightElements = textElements (Range (snd previousIndices) (snd childIndices)) (snd sources)
textElements :: Range -> String -> [HTML]
textElements range source = Text <$> actualLines (substring range source) textElements range source = Text <$> actualLines (substring range source)
starts :: (Range , Range) -> (Int, Int) starts :: (Range , Range) -> (Int, Int)