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

Factor the application of toLeafInfos out.

Browse Source
This commit is contained in:
Rob Rix 2017-05-05 15:48:54 -04:00
parent c3f510f83d
commit f820af4f5a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Renderer/TOC.hs
View File

@ -113,10 +113,10 @@ toTOCSummaries patch = case afterOrBefore patch of
_ -> NotSummarizable _ -> NotSummarizable
flattenPatch :: Patch DiffInfo -> [Patch DiffInfo] flattenPatch :: Patch DiffInfo -> [Patch DiffInfo]
flattenPatch patch = case patch of flattenPatch patch = case toLeafInfos <$> patch of
Replace i1 i2 -> zipWith Replace (toLeafInfos i1) (toLeafInfos i2) Replace i1 i2 -> zipWith Replace i1 i2
Insert info -> Insert <$> toLeafInfos info Insert info -> Insert <$> info
Delete info -> Delete <$> toLeafInfos info Delete info -> Delete <$> info
toLeafInfos :: DiffInfo -> [DiffInfo] toLeafInfos :: DiffInfo -> [DiffInfo]
toLeafInfos BranchInfo{..} = branches >>= toLeafInfos toLeafInfos BranchInfo{..} = branches >>= toLeafInfos