diff options
author | Stavros Aronis <aronisstav@gmail.com> | 2016-01-07 15:27:33 +0100 |
---|---|---|
committer | Stavros Aronis <aronisstav@gmail.com> | 2016-01-11 15:10:05 +0100 |
commit | 7e1ff61bac96c16a1453acb5be65ba90f48aa820 (patch) | |
tree | 3434110d7e2e00c533a97b8b3e22d7fc1426dd83 /lib/dialyzer | |
parent | 9273afa1458017ab976a525d6f17c7d5757426bc (diff) | |
download | otp-7e1ff61bac96c16a1453acb5be65ba90f48aa820.tar.gz otp-7e1ff61bac96c16a1453acb5be65ba90f48aa820.tar.bz2 otp-7e1ff61bac96c16a1453acb5be65ba90f48aa820.zip |
Eliminate ugly case statements
Diffstat (limited to 'lib/dialyzer')
-rw-r--r-- | lib/dialyzer/src/dialyzer_analysis_callgraph.erl | 17 |
1 files changed, 5 insertions, 12 deletions
diff --git a/lib/dialyzer/src/dialyzer_analysis_callgraph.erl b/lib/dialyzer/src/dialyzer_analysis_callgraph.erl index bf6c732618..8537878dfc 100644 --- a/lib/dialyzer/src/dialyzer_analysis_callgraph.erl +++ b/lib/dialyzer/src/dialyzer_analysis_callgraph.erl @@ -93,23 +93,14 @@ loop(#server_state{parent = Parent} = State, send_log(Parent, LogMsg), loop(State, Analysis, ExtCalls); {AnalPid, warnings, Warnings} -> - case Warnings of - [] -> ok; - SendWarnings -> - send_warnings(Parent, SendWarnings) - end, + send_warnings(Parent, Warnings), loop(State, Analysis, ExtCalls); {AnalPid, cserver, CServer, Plt} -> send_codeserver_plt(Parent, CServer, Plt), loop(State, Analysis, ExtCalls); {AnalPid, done, Plt, DocPlt} -> - case ExtCalls =:= none of - true -> - send_analysis_done(Parent, Plt, DocPlt); - false -> - send_ext_calls(Parent, ExtCalls), - send_analysis_done(Parent, Plt, DocPlt) - end; + send_ext_calls(Parent, ExtCalls), + send_analysis_done(Parent, Plt, DocPlt); {AnalPid, ext_calls, NewExtCalls} -> loop(State, Analysis, NewExtCalls); {AnalPid, ext_types, ExtTypes} -> @@ -569,6 +560,8 @@ send_analysis_done(Parent, Plt, DocPlt) -> Parent ! {self(), done, Plt, DocPlt}, ok. +send_ext_calls(_Parent, none) -> + ok; send_ext_calls(Parent, ExtCalls) -> Parent ! {self(), ext_calls, ExtCalls}, ok. |