github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-31 10:57:00 +03:00
Code Issues Projects Releases Wiki Activity

Use the Foldable instance to avoid a mappend.

Browse Source
This commit is contained in:
Rob Rix 2016-08-04 10:19:46 -04:00
parent 5280b62a20
commit f379deca33
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/DiffSummary.hs
View File

@ -64,7 +64,7 @@ toTermName source term = case unwrap term of
S.Pair a b -> toTermName' a <> ": " <> toTermName' b
S.Return expr -> maybe "empty" toTermName' expr
S.Error span _ -> displayStartEndPos span
S.For exprs _ -> termNameFromChildren term exprs
S.For _ _ -> termNameFromChildren term
S.While expr _ -> toTermName' expr
S.DoWhile _ expr -> toTermName' expr
S.Throw expr -> termNameFromSource expr
@ -74,9 +74,9 @@ toTermName source term = case unwrap term of
S.Class identifier _ _ -> toTermName' identifier
S.Method identifier _ _ -> toTermName' identifier
Comment a -> toCategoryName a
S.Commented comments wrapped -> termNameFromChildren term (comments <> maybeToList wrapped)
S.Commented _ _ -> termNameFromChildren term
where toTermName' = toTermName source
termNameFromChildren term cs = termNameFromRange (unionRangesFrom (range term) (range <$> cs))
termNameFromChildren term = termNameFromRange (unionRangesFrom (range term) (range <$> toList (unwrap term)))
termNameFromSource term = termNameFromRange (range term)
termNameFromRange range = toText $ Source.slice range source
range = characterRange . extract