From b816a40ecb60ee04ab63558cd17373907e9bf4c4 Mon Sep 17 00:00:00 2001
From: Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com>
Date: Wed, 5 Aug 2015 17:42:20 +0200
Subject: Implement link-stripping logic as simple SYB transformation.
---
html-test/run.hs | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
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
--
cgit v1.2.3