diff --git a/src/Data/Functor/Both.hs b/src/Data/Functor/Both.hs
index 41b5d878e..6ce5c6473 100644
--- a/src/Data/Functor/Both.hs
+++ b/src/Data/Functor/Both.hs
@@ -44,7 +44,7 @@ snd = Prelude.snd . runBoth
 
 unzip :: [Both a] -> Both [a]
 unzip = foldr pair (pure [])
-  where pair (Join (a, b)) (Join (as, bs)) = Join (a : as, b : bs)
+  where pair head tail = (:) <$> head <*> tail
 
 instance Monoid a => Monoid (Join (,) a) where
   mempty = pure mempty