Explorar o código

used $ for documentation node (clashes).

Nicolas Cannasse %!s(int64=20) %!d(string=hai) anos
pai
achega
d959048426
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      genxml.ml

+ 1 - 1
genxml.ml

@@ -34,7 +34,7 @@ let pmap f m =
 let gen_path (p,n) =
 	("path",String.concat "." (p @ [n]))
 
-let gen_doc s = node "doc" [] [pcdata s]
+let gen_doc s = node "$doc" [] [pcdata s]
 
 let gen_doc_opt d =
 	match d with