diff --git a/pretty-display.cabal b/pretty-display.cabal
--- a/pretty-display.cabal
+++ b/pretty-display.cabal
@@ -1,5 +1,5 @@
 name:                pretty-display
-version:             0.1.7
+version:             0.1.8
 synopsis:            Typeclass for human-readable display
 description:         Typeclass for human-readable display. Provides tools for
                      working interactively within ghci.
@@ -12,6 +12,7 @@
 category:            Text
 build-type:          Simple
 cabal-version:       >=1.10
+tested-with:         GHC==8.0.1, GHC==7.10.3, GHC==7.10.2
 
 library
   hs-source-dirs:      src
diff --git a/src/Text/Display.hs b/src/Text/Display.hs
--- a/src/Text/Display.hs
+++ b/src/Text/Display.hs
@@ -1,5 +1,9 @@
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE UndecidableInstances #-}
+{-# LANGUAGE CPP #-}
+#if __GLASGOW_HASKELL__ < 710
+{-# LANGUAGE OverlappingInstances #-}
+#endif
 module Text.Display
   ( mkDisplayText
   , unDisplayText
@@ -12,7 +16,7 @@
   , dPrint
 
   -- * Re-exports
-  , ppShow
+  , Pretty.ppShow
   , pPrint
 
   -- * Types
@@ -25,7 +29,7 @@
 import qualified Data.Text as Text
 import qualified Data.Text.IO as TextIO
 
-import Text.Show.Pretty as Pretty
+import qualified Text.Show.Pretty as Pretty
 
 newtype DisplayText = DisplayText { _fromDisplayText :: Text } deriving (Eq)
 
@@ -77,3 +81,7 @@
 -- | Print 'Display' instance.
 dPrint :: Display a => a -> IO ()
 dPrint a = TextIO.putStrLn (dShow a)
+
+-- | Pretty print 'Show' instance.
+pPrint :: Show a => a -> IO ()
+pPrint a = putStrLn (Pretty.ppShow a)