module Text.XML.HXT.Compilation.XmlTree
( compileXmlTree
+ , compileXmlTrees
+ , compileXNode
+ , compileDTDElem
+ , compileAttributes
+ , compileQName
)
where
import Text.XML.HXT.DOM.TypeDefs
-compileXmlTrees :: XmlTrees -> HsExp
-compileXmlTrees = HsList . map compileXmlTree
-
-
compileXmlTree :: XmlTree -> HsExp
compileXmlTree t
= let node = compileXNode (getNode t)
children = HsList (map compileXmlTree (getChildren t))
in
- xn "mkTree" $: node $: children
+ xn "mkTree" $: HsParen node $: children
+
+
+compileXmlTrees :: XmlTrees -> HsExp
+compileXmlTrees = HsList . map compileXmlTree
compileXNode :: XNode -> HsExp
compileXNode (XEntityRef s) = xn "mkEntityRef" $: litStr s
compileXNode (XCmt s) = xn "mkCmt" $: litStr s
compileXNode (XCdata s) = xn "mkCdata" $: litStr s
-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
compileDTDElem :: DTDElem -> HsExp
xn :: String -> HsExp
xn = HsVar . Qual (Module "XN") . HsIdent
+unq :: String -> HsExp
+unq = HsVar . UnQual . HsIdent
+
litStr :: String -> HsExp
litStr = HsLit . HsString
litInt = HsLit . HsInt . toInteger
-infixl $:
+infixr 5 $:
($:) :: HsExp -> HsExp -> HsExp
-($:) = HsApp
+a $: b = HsApp a b
compileQName :: QName -> HsExp
compileQName (QN prefix local ns)
- = xn "mkQName" $: litStr prefix $: litStr local $: litStr ns
+ = unq "mkQName" $: litStr prefix $: litStr local $: litStr ns