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

Split rendering of Fixed terms in Patches.

Browse Source
This commit is contained in:
Rob Rix 2015-12-10 17:26:16 -05:00
parent 7ca6481cec
commit 00826a1a82
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

@ -129,6 +129,7 @@ termToLines (Info range _ categories :< syntax) source = (rows syntax, range)
where where
rows (Leaf _) = reverse $ foldl adjoin2Lines [] $ Line . (:[]) <$> elements rows (Leaf _) = reverse $ foldl adjoin2Lines [] $ Line . (:[]) <$> elements
rows (Indexed i) = rewrapLineContentsInUl <$> childLines i rows (Indexed i) = rewrapLineContentsInUl <$> childLines i
rows (Fixed f) = rewrapLineContentsInUl <$> childLines f
rewrapLineContentsInUl (Line elements) = Line [ Ul (classify categories) elements ] rewrapLineContentsInUl (Line elements) = Line [ Ul (classify categories) elements ]
rewrapLineContentsInUl EmptyLine = EmptyLine rewrapLineContentsInUl EmptyLine = EmptyLine