github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-02 20:41:38 +03:00
Code Issues Projects Releases Wiki Activity

🔥 redundant parens.

Browse Source
This commit is contained in:
Rob Rix 2017-05-08 09:56:11 -04:00
parent f3cf3cb1d1
commit 76002f08c0
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/Renderer/TOC.hs
View File

@ -126,7 +126,7 @@ mapToInSummarizable sources diff children = case (beforeTerm diff, afterTerm dif
where where
mapToInSummarizable' :: Source -> SyntaxTerm leaf fields -> TOCSummary DiffInfo -> TOCSummary DiffInfo mapToInSummarizable' :: Source -> SyntaxTerm leaf fields -> TOCSummary DiffInfo -> TOCSummary DiffInfo
mapToInSummarizable' source term summary = mapToInSummarizable' source term summary =
case (parentInfo summary) of case parentInfo summary of
NotSummarizable | isSummarizable term -> NotSummarizable | isSummarizable term ->
summary { parentInfo = InSummarizable (category (extract term)) (toTermName 0 source term) (sourceSpan (extract term)) } summary { parentInfo = InSummarizable (category (extract term)) (toTermName 0 source term) (sourceSpan (extract term)) }
_ -> summary _ -> summary