1
1
mirror of https://github.com/github/semantic.git synced 2025-01-01 19:55:34 +03:00

Add new types to pattern matching

This commit is contained in:
Matt Diephouse 2016-02-09 09:42:49 -08:00
parent 73132d8a3a
commit f0e7d48786

View File

@ -37,7 +37,9 @@ classifyMarkup categories element = maybe element ((element !) . A.class_ . stri
-- | Return the appropriate style name for the given category.
styleName :: Category -> String
styleName category = "category-" ++ case category of
BinaryOperator -> "binary-operator"
DictionaryLiteral -> "dictionary"
FunctionCall -> "function-call"
Other string -> string
-- | Render a diff as an HTML split diff.