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

Summarize all of indexed nodes’ children, not just the first child.

Browse Source
This commit is contained in:
Rob Rix 2017-01-25 20:16:13 -05:00
parent 776527711d
commit 006ec80a06
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/DiffSummary.hs
View File

@ -16,6 +16,7 @@ import Category as C
import Data.Functor.Both hiding (fst, snd) import Data.Functor.Both hiding (fst, snd)
import qualified Data.Functor.Both as Both import qualified Data.Functor.Both as Both
import Data.Functor.Listable import Data.Functor.Listable
import Data.List.NonEmpty (nonEmpty)
import qualified Data.Text as Text import qualified Data.Text as Text
import Data.Text.Listable import Data.Text.Listable
import Data.Record import Data.Record
@ -196,7 +197,7 @@ toTermName source term = case unwrap term of
S.Defer expr -> toTermName' expr S.Defer expr -> toTermName' expr
S.AnonymousFunction params _ -> "anonymous" <> paramsToArgNames params S.AnonymousFunction params _ -> "anonymous" <> paramsToArgNames params
S.Fixed children -> termNameFromChildren term children S.Fixed children -> termNameFromChildren term children
S.Indexed children -> fromMaybe "branch" $ (toCategoryName . category) . extract <$> head children S.Indexed children -> maybe "branch" sconcat (nonEmpty (intersperse ", " (toTermName' <$> children)))
Leaf leaf -> toS leaf Leaf leaf -> toS leaf
S.Assignment identifier _ -> toTermName' identifier S.Assignment identifier _ -> toTermName' identifier
S.Function identifier _ _ -> toTermName' identifier S.Function identifier _ _ -> toTermName' identifier