From 52af19bd64ea39fbf8552601e94d47983a75497e Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Fri, 22 Aug 2008 09:47:42 +0000
Subject: [PATCH] UTF8 encode all generated XML.

---
 src/GF/Data/XML.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/GF/Data/XML.hs b/src/GF/Data/XML.hs
index 0c2efb7dc..4b3a9b509 100644
--- a/src/GF/Data/XML.hs
+++ b/src/GF/Data/XML.hs
@@ -7,6 +7,7 @@
 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)
@@ -20,7 +21,7 @@ showXMLDoc :: XML -> String
 showXMLDoc xml = showsXMLDoc xml ""
 
 showsXMLDoc :: XML -> ShowS
-showsXMLDoc xml = showString header . showsXML xml 
+showsXMLDoc xml = encodeUTF8 . showString header . showsXML xml
   where header = "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>"
 
 showsXML :: XML -> ShowS