Big commit to let Ferruccio try the merge_coercion patch.

[helm.git] / helm / ocaml / cic_acic / cic2Xml.ml

diff --git a/helm/ocaml/cic_acic/cic2Xml.ml b/helm/ocaml/cic_acic/cic2Xml.ml
index 5bd9fd1c9878acafebb44c093c154b1d06773c77..4d5cb00deb344c18ffc166f70a13f7dedd495a89 100644 (file)
--- a/helm/ocaml/cic_acic/cic2Xml.ml
+++ b/helm/ocaml/cic_acic/cic2Xml.ml
@@ -277,8 +277,10 @@ let xml_of_attrs attributes =
     | `Record field_names ->
         Xml.xml_nempty "class" [None,"value","record"]
          (List.fold_right
-           (fun name res ->
-             [< Xml.xml_empty "field" [None,"name",name]; res >]
+           (fun (name,coercion) res ->
+             [< Xml.xml_empty "field" 
+                [None,"name",if coercion then name ^ " coercion" else name]; 
+              res >]
            ) field_names [<>])
     | `Projection -> Xml.xml_empty "class" [None,"value","projection"]
   in