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

Flatten the function patterns to the top level.

Browse Source
This commit is contained in:
Rob Rix 2017-01-23 12:37:19 -05:00
parent 5e6f45e482
commit 1cd22e2df0
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Language/Go.hs
View File

@ -25,9 +25,7 @@ termAssignment source (range :. category :. sourceSpan :. Nil) children = Just $
_ -> withRanges range Error children (S.Error children)
_ -> withRanges range Error children (S.Error children)
(Other "import_declaration", _) -> toImports children
(Function, _) -> withDefaultInfo $ case children of
[id, params, block] -> S.Function id (toList $ unwrap params) (toList $ unwrap block)
rest -> S.Error rest
(Function, [id, params, block]) -> withDefaultInfo $ S.Function id (toList $ unwrap params) (toList $ unwrap block)
(For, [body]) | Other "block" <- Info.category (extract body) -> withDefaultInfo $ S.For [] (toList (unwrap body))
(For, [forClause, body]) | Other "for_clause" <- Info.category (extract forClause) -> withDefaultInfo $ S.For (toList (unwrap forClause)) (toList (unwrap body))
(For, [rangeClause, body]) | Other "range_clause" <- Info.category (extract rangeClause) -> withDefaultInfo $ S.For (toList (unwrap rangeClause)) (toList (unwrap body))