diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-01-07 23:57:29 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-01-07 23:57:29 +0000 |
| commit | 118468ce1611f934ccd06787b00c4329bec57b5d (patch) | |
| tree | 8d5e06f6acca77baad8e1d3e484e00feb25f05f6 /src/GF/Data | |
| parent | a68944ade07dab439311c02e25566a440c669d79 (diff) | |
Added ETag constructor to GF.Data.XML.XML since not all tags can use the empty shorthand.
Diffstat (limited to 'src/GF/Data')
| -rw-r--r-- | src/GF/Data/XML.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 "<![CDATA[" . showString 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 "</" . showString t . showChar '>' |