From 6313244eacf992fb10a5091bee28582e84540809 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Mon, 19 Apr 2010 09:38:36 +0000
Subject: use the native unicode support from GHC 6.12

---
 src/compiler/GF/Data/XML.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/compiler/GF/Data')

diff --git a/src/compiler/GF/Data/XML.hs b/src/compiler/GF/Data/XML.hs
index bdc6f98a1..4d4a3e8ca 100644
--- a/src/compiler/GF/Data/XML.hs
+++ b/src/compiler/GF/Data/XML.hs
@@ -7,7 +7,6 @@
 module GF.Data.XML (XML(..), Attr, comments, showXMLDoc, showsXMLDoc, showsXML, bottomUpXML) where
 
 import GF.Data.Utilities
-import GF.Text.UTF8
 
 data XML = Data String | CData String | Tag String [Attr] [XML] | ETag String [Attr] | Comment String | Empty
  deriving (Ord,Eq,Show)
@@ -21,7 +20,7 @@ showXMLDoc :: XML -> String
 showXMLDoc xml = showsXMLDoc xml ""
 
 showsXMLDoc :: XML -> ShowS
-showsXMLDoc xml = encodeUTF8 . showString header . showsXML xml
+showsXMLDoc xml = showString header . showsXML xml
   where header = "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>"
 
 showsXML :: XML -> ShowS
-- 
cgit v1.2.3