diff --git a/alignment.cabal b/alignment.cabal
--- a/alignment.cabal
+++ b/alignment.cabal
@@ -1,7 +1,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                   alignment
-version:                0.1.0.0
+version:                0.1.0.1
 synopsis:               Zip-alignment
 description:
   <<https://system-f.gitlab.io/logo/systemf-450x450.jpg>>
@@ -16,13 +16,13 @@
 build-type:             Simple
 extra-source-files:     changelog.md
 cabal-version:          >=1.10
-homepage:               https://github.com/system-f/alignment
-bug-reports:            https://github.com/system-f/alignment/issues
+homepage:               https://gitlab.com/system-f/alignment
+bug-reports:            https://gitlab.com/system-f/alignment/issues
 tested-with:             GHC == 7.10.3, GHC == 8.0.2, GHC == 8.2.2, GHC == 8.4.3, GHC == 8.6.1
 
 source-repository       head
   type:                 git
-  location:             git@github.com:system-f/alignment.git
+  location:             git@gitlab.com:system-f/alignment.git
 
 library
   exposed-modules:      Data.Alignment
@@ -31,7 +31,6 @@
                       , bifunctors >= 5 && < 6
                       , lens >= 4.15 && < 6
                       , semigroupoids >= 5.1 && < 5.4
-                      , transformers >= 0.5.0 && < 5.5
                       , assoc >= 1 && < 2
 
   hs-source-dirs:       src
diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,3 +1,8 @@
+0.1.0.1
+
+* Add `alignWith`.
+* Remove extraneous dependency.
+
 0.1.0.0
 
 * This change log starts.
diff --git a/src/Data/Alignment.hs b/src/Data/Alignment.hs
--- a/src/Data/Alignment.hs
+++ b/src/Data/Alignment.hs
@@ -49,13 +49,6 @@
 import Data.Foldable ( Foldable(foldMap) )
 import Data.Functor ( Functor(fmap) )
 import Data.Functor.Apply ( Apply((<.>), liftF2) )
-import qualified Data.List.NonEmpty as NonEmpty(cons, toList)
-import Data.Maybe ( Maybe(..) )
-import Data.Monoid ( (<>), Monoid(mempty) )
-import Data.Ord ( Ord(compare) )
-import Data.Semigroup ( Semigroup )
-import Data.Traversable ( Traversable(traverse) )
-import GHC.Show ( Show(showsPrec) )
 import Data.Functor.Classes
     ( compare1,
       eq1,
@@ -64,6 +57,13 @@
       Eq1(..),
       Ord1(..),
       Show1(..) )
+import qualified Data.List.NonEmpty as NonEmpty(cons, toList)
+import Data.Maybe ( Maybe(..) )
+import Data.Monoid ( (<>), Monoid(mempty) )
+import Data.Ord ( Ord(compare) )
+import Data.Semigroup ( Semigroup )
+import Data.Traversable ( Traversable(traverse) )
+import GHC.Show ( Show(showsPrec) )
 
 data This f a b =
   This
@@ -163,6 +163,17 @@
     f a
     -> f b
     -> This f a b
+  align =
+    alignWith (\x -> x) (\x -> x)
+  alignWith ::
+    (a -> c)
+    -> (b -> d)
+    -> f a
+    -> f b
+    -> This f c d
+  alignWith f g a b =
+    bimap f g (align a b)
+  {-# MINIMAL align | alignWith #-}
 
 -- |
 --