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 Method to HasCategory Category instance

Browse Source
This commit is contained in:
joshvera 2016-07-30 14:00:58 -04:00
parent c8b5fb8c08
commit 1afa6d7b0f
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/DiffSummary.hs
View File

@ -117,6 +117,7 @@ instance HasCategory Category where
C.Object -> "object"
C.Return -> "return statement"
C.Class -> "class"
C.Method -> "method"
instance (HasCategory leaf, HasField fields Category) => HasCategory (Term leaf (Record fields)) where
toCategoryName = toCategoryName . category . extract