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

Concatenate HTML lines in Ul elements.

Browse Source
This commit is contained in:
Rob Rix 2015-12-02 16:36:47 -05:00
parent c3cd1edc7d
commit 8cbe16883d
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

@ -63,7 +63,7 @@ splitTerm source = cata toElement where
splitHTMLIntoLines :: HTML -> [HTML] splitHTMLIntoLines :: HTML -> [HTML]
splitHTMLIntoLines (Text string) = Text <$> lines string splitHTMLIntoLines (Text string) = Text <$> lines string
splitHTMLIntoLines (Span className string) = Span className <$> lines string splitHTMLIntoLines (Span className string) = Span className <$> lines string
splitHTMLIntoLines (Ul className children) = Ul className . splitHTMLIntoLines <$> children splitHTMLIntoLines (Ul className children) = Ul className <$> foldr combineLines [[]] children
splitHTMLIntoLines (Dt string) = [ Dt string ] splitHTMLIntoLines (Dt string) = [ Dt string ]
combineLines :: HTML -> [[HTML]] -> [[HTML]] combineLines :: HTML -> [[HTML]] -> [[HTML]]