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
@@ -1,4 +1,5 @@
 {-# LANGUAGE OverloadedStrings, TypeSynonymInstances, FlexibleInstances #-}
+{-# OPTIONS_GHC -fno-warn-orphans #-} -- IsString for XML
 
 -- | Overcome XML insanity, node by node.
 --
@@ -36,12 +37,12 @@
 
 import Text.XML
 import Control.Monad.Writer.Strict
+import Data.Default ()
 import qualified Data.DList as DL
 import qualified Data.Map as M
 
 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(..))
 
@@ -145,11 +146,8 @@
     toXML = id
 
 -- | Don't use [Char] please, it will scare OverloadedStrings.
-instance ToXML T.Text where
+instance ToXML 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.1
+version:             0.1.1.2
 synopsis:            Warm and fuzzy creation of XML documents.
 description:
     “It can scarcely be denied that the supreme goal of
@@ -21,7 +21,7 @@
 cabal-version:       >=1.8
 
 source-repository head
-  type: mercurial
+  type: git
   location: https://bitbucket.org/dpwiz/xml-conduit-writer
 
 library
@@ -34,7 +34,8 @@
     xml-conduit, xml-types,
     text,
     mtl, dlist,
-    containers
+    containers,
+    data-default
 
 test-suite tests
   type: exitcode-stdio-1.0