From 118468ce1611f934ccd06787b00c4329bec57b5d Mon Sep 17 00:00:00 2001 From: bringert Date: Sun, 7 Jan 2007 23:57:29 +0000 Subject: Added ETag constructor to GF.Data.XML.XML since not all tags can use the empty shorthand. --- src/GF/Data/XML.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/GF/Data') diff --git a/src/GF/Data/XML.hs b/src/GF/Data/XML.hs index 145c09061..a1807adcc 100644 --- a/src/GF/Data/XML.hs +++ b/src/GF/Data/XML.hs @@ -12,7 +12,7 @@ module GF.Data.XML (XML(..), Attr, comments, showXMLDoc, showsXMLDoc, showsXML, import GF.Data.Utilities -data XML = Data String | CData String | Tag String [Attr] [XML] | Comment String | Empty +data XML = Data String | CData String | Tag String [Attr] [XML] | ETag String [Attr] | Comment String | Empty deriving (Ord,Eq,Show) type Attr = (String,String) @@ -30,7 +30,7 @@ showsXMLDoc xml = showString header . showsXML xml showsXML :: XML -> ShowS showsXML (Data s) = showString s showsXML (CData s) = showString "" -showsXML (Tag t as []) = showChar '<' . showString t . showsAttrs as . showString "/>" +showsXML (ETag t as) = showChar '<' . showString t . showsAttrs as . showString "/>" showsXML (Tag t as cs) = showChar '<' . showString t . showsAttrs as . showChar '>' . concatS (map showsXML cs) . showString "' -- cgit v1.2.3