diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-12-12 14:01:42 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-12-12 14:01:42 +0000 |
| commit | 0b7fef1a33db15593493b80f8a65aa96c6530f5c (patch) | |
| tree | c562a863c5de51138f8a668a6c59ee5dec1ad99d /src/GF/Data/XML.hs | |
| parent | 1c8e32e6415e28531604c626ce18e2d6db144393 (diff) | |
Use ebnf srg generation in PrSRGS.
Diffstat (limited to 'src/GF/Data/XML.hs')
| -rw-r--r-- | src/GF/Data/XML.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/GF/Data/XML.hs b/src/GF/Data/XML.hs index 94d8e354a..fbb28d94d 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) where +module GF.Data.XML (XML(..), Attr, comments, showsXMLDoc, showsXML, bottomUpXML) where import GF.Data.Utilities @@ -48,3 +48,7 @@ escape = concatMap escChar escChar '&' = "&" escChar '"' = """ escChar c = [c] + +bottomUpXML :: (XML -> XML) -> XML -> XML +bottomUpXML f (Tag n attrs cs) = f (Tag n attrs (map (bottomUpXML f) cs)) +bottomUpXML f x = f x |