ソースを参照

erorr message on failed package update

pull/3/head
Tristan Sloughter 10年前
コミット
db9ba68f80
1個のファイルの変更12行の追加17行の削除
  1. +12
    -17
      src/rebar_prv_update.erl

+ 12
- 17
src/rebar_prv_update.erl ファイルの表示

@ -11,7 +11,7 @@
-include("rebar.hrl"). -include("rebar.hrl").
-define(PROVIDER, update). -define(PROVIDER, update).
-define(DEPS, [lock]).
-define(DEPS, []).
%% =================================================================== %% ===================================================================
%% Public API %% Public API
@ -46,22 +46,17 @@ do(State) ->
end; end;
[] -> [] ->
?INFO("Updating package index...~n", []), ?INFO("Updating package index...~n", []),
Url = url(State),
%{ok, [Home]} = init:get_argument(home),
ec_file:mkdir_p(filename:join([os:getenv("HOME"), ".rebar"])),
PackagesFile = filename:join([os:getenv("HOME"), ".rebar", "packages"]),
{ok, RequestId} = httpc:request(get, {Url, []}, [], [{stream, PackagesFile}, {sync, false}]),
wait(RequestId, State)
end.
wait(RequestId, State) ->
receive
{http, {RequestId, saved_to_file}} ->
{ok, State}
after
500 ->
io:format("."),
wait(RequestId, State)
try
Url = url(State),
%{ok, [Home]} = init:get_argument(home),
ec_file:mkdir_p(filename:join([os:getenv("HOME"), ".rebar"])),
PackagesFile = filename:join([os:getenv("HOME"), ".rebar", "packages"]),
{ok, RequestId} = httpc:request(get, {Url, []}, [], [{stream, PackagesFile}
,{sync, true}])
catch
_:_ ->
{error, io_lib:format("Failed to write package index.~n", [])}
end
end. end.
url(State) -> url(State) ->

読み込み中…
キャンセル
保存