diff --git a/Changelog b/Changelog
--- a/Changelog
+++ b/Changelog
@@ -7,6 +7,12 @@
 The following is information about what major changes have gone into
 each release.
 
+Changes in 2999.14.0.0
+----------------------
+
+* Added an instance of `Labellable` for strict `Text` values, as
+  requested by **Erik Rantapaa**.
+
 Changes in 2999.13.0.3
 ----------------------
 
diff --git a/Data/GraphViz/Attributes.hs b/Data/GraphViz/Attributes.hs
--- a/Data/GraphViz/Attributes.hs
+++ b/Data/GraphViz/Attributes.hs
@@ -97,6 +97,7 @@
 
 import qualified Data.Text.Lazy as T
 import Data.Text.Lazy(Text)
+import qualified Data.Text as ST
 
 -- -----------------------------------------------------------------------------
 
@@ -145,7 +146,7 @@
 textLabel = toLabel
 
 -- | Create a label /outside/ of a node\/edge.  Currently only in the
--- | Graphviz development branch (2.29.*).
+--   Graphviz development branch (2.29.*).
 xLabel :: (Labellable a) => a -> Attribute
 xLabel = XLabel . toLabelValue
 
@@ -164,6 +165,9 @@
 
 instance Labellable Text where
   toLabelValue = StrLabel
+
+instance Labellable ST.Text where
+  toLabelValue = toLabelValue . T.fromStrict
 
 instance Labellable Char where
   toLabelValue = toLabelValue . T.singleton
diff --git a/graphviz.cabal b/graphviz.cabal
--- a/graphviz.cabal
+++ b/graphviz.cabal
@@ -1,5 +1,5 @@
 Name:               graphviz
-Version:            2999.13.0.3
+Version:            2999.14.0.0
 Stability:          Beta
 Synopsis:           Bindings to Graphviz for graph visualisation.
 Description: {
@@ -63,7 +63,7 @@
                            colour == 2.3.*,
                            transformers >= 0.2 && < 0.4,
                            text,
-                           wl-pprint-text,
+                           wl-pprint-text >= 1.0.0.0 && < 1.2.0.0,
                            dlist == 0.5.*
 
         Exposed-Modules:   Data.GraphViz