diff --git a/src/Data/These/Optics.hs b/src/Data/These/Optics.hs
--- a/src/Data/These/Optics.hs
+++ b/src/Data/These/Optics.hs
@@ -86,5 +86,5 @@
 instance (a ~ a', b ~ b') => Each (Either () ()) (These a a') (These b b') a b where
     each = itraversalVL aux where
         aux f (This a)    = This <$> f (Left ()) a
-        aux f (That b)    = This <$> f (Right ()) b
+        aux f (That b)    = That <$> f (Right ()) b
         aux f (These a b) = These <$> f (Left ()) a <*> f (Right ()) b
diff --git a/these-optics.cabal b/these-optics.cabal
--- a/these-optics.cabal
+++ b/these-optics.cabal
@@ -1,6 +1,6 @@
 cabal-version:      >=1.10
 name:               these-optics
-version:            1.0.1
+version:            1.0.1.1
 synopsis:           Optics for These
 homepage:           https://github.com/isomorphism/these
 license:            BSD3