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

Name the line range.

Browse Source
This commit is contained in:
Rob Rix 2015-12-01 15:30:54 -05:00
parent 25b1756419
commit 6da6631302
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/Split.hs
View File

@ -22,4 +22,4 @@ splitPatch before after patch = (fmap (splitTerm before) $ Patch.before patch, f
splitTerm :: String -> Term a Info -> Element a
splitTerm source term = toElement term where
toElement ((Info range _ categories) :< syntax) = (foldr (const . Just) Nothing categories, substring range source) :< fmap toElement syntax
toElement ((Info range lineRange categories) :< syntax) = (foldr (const . Just) Nothing categories, substring range source) :< fmap toElement syntax