From 3e8a0af6d142708d04821f220d56d3889c8762a9 Mon Sep 17 00:00:00 2001
From: Evgeniy Khramtsov <ekhramtsov@process-one.net>
Date: Thu, 25 Oct 2012 22:42:58 +1000
Subject: [PATCH] Fix data convertion

---
 src/mod_irc.erl | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/src/mod_irc.erl b/src/mod_irc.erl
index 88e0f1dce..5001df076 100644
--- a/src/mod_irc.erl
+++ b/src/mod_irc.erl
@@ -56,7 +56,8 @@
 
 -type conn_param() :: {binary(), binary(), inet:port_number(), binary()} |
                       {binary(), binary(), inet:port_number()} |
-                      {binary(), binary()}.
+                      {binary(), binary()} |
+                      {binary()}.
 
 -record(irc_connection,
         {jid_server_host = {#jid{}, <<"">>, <<"">>} :: {jid(), binary(), binary()},
@@ -1224,7 +1225,9 @@ data_to_binary(Data) ->
          ({connections_params, Params}) ->
               {connections_params,
                lists:map(
-                 fun({S, E}) ->
+                 fun({S}) ->
+                         {iolist_to_binary(S)};
+                    ({S, E}) ->
                          {iolist_to_binary(S), iolist_to_binary(E)};
                     ({S, E, Port}) ->
                          {iolist_to_binary(S), iolist_to_binary(E), Port};
@@ -1238,7 +1241,9 @@ data_to_binary(Data) ->
 
 conn_params_to_list(Params) ->
     lists:map(
-      fun({S, E}) ->
+      fun({S}) ->
+              {binary_to_list(S)};
+         ({S, E}) ->
               {binary_to_list(S), binary_to_list(E)};
          ({S, E, Port}) ->
               {binary_to_list(S), binary_to_list(E), Port};