github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-04 05:27:08 +03:00
Code Issues Projects Releases Wiki Activity

classifyMarkup takes the first category if any.

Browse Source
This commit is contained in:
Rob Rix 2015-12-24 09:51:56 -05:00
parent e77b3a8bd4
commit e6e3d9d450
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Split.hs
View File

@ -23,7 +23,7 @@ import qualified Source ((++))
type ClassName = String type ClassName = String
classifyMarkup :: Foldable f => f String -> Markup -> Markup classifyMarkup :: Foldable f => f String -> Markup -> Markup
classifyMarkup categories element = maybe element ((element !) . A.class_ . stringValue . ("category-" ++)) $ maybeLast categories classifyMarkup categories element = maybe element ((element !) . A.class_ . stringValue . ("category-" ++)) $ maybeFirst categories
split :: Diff a Info -> String -> String -> IO ByteString split :: Diff a Info -> String -> String -> IO ByteString
split diff before after = return . renderHtml split diff before after = return . renderHtml