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

🔥 some redundant uses of withCategory.

Browse Source
This commit is contained in:
Rob Rix 2017-01-23 14:33:48 -05:00
parent 413fd969f1
commit 0474b79b97
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Language/Go.hs
View File

@ -28,13 +28,13 @@ termAssignment source (range :. category :. sourceSpan :. Nil) children = case (
(TypeDecl, [identifier, ty]) -> withDefaultInfo $ S.TypeDecl identifier ty
(StructTy, _) -> withDefaultInfo (S.Ty (withRanges range FieldDeclarations (S.Indexed children)))
(FieldDecl, [idList]) | [ident] <- toList (unwrap idList)
-> Just $ withCategory FieldDecl (S.FieldDecl ident Nothing Nothing)
-> withDefaultInfo (S.FieldDecl ident Nothing Nothing)
(FieldDecl, [idList, ty]) | [ident] <- toList (unwrap idList)
-> case Info.category (extract ty) of
StringLiteral -> Just $ withCategory FieldDecl (S.FieldDecl ident Nothing (Just ty))
_ -> Just $ withCategory FieldDecl (S.FieldDecl ident (Just ty) Nothing)
-> withDefaultInfo $ case Info.category (extract ty) of
StringLiteral -> S.FieldDecl ident Nothing (Just ty)
_ -> S.FieldDecl ident (Just ty) Nothing
(FieldDecl, [idList, ty, tag]) | [ident] <- toList (unwrap idList)
-> Just $ withCategory FieldDecl (S.FieldDecl ident (Just ty) (Just tag))
-> withDefaultInfo (S.FieldDecl ident (Just ty) (Just tag))
(Switch, _) ->
withDefaultInfo $ case Prologue.break ((== Case) . Info.category . extract) children of
([id], cases) -> S.Switch (Just id) cases -- type_switch_statement