bug fix

src/httpCli/agHttpProtocol.erl

@@ -160,7 +160,7 @@ response(#recvState{stage = header, body = OldBody}, Rn, RnRn, Data, IsHeadMetho
    end.
 
 spellHeaders(Headers) ->
-   [<<Key/binary, ": ", Value/binary, "\r\n">> || {Key, Value} <- Headers].
+   <<<<Key/binary, ": ", Value/binary, "\r\n">> || {Key, Value} <- Headers>>.
 
 splitHeaders(Data, Rn, RnRn) ->
    case binary:split(Data, RnRn) of

src/httpCli/agMiscUtils.erl

@@ -102,6 +102,6 @@ spellQueryPars([]) ->
 spellQueryPars([{Key, Value}]) ->
    <<"?", (toBinary(Key))/binary, "=", (toBinary(Value))/binary>>;
 spellQueryPars([{Key, Value} | Tail]) ->
-   First = <<"?", (toBinary(Key))/binary, "=", (toBinary(Value))/binary>>,
-   Tail = [<<"&", (toBinary(OtherKey))/binary, "=", (toBinary(OtherValue))/binary>> || {OtherKey, OtherValue} <- Tail],
-   <<First/binary, Tail/binary>>.
+   FirstBinary = <<"?", (toBinary(Key))/binary, "=", (toBinary(Value))/binary>>,
+   TailBinary = <<<<"&", (toBinary(OtherKey))/binary, "=", (toBinary(OtherValue))/binary>> || {OtherKey, OtherValue} <- Tail>>,
+   <<FirstBinary/binary, TailBinary/binary>>.