Revert previous attribute name change, problem can be avoided in JAXB.
authoraspinall
Thu, 15 Sep 2005 16:15:22 +0200
changeset 17407 38e0219ec022
parent 17406 3813cc8fad55
child 17408 551c9a4dd693
Revert previous attribute name change, problem can be avoided in JAXB.
src/Pure/proof_general.ML
--- a/src/Pure/proof_general.ML	Thu Sep 15 13:36:10 2005 +0200
+++ b/src/Pure/proof_general.ML	Thu Sep 15 16:15:22 2005 +0200
@@ -180,7 +180,7 @@
     XML.element
       "pgip"
       ([("tag",    pgip_tag),
-        ("messageclass",  pgip_class),
+        ("class",  pgip_class),
         ("seq",    string_of_int (pgip_serial())),
         ("id",     !pgip_id)] @
        if_none (Option.map (single o (pair "destid")) (! pgip_refid)) [] @
@@ -1298,7 +1298,7 @@
      (case xml of
           XML.Elem ("pgip", attrs, pgips) =>
           (let
-               val class = xmlattr "messageclass" attrs
+               val class = xmlattr "class" attrs
                val dest  = xmlattro "destid" attrs
                val _ = (pgip_refid :=  xmlattro "id" attrs;
                         pgip_refseq := xmlattro "seq" attrs)