aboutsummaryrefslogtreecommitdiffstats
path: root/lib/stdlib/src/otp_internal.erl
diff options
context:
space:
mode:
authorHans Bolinder <[email protected]>2016-02-17 09:30:16 +0100
committerHans Bolinder <[email protected]>2016-02-17 09:30:16 +0100
commit05a24fed7539f861c7d725829acb196a3991923c (patch)
treed55270dbf9cb24ed868e49a090b52431fb105cd3 /lib/stdlib/src/otp_internal.erl
parent245f3cc7adc063fc131b051a73237a7e9fcf8524 (diff)
parent0d5820c44dde5875d322a84eab6ce4227fe19bec (diff)
downloadotp-05a24fed7539f861c7d725829acb196a3991923c.tar.gz
otp-05a24fed7539f861c7d725829acb196a3991923c.tar.bz2
otp-05a24fed7539f861c7d725829acb196a3991923c.zip
Merge branch 'maint'
* maint: xmerl: Remove 'no_return' Dialyzer warnings xmerl: Add suppression of Dialyzer warnings eunit: Add suppression of Dialyzer warnings debugger: Add suppression of Dialyzer warnings kernel: Add suppression of Dialyzer warnings mnesia: Add suppression of Dialyzer warnings observer: Add suppression of Dialyzer warnings runtime_tools: Add suppression of Dialyzer warnings stdlib: Add suppression of Dialyzer warnings test_server: Add suppression of Dialyzer warnings tools: Add suppression of Dialyzer warnings Conflicts: lib/stdlib/src/erl_lint.erl lib/stdlib/src/otp_internal.erl
Diffstat (limited to 'lib/stdlib/src/otp_internal.erl')
-rw-r--r--lib/stdlib/src/otp_internal.erl14
1 files changed, 9 insertions, 5 deletions
diff --git a/lib/stdlib/src/otp_internal.erl b/lib/stdlib/src/otp_internal.erl
index bc70c296da..0dc2626ae8 100644
--- a/lib/stdlib/src/otp_internal.erl
+++ b/lib/stdlib/src/otp_internal.erl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 1999-2015. All Rights Reserved.
+%% Copyright Ericsson AB 1999-2016. All Rights Reserved.
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
@@ -23,6 +23,8 @@
%%----------------------------------------------------------------------
+-dialyzer({no_match, obsolete/3}).
+
-type tag() :: 'deprecated' | 'removed'. %% | 'experimental'.
-type mfas() :: mfa() | {atom(), atom(), [byte()]}.
-type release() :: string().
@@ -697,18 +699,20 @@ is_snmp_agent_function(del_agent_caps, 1) -> true;
is_snmp_agent_function(get_agent_caps, 0) -> true;
is_snmp_agent_function(_, _) -> false.
+-dialyzer({no_match, obsolete_type/3}).
+
-spec obsolete_type(module(), atom(), arity()) ->
'no' | {tag(), string()} | {tag(), mfas(), release()}.
-dialyzer({no_match, obsolete_type/3}).
obsolete_type(Module, Name, NumberOfVariables) ->
case obsolete_type_1(Module, Name, NumberOfVariables) of
- {deprecated=Tag,{_,_,_}=Replacement} ->
- {Tag,Replacement,"in a future release"};
+ {deprecated=Tag,{_,_,_}=Replacement} ->
+ {Tag,Replacement,"in a future release"};
{_,String}=Ret when is_list(String) ->
Ret;
- {_,_,_}=Ret ->
- Ret;
+ {_,_,_}=Ret ->
+ Ret;
no ->
no
end.