diff --git a/diagnose.cabal b/diagnose.cabal
--- a/diagnose.cabal
+++ b/diagnose.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           diagnose
-version:        1.8.2
+version:        1.9.0
 synopsis:       Beautiful error reporting done easily
 description:    This package provides a simple way of getting beautiful compiler/interpreter errors
                 using a very simple interface for the programmer.
diff --git a/src/Error/Diagnose/Diagnostic.hs b/src/Error/Diagnose/Diagnostic.hs
--- a/src/Error/Diagnose/Diagnostic.hs
+++ b/src/Error/Diagnose/Diagnostic.hs
@@ -21,6 +21,7 @@
     addFile,
     addReport,
     def,
+    prettyDiagnostic,
     printDiagnostic,
   )
 import System.IO as Export (stderr, stdout)
diff --git a/src/Error/Diagnose/Diagnostic/Internal.hs b/src/Error/Diagnose/Diagnostic/Internal.hs
--- a/src/Error/Diagnose/Diagnostic/Internal.hs
+++ b/src/Error/Diagnose/Diagnostic/Internal.hs
@@ -63,8 +63,12 @@
                ]
 #endif
 
--- | Pretty prints a diagnostic into a 'Doc'ument that can be output using
---   'Text.PrettyPrint.ANSI.Leijen.hPutDoc' or 'Text.PrettyPrint.ANSI.Leijen.displayIO'.
+-- | Pretty prints a 'Diagnostic' into a 'Doc'ument that can be output using 'hPutDoc'.
+--
+--   Colors are put by default.
+--   If you do not want these, just 'unAnnotate' the resulting document like so:
+--
+--   >>> let doc = unAnnotate (prettyDiagnostic withUnicode tabSize diagnostic)
 prettyDiagnostic ::
   Pretty msg =>
   -- | Should we use unicode when printing paths?