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

one line

Browse Source
This commit is contained in:
joshvera 2016-10-13 17:58:23 -04:00
parent 4f978b7586
commit dbf8fe2385
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/DiffSummary.hs
View File

@ -165,8 +165,7 @@ toTermName source term = case unwrap term of
S.Indexed children -> fromMaybe "branch" $ (toCategoryName . category) . extract <$> head children S.Indexed children -> fromMaybe "branch" $ (toCategoryName . category) . extract <$> head children
Leaf leaf -> toCategoryName leaf Leaf leaf -> toCategoryName leaf
S.Assignment identifier _ -> toTermName' identifier S.Assignment identifier _ -> toTermName' identifier
S.Function identifier _ _ -> S.Function identifier _ _ -> toTermName' identifier
toTermName' identifier
S.FunctionCall i args -> case unwrap i of S.FunctionCall i args -> case unwrap i of
S.AnonymousFunction params _ -> S.AnonymousFunction params _ ->
-- Omit a function call's arguments if it's arguments match the underlying -- Omit a function call's arguments if it's arguments match the underlying