github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00
Code Issues Projects Releases Wiki Activity

Call toTermName on MethodCall in termToDiffInfo

Browse Source
This commit is contained in:
joshvera 2016-06-14 13:50:54 -07:00
parent d00f59e2cb
commit e5c73428ce
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

@ -107,7 +107,7 @@ termToDiffInfo term = case runCofree term of
(info :< Syntax.Function identifier _ _) -> [ DiffInfo (toCategoryName info) (maybe "anonymous" toTermName identifier) ]
(info :< Syntax.Assignment identifier value) -> [ DiffInfo (toCategoryName info) (toTermName identifier) ]
memberAccess@(info :< Syntax.MemberAccess{}) -> [ DiffInfo (toCategoryName info) (toTermName $ cofree memberAccess) ]
(info :< Syntax.MethodCall _ methodId _) -> [ DiffInfo (toCategoryName info) (toTermName methodId) ]
methodCall@(info :< Syntax.MethodCall _ methodId _) -> [ DiffInfo (toCategoryName info) (toTermName $ cofree methodCall) ]
prependSummary :: Category -> DiffSummary DiffInfo -> DiffSummary DiffInfo
prependSummary annotation summary = summary { parentAnnotations = annotation : parentAnnotations summary }