diff --git a/src/Data/These/Lens.hs b/src/Data/These/Lens.hs
--- a/src/Data/These/Lens.hs
+++ b/src/Data/These/Lens.hs
@@ -22,6 +22,7 @@
 
 -- $setup
 -- >>> import Control.Lens
+-- >>> import Prelude (show)
 
 -------------------------------------------------------------------------------
 -- Traversals
@@ -89,5 +90,5 @@
 -- | @since 1.0.1
 instance (a ~ a', b ~ b') => Each (These a a') (These b b') a b where
     each f (This a)    = This <$> f a
-    each f (That b)    = This <$> f b
+    each f (That b)    = That <$> f b
     each f (These a b) = These <$> f a <*> f b
diff --git a/these-lens.cabal b/these-lens.cabal
--- a/these-lens.cabal
+++ b/these-lens.cabal
@@ -1,6 +1,6 @@
 cabal-version:      >=1.10
 name:               these-lens
-version:            1.0.1
+version:            1.0.1.1
 synopsis:           Lenses for These
 homepage:           https://github.com/isomorphism/these
 license:            BSD3