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

Revert "Add a Traversable instance for Join over These."

Browse Source 
This reverts commit c51876c9900eff9891706806c2fce6f932d7bd26.
This commit is contained in:
Rob Rix 2016-03-14 20:44:01 -04:00
parent 618c4a2230
commit f50f824b42
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Data/Bifunctor/Join.hs
View File

@ -20,6 +20,3 @@ instance Applicative (Join These) where
instance Foldable (Join These) where instance Foldable (Join These) where
foldMap f = these id id mappend . bimap f f . runJoin foldMap f = these id id mappend . bimap f f . runJoin
instance Traversable (Join These) where
sequenceA = these (fmap (Join . This)) (fmap (Join . That)) (\ a b -> (Join .) . These <$> a <*> b) . runJoin