From 7b2b9412adfa512c865404911fa5aea88be35fdf Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Wed, 22 Dec 2010 17:55:31 +0100
Subject: [PATCH] Add some variable type hints

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

diff --git a/src/ejabberd_router.erl b/src/ejabberd_router.erl
index c8dbaa30d..8182f1ef8 100644
--- a/src/ejabberd_router.erl
+++ b/src/ejabberd_router.erl
@@ -105,7 +105,7 @@ register_route({global, Prefix}) ->
 register_route(Domain) when is_list(Domain) ->
     register_route(Domain, undefined).
 
-register_route(Domain, LocalHint) ->
+register_route(Domain, LocalHint) when is_list(Domain) ->
     try
 	LDomain = exmpp_stringprep:nameprep(Domain),
 	LDomainB = list_to_binary(LDomain),
@@ -204,7 +204,7 @@ delete_balanced_route(LDomain, Pid) ->
     end.
 
 
-force_unregister_route(Domain) ->
+force_unregister_route(Domain) when is_binary(Domain) ->
     LDomain = exmpp_stringprep:nameprep(Domain),
     F = fun() ->
 		case mnesia:match_object(