1
1
mirror of https://github.com/github/semantic.git synced 2024-12-01 09:15:01 +03:00

add a param

This commit is contained in:
joshvera 2017-01-25 18:26:03 -05:00
parent b9f9dff1c6
commit 3ab42ca794

View File

@ -139,7 +139,7 @@ termToDiffInfo blob term = case unwrap term of
toTermName :: forall leaf fields. DefaultFields fields => Source Char -> SyntaxTerm leaf fields -> Text
toTermName source term = case unwrap term of
S.Function identifier _ _ -> toTermName' identifier
S.Function identifier _ _ _ -> toTermName' identifier
S.Method identifier _ _ _ -> toTermName' identifier
_ -> termNameFromSource term
where