let to_string d = ();
fun t ->
- if t == Tag.pcdata then "<$>"
- else if t == Tag.attribute_data then "<@$>"
- else if t == Tag.attribute then "<@>"
- else if t == Tag.nullt then "<!NIL!>"
- else tag_name d t
+ if t == Tag.pcdata then "<$>"
+ else if t == Tag.attribute_data then "<@$>"
+ else if t == Tag.attribute then "<@>"
+ else if t == Tag.nullt then "<!NIL!>"
+ else tag_name d t
let translate x = x