diff --git a/System/Console/Terminfo/PrettyPrint.hs b/System/Console/Terminfo/PrettyPrint.hs
--- a/System/Console/Terminfo/PrettyPrint.hs
+++ b/System/Console/Terminfo/PrettyPrint.hs
@@ -4,6 +4,7 @@
     ScopedEffect(..)
   , with
   , Effect(..) -- unpaired effects
+  , HasEffect(..)
   -- ** Graceful degradation
   , soft
   -- ** Effects (built with soft)
@@ -32,6 +33,7 @@
   -- * A Color Pretty Printer
   , TermDoc
   , display
+  , displayLn
   -- ** Progressively less magical formatting
   , displayDoc
   , displayDoc'
@@ -136,6 +138,12 @@
 type TermDoc = Doc Effect
 type SimpleTermDoc = SimpleDoc Effect
 
+class HasEffect e where
+  effect :: e -> Effect
+
+instance HasEffect Effect where
+  effect = id
+
 tryTerm :: MonadPlus m => m TermOutput -> m TermOutput
 tryTerm m = m `mplus` return mempty
 
@@ -191,26 +199,29 @@
    snd <$> scrSize
  `finally` endWin
 
-display :: TermDoc -> IO ()
+displayLn :: PrettyTerm t => t -> IO ()
+displayLn t = displayDoc 0.6 (prettyTerm t <> linebreak)
+
+display :: PrettyTerm t => t -> IO ()
 display = displayDoc 0.6
 
-displayDoc :: Float -> TermDoc -> IO ()
+displayDoc :: PrettyTerm t => Float -> t -> IO ()
 displayDoc ribbon doc = do
   term <- setupTermFromEnv
   displayDoc' term ribbon doc
 
-displayDoc' :: Terminal -> Float -> TermDoc -> IO ()
+displayDoc' :: PrettyTerm t => Terminal -> Float -> t -> IO ()
 displayDoc' term ribbon doc = do
   cols <- kludgeWindowSize `mplus` 
           return (maybe 80 id (getCapability term termColumns))
   displayDoc'' term ribbon cols doc
 
-displayDoc'' :: Terminal -> Float -> Int -> TermDoc -> IO ()
+displayDoc'' :: PrettyTerm t => Terminal -> Float -> Int -> t -> IO ()
 displayDoc'' term ribbon cols doc = 
   case getCapability term $ evalTermState $ displayCap sdoc of
     Just output -> runTermOutput term output
     Nothing     -> displayIO stdout sdoc
-  where sdoc = renderPretty ribbon cols doc
+  where sdoc = renderPretty ribbon cols (prettyTerm doc)
 
 class Pretty t => PrettyTerm t where
   prettyTerm :: t -> TermDoc
@@ -225,6 +236,10 @@
   prettyTerm = char
   prettyTermList = string
 
+instance HasEffect e => PrettyTerm (Doc e) where
+  prettyTerm = fmap effect
+  prettyTermList = list . map (fmap effect)
+  
 instance PrettyTerm Int 
 instance PrettyTerm Bool
 instance PrettyTerm Integer
diff --git a/wl-pprint-terminfo.cabal b/wl-pprint-terminfo.cabal
--- a/wl-pprint-terminfo.cabal
+++ b/wl-pprint-terminfo.cabal
@@ -1,6 +1,6 @@
 name:          wl-pprint-terminfo
 category:      Control, Monads, Text
-version:       0.3.0.1
+version:       0.4
 cabal-version: >= 1.6
 license:       BSD3
 license-file:  LICENSE