Resurrection from slight bitrot.

[Rakka.git] / Rakka / Wiki / Formatter.hs

diff --git a/Rakka/Wiki/Formatter.hs b/Rakka/Wiki/Formatter.hs
index 4a3531ce55a8035dfbad67dfd5f9eecc1a44c184..5f7c7d8c10b952a1c7d7df404da7bc1667e2113c 100644 (file)
--- 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")