aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMickaël Rémond <mickael.remond@process-one.net>2010-01-09 16:18:59 +0000
committerMickaël Rémond <mickael.remond@process-one.net>2010-01-09 16:18:59 +0000
commitc8fd680d9227ad474264e7c7d039fc9f1586ecbd (patch)
tree71cf53ae73eda7ca02db92e7c3ddaf22e5c9595b
parentSmall refactoring (diff)
Attempt to fix dialyzer warning: adhoc.erl:51: Guard test XData::'false' | #xmlel{ns::'jabber:x:data',declared_ns::[{_,_}],attrs::[{_,_,_,_}],children::'undefined' | [{_,_} | {_,_,_,_,_,_}]} =:= 'true' can never succeed
SVN Revision: 2869
-rw-r--r--src/adhoc.erl9
1 files changed, 5 insertions, 4 deletions
diff --git a/src/adhoc.erl b/src/adhoc.erl
index 1a0476c2e..52ff6e354 100644
--- a/src/adhoc.erl
+++ b/src/adhoc.erl
@@ -44,10 +44,11 @@ parse_request(#iq{type = set, lang = Lang, sub_el = SubEl, xmlns = ?NS_COMMANDS}
Action = xml:get_tag_attr_s("action", SubEl),
XData = find_xdata_el(SubEl),
{xmlelement, _, _, AllEls} = SubEl,
- if XData ->
- Others = lists:delete(XData, AllEls);
- true ->
- Others = AllEls
+ case XData of
+ false ->
+ Others = AllEls;
+ _ ->
+ Others = lists:delete(XData, AllEls)
end,
#adhoc_request{lang = Lang,