github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 07:25:44 +03:00
Code Issues Projects Releases Wiki Activity

Deparenthesize.

Browse Source
This commit is contained in:
Rob Rix 2015-12-16 18:09:32 -05:00
parent 86dfd83935
commit 4544d25974
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/TreeSitter.hs
View File

@ -47,9 +47,9 @@ data Language = Language { getTsLanguage :: Ptr TSLanguage, getConstructor :: Co
languageForType :: String -> Maybe Language
languageForType mediaType = case mediaType of
".h" -> Just $ Language ts_language_c (constructorForProductions mempty mempty)
".c" -> Just $ Language ts_language_c (constructorForProductions mempty mempty)
".js" -> Just $ Language ts_language_javascript (constructorForProductions (Set.fromList [ "object" ]) fixedProductions)
".h" -> Just . Language ts_language_c $ constructorForProductions mempty mempty
".c" -> Just . Language ts_language_c $ constructorForProductions mempty mempty
".js" -> Just . Language ts_language_javascript $ constructorForProductions (Set.fromList [ "object" ]) fixedProductions
_ -> Nothing
parseTreeSitterFile :: Language -> Parser