diff --git a/src/Text/XML/Writer.hs b/src/Text/XML/Writer.hs
--- a/src/Text/XML/Writer.hs
+++ b/src/Text/XML/Writer.hs
@@ -41,6 +41,7 @@
 
 import Data.Text (Text)
 import qualified Data.Text as T
+import qualified Data.Text.Lazy as TL
 import qualified Data.Text.Lazy.IO as TL
 import Data.String (IsString(..))
 
@@ -144,8 +145,11 @@
     toXML = id
 
 -- | Don't use [Char] please, it will scare OverloadedStrings.
-instance ToXML Text where
+instance ToXML T.Text where
     toXML = content
+
+instance ToXML TL.Text where
+    toXML = content . T.concat . TL.toChunks
 
 -- | XML schema uses lower case.
 instance ToXML Bool where
diff --git a/xml-conduit-writer.cabal b/xml-conduit-writer.cabal
--- a/xml-conduit-writer.cabal
+++ b/xml-conduit-writer.cabal
@@ -1,5 +1,5 @@
 name:                xml-conduit-writer
-version:             0.1.1.0
+version:             0.1.1.1
 synopsis:            Warm and fuzzy creation of XML documents.
 description:
     “It can scarcely be denied that the supreme goal of