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

Rename mergeThese to catThese.

Browse Source
This commit is contained in:
Rob Rix 2016-04-14 11:54:50 -04:00
parent 9a24a431da
commit df898f3489
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/Alignment.hs
View File

@ -160,10 +160,10 @@ spanAndSplitFirstLines pred = foldr go ([], [])
_ -> (intersecting, (first : rest) : nonintersecting)
| otherwise = (intersecting, nonintersecting)
mergeThese :: [Join These a] -> Join These [a]
mergeThese [ a ] = pure <$> a
mergeThese (a:as) = fromMaybe (Join (These [] [])) $ (:) <$> a `applyThese` mergeThese as
mergeThese [] = Join (These [] [])
catThese :: [Join These a] -> Join These [a]
catThese [ a ] = pure <$> a
catThese (a:as) = fromMaybe (Join (These [] [])) $ (:) <$> a `applyThese` catThese as
catThese [] = Join (These [] [])
-- | Partitions and splits a list of children into a tuple consisting of:
-- | - elements which matched; if an element matches only partially this field will contain only the matching side