diff --git a/data-extra.cabal b/data-extra.cabal
--- a/data-extra.cabal
+++ b/data-extra.cabal
@@ -1,5 +1,5 @@
 name:                data-extra
-version:             2.1.1
+version:             2.2.0
 synopsis:            Extra utilities for working on Data.* types.
 description:         Extra utilities for working on Data.* types.
 license:             BSD3
@@ -20,7 +20,8 @@
                      Data.String.Extra,
                      Data.Text.Extra,
                      Data.Number.Extra,
-                     Data.Time.Extra
+                     Data.Time.Extra,
+                     Data.Tuple.Extra
   hs-source-dirs:    src/
   build-depends:     base > 4 && <5,
                      text,
diff --git a/src/Data/Extra.hs b/src/Data/Extra.hs
--- a/src/Data/Extra.hs
+++ b/src/Data/Extra.hs
@@ -14,8 +14,9 @@
        ,module Data.Text.Extra
        ,module Data.Time
        ,module Data.Time.Extra
-       ,module Data.Number.Extra)
-       where
+       ,module Data.Number.Extra
+       ,module Data.Tuple.Extra)
+      where
 
 import Data.Either
 import Data.Either.Extra
@@ -31,3 +32,4 @@
 import Data.Time
 import Data.Time.Extra
 import Data.Number.Extra
+import Data.Tuple.Extra
diff --git a/src/Data/Tuple/Extra.hs b/src/Data/Tuple/Extra.hs
new file mode 100644
--- /dev/null
+++ b/src/Data/Tuple/Extra.hs
@@ -0,0 +1,5 @@
+module Data.Tuple.Extra where
+
+-- | Swap tuple's elements.
+swap :: (t1, t) -> (t, t1)
+swap (a,b) = (b,a)