Change input to the different SRG printers to be StateGrammar instead of CGrammar. This to allow looking at the types in SISR, and to reduce the number of argument passed from Custom.

1 files changed, 4 insertions, 1 deletions

diff --git a/src/GF/Data/XML.hs b/src/GF/Data/XML.hs
index fbb28d94d..145c09061 100644
--- a/src/GF/Data/XML.hs
+++ b/src/GF/Data/XML.hs
@@ -8,7 +8,7 @@
 -- Utilities for creating XML documents.
 -----------------------------------------------------------------------------
 
-module GF.Data.XML (XML(..), Attr, comments, showsXMLDoc, showsXML, bottomUpXML) where
+module GF.Data.XML (XML(..), Attr, comments, showXMLDoc, showsXMLDoc, showsXML, bottomUpXML) where
 
 import GF.Data.Utilities
 
@@ -20,6 +20,9 @@ type Attr = (String,String)
 comments :: [String] -> [XML]
 comments = map Comment
 
+showXMLDoc :: XML -> String
+showXMLDoc xml = showsXMLDoc xml ""
+
 showsXMLDoc :: XML -> ShowS
 showsXMLDoc xml = showString header . showsXML xml 
   where header = "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>"