From c8e7a4f4ac0b23b1cc5a05d9faca16df3b5f0f3f Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Fri, 21 Aug 2009 09:27:34 +0000
Subject: [PATCH] Modify exmpp header lines to compile with ancient Erlang/OTP
 versions.

SVN Revision: 2516
---
 src/ejabberd_piefxis.erl | 41 +++++++++++++++++++---------------------
 1 file changed, 19 insertions(+), 22 deletions(-)

diff --git a/src/ejabberd_piefxis.erl b/src/ejabberd_piefxis.erl
index 85b1f2583..4cc391fb8 100644
--- a/src/ejabberd_piefxis.erl
+++ b/src/ejabberd_piefxis.erl
@@ -47,37 +47,34 @@
 %% Copied from exmpp header files:
 -define(NS_ROSTER,                   "jabber:iq:roster").
 -define(NS_VCARD,                    "vcard-temp").
--type(xmlname() :: atom() | string()).
 -record(xmlcdata, {
-	  cdata = <<>>     :: binary()
+	  cdata = <<>>
 	 }).
--type(xmlcdata() :: #xmlcdata{}).
 -record(xmlattr, {
-	  ns = undefined   :: xmlname() | undefined,
-	  name             :: xmlname(),
-	  value            :: binary()
+	  ns = undefined,
+	  name,
+	  value
 	 }).
--type(xmlattr() :: #xmlattr{}).
 -record(xmlel, {
-	  ns = undefined   :: xmlname() | undefined,
-	  declared_ns = [] :: [{xmlname(), string() | none}],
-	  name             :: xmlname(),
-	  attrs = []       :: [xmlattr()],
-	  children = []    :: [#xmlel{} | xmlcdata()] | undefined
+	  ns = undefined,
+	  declared_ns = [],
+	  name,
+	  attrs = [],
+	  children = []
 	 }).
 -record(iq, {
-	  kind    :: request | response,
-	  type    :: get | set | result | error,
-	  id      :: binary() | undefined,
-	  ns      :: xmlname() | undefined,
-	  payload :: #xmlel{} | undefined,
-	  error   :: #xmlel{} | undefined,
-	  lang    :: binary() | undefined,
-	  iq_ns   :: xmlname() | undefined
+	  kind,
+	  type,
+	  id,
+	  ns,
+	  payload,
+	  error,
+	  lang,
+	  iq_ns
 	 }).
 -record(xmlendtag, {
-	  ns = undefined   :: xmlname() | undefined,
-	  name             :: xmlname()
+	  ns = undefined,
+	  name
 	 }).