From 6bde01cd45ed9f37a45d48c1b999ad29b1fbbf49 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Mon, 8 Mar 2010 12:41:11 +0100
Subject: Replace concat_binary supported until R14 with list_to_binary
 supported since R9

---
 src/xml.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/xml.erl')

diff --git a/src/xml.erl b/src/xml.erl
index b33516d83..96d0b2189 100644
--- a/src/xml.erl
+++ b/src/xml.erl
@@ -99,12 +99,12 @@ make_text_node(CData) ->
 	cdata ->
 	    CDATA1 = <<"<![CDATA[">>,
 	    CDATA2 = <<"]]>">>,
-	    concat_binary([CDATA1, CData, CDATA2]);
+	    list_to_binary([CDATA1, CData, CDATA2]);
 	none ->
 	    CData;
 	{cdata, EndTokens} ->
 	    EscapedCData = escape_cdata(CData, EndTokens),
-	    concat_binary(EscapedCData)
+	    list_to_binary(EscapedCData)
     end.
 
 %% Returns escape type needed for the text node
-- 
cgit v1.2.3