diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/rebar.app.src | 3 | ||||
| -rw-r--r-- | src/rebar_prv_clean.erl | 39 | ||||
| -rw-r--r-- | src/rebar_prv_release.erl | 4 |
3 files changed, 43 insertions, 3 deletions
diff --git a/src/rebar.app.src b/src/rebar.app.src index ef6d8de..2ede1db 100644 --- a/src/rebar.app.src +++ b/src/rebar.app.src @@ -21,7 +21,8 @@ {log_level, warn}, %% any_dir processing modules - {providers, [rebar_prv_deps, + {providers, [rebar_prv_clean, + rebar_prv_deps, rebar_prv_do, rebar_prv_lock, rebar_prv_install_deps, diff --git a/src/rebar_prv_clean.erl b/src/rebar_prv_clean.erl new file mode 100644 index 0000000..1ed6241 --- /dev/null +++ b/src/rebar_prv_clean.erl @@ -0,0 +1,39 @@ +%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*- +%% ex: ts=4 sw=4 et + +-module(rebar_prv_clean). + +-behaviour(rebar_provider). + +-export([init/1, + do/1]). + +-include("rebar.hrl"). + +-define(PROVIDER, clean). +-define(DEPS, [app_discovery]). + +%% =================================================================== +%% Public API +%% =================================================================== + +-spec init(rebar_state:t()) -> {ok, rebar_state:t()}. +init(State) -> + State1 = rebar_state:add_provider(State, #provider{name = ?PROVIDER, + provider_impl = ?MODULE, + bare = false, + deps = ?DEPS, + example = "rebar clean", + short_desc = "Remove compiled beam files from apps.", + desc = "", + opts = []}), + {ok, State1}. + +-spec do(rebar_state:t()) -> {ok, rebar_state:t()} | {error, string()}. +do(State) -> + ProjectApps = rebar_state:project_apps(State), + lists:foreach(fun(AppInfo) -> + ?INFO("Cleaning out ~s...~n", [rebar_app_info:name(AppInfo)]), + rebar_erlc_compiler:clean(State, ec_cnv:to_list(rebar_app_info:dir(AppInfo))) + end, ProjectApps), + {ok, State}. diff --git a/src/rebar_prv_release.erl b/src/rebar_prv_release.erl index 61c4990..2eee367 100644 --- a/src/rebar_prv_release.erl +++ b/src/rebar_prv_release.erl @@ -30,6 +30,6 @@ init(State) -> {ok, State1}. -spec do(rebar_state:t()) -> {ok, rebar_state:t()} | {error, string()}. -do(Config) -> +do(State) -> relx:main(["release"]), - {ok, Config}. + {ok, State}. |