diff --git a/src/Data/Bifunctor/Join.hs b/src/Data/Bifunctor/Join.hs
index 4b9a9f7f4..a6ca83422 100644
--- a/src/Data/Bifunctor/Join.hs
+++ b/src/Data/Bifunctor/Join.hs
@@ -20,6 +20,3 @@ instance Applicative (Join These) where
 
 instance Foldable (Join These) where
   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