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

Extract the termName from the type, otherwise from the term

Browse Source
This commit is contained in:
joshvera 2016-12-07 15:36:47 -05:00
parent 381453e3a7
commit 19141c2610
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/DiffSummary.hs
View File

@ -252,7 +252,7 @@ toTermName source term = case unwrap term of
S.ConditionalAssignment id _ -> toTermName' id S.ConditionalAssignment id _ -> toTermName' id
S.Negate expr -> toTermName' expr S.Negate expr -> toTermName' expr
S.Rescue args _ -> intercalate ", " $ toTermName' <$> args S.Rescue args _ -> intercalate ", " $ toTermName' <$> args
S.Struct _ _ -> termNameFromSource term S.Struct ty _ -> maybe (termNameFromSource term) termNameFromSource ty
where toTermName' = toTermName source where toTermName' = toTermName source
termNameFromChildren term children = termNameFromRange (unionRangesFrom (range term) (range <$> children)) termNameFromChildren term children = termNameFromRange (unionRangesFrom (range term) (range <$> children))
termNameFromSource term = termNameFromRange (range term) termNameFromSource term = termNameFromRange (range term)