diff options
| author | Hans Bolinder <[email protected]> | 2014-03-13 11:47:31 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2014-03-20 16:00:26 +0100 |
| commit | e2733e0dfe107e2f48c083841ffd128bcbf0abef (patch) | |
| tree | 16eac06dc26ff313b4a7c7bf6e37bec1eacccaef /lib/test_server/src/test_server_sup.erl | |
| parent | 69acde6d5415c770e22dafdfdf92608193151111 (diff) | |
| download | otp-e2733e0dfe107e2f48c083841ffd128bcbf0abef.tar.gz otp-e2733e0dfe107e2f48c083841ffd128bcbf0abef.tar.bz2 otp-e2733e0dfe107e2f48c083841ffd128bcbf0abef.zip | |
test_server: Fix a Dialyzer warning
Diffstat (limited to 'lib/test_server/src/test_server_sup.erl')
| -rw-r--r-- | lib/test_server/src/test_server_sup.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/test_server/src/test_server_sup.erl b/lib/test_server/src/test_server_sup.erl index 3cfa84a52f..96e369a138 100644 --- a/lib/test_server/src/test_server_sup.erl +++ b/lib/test_server/src/test_server_sup.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1998-2013. All Rights Reserved. +%% Copyright Ericsson AB 1998-2014. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -469,7 +469,7 @@ check_instruction(_, {add_application, Application, Type}, _, _) -> check_instruction(_, Instr, _, _) -> throw({error, {low_level_or_invalid_instruction, Instr}}). -check_module(Module, Modules) when is_atom(Module) -> +check_module(Module, Modules) -> case {is_atom(Module), lists:member(Module, Modules)} of {true, true} -> ok; {true, false} -> throw({error, {unknown_module, Module}}); |