Use lists:foldl/3

diff --git a/src/mod_http_upload.erl b/src/mod_http_upload.erl
index ef7eaee47f6e8a701d221d71cf7934fbe1dea613..3d4f3e56b23d77d157d737d2e0ee8a2af0d8ff25 100644 (file)
--- a/src/mod_http_upload.erl
+++ b/src/mod_http_upload.erl
@@ -689,13 +689,12 @@ iq_disco_info(Host, Lang, Name, AddInfo) ->
               infinity ->
                   AddInfo;
               MaxSize ->
-                  XData = lists:map(
-                            fun(NS) ->
-                                    Fs = http_upload:encode(
-                                           [{'max-file-size', MaxSize}], NS, Lang),
-                                    #xdata{type = result, fields = Fs}
-                            end, [?NS_HTTP_UPLOAD, ?NS_HTTP_UPLOAD_0]),
-                  XData ++ AddInfo
+                  lists:foldl(
+                    fun(NS, Acc) ->
+                            Fs = http_upload:encode(
+                                   [{'max-file-size', MaxSize}], NS, Lang),
+                            [#xdata{type = result, fields = Fs}|Acc]
+                    end, AddInfo, [?NS_HTTP_UPLOAD_0, ?NS_HTTP_UPLOAD])
           end,
     #disco_info{identities = [#identity{category = <<"store">>,
                                        type = <<"file">>,