github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-09 00:56:32 +03:00
Code Issues Projects Releases Wiki Activity

Revert "Define modifyJoin in terms of runJoinWith."

Browse Source 
This reverts commit 17fadce8973b46f1bf66d85c2acb8c0eecf5a334.
This commit is contained in:
Rob Rix 2016-03-24 14:26:25 -04:00
parent 3057ce5190
commit 05bdd19053
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/Alignment.hs
View File

@ -144,7 +144,7 @@ groupChildrenByLine ranges children = go (fromThese [] [] $ runJoin ranges) chil
getRange (Pure patch) | Info range _ :< _ <- getSplitTerm patch = range
modifyJoin :: (p a a -> q b b) -> Join p a -> Join q b
modifyJoin = (Join .) . runJoinWith
modifyJoin f = Join . f . runJoin
bimapJoin :: Bifunctor p => (a -> b) -> (a -> b) -> Join p a -> Join p b
bimapJoin f g = modifyJoin $ bimap f g