From 6283605584fd08502f48f34ee8d34622e57a9242 Mon Sep 17 00:00:00 2001 From: Tristan Sloughter Date: Sat, 18 May 2019 07:25:44 -0600 Subject: include apps in start_clean release but don't load in console_clean --- src/rlx_release.erl | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/rlx_release.erl b/src/rlx_release.erl index a183043..ec26e6b 100644 --- a/src/rlx_release.erl +++ b/src/rlx_release.erl @@ -191,14 +191,23 @@ start_clean_metadata(#release_t{name=Name, vsn=Vsn, erts=ErtsVsn, applications=A realized=Realized}) -> case Realized of true -> - Kernel = lists:keyfind(kernel, 1, Apps), - StdLib = lists:keyfind(stdlib, 1, Apps), + {value, Kernel, Apps1} = lists:keytake(kernel, 1, Apps), + {value, StdLib, Apps2} = lists:keytake(stdlib, 1, Apps1), {ok, {release, {erlang:atom_to_list(Name), Vsn}, {erts, ErtsVsn}, - [Kernel, StdLib]}}; + [Kernel, StdLib | none_type_apps(Apps2)]}}; false -> ?RLX_ERROR({not_realized, Name, Vsn}) end. +none_type_apps([]) -> + []; +none_type_apps([{Name, Version} | Rest]) -> + [{Name, Version, none} | none_type_apps(Rest)]; +none_type_apps([{Name, Version, _} | Rest]) -> + [{Name, Version, none} | none_type_apps(Rest)]; +none_type_apps([{Name, Version, _, _} | Rest]) -> + [{Name, Version, none} | none_type_apps(Rest)]. + %% The no_dot_erlang.rel.src file is a literal copy of start_clean.rel.src %% in Erlang/OTP itself. -spec no_dot_erlang_metadata(t()) -> term(). -- cgit v1.2.3