github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 14:21:31 +03:00
Code Issues Projects Releases Wiki Activity

No need to qualify sourceSpan.

Browse Source
This commit is contained in:
Rob Rix 2017-05-05 16:19:49 -04:00
parent a55b97b017
commit c73a79eb83
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

@ -130,7 +130,7 @@ mapToInSummarizable sources diff children = case (beforeTerm diff, afterTerm dif
mapToInSummarizable' source term summary = mapToInSummarizable' source term summary =
case (parentInfo summary, summarizable term) of case (parentInfo summary, summarizable term) of
(NotSummarizable, SummarizableTerm _) -> (NotSummarizable, SummarizableTerm _) ->
summary { parentInfo = InSummarizable (category (extract term)) (toTermName 0 source term) (Info.sourceSpan (extract term)) } summary { parentInfo = InSummarizable (category (extract term)) (toTermName 0 source term) (sourceSpan (extract term)) }
(_, _) -> summary (_, _) -> summary
summarizable :: ComonadCofree (Syntax t) w => w a -> SummarizableTerm (w a) summarizable :: ComonadCofree (Syntax t) w => w a -> SummarizableTerm (w a)