diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+## 1.0.2
+
+- Add 'Swap' instances for more n-tuples
+
 ## 1.0.1
 
 - Add `Assoc Const` and `Tagged` instances
diff --git a/assoc.cabal b/assoc.cabal
--- a/assoc.cabal
+++ b/assoc.cabal
@@ -1,6 +1,6 @@
 cabal-version:      1.12
 name:               assoc
-version:            1.0.1
+version:            1.0.2
 license:            BSD3
 license-file:       LICENSE
 synopsis:           swap and assoc: Symmetric and Semigroupy Bifunctors
@@ -27,7 +27,8 @@
      || ==8.2.2
      || ==8.4.4
      || ==8.6.5
-     || ==8.8.1
+     || ==8.8.3
+     || ==8.10.1
   , GHCJS ==8.4
 
 source-repository head
@@ -38,7 +39,7 @@
   default-language: Haskell2010
   hs-source-dirs:   src
   build-depends:
-      base        >=4.3   && <4.14
+      base        >=4.3   && <4.15
     , bifunctors  >=5.5.5 && <5.6
     , tagged      >=0.8.6 && <0.9
 
diff --git a/src/Data/Bifunctor/Swap.hs b/src/Data/Bifunctor/Swap.hs
--- a/src/Data/Bifunctor/Swap.hs
+++ b/src/Data/Bifunctor/Swap.hs
@@ -57,3 +57,18 @@
 
 instance (f ~ g, Functor f, Swap p) => Swap (Biff p f g) where
     swap = Biff . swap . runBiff
+
+instance Swap ((,,) x) where
+    swap (x,a,b) = (x,b,a)
+
+instance Swap ((,,,) x y) where
+    swap (x,y,a,b) = (x,y,b,a)
+
+instance Swap ((,,,,) x y z) where
+    swap (x,y,z,a,b) = (x,y,z,b,a)
+
+instance Swap ((,,,,,) x y z w) where
+    swap (x,y,z,w,a,b) = (x,y,z,w,b,a)
+
+instance Swap ((,,,,,,) x y z w v) where
+    swap (x,y,z,w,v,a,b) = (x,y,z,w,v,b,a)