diff options
Diffstat (limited to 'html-test')
-rwxr-xr-x | html-test/run.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/html-test/run.hs b/html-test/run.hs index 87d53bab..f416f07c 100755 --- a/html-test/run.hs +++ b/html-test/run.hs @@ -7,6 +7,8 @@ import Control.Applicative import Control.Monad +import Data.Generics.Aliases +import Data.Generics.Schemes import Data.Maybe import Data.List @@ -264,7 +266,12 @@ deriving instance Eq Xml.CData strip :: Xml.Element -> Xml.Element -strip = id -- TODO. +strip = + everywhere (mkT unlink) + where + unlink attr@(Xml.Attr { attrKey = key }) + | Xml.qName key == "href" = attr { Xml.attrVal = "" } + | otherwise = attr data Flag |