diff options
| author | Kostis Sagonas <[email protected]> | 2010-03-07 11:05:06 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2010-04-28 07:04:56 +0200 |
| commit | 75ea6a39d1cf4bd4a67391595b90d8d90155d012 (patch) | |
| tree | 7641cd91bbe2a28399280d691fe3904e0cf26913 /lib/kernel/src/application_starter.erl | |
| parent | 39e5ca57147c08502806f873c107c77e197a78ab (diff) | |
| download | otp-75ea6a39d1cf4bd4a67391595b90d8d90155d012.tar.gz otp-75ea6a39d1cf4bd4a67391595b90d8d90155d012.tar.bz2 otp-75ea6a39d1cf4bd4a67391595b90d8d90155d012.zip | |
kernel: Clean up as suggested by tidier
Diffstat (limited to 'lib/kernel/src/application_starter.erl')
| -rw-r--r-- | lib/kernel/src/application_starter.erl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/kernel/src/application_starter.erl b/lib/kernel/src/application_starter.erl index 8d839e4662..d72dca90c2 100644 --- a/lib/kernel/src/application_starter.erl +++ b/lib/kernel/src/application_starter.erl @@ -42,8 +42,8 @@ start([], _Type, _Apps) -> ok; start([{Phase,_PhaseArgs}|Phases], Type, Apps) -> case start_apps(Phase, Type, Apps) of - {error, Error} -> - {error, Error}; + {error, _} = Error -> + Error; _ -> start(Phases, Type, Apps) end. @@ -56,8 +56,8 @@ start_apps(_Phase, _Type, []) -> ok; start_apps(Phase, Type, [App | Apps]) -> case catch run_start_phase(Phase, Type, App) of - {error, Error} -> - {error, Error}; + {error, _} = Error -> + Error; _ -> start_apps(Phase, Type, Apps) end. @@ -91,10 +91,10 @@ run_the_phase(Phase, Type, App, Mod) -> {ok, Sp} -> Sp end, - case lists:keysearch(Phase, 1, Start_phases) of + case lists:keyfind(Phase, 1, Start_phases) of false -> ok; - {value, {Phase, PhaseArgs}} -> + {Phase, PhaseArgs} -> case catch Mod:start_phase(Phase, Type, PhaseArgs) of ok -> ok; |