diff options
Diffstat (limited to 'src/GF/Data')
| -rw-r--r-- | src/GF/Data/XML.hs | 5 |
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\" ?>" |