Add <URL> when print-only.

[doclang.git] / Language / TCT / Write / XML.hs

diff --git a/Language/TCT/Write/XML.hs b/Language/TCT/Write/XML.hs
index 6b39dbdb56d62875f9dc81564bafca0e476b063f..2f6ab61d1366a2bbeb5176c547031b9f1b727f68 100644 (file)
--- a/Language/TCT/Write/XML.hs
+++ b/Language/TCT/Write/XML.hs
@@ -196,12 +196,11 @@ instance Xmlify Roots where
                        ----------------------
                         NodePara | para:inh_para <- inh_para inh ->
                                para inh r <|
-                               -- para (() <$ cr) (xmlify inh ts) <|
                                xmlify inh{inh_para} rs
                        ----------------------
                         -- NOTE: context-free Root
                         _ ->
-                               xmlify inh r <>
+                               xmlify inh r `unionXml`
                                xmlify inh rs
                        where
                        element :: XmlName -> XMLs -> XML
@@ -213,7 +212,7 @@ instance Xmlify Root where
                 NodePara ->
                        case inh_para inh of
                         [] -> xmlify inh ts
-                        para:_ -> Seq.singleton $ para inh tn -- para (() <$ cn) $ xmlify inh ts
+                        para:_ -> Seq.singleton $ para inh tn
                ----------------------
                 NodeHeader hdr ->
                        case hdr of