From a4b04963782448e477e2ef54640ee5739c97f17a Mon Sep 17 00:00:00 2001 From: bringert Date: Fri, 8 Dec 2006 19:53:44 +0000 Subject: Changed SRGS SISR printing to be closer to the current working draft standard, as supported by the WebSphere implementation (and thus Opera). --- src/GF/Data/XML.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/GF/Data') diff --git a/src/GF/Data/XML.hs b/src/GF/Data/XML.hs index 03965fba7..94d8e354a 100644 --- a/src/GF/Data/XML.hs +++ b/src/GF/Data/XML.hs @@ -12,7 +12,7 @@ module GF.Data.XML (XML(..), Attr, comments, showsXMLDoc, showsXML) where import GF.Data.Utilities -data XML = Data String | CData String | Tag String [Attr] [XML] | Comment String +data XML = Data String | CData String | Tag String [Attr] [XML] | Comment String | Empty deriving (Ord,Eq,Show) type Attr = (String,String) @@ -32,6 +32,7 @@ showsXML (Tag t as cs) = showChar '<' . showString t . showsAttrs as . showChar '>' . concatS (map showsXML cs) . showString "' showsXML (Comment c) = showString "" +showsXML (Empty) = id showsAttrs :: [Attr] -> ShowS showsAttrs = concatS . map (showChar ' ' .) . map showsAttr -- cgit v1.2.3