let convert_type = function
  (* Match with known types. *)
  | "boolean" -> "bool"
  | "date" -> "Date.t"
  | "dateTime" -> "Calendar.t"
  | "double" -> "float"
  | "int" -> "int32"
  | "long" -> "int64"
  | "string" -> "string"
  | "base64Binary" -> "string"
  | eltype -> escape_typename eltype