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

s/toTOCSummaries/summarize/

Browse Source
This commit is contained in:
Rob Rix 2017-05-08 16:52:03 -04:00
parent a9b7903d8e
commit 48457f13cc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Renderer/TOC.hs
View File

@ -99,7 +99,7 @@ diffTOC blobs diff = removeDupes (diffToTOCSummaries (source <$> blobs) diff) >>
diffToTOCSummaries :: HasDefaultFields fields => Both Source -> Diff (Syntax Text) (Record fields) -> [TOCSummary DiffInfo] diffToTOCSummaries :: HasDefaultFields fields => Both Source -> Diff (Syntax Text) (Record fields) -> [TOCSummary DiffInfo]
diffToTOCSummaries sources = para $ \diff -> case diff of diffToTOCSummaries sources = para $ \diff -> case diff of
Free (annotations :< syntax) -> foldMap (fmap (contextualize (Both.snd sources) (Both.snd annotations :< fmap fst syntax)) . snd) diff Free (annotations :< syntax) -> foldMap (fmap (contextualize (Both.snd sources) (Both.snd annotations :< fmap fst syntax)) . snd) diff
Pure patch -> fmap toTOCSummaries (sequenceA (runBothWith mapPatch (toInfo <$> sources) patch)) Pure patch -> fmap summarize (sequenceA (runBothWith mapPatch (toInfo <$> sources) patch))
toInfo :: HasDefaultFields fields => Source -> Term (Syntax Text) (Record fields) -> [DiffInfo] toInfo :: HasDefaultFields fields => Source -> Term (Syntax Text) (Record fields) -> [DiffInfo]
toInfo source = para $ \ (annotation :< syntax) -> let termName = toTermName source (cofree (annotation :< (fst <$> syntax))) in case syntax of toInfo source = para $ \ (annotation :< syntax) -> let termName = toTermName source (cofree (annotation :< (fst <$> syntax))) in case syntax of
@ -110,7 +110,7 @@ diffTOC blobs diff = removeDupes (diffToTOCSummaries (source <$> blobs) diff) >>
S.AnonymousFunction _ _ -> [LeafInfo C.AnonymousFunction termName (sourceSpan annotation)] S.AnonymousFunction _ _ -> [LeafInfo C.AnonymousFunction termName (sourceSpan annotation)]
_ -> [LeafInfo (category annotation) termName (sourceSpan annotation)] _ -> [LeafInfo (category annotation) termName (sourceSpan annotation)]
toTOCSummaries patch = case afterOrBefore patch of summarize patch = case afterOrBefore patch of
ErrorInfo{..} -> TOCSummary patch Nothing ErrorInfo{..} -> TOCSummary patch Nothing
LeafInfo{..} -> TOCSummary patch $ case leafCategory of LeafInfo{..} -> TOCSummary patch $ case leafCategory of
C.Function -> Just $ Summarizable leafCategory termName leafSourceSpan (patchType patch) C.Function -> Just $ Summarizable leafCategory termName leafSourceSpan (patchType patch)