github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00
Code Issues Projects Releases Wiki Activity

Flatten the for statement patterns to the top level.

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

12
src/Language/Go.hs
View File

@ -28,15 +28,9 @@ termAssignment source (range :. category :. sourceSpan :. Nil) children = Just $
(Function, _) -> withDefaultInfo $ case children of
[id, params, block] -> S.Function id (toList $ unwrap params) (toList $ unwrap block)
rest -> S.Error rest
(For, _) ->
withDefaultInfo $ case children of
[body] | Info.category (extract body) == Other "block" ->
S.For [] (toList $ unwrap body)
[forClause, body] | Info.category (extract forClause) == Other "for_clause" ->
S.For (toList $ unwrap forClause) (toList $ unwrap body)
[rangeClause, body] | Info.category (extract rangeClause) == Other "range_clause" ->
S.For (toList $ unwrap rangeClause) (toList $ unwrap body)
other -> S.Error other
(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))
(TypeDecl, _) -> toTypeDecl children
(StructTy, _) -> toStructTy children
(FieldDecl, _) -> toFieldDecl children