From 741dde5a2a00dc737e570a7005663c2534ea4f6d Mon Sep 17 00:00:00 2001 From: bringert Date: Fri, 5 Jan 2007 14:34:20 +0000 Subject: 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. --- src/GF/Data/XML.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/GF/Data') 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 = "" -- cgit v1.2.3