root
/
rabbitmq-server
mirror of https://github.com/rabbitmq/rabbitmq-server.git
1
0
Fork 0
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Account for the nested-pair variety of context spec.

This commit is contained in:
Michael Bridgen 2011-05-13 16:23:36 +01:00
parent 8dfc5c4a99
commit e1c34fefc7
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
deps/rabbitmq_web_dispatch/src/rabbit_mochiweb_app.erl vendored
View File

@ -35,14 +35,19 @@ check_contexts(Listeners, Contexts) when
undefined -> undefined ->
{error, no_default_listener}; {error, no_default_listener};
_ -> _ ->
HasListener = fun(Listener, Acc) ->
case proplists:get_value(Listener, Listeners) of
undefined ->
[Listener | Acc];
_ ->
Acc
end
end,
Checks = lists:foldl( Checks = lists:foldl(
fun ({_Name, Listener}, Acc) -> fun ({_Name, {Listener, _Path}}, Acc) ->
case proplists:get_value(Listener, Listeners) of HasListener(Listener, Acc);
undefined -> ({_Name, Listener}, Acc) ->
[Listener | Acc]; HasListener(Listener, Acc)
_ ->
Acc
end
end, [], Contexts), end, [], Contexts),
case Checks of case Checks of
[] -> [] ->