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

Match on case

Browse Source
This commit is contained in:
joshvera 2016-11-10 16:36:46 -05:00
parent 8dbac2c98a
commit ed532220d1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Language/Go.hs
View File

@ -39,7 +39,8 @@ termConstructor source sourceSpan name range children = case (name, children) of
(clauses, cases) -> do
clauses' <- withDefaultInfo $ S.Indexed clauses
withDefaultInfo $ S.Switch clauses' cases
where isCaseClause = (== Other "expression_case_clause") . category . extract
where isCaseClause = (== Case) . category . extract
-- TODO: Handle multiple var specs
("var_declaration", varSpecs) -> withDefaultInfo . S.Indexed =<< mapM toVarDecl varSpecs
@ -133,5 +134,6 @@ categoryForGoName = \case
"if_statement" -> If
"for_statement" -> For
"expression_switch_statement" -> Switch
"expression_case_clause" -> Case
s -> Other (toS s)