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

add missing cases

Browse Source
This commit is contained in:
joshvera 2016-11-02 10:54:13 -04:00
parent 968186b2da
commit 23b91cf097
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/DiffSummary.hs
View File

@ -341,6 +341,7 @@ instance HasCategory Category where
C.Module -> "module statement" C.Module -> "module statement"
C.Import -> "import statement" C.Import -> "import statement"
C.Export -> "export statement" C.Export -> "export statement"
C.AnonymousFunction -> "anonymous function"
instance HasField fields Category => HasCategory (SyntaxTerm leaf fields) where instance HasField fields Category => HasCategory (SyntaxTerm leaf fields) where
toCategoryName = toCategoryName . category . extract toCategoryName = toCategoryName . category . extract

3
src/Renderer/Split.hs
View File

@ -83,7 +83,8 @@ styleName category = "category-" <> case category of
C.Module -> "module_statement" C.Module -> "module_statement"
C.Import -> "import_statement" C.Import -> "import_statement"
C.Export -> "export_statement" C.Export -> "export_statement"
C.AnonymousFunction -> "anonymous_function"
-- | Pick the class name for a split patch. -- | Pick the class name for a split patch.
splitPatchToClassName :: SplitPatch a -> AttributeValue splitPatchToClassName :: SplitPatch a -> AttributeValue
splitPatchToClassName patch = stringValue $ "patch " <> case patch of splitPatchToClassName patch = stringValue $ "patch " <> case patch of