From f7dc4df7846534b6eee40177e45848650168c07e Mon Sep 17 00:00:00 2001
From: Christophe Romain <christophe.romain@process-one.net>
Date: Tue, 28 Sep 2010 10:06:16 +0200
Subject: [PATCH] Allow use with binary() Host from exmpp (thanks to Karim
 Gemayel)

---
 src/gen_mod.erl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/gen_mod.erl b/src/gen_mod.erl
index d13b348d0..08ae0f88d 100644
--- a/src/gen_mod.erl
+++ b/src/gen_mod.erl
@@ -246,6 +246,8 @@ get_hosts(Opts, Prefix) ->
 	    Hosts
     end.
 
+get_module_proc(Host, Base) when is_binary(Host) ->
+    get_module_proc(binary_to_list(Host), Base);
 get_module_proc(global, Base) ->
     list_to_atom(atom_to_list(Base) ++ "__global");
 get_module_proc(Host, {frontend, Base}) ->