Fix some type errors

This commit is contained in:
Evgeniy Khramtsov 2013-07-22 19:23:40 +10:00
parent f75d78d3f5
commit 8ce22b790d
2 changed files with 4 additions and 4 deletions

View File

@ -175,8 +175,8 @@ import(LServer, SelectQuery, IO, ConvertFun, Opts) ->
false ->
fun() ->
ejabberd_odbc:sql_query_t(
iolist_to_binary(
[<<"declare c cursor for ">>, SelectQuery])),
[iolist_to_binary(
[<<"declare c cursor for ">>, SelectQuery])]),
fetch(IO, ConvertFun, undefined)
end
end,

View File

@ -916,9 +916,9 @@ import(LServer) ->
fun([LUser, XML]) ->
El = #xmlel{} = xml_stream:parse_element(XML),
From = #jid{} = jlib:string_to_jid(
xml:get_attr_s(<<"from">>, El)),
xml:get_attr_s(<<"from">>, El#xmlel.attrs)),
To = #jid{} = jlib:string_to_jid(
xml:get_attr_s(<<"to">>, El)),
xml:get_attr_s(<<"to">>, El#xmlel.attrs)),
Stamp = xml:get_path_s(El, [{elem, <<"delay">>},
{elem, <<"stamp">>},
cdata]),