-compileXNode (XPi qn ts) = xn "mkPi" $: compileQName qn $: compileXmlTrees ts
-compileXNode (XTag qn ts) = xn "mkElementNode" $: compileQName qn $: compileXmlTrees ts
-compileXNode (XDTD de as) = xn "mkDTDNode" $: compileDTDElem de $: compileAttributes as
-compileXNode (XAttr qn) = xn "mkAttrNode" $: compileQName qn
-compileXNode (XError n s) = xn "mkError" $: litInt n $: litStr s
+compileXNode (XPi qn ts) = xn "mkPi" $: HsParen (compileQName qn) $: compileXmlTrees ts
+compileXNode (XTag qn ts) = xn "mkElementNode" $: HsParen (compileQName qn) $: compileXmlTrees ts
+compileXNode (XDTD de as) = xn "mkDTDNode" $: HsParen (compileDTDElem de) $: HsParen (compileAttributes as)
+compileXNode (XAttr qn) = xn "mkAttrNode" $: HsParen (compileQName qn)
+compileXNode (XError n s) = xn "mkError" $: litInt n $: litStr s