diff options
| author | Hans Bolinder <[email protected]> | 2014-03-20 16:01:54 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2014-03-20 16:01:54 +0100 |
| commit | eb44d0b913a97bf460ba890b04900096f79dcd53 (patch) | |
| tree | 16eac06dc26ff313b4a7c7bf6e37bec1eacccaef /lib/test_server | |
| parent | 73af231f1a22083031df49ba19fdfd4f6b434a10 (diff) | |
| parent | e2733e0dfe107e2f48c083841ffd128bcbf0abef (diff) | |
| download | otp-eb44d0b913a97bf460ba890b04900096f79dcd53.tar.gz otp-eb44d0b913a97bf460ba890b04900096f79dcd53.tar.bz2 otp-eb44d0b913a97bf460ba890b04900096f79dcd53.zip | |
Merge branch 'hb/spec_related_fixes'
* hb/spec_related_fixes:
test_server: Fix a Dialyzer warning
Correct the contract of io:getopts()
Fix some Dialyzer warnings
Diffstat (limited to 'lib/test_server')
| -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}}); |