aboutsummaryrefslogtreecommitdiffstats
path: root/lib/test_server
diff options
context:
space:
mode:
authorHans Bolinder <[email protected]>2014-03-13 11:47:31 +0100
committerHans Bolinder <[email protected]>2014-03-20 16:00:26 +0100
commite2733e0dfe107e2f48c083841ffd128bcbf0abef (patch)
tree16eac06dc26ff313b4a7c7bf6e37bec1eacccaef /lib/test_server
parent69acde6d5415c770e22dafdfdf92608193151111 (diff)
downloadotp-e2733e0dfe107e2f48c083841ffd128bcbf0abef.tar.gz
otp-e2733e0dfe107e2f48c083841ffd128bcbf0abef.tar.bz2
otp-e2733e0dfe107e2f48c083841ffd128bcbf0abef.zip
test_server: Fix a Dialyzer warning
Diffstat (limited to 'lib/test_server')
-rw-r--r--lib/test_server/src/test_server_sup.erl4
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}});