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

Flatten the type declaration pattern.

Browse Source
This commit is contained in:
Rob Rix 2017-01-23 13:14:42 -05:00
parent 9e61d8a2eb
commit 9a98bd6c8e
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Language/Go.hs
View File

@ -25,7 +25,7 @@ termAssignment source (range :. category :. sourceSpan :. Nil) children = Just $
(For, [body]) | Other "block" <- Info.category (extract body) -> withDefaultInfo $ S.For [] (toList (unwrap body)) (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, [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)) (For, [rangeClause, body]) | Other "range_clause" <- Info.category (extract rangeClause) -> withDefaultInfo $ S.For (toList (unwrap rangeClause)) (toList (unwrap body))
(TypeDecl, _) -> toTypeDecl children (TypeDecl, [identifier, ty]) -> withDefaultInfo $ S.TypeDecl identifier ty
(StructTy, _) -> toStructTy children (StructTy, _) -> toStructTy children
(FieldDecl, _) -> toFieldDecl children (FieldDecl, _) -> toFieldDecl children
(Switch, _) -> (Switch, _) ->
@ -113,10 +113,6 @@ termAssignment source (range :. category :. sourceSpan :. Nil) children = Just $
blocks' = foldMap (toList . unwrap) blocks blocks' = foldMap (toList . unwrap) blocks
in withDefaultInfo (S.If clauses' blocks') in withDefaultInfo (S.If clauses' blocks')
toTypeDecl = \case
[identifier, ty] -> withDefaultInfo $ S.TypeDecl identifier ty
rest -> withRanges range Error rest $ S.Error rest
toImports imports = toImports imports =
withDefaultInfo $ S.Indexed (imports >>= toImport) withDefaultInfo $ S.Indexed (imports >>= toImport)
where where