diff options
| author | Eric B Merritt <[email protected]> | 2013-05-03 09:17:35 -0700 |
|---|---|---|
| committer | Eric <[email protected]> | 2013-05-09 16:43:59 -0700 |
| commit | 0d5a803a28010cc956948b614408b9d38997e9a1 (patch) | |
| tree | 56f23e0b7158f2dc2f7d5fc8782bfb0c87c781e4 /src/rcl_cmd_args.erl | |
| parent | e68bbac546e084b4949dc01cbe88c03f6c667139 (diff) | |
| download | relx-0d5a803a28010cc956948b614408b9d38997e9a1.tar.gz relx-0d5a803a28010cc956948b614408b9d38997e9a1.tar.bz2 relx-0d5a803a28010cc956948b614408b9d38997e9a1.zip | |
support the creation or relups
Diffstat (limited to 'src/rcl_cmd_args.erl')
| -rw-r--r-- | src/rcl_cmd_args.erl | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/rcl_cmd_args.erl b/src/rcl_cmd_args.erl index f5ebecd..fee4449 100644 --- a/src/rcl_cmd_args.erl +++ b/src/rcl_cmd_args.erl @@ -238,7 +238,17 @@ create_root_dir(Opts, Acc) -> {ok, rcl_state:cmd_args()} | relcool:error(). create_disable_default_libs(Opts, Acc) -> Def = proplists:get_value(disable_default_libs, Opts, false), - create_caller(Opts, [{disable_default_libs, Def} | Acc]). + create_upfrom(Opts, [{disable_default_libs, Def} | Acc]). + +-spec create_upfrom([getopt:option()], rcl:cmd_args()) -> + {ok, rcl_state:cmd_args()} | relcool:error(). +create_upfrom(Opts, Acc) -> + case proplists:get_value(upfrom, Opts, undefined) of + undefined -> + create_caller(Opts, Acc); + UpFrom -> + create_caller(Opts, [{upfrom, UpFrom} | Acc]) + end. -spec create_caller([getopt:option()], rcl_state:cmd_args()) -> {ok, rcl_state:cmd_args()} | relcool:error(). |