diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,6 +1,11 @@
-# 0.2.1
+# 0.2.{1,2}
 
-Add function
+Add functions to prettify to `Doc` instead of just supporting `String`,
+
+```haskell
+prettifyToDoc :: String -> Doc ann
+prettyShowDoc :: Show a => a -> Doc ann
+```
 
 # 0.2.0.1
 
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.1
+version:             0.2.2
 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
@@ -26,6 +26,7 @@
     prettifyToDoc,
 
     prettyShow,
+    prettyShowDoc,
     prettyPrint,
 ) where
 
@@ -64,3 +65,7 @@
 prettifyToDoc s = case parseShowString s of
     Success x -> x
     Failure _ -> pretty s
+
+-- | 'prettifyToDoc' with the 'show' baked in.
+prettyShowDoc :: Show a => a -> Doc ann
+prettyShowDoc = prettifyToDoc . show