aboutsummaryrefslogtreecommitdiff
path: root/html-test
diff options
context:
space:
mode:
Diffstat (limited to 'html-test')
-rwxr-xr-xhtml-test/run.hs9
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