mirror of
https://github.com/github/semantic.git
synced 2024-12-24 23:42:31 +03:00
Name the line range.
This commit is contained in:
parent
25b1756419
commit
6da6631302
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user