diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+# 0.2.1
+
+Add function
+
 # 0.2.0.1
 
 Tagged the wrong version as 0.2 on Github. Releasing a new version with an
diff --git a/show-prettyprint.cabal b/show-prettyprint.cabal
--- a/show-prettyprint.cabal
+++ b/show-prettyprint.cabal
@@ -1,5 +1,5 @@
 name:                show-prettyprint
-version:             0.2.0.2
+version:             0.2.1
 synopsis:            Robust prettyprinter for output of auto-generated Show
                      instances
 description:         See README.md
diff --git a/src/Text/Show/Prettyprint.hs b/src/Text/Show/Prettyprint.hs
--- a/src/Text/Show/Prettyprint.hs
+++ b/src/Text/Show/Prettyprint.hs
@@ -23,6 +23,8 @@
 --          ,("world",Right (Record {r1 = ('c',-1.2e34),r2 = 123}))]
 module Text.Show.Prettyprint (
     prettifyShow,
+    prettifyToDoc,
+
     prettyShow,
     prettyPrint,
 ) where
@@ -31,6 +33,7 @@
 
 import Text.Trifecta
 
+import Data.Text.Prettyprint.Doc      (Doc, pretty)
 import Text.Show.Prettyprint.Internal
 
 
@@ -40,12 +43,10 @@
 -- >>> data Pair a b = Pair a b deriving Show
 -- >>> import Data.Map (fromList)
 
-
-
 -- | Prettyprint a string produced by 'show'. On parse error, silently fall back
 -- to a non-prettyprinted version.
 prettifyShow :: String -> String
-prettifyShow s = case parseString shownP mempty s of
+prettifyShow s = case parseShowString s of
     Success x -> show x
     Failure _ -> s
 
@@ -56,3 +57,10 @@
 -- | 'prettifyShow' with the 'show' and the 'putStrLn' baked in.
 prettyPrint :: Show a => a -> IO ()
 prettyPrint = putStrLn . prettyShow
+
+-- | Like 'prettifyShow', but maps to a 'Doc' for easier interoperability with
+-- the @prettyprinter@ package.
+prettifyToDoc :: String -> Doc ann
+prettifyToDoc s = case parseShowString s of
+    Success x -> x
+    Failure _ -> pretty s
diff --git a/src/Text/Show/Prettyprint/Internal.hs b/src/Text/Show/Prettyprint/Internal.hs
--- a/src/Text/Show/Prettyprint/Internal.hs
+++ b/src/Text/Show/Prettyprint/Internal.hs
@@ -3,6 +3,7 @@
 -- | __This module may change arbitrarily between versions.__ It is exposed only
 -- for documentary purposes.
 module Text.Show.Prettyprint.Internal (
+    parseShowString,
     shownP,
     valueP,
     identifierP,
@@ -34,6 +35,8 @@
 -- :}
 
 
+parseShowString :: String -> Result (Doc ann)
+parseShowString = parseString shownP mempty
 
 -- | Prettyparser for a 'show'-generated string
 shownP :: Parser (Doc ann)