github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 00:42:33 +03:00
Code Issues Projects Releases Wiki Activity

Simplify the ToTagsBy instance for method declarations.

Browse Source
This commit is contained in:
Rob Rix 2019-10-03 00:29:51 -04:00
parent 54e4953dae
commit ff8d01169e
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 2 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
semantic-java/src/Language/Java/Tags.hs
View File

@ -5,7 +5,6 @@ module Language.Java.Tags
import Control.Effect.Reader
import Control.Effect.Writer
import Data.Foldable (traverse_)
import Data.Monoid (Ap(..))
import Data.Text as Text
import GHC.Generics
@ -54,14 +53,9 @@ instance (ToTags l, ToTags r) => ToTagsBy 'Custom (l :+: r) where
tags' (R1 r) = tags r
instance ToTagsBy 'Custom Java.MethodDeclaration where
tags' Java.MethodDeclaration
tags' t@Java.MethodDeclaration
{ ann = Loc range span
, name = Java.Identifier { bytes = name }
, dimensions
, extraChildren
, typeParameters
, parameters
, type'
, body
} = do
src <- ask @Source
@ -71,12 +65,7 @@ instance ToTagsBy 'Custom Java.MethodDeclaration where
Nothing -> end range
}
Tags.yield (Tag name Method span (firstLine sliced) Nothing)
traverse_ tags typeParameters
tags parameters
tags type'
traverse_ tags dimensions
traverse_ tags extraChildren
traverse_ tags body
gtags t
instance ToTagsBy 'Custom Java.ClassDeclaration where
tags' t@Java.ClassDeclaration