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

Add more mappings

Browse Source
This commit is contained in:
joshvera 2016-06-10 15:24:37 -04:00
parent 6bccfb7d2a
commit ed1314b4d7
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/DiffSummary.hs
View File

@ -35,7 +35,7 @@ instance HasCategory Info where
toCategoryName = toCategoryName . category toCategoryName = toCategoryName . category
instance HasCategory Category where instance HasCategory Category where
toCategoryName category = case category of toCategoryName = \case
Program -> "top level" Program -> "top level"
Error -> "error" Error -> "error"
BinaryOperator -> "binary operator" BinaryOperator -> "binary operator"
@ -46,6 +46,10 @@ instance HasCategory Category where
IntegerLiteral -> "integer" IntegerLiteral -> "integer"
SymbolLiteral -> "symbol" SymbolLiteral -> "symbol"
ArrayLiteral -> "array" ArrayLiteral -> "array"
Category.Function -> "function"
Identifier -> "identifier"
Params -> "params"
ExpressionStatements -> "expression statements"
Other s -> s Other s -> s
instance HasCategory leaf => HasCategory (Term leaf Info) where instance HasCategory leaf => HasCategory (Term leaf Info) where