1
1
mirror of https://github.com/github/semantic.git synced 2024-12-21 22:01:46 +03:00

🔥 redundant parens.

This commit is contained in:
Rob Rix 2017-05-08 09:56:11 -04:00
parent f3cf3cb1d1
commit 76002f08c0

View File

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