diff options
| author | Tristan Sloughter <[email protected]> | 2013-04-04 18:16:40 -0700 |
|---|---|---|
| committer | Tristan Sloughter <[email protected]> | 2013-04-04 18:16:40 -0700 |
| commit | 95ffc08991826ef33dc80aa4ab4c8755f4f31dd4 (patch) | |
| tree | ed054b798d244c6d8fb9c581d7d79c953a2d5f70 /src/rcl_prv_discover.erl | |
| parent | 9f76afc1c305dad8f321ba4cf6200e03b30c6ce1 (diff) | |
| parent | a5f9b6c2bea4dc4bc7b60198860f5d8fc978ec8a (diff) | |
| download | relx-95ffc08991826ef33dc80aa4ab4c8755f4f31dd4.tar.gz relx-95ffc08991826ef33dc80aa4ab4c8755f4f31dd4.tar.bz2 relx-95ffc08991826ef33dc80aa4ab4c8755f4f31dd4.zip | |
Merge pull request #36 from erlware/next
Next
Diffstat (limited to 'src/rcl_prv_discover.erl')
| -rw-r--r-- | src/rcl_prv_discover.erl | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/src/rcl_prv_discover.erl b/src/rcl_prv_discover.erl index 2f88354..10fb28b 100644 --- a/src/rcl_prv_discover.erl +++ b/src/rcl_prv_discover.erl @@ -48,9 +48,9 @@ do(State0) -> case rcl_rel_discovery:do(State0, LibDirs, AppMeta) of {ok, Releases} -> State1 = rcl_state:available_apps(State0, AppMeta), - State3 = lists:foldl(fun add_if_not_found/2, - State1, Releases), - {ok, State3}; + {ok, rcl_state:discovered_releases(State1, lists:foldl(fun add/2, + ec_dictionary:new(ec_dict), + Releases))}; Error -> Error end; @@ -68,16 +68,10 @@ format_error(_) -> %%% Internal Functions %%%=================================================================== %% @doc only add the release if its not documented in the system -add_if_not_found(Rel, State) -> +add(Rel, Dict) -> RelName = rcl_release:name(Rel), RelVsn = rcl_release:vsn(Rel), - try - rcl_state:get_release(State, RelName, RelVsn), - State - catch - throw:not_found -> - rcl_state:add_release(State, Rel) - end. + ec_dictionary:add({RelName, RelVsn}, Rel, Dict). get_lib_dirs(State) -> LibDirs0 = rcl_state:lib_dirs(State), |