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

Pattern match functions in MethodCalls better in toTermName

Browse Source
This commit is contained in:
joshvera 2016-06-14 14:01:52 -07:00
parent a0f415dece
commit a911515456
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

@ -30,7 +30,8 @@ toTermName term = case unwrap term of
(Syntax.FunctionCall{}, _) -> toTermName base <> "()." <> toTermName property (Syntax.FunctionCall{}, _) -> toTermName base <> "()." <> toTermName property
(_, Syntax.FunctionCall{}) -> toTermName base <> "." <> toTermName property <> "()" (_, Syntax.FunctionCall{}) -> toTermName base <> "." <> toTermName property <> "()"
(_, _) -> toTermName base <> "." <> toTermName property (_, _) -> toTermName base <> "." <> toTermName property
Syntax.MethodCall targetId methodId _ -> toTermName targetId <> "." <> toTermName methodId <> "()" Syntax.MethodCall targetId methodId _ -> let sep = case unwrap targetId of Syntax.FunctionCall{} -> "()."; _ -> "." in
toTermName targetId <> sep <> toTermName methodId <> "()"
class HasCategory a where class HasCategory a where
toCategoryName :: a -> Text toCategoryName :: a -> Text