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

Split rendering of Fixed nodes in Free.

Browse Source
This commit is contained in:
Rob Rix 2015-12-10 17:30:48 -05:00
parent 18b50a05ab
commit 6afa81a197
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

@ -150,6 +150,7 @@ annotatedToRows (Annotated (Info left _ leftCategories, Info right _ rightCatego
where where
rows (Leaf _) = zipWithMaybe rowFromMaybeRows leftElements rightElements rows (Leaf _) = zipWithMaybe rowFromMaybeRows leftElements rightElements
rows (Indexed i) = wrapRows i rows (Indexed i) = wrapRows i
rows (Fixed f) = wrapRows f
leftElements = (elementAndBreak $ Span (classify leftCategories)) =<< actualLines (substring left before) leftElements = (elementAndBreak $ Span (classify leftCategories)) =<< actualLines (substring left before)
rightElements = (elementAndBreak $ Span (classify rightCategories)) =<< actualLines (substring right after) rightElements = (elementAndBreak $ Span (classify rightCategories)) =<< actualLines (substring right after)