github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

remove uses of lineRange

Browse Source
This commit is contained in:
joshvera 2015-12-02 21:44:11 -05:00
parent 2a063d3277
commit 8438037658
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app/Split.hs
View File

@ -37,10 +37,10 @@ splitPatch before after patch = (splitTerm before <$> Patch.before patch, splitT
splitTerm :: String -> Term a Info -> (HTML, Range)
splitTerm source = cata toElement where
toElement (Info range lineRange categories) (Leaf _) = (Span (classify categories) $ substring range source, range)
toElement (Info range lineRange categories) (Indexed i) = makeList i range categories
toElement (Info range lineRange categories) (Fixed i) = makeList i range categories
toElement (Info range lineRange categories) (Keyed k) = makeMap (Map.toList k) range categories
toElement (Info range _ categories) (Leaf _) = (Span (classify categories) $ substring range source, range)
toElement (Info range _ categories) (Indexed i) = makeList i range categories
toElement (Info range _ categories) (Fixed i) = makeList i range categories
toElement (Info range _ categories) (Keyed k) = makeMap (Map.toList k) range categories
accumulate (children, previous) (child, range) = (children ++ [ subtext previous $ start range, child ], end range)
accumulateFromMap (children, previous) (key, (child, range)) = (children ++ [ subtext previous $ start range, Dt key, child ], end range)