commit e4144e9f9d783557860ab599c3b5a0fbf879e88d
author Tuncer Ayaz <tuncer.ayaz@gmail.com> Tue Aug 30 15:31:27 2016 +0200
committer Tuncer Ayaz <tuncer.ayaz@gmail.com> Tue Aug 30 15:31:27 2016 +0200
tree e0e74f8147f4ba41ac2fa25eb5a2a11defafef10
parent 31297b06f61ac24587c9705985b6ecdcb2b45ac5

port_compiler: fix handling of multiple specs

src/rebar_port_compiler.erl

diff --git a/src/rebar_port_compiler.erl b/src/rebar_port_compiler.erl
index 7aa04ec..9679c80 100644
--- a/src/rebar_port_compiler.erl
+++ b/src/rebar_port_compiler.erl
@@ -216,15 +216,15 @@
 %%
 
 compile_sources(Config, Specs, SharedEnv) ->
-    {Res, Db} =
+    {NewBins, Db} =
         lists:foldl(
-          fun(#spec{sources=Sources, type=Type, opts=Opts}, NewBins) ->
+          fun(#spec{sources=Sources, type=Type, opts=Opts}, Acc) ->
                   Env = proplists:get_value(env, Opts, SharedEnv),
-                  compile_each(Config, Sources, Type, Env, {NewBins, []})
-          end, [], Specs),
+                  compile_each(Config, Sources, Type, Env, Acc)
+          end, {[], []}, Specs),
     %% Rewrite clang compile commands database file only if something
     %% was compiled.
-    case Res of
+    case NewBins of
         [] ->
             ok;
         _ ->
@@ -234,7 +234,7 @@
             ok = io:fwrite(ClangDbFile, "]~n", []),
             ok = file:close(ClangDbFile)
     end,
-    Res.
+    NewBins.
 
 compile_each(_Config, [], _Type, _Env, {NewBins, CDB}) ->
     {lists:reverse(NewBins), lists:reverse(CDB)};