diff --git a/src/Data/Functor/Both.hs b/src/Data/Functor/Both.hs
index 18ff2950a..0fde1fd1a 100644
--- a/src/Data/Functor/Both.hs
+++ b/src/Data/Functor/Both.hs
@@ -13,6 +13,7 @@ module Data.Functor.Both
 import Data.Bifunctor.Join as X
 import Data.Functor.Classes
 import Data.Semigroup
+import Data.Text.Prettyprint.Doc as Pretty
 import Prelude hiding (fst, snd)
 import qualified Prelude
 import Text.Show
@@ -55,3 +56,6 @@ instance Eq2 p => Eq1 (Join p) where
 
 instance Show2 p => Show1 (Join p) where
   liftShowsPrec sp sl d = showsUnaryWith (liftShowsPrec2 sp sl sp sl) "Join" d . runJoin
+
+instance Pretty2 p => Pretty1 (Join p) where
+  liftPretty p pl = liftPretty2 p pl p pl . runJoin