Преглед на файлове

Make less than R17 compatible

pull/1320/head
vans163 преди 8 години
родител
ревизия
6180ce0c64
променени са 1 файла, в които са добавени 11 реда и са изтрити 7 реда
  1. +11
    -7
      src/rebar_agent.erl

+ 11
- 7
src/rebar_agent.erl Целия файл

@ -136,13 +136,17 @@ reload_modules(Modules, true) ->
{error, ModRsns} ->
Blacklist =
(fun Error([], Acc) -> Acc;
Error([ {ModNif, on_load_not_allowed} |T], Acc) ->
reload_modules([ModNif], false),
Error(T, [ModNif|Acc]);
Error([ {ModError, _} |T], Acc) ->
Error(T, [ModError|Acc])
end)(ModRsns, []),
lists:foldr(fun({ModError, Error}, Acc) ->
case Error of
%perhaps cover other cases of failure?
on_load_not_allowed ->
reload_modules([ModError], false),
[ModError|Acc];
_ -> [ModError|Acc]
end
end,
[], ModRsns
),
reload_modules(Modules -- Blacklist, true)
end;

Зареждане…
Отказ
Запис