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

Extract the Operator text using its children's ranges, or with the term's range

Browse Source
This commit is contained in:
joshvera 2016-08-01 11:46:12 -04:00
parent 2b55638fc8
commit 215310fc00
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/DiffSummary.hs
View File

@ -59,17 +59,17 @@ toTermName source term = case unwrap term of
S.Switch expr _ -> toTermName' expr
S.Ternary expr _ -> toTermName' expr
S.MathAssignment id _ -> toTermName' id
S.Operator syntaxes -> mconcat $ toTermName' <$> syntaxes
S.Operator exprs -> termNameFromChildren term exprs
S.Object kvs -> "{" <> intercalate ", " (toTermName' <$> kvs) <> "}"
S.Pair a b -> toTermName' a <> ": " <> toTermName' b
S.Return expr -> maybe "empty" toTermName' expr
S.For exprs _ -> toText $ Source.slice (unionRangesFrom forRange forClauseRanges) source
where forRange = characterRange $ extract term
forClauseRanges = characterRange . extract <$> exprs
S.For exprs _ -> termNameFromChildren term exprs
S.While expr _ -> toTermName' expr
S.DoWhile _ expr -> toTermName' expr
Comment a -> toCategoryName a
where toTermName' = toTermName source
termNameFromChildren term cs = toText $ Source.slice (unionRangesFrom (range term) (range <$> cs)) source
range term = (characterRange $ extract term)
class HasCategory a where
toCategoryName :: a -> Text