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

Split spans into lines.

Browse Source
This commit is contained in:
Rob Rix 2015-12-02 10:12:11 -05:00
parent 7d3542075d
commit 87b86ba817
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
app/Split.hs
View File

@ -62,6 +62,7 @@ splitTerm source = cata toElement where
splitHTMLIntoLines :: HTML -> [HTML]
splitHTMLIntoLines (Text string) = Text <$> lines string
splitHTMLIntoLines (Span className string) = Span className <$> lines string
classify :: Set.Set Category -> Maybe ClassName
classify = foldr (const . Just) Nothing