diff --git a/prologue.cabal b/prologue.cabal
--- a/prologue.cabal
+++ b/prologue.cabal
@@ -2,10 +2,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 0d3ce02fd563a6feeecf96713b122417c0e8937b206c68d86e9442b066041809
+-- hash: 20576fd6610655f655eb87abb91128f645d312de5e9279f631daf41217717d88
 
 name:           prologue
-version:        3.1.4
+version:        3.1.5
 synopsis:       Better, more general Prelude exporting common utilities.
 description:    Replacement for the Haskell's Prelude, exposing more commonly used functions and patching old GHC ones to behave in the newest GHC's way.
 category:       control
@@ -97,6 +97,7 @@
       Prologue.Placeholders_old
       Prologue.Prim
       Prologue.Text.Show
+      Prologue.Text.Show.Pretty
       Prologue.Type.Reflection
       Prologue.Unsafe
   other-modules:
diff --git a/src/Prologue.hs b/src/Prologue.hs
--- a/src/Prologue.hs
+++ b/src/Prologue.hs
@@ -36,6 +36,7 @@
                                              )
 import Text.Read                        as X (readPrec) -- new style Read class implementation
 import Prologue.Text.Show               as X
+import Prologue.Text.Show.Pretty        as X
 import Text.Show.Functions              as X ()
 
 
@@ -130,7 +131,7 @@
 -- === Lenses === --
 import Control.Lens                     as X (Lens, Lens', Iso, Iso', Traversal, Traversal', At, Ixed, Index, IxValue, ix, iso, at, from, lens, over, both, _1, _2, _3, _4, _5, _6, _7, _8, _9)
 import Control.Lens                     as X (view, set)
-import Control.Lens                     as X ((^.), (.~), (%~), (^?))
+import Control.Lens                     as X ((^.), (.~), (%~), (^?), (<&>))
 import Control.Lens.Utils.Wrapped       as X (wrap, unwrap, wrapped)
 import Control.Lens.Utils.TH            as X (makeLenses, makeClassy)
 
@@ -160,4 +161,3 @@
 -- === Concurrency === --
 
 import Control.Concurrent               as X (ThreadId, myThreadId, forkIO, forkFinally, killThread)
-
diff --git a/src/Prologue/Text/Show/Pretty.hs b/src/Prologue/Text/Show/Pretty.hs
new file mode 100644
--- /dev/null
+++ b/src/Prologue/Text/Show/Pretty.hs
@@ -0,0 +1,12 @@
+module Prologue.Text.Show.Pretty where
+
+import Data.Text (Text)
+
+
+-------------------
+-- === Class === --
+-------------------
+
+class PrettyShow a where
+    prettyShow :: a -> Text
+