diff --git a/Data/Text.hs b/Data/Text.hs
--- a/Data/Text.hs
+++ b/Data/Text.hs
@@ -388,6 +388,8 @@
 cons c t = unstream (S.cons (safe c) (stream t))
 {-# INLINE cons #-}
 
+infixr 5 cons
+
 -- | /O(n)/ Adds a character to the end of a 'Text'.  This copies the
 -- entire array in the process, unless fused.  Subject to fusion.
 -- Performs replacement on invalid scalar values.
diff --git a/Data/Text/Lazy.hs b/Data/Text/Lazy.hs
--- a/Data/Text/Lazy.hs
+++ b/Data/Text/Lazy.hs
@@ -392,6 +392,8 @@
 cons c t = Chunk (T.singleton c) t
 {-# INLINE [1] cons #-}
 
+infixr 5 cons
+
 {-# RULES
 "LAZY TEXT cons -> fused" [~1] forall c t.
     cons c t = unstream (S.cons c (stream t))
diff --git a/text.cabal b/text.cabal
--- a/text.cabal
+++ b/text.cabal
@@ -1,5 +1,5 @@
 name:           text
-version:        0.11.0.3
+version:        0.11.0.4
 homepage:       http://bitbucket.org/bos/text
 bug-reports:    http://bitbucket.org/bos/text/issues
 synopsis:       An efficient packed Unicode text type.