Add hooks for getting list of release modules

This commit is contained in:
Dave Smith 2009-12-02 04:54:55 -07:00
parent eb84f4f443
commit a8fd5bc56f

View file

@ -60,12 +60,9 @@ new(Dir) ->
get_modules(Config, app) ->
case orddict:find(app_modules, Config#config.opts) of
error ->
[];
{ok, Modules} ->
Modules
end.
get_list(Config, app_modules, []);
get_modules(Config, rel) ->
get_list(Config, rel_modules, []).
get_list(Config, Key, Default) ->
case orddict:find(Key, Config#config.opts) of