github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 18:23:44 +03:00
Code Issues Projects Releases Wiki Activity

<> over ++

Browse Source
This commit is contained in:
Rick Winfrey 2016-10-12 15:34:46 -05:00
parent 1234f5dbc3
commit 6894bdcd55
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

@ -242,7 +242,7 @@ termToDiffInfo blob term = case unwrap term of
S.Fixed children -> BranchInfo (termToDiffInfo' <$> children) (toCategoryName term) BFixed
S.AnonymousFunction _ _ -> LeafInfo "anonymous function" (toTermName' term) (getField $ extract term)
Commented cs leaf -> BranchInfo (termToDiffInfo' <$> cs <> maybeToList leaf) (toCategoryName term) BCommented
S.If expr _ elseIfs -> BranchInfo ([LeafInfo (toCategoryName term) (toTermName' expr) (getField $ extract term)] ++ (termToDiffInfo' <$> elseIfs)) (toCategoryName term) BIf
S.If expr _ elseIfs -> BranchInfo ([LeafInfo (toCategoryName term) (toTermName' expr) (getField $ extract term)] <> (termToDiffInfo' <$> elseIfs)) (toCategoryName term) BIf
S.Error _ -> ErrorInfo (getField $ extract term) (toTermName' term)
-- S.If expr _ (Just expr') -> BranchInfo [(termToDiffInfo' expr), (termToDiffInfo' expr')] (toCategoryName term) BIf
_ -> LeafInfo (toCategoryName term) (toTermName' term) (getField $ extract term)