X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Rakka%2FWiki%2FFormatter.hs;h=5f7c7d8c10b952a1c7d7df404da7bc1667e2113c;hb=98fd1cb53a837a9bda7145544c34872acb13a634;hp=4a3531ce55a8035dfbad67dfd5f9eecc1a44c184;hpb=71f2db55513679098869de2122b5d5989dbc2be2;p=Rakka.git

diff --git a/Rakka/Wiki/Formatter.hs b/Rakka/Wiki/Formatter.hs
index 4a3531c..5f7c7d8 100644
--- a/Rakka/Wiki/Formatter.hs
+++ b/Rakka/Wiki/Formatter.hs
@@ -7,8 +7,6 @@ import           Control.Arrow
 import           Control.Arrow.ArrowIf
 import           Control.Arrow.ArrowList
 import           Control.Arrow.ArrowTree
-import           Data.Char
-import           Data.List
 import           Data.Maybe
 import           Network.URI hiding (fragment)
 import           Rakka.Page
@@ -281,7 +279,5 @@ attachXHtmlNS :: (ArrowXml a) => a XmlTree XmlTree
 attachXHtmlNS = processTopDown (changeQName attach `when` isElem)
     where
       attach :: QName -> QName
-      attach qn = qn {
-                    namePrefix   = "xhtml"
-                  , namespaceUri = "http://www.w3.org/1999/xhtml"
-                  }
+      attach = setNamePrefix'   (newXName "xhtml") .
+               setNamespaceUri' (newXName "http://www.w3.org/1999/xhtml")